10 Fev 2016 20:06
FUNCTION AlteradoEntreVersoes()
LOCAL cnMySql := ADOClass():New( AppCnMySqlLocal() )
LOCAL aFileList, oEachFile
SayScroll( "Campo JPRECIBO.RESTATUS" )
IF .NOT. cnMySql:FieldExists( "RESTATUS", "JPRECIBO" )
cnMySql:ExecuteCmd( "ALTER TABLE JPRECIBO ADD COLUMN RESTATUS VARCHAR(1) NULL DEFAULT ''" )
ENDIF
SayScroll( "Renomeando BAIRRO pra HLBAIRRO" )
IF cnMySql:TableExists( "BAIRRO" )
IF cnMySql:TableExists( "HLBAIRRO" )
WriteErrorLog( "Conferir sobre MySQL.BAIRRO e MySQL.HLBAIRRO" )
ELSE
cnMySql:ExecuteCmd( "RENAME TABLE BAIRRO TO HLBAIRRO" )
ENDIF
ENDIF
...
10 Fev 2016 20:22
FUNCTION HLSalvaMySQL()
LOCAL nAtual, nTotal, cTmpFile, cnMySql := ADOClass():New( AppcnMySqlLocal() )
IF .NOT. MsgYesNo( "Já reindexou tudo? Confirma transferência?" )
RETURN NIL
ENDIF
// RemoveAcessoDesativado()
SayScroll( "hlcofre.dbf" )
IF .NOT. File( "HLCOFRE.DBF" )
WriteErrorLog( "HLCOFRE.DBF não existe. Retirar rotina" )
ELSE
CopyDbfToMySql( "HLCOFRE", .T. )
fRename( "HLCOFRE.DBF", "HLCOFRE.BAK" )
ENDIF
SayScroll( "hlcaixa.dbf" )
IF .NOT. File( "HLCAIXA.DBF" )
WriteErrorLog( "HLCAIXA.DBF não existe. Retirar rotina" )
ELSE
CopyDbfToMySql( "HLCAIXA", .T. )
fRename( "HLCAIXA.DBF", "HLCAIXA.BAK" )
ENDIF
...
27 Jun 2016 17:40
27 Jun 2016 18:14
28 Jun 2016 08:11
28 Jun 2016 11:20
28 Jun 2016 11:31
atualize estoque = estoque - 1 do produto 10
atualize estoque = estoque - 1 do produto 10
atualize estoque = estoque - 1 do produto 10
atualize estoque = estoque - 1 do produto 10
atualize estoque = estoque - 1 do produto 10
28 Jun 2016 13:55
28 Jun 2016 14:06