IF cDado is NUMERIC cSQL = cSQL + cDado + "," ELSE cSQL = cSQL + "'" + cDado + "'"+ "," ENDIFuse DO CASE command, and put "," at left :
DO CASE CASE INLIST(aTipo,"N","Y") cSQL = cSQL +","+STR(cDado,aTamanho,aCasasDec) CASE aTipo == "B" IF aCasasDec > 0 cSQL = cSQL + "," +IIF(aCasasDec > 0,STR(cDado,aTamanho,aCasas),STR(cDado)) CASE aTipo == "D" cSQL = cSQL+ IIF(!EMPTY(cDado),",'" +DTOC(cDado)+"'",',NULL') OTHERWISE cSQL = cSQL + + ",'" + cDado + "'" ENDCASE ENDCASE ENDFOR cSQL = SUBSTR(cSQL,2)Fabio