ADORDD FAQs

[gautxori]

Has cambiado esta línea ?

Obr->ob_fecini := cob_fecini

a la hora de salvar los datos ?

Si, si lo he puesto a pelo, lo he intentado explicar en el mensaje anterior

Obr->ob_fecini:= ctod("01/01/2016")

de hecho el error que da es el mismo que poniendo

Obr->ob_fecini := cob_fecini

[Antonio Linares]

Prueba asi:

Obr->ob_fecini := Date()

[gautxori]

Prueba asi:

Obr->ob_fecini := Date()

Obr->ob_fecini:= date()


mismo resultado

erro.log
---------------------------------------------

Application
===========
Path and name: D:\OBRAS32\Obras32.exe (32 bits)
Size: 3,718,656 bytes
Compiler version: Harbour 3.2.0dev (r1601050904)
FiveWin Version: FWH 16.03
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 13 secs
Error occurred at: 2016-05-10, 20:51:18
Error description: (DOS Error -2147352567) WINOLE/1007 [MySQL][ODBC 5.3(a) Driver][mysqld-5.7.12-log]Incorrect date value: '0d20160510' for column 'OB_FECINI' at row 1 (0x80004005): Microsoft OLE DB Provider for ODBC Drivers
Args:
[ 1] = C UPDATE OBRAS SET `OB_FECINI` = '0d20160510' WHERE `ID` = 2
[ 2] = U NIL
[ 3] = N 128

[Kleyber]

gautxori,

Lo que te muestra la query generada?

[Antonio Linares]

Prueba a hacer:

MsgInfo( Obr->ob_fecini )

MsgInfo( Date() )

Obr->ob_fecini:= Date()

[gautxori]

gautxori,

Lo que te muestra la query generada?

muestra esto

UPDATE OBRAS SET `OB_FECINI` = '0d20160510' WHERE `ID` = 2

[gautxori]

Prueba a hacer:

MsgInfo( Obr->ob_fecini )

MsgInfo( Date() )

Obr->ob_fecini:= Date()

PRUEBA
---------
MsgInfo( Obr->ob_fecini ) -->>>>> 0d19890215

MsgInfo( Date() ) --->>>>>>>>> 0d20160510

Obr->ob_fecini:= Date() ---->>>>> error.log

------------------------------------------------------
Application
===========
Path and name: D:\OBRAS32\Obras32.exe (32 bits)
Size: 3,718,656 bytes
Compiler version: Harbour 3.2.0dev (r1601050904)
FiveWin Version: FWH 16.03
Windows version: 6.2, Build 9200

Time from start: 0 hours 1 mins 37 secs
Error occurred at: 2016-05-10, 21:48:04
Error description: (DOS Error -2147352567) WINOLE/1007 [MySQL][ODBC 5.3(a) Driver][mysqld-5.7.12-log]Incorrect date value: '0d20160510' for column 'OB_FECINI' at row 1 (0x80004005): Microsoft OLE DB Provider for ODBC Drivers
Args:
[ 1] = C UPDATE OBRAS SET `OB_FECINI` = '0d20160510' WHERE `ID` = 2
[ 2] = U NIL
[ 3] = N 128

Stack Calls
===========
Called from: => TOLEAUTO:EXECUTE( 0 )
Called from: .\SOURCE\adordd.PRG => ADO_PUTVALUE( 1944 )
Called from: .\SOURCE\AbmObr.PRG => GRABAR( 147 )
Called from: .\SOURCE\AbmObr.PRG => ACEPTAR( 279 )
Called from: .\SOURCE\AbmObr.PRG => (b)DATOS( 120 )
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK( 179 )
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1687 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3278 )
Called from: => SENDMESSAGE( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 413 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 905 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3278 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1041 )
Called from: .\SOURCE\Obras32.PRG => MAIN( 194 )

System
======
CPU type: Intel(R) Pentium(R) CPU N3700 @ 1.60GHz 1600 Mhz
Hardware memory: 3946 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Windows total applications running: 6
1 ,
2 , C:\WINDOWS\SYSTEM32\SHELL32.dll
3 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.10586.0_none_d3c2e4e96
4 , D:\OBRAS32\OBRAS32.DLL
5 , D:\OBRAS32\Obras32.exe
6 GDI+ Window, C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.10586.20_none_22adb5eaa762c7fa

