Porque no me muestra la fecha ni los valores en mi bd cuando lo importo de un archivo csv

SQLSETPROP(0,"DispLogin" , 3 )
lnHandle = SQLSTRINGCONNECT(strconexion)
_capacidad = ALLTRIM(thisform.text1.Value)
_archivo = ALLTRIM(thisform.text1.Value)
USE database/detallaconso EXCLUSIVE
ZAP
Append From &_archivo DELIMITED WITH CHARACTER ";"
REPLACE ALL campo13 WITH SUBSTR(campo13,2,LEN(campo13))
REPLACE ALL campo13 WITH SUBSTR(campo13,1,ATC(",",campo13,1)-1)
replace ALL campo13 WITH ALLTRIM(campo13)
DELETE ALL FOR EMPTY(campo1)
SCAN
_valor = detallaconso.campo13
_valor_fin = ""
FOR i=1 TO LEN(_valor)
IF SUBSTR(_valor,i,1)<> "."
_valor_fin = _valor_fin+SUBSTR(_valor,i,1)
ENDIF
NEXT
REPLACE CAMPO13 WITH _valor_fin
ENDSCAN
GO TOP
DELETE
IF lnHandle > 0
SELECT detallaconso
GO TOP
SCAN
SCATTER MEMVAR
_fecha = SUBSTR(m.campo3,7,4)+"-"+SUBSTR(m.campo3,1,2)+"-"+SUBSTR(m.campo3,4,2)
_strcampos = "INSERT INTO detalladoconso (nit,razon_social,fecha,factura,remision,referencia,nombre_item,und,valor_bruto,cantidad,iva,ipoconsumo,valor_neto,vendedor,direccion,credito,empresa)"+;
" VALUES (?m.campo1,?m.campo2,?_fecha,?m.campo4,?m.campo5,?m.campo6,?m.campo7,?m.campo8,?m.campo9,?m.campo10,?m.campo11,?m.campo12,?m.campo13,?m.campo14,?m.campo15,?m.campo16,?thisform.text2.value)"
cmd = SQLEXEC(lnHandle,_strcampos)
IF cmd < 0
AERROR(laErr)
MESSAGEBOX("No se pudo conectar a mySQL. Error: " + CHR(13) + laErr[2])
SQLDISCONNECT(lnHandle)
RETURN 0
ENDIF
ENDSCAN
SQLDISCONNECT(lnHandle)
MESSAGEBOX("Actualizacion realizada con Exito ",0+64+0,thisform.caption)
ELSE
AERROR(laErr)
MESSAGEBOX("No se pudo conectar a mySQL. Error: " + CHR(13) + laErr[2])
ENDIF
ENDCASE
ENDIF