Code: Select all | Expand
Error description: Error MYSQL/1292 Incorrect date value: ' - - ' for column 'fecha' at row 1
Stack Calls
===========
Called from: tdolpsrv.prg => DOLPHIN_DEFERROR( 2901 )
Called from: tdolpsrv.prg => TDOLPHINSRV:CHECKERROR( 838 )
Called from: tdolpsrv.prg => TDOLPHINSRV:SQLQUERY( 2099 )
Called from: tdolpqry.prg => TDOLPHINQRY:SAVE( 1541 )
Called from: facnotas.prg => ACEPTO( 267 )
Called from: facnotas.prg => (b)FACNOTAS( 99 )
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK( 175 )
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1687 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3544 )
Called from: => SENDMESSAGE( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 406 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 916 )
que corresponde a:
Code: Select all | Expand
oQryfac:ncli := oCta:ncli
oQryfac:nrofac := oCta:pventa + "-"+ oCta:factura
oQryfac:fecha := oCta:fecha ///AQUI////
oQryfac:importe := oCta:ntotal
oQryfac:plazo := oCta:condicion
oQryfac:baseimpo := oCta:subtotal
oQryfac:iva := oCta:niva
oQryfac:ingbruto := oCta:ib
oQryfac:tipo := oCta:tipocom
oQryfac:letra := oCta:letra
oQryfac:save()
oCta viene de la clase tarray
donde oCta.fecha esta inicializada como date()
y en el dialogo
como
REDEFINE GET aGet[6] VAR oCta:fecha picture "@d" ID 106 of oDlg UPDATE
Ahora bien en otras partes del programa por ejemplo
Code: Select all | Expand
REDEFINE GET aGet[ 1 ] VAR ache:codigo id 101 of oDlgch update PICTURE "99999"
aGet[ 1 ]:disable()
REDEFINE GET aget[ 2 ] VAR aCHe:ncli id 102 of odlgch update PICTURE "99999" valid( buscocli( oQry, aCHe:ncli, oMysql, odlgch ) )
REDEFINE SAY aget[ 3 ] VAR aCHe:napea id 112 of odlgch update
REDEFINE GET aget[ 4 ] VAR aCHe:banco id 103 of odlgch update
REDEFINE GET aget[ 5 ] VAR aCHe:impche id 104 of odlgch update PICTURE "@e 999,999.99"
REDEFINE GET aget[ 6 ] VAR aCHe:feccha id 105 of odlgch update PICTURE "@d"
REDEFINE GET aget[ 7 ] VAR aCHe:destino id 106 of odlgch update
REDEFINE GET aGet[ 8 ] VAR ache:nrocheq id 107 of oDlgch update
REDEFINE GET aget[ 9 ] VAR aCHe:desfech id 108 of odlgch update PICTURE "@d"
REDEFINE GET aget[ 10 ] VAR aCHe:fechin id 109 of odlgch update PICTURE "@d"
REDEFINE BUTTON nbut[ 1 ] id 110 of odlgch ACTION ( lsalvar := .T., odlgch:end() )
REDEFINE BUTTON nbut[ 2 ] id 111 of odlgch ACTION odlgch:end()
ACTIVATE DIALOG odlgch
//
IF lSalvar
IF !Empty( ache:destino )
nSuma -= ache:impche
ELSE
nSuma += ache:impche
ENDIF
oCheque:desfech := IIF(Empty(aCHe:desfech),,aCHe:desfech)
oCheque:destino := aChe:destino
oCheque:feccha := aChe:feccha
oCheque:ncli := aChe:ncli
oCheque:banco := aChe:banco
oCheque:fechin := aChe:fechin
oCheque:impche := aChe:impche
oCheque:nrocheq := aChe:nrocheq
oCheque:activo := aChe:activo
oCheque:codigo := aChe:codigo
oCheque:save()
dónde ache es también una variable y se toma ache:fechin := date() y
ache:feccha esta declarado como ctod(" / / ")
funciona correctamente.
en todos los casos en las tablas esta declarado como date y defecto " - - "
Gracias por vuestra atención
Luis
