07 Set 2019 12:08
07 Set 2019 12:11
07 Set 2019 12:25
07 Set 2019 18:54
07 Set 2019 19:01
07 Set 2019 19:59
07 Set 2019 20:13
08 Set 2019 02:00
08 Set 2019 02:16
09 Set 2019 18:32
IF ! :FieldExists( "NFFCPVAL", "JPNOTA" )
:AddField( "NFFCPVAL", "JPNOTA", "DOUBLE(14,2) NOT NULL DEFAULT '0'" )
ENDIF
IF ! :FieldExists( "NFAVENUM", "JPNOTA" )
:AddField( "NFAVENUM", "JPNOTA", "VARCHAR(40) NOT NULL DEFAULT ''" )
ENDIF
IF ! :FieldExists( "NFAVEPRO", "JPNOTA" )
:AddField( "NFAVEPRO", "JPNOTA", "VARCHAR(40) NOT NULL DEFAULT ''" )
ENDIF
IF ! :FieldExists( "NFMODFIS", "JPNOTA" )
:AddField( "NFMODFIS", "JPNOTA", "VARCHAR(2) NOT NULL DEFAULT ''" )
ENDIF
IF ! :fieldExists( "NFCADEMI", "JPNOTA" )
:AddField( "NFCADEMI", "JPNOTA", "VARCHAR(6) NOT NULL DEFAULT ''" )
ENDIF
IF ! :FieldExists( "IPPEDCOM", "JPITPED" )
:AddField( "IPPEDCOM", "JPITPED", "VARCHAR(6) NOT NULL DEFAULT ''" )
ENDIF
IF ! :FieldExists( "IPFCPALI", "JPITPED" )
:AddField( "IPFCPALI", "JPITPED", "DOUBLE(6,2) NOT NULL DEFAULT '0'" )
ENDIF
IF ! :FieldExists( "IPFCPVAL", "JPITPED" )
:AddField( "IPFCPVAL", "JPITPED", "DOUBLE(14,2) NOT NULL DEFAULT '0'" )
ENDIF
IF ! :FieldExists( "IPNUMLAN", "JPITPED" )
:AddField( "IPNUMLAN", "JPITPED", "VARCHAR(6) NOT NULL DEFAULT ''" )
ENDIF
09 Set 2019 18:42
STATIC FUNCTION jpnotaToMySql()
LOCAL cnMySql := ADOClass():New( AppcnMySqlLocal() )
IF AppcnMySqlLocal() == NIL
RETURN NIL
ENDIF
WITH OBJECT cnMySql
:cSql := "SELECT COUNT(*) AS QTD FROM JPNOTA"
IF :ReturnValueAndClose( "QTD" ) == 0
CopyDbfToMySql( "JPNOTA", .T. )
ENDIF
ENDWITH
CLOSE DATABASES
RETURN NIL
16 Set 2019 09:39
17 Set 2019 14:53
17 Set 2019 15:05
Itamar M. Lins Jr. escreveu:Pq vc não replica os dados ?
20 Set 2019 20:18