Variables in use
================
Procedure Type Value
==========================
TOLEAUTO:EXECUTE
Param 1: O Class: ERROR
ADO_PUTVALUE
Param 1: C "UPDATE OBRAS SET `OB_FECINI` = '0d20160510' WHERE `ID` = 2"
Param 2: U NIL
Param 3: N 128
Local 1: U NIL
Local 2: U ???:U
GRABAR
Param 1: N 4
Param 2: N 8
Param 3: D 0d20160510
Local 1: A Len: 42
Local 2: O Class: TOLEAUTO
Local 3: N 2
Local 4: U NIL
Local 5: C "dd-mm-yyyy"
Local 6: A Len: 7
Local 7: U NIL
Local 8: A Len: 0
Local 9: U NIL
Local 10: U NIL
Local 11: U NIL
ACEPTAR
Local 1: D 0d20160510
Local 2: U NIL
(b)DATOS
TBUTTON:CLICK
Param 1: O Class: TBUTTON
TBUTTON:HANDLEEVENT
_FWH
Param 1: N 2048
Param 2: N 0
Param 3: N 0
Local 1: U NIL
SENDMESSAGE
Param 1: N 0
Param 2: N 2048
Param 3: N 0
Param 4: N 0
Param 5: N 42
Local 1: O Class: TBUTTON
TDIALOG:COMMAND
Param 1: N 263522
Param 2: N 2048
Param 3: N 0
Param 4: N 0
TWINDOW:HANDLEEVENT
Param 1: N 819
Param 2: N 263522
Local 1: O Class: TBUTTON
Local 2: N 0
Local 3: N 819
Local 4: N 263522
Local 5: U NIL
TDIALOG:HANDLEEVENT
Param 1: N 273
Param 2: N 819
Param 3: N 263522
_FWH
Param 1: N 273
Param 2: N 819
Param 3: N 263522
WINRUN
Param 1: N 263522
Param 2: N 273
Param 3: N 819
Param 4: N 263522
Param 5: N 30
Local 1: O Class: TDIALOG
TMDIFRAME:ACTIVATE
Param 1: N 132390
MAIN
Param 1: C "NORMAL"
Param 2: U NIL
Param 3: U NIL
Param 4: U NIL
Param 5: U NIL
Param 6: U NIL
Param 7: U NIL
Param 8: B {|| ... }
Param 9: U NIL
Param 10: U NIL
Param 11: U NIL
Param 12: U NIL
Param 13: U NIL
Param 14: U NIL
Param 15: U NIL
Param 16: U NIL
Param 17: B {|| ... }
Param 18: U NIL
Param 19: U NIL
Param 20: L .F.
Local 1: O Class: TMDIFRAME
Local 2: U NIL
Local 3: U NIL

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX
ADORDD

DataBases in use
================

1: CONCEP RddName: ADORDD
==============================
RecNo RecCount BOF EOF
1 57 .F. .F.

Indexes in use TagName
=> CP_CODI CONIND01

Relations in use

2: EMPRE RddName: ADORDD
==============================
RecNo RecCount BOF EOF
1 28 .F. .F.

Indexes in use TagName

Relations in use

3: CUE RddName: ADORDD
==============================
RecNo RecCount BOF EOF
2 458 .F. .F.

Indexes in use TagName
=> CU_CODI CUEIND01

Relations in use

4: => OBR RddName: ADORDD
==============================
RecNo RecCount BOF EOF
2 398 .F. .F.

Indexes in use TagName
=> OB_CODI OBRIND01

Relations in use

Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 TINI
5 TWINDOW
6 TCONTROL
7 TICON
8 TBRUSH
9 WIN_OLEAUTO
10 TOLEAUTO
11 TMDIFRAME
12 TMENU
13 TMENUITEM
14 TMDICLIENT
15 TFONT
16 TIMAGELIST
17 TBITMAP
18 TTOOLBAR
19 TMSGBAR
20 TRECT
21 TMSGITEM
22 TTIMER
23 TDIALOG
24 TBTNBMP
25 TXBROWSE
26 TBUTTON
27 TSCROLLBAR
28 TXBRWCOLUMN
29 TSAY
30 TGET
31 GET
32 TCLIPGET
33 TMULTIGET
34 TREG32

Memory Analysis
===============
1809 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes

----------------------------------------------------------------

[Kleyber]

gautxori,

Lo que te muestra la query generada?

muestra esto

UPDATE OBRAS SET `OB_FECINI` = '0d20160510' WHERE `ID` = 2

Entonces los campos Obr->ob_fecini y Obr->ob_fecfin son caracter...

[gautxori]

gautxori,

Lo que te muestra la query generada?

muestra esto

UPDATE OBRAS SET `OB_FECINI` = '0d20160510' WHERE `ID` = 2

Entonces los campos Obr->ob_fecini y Obr->ob_fecfin son caracter...

No, son date fijo. ahora no te lo puedo confirmar pero vienen de la migración de DBF a MySql
A la tarde lo miro y te respondo,
muchas gracias por el interés

[Antonio Linares]

No comprendo porque una fecha se ve con ese formato:

MsgInfo( Date() ) --->>>>>>>>> 0d20160510

Puedes probar esto ?

MsgInfo( DToC( Date() ) )

[gautxori]

No comprendo porque una fecha se ve con ese formato:

MsgInfo( Date() ) --->>>>>>>>> 0d20160510

Puedes probar esto ?

MsgInfo( DToC( Date() ) )

Ya . es lo que veo raro. En los cuadros de dialogo se ve bien.
Lo pruebo a la tarde
Esta APP es un clon de la que tengo con FICHEROS .DBF
Voy a probar como sale la fecha con MSGINFO () en la original , y así voy acotando el problema

Muchas gracias por la colaboración




Enviado desde mi ZP980 mediante Tapatalk

[gautxori]

No comprendo porque una fecha se ve con ese formato:

MsgInfo( Date() ) --->>>>>>>>> 0d20160510

Puedes probar esto ?

MsgInfo( DToC( Date() ) )

Ya . es lo que veo raro. En los cuadros de dialogo se ve bien.
Lo pruebo a la tarde
Esta APP es un clon de la que tengo con FICHEROS .DBF
Voy a probar como sale la fecha con MSGINFO () en la original , y así voy acotando el problema

Muchas gracias por la colaboración




Enviado desde mi ZP980 mediante Tapatalk

Acabo de hacer la prueba con la APP "original" con ficheros .DBF y efectivamente MsgInfo() formatea perfectamente la fecha se ve como
DD-MM-YYYY

Voy a revisar que es lo que pude haber cambiado, pero ya adelanto que obfecini y obfecfin son date en Mysql.

[gautxori]

No comprendo porque una fecha se ve con ese formato:

MsgInfo( Date() ) --->>>>>>>>> 0d20160510

Puedes probar esto ?

MsgInfo( DToC( Date() ) )

Ya . es lo que veo raro. En los cuadros de dialogo se ve bien.
Lo pruebo a la tarde
Esta APP es un clon de la que tengo con FICHEROS .DBF
Voy a probar como sale la fecha con MSGINFO () en la original , y así voy acotando el problema

Muchas gracias por la colaboración




Enviado desde mi ZP980 mediante Tapatalk

Acabo de hacer la prueba con la APP "original" con ficheros .DBF y efectivamente MsgInfo() formatea perfectamente la fecha se ve como
DD-MM-YYYY

Voy a revisar que es lo que pude haber cambiado, pero ya adelanto que obfecini y obfecfin son date en Mysql.

Es curioso
con este código

REDEFINE SAY oDate PROMPT date() ID 11 OF oDEmpre

Code: Select all  Expand view  RUN

Static Function VerEmpre()
     
      DEFINE DIALOG oDEmpre OF oWnd RESOURCE "EMPRESA"
         REDEFINE SAY oNombre PROMPT cNombre ID 10 OF oDEmpre
         REDEFINE SAY oDate   PROMPT date()  ID 11 OF oDEmpre                                
      ACTIVATE DIALOG oDEmpre NOWAIT

return nil
 

obtengo este formato de fecha ¿?



y con este otro código

REDEFINE GET oob_fecini VAR cob_fecini ID 807 OF oDDAbmObr

Code: Select all  Expand view  RUN

Static Function Datos()
      DEFINE DIALOG oDDAbmObr OF oWndObr RESOURCE "ABM_OBR_DATOS"
           REDEFINE GET oob_nomb   VAR cob_nomb     ID 802 OF oDDAbmObr
           REDEFINE GET oob_dire   VAR cob_dire     ID 803 OF oDDAbmObr
           REDEFINE GET oob_pobl   VAR cob_pobl     ID 804 OF oDDAbmObr
           REDEFINE GET oob_prov   VAR cob_prov     ID 805 OF oDDAbmObr
           REDEFINE GET oob_cpos   VAR cob_cpos     ID 806 OF oDDAbmObr
           REDEFINE GET oob_fecini VAR cob_fecini   ID 807 OF oDDAbmObr
           REDEFINE GET oob_fecfin VAR cob_fecfin   ID 808 OF oDDAbmObr
           REDEFINE BUTTON oBtnCue                  ID 811 OF oDDAbmObr ACTION If(HelpCue(),VolHelp_Cue(.t.),VolHelp_Cue(.f.))
           REDEFINE GET oob_Codcli VAR cob_codcli   ID 809 OF oDDAbmObr Valid Cuenta()
           REDEFINE SAY oNombre    PROMPT cNombre   ID 810 OF oDdAbmObr          
           REDEFINE SAY oob_saldo  PROMPT nob_saldo ID 812 PICTURE "999,999,999,999" OF oDdAbmObr          
           REDEFINE BUTTON oBtnSi                   ID 819 OF oDDAbmObr ACTION Aceptar()
           REDEFINE BUTTON oBtnNo                   ID 820 OF oDDAbmObr ACTION Cancelar()
           Cerrar_SiNo()

      ACTIVATE DIALOG oDDAbmObr NOWAIT;
           Valid (oBtnNo:Click(),.F.)
           oOb_Saldo:Hide()
           oDDAbmObr:Disable()
return nil
 

obtengo esta otro formato de fecha inicio (OK)

[Antonio Linares]

Usa esto en tu aplicación:

REQUEST HB_CODEPAGE_ESWIN

...

HB_CDPSELECT( "ESWIN" )

[karinha]

Y

Code: Select all  Expand view  RUN

   REDEFINE SAY oDate   PROMPT date()  ID 11 PICTURE "@D 99/99/9999" OF oDEmpre
 

saludos.