Moderador: Moderadores
Itamar M. Lins Jr. escreveu:No LetoDbf eu fiz assim, mas está desligado.
Isso já tem mais de 6 anos.
Itamar M. Lins Jr. escreveu:Nem usa-se pasta compartilhada. Se vc tem um servidor MySQL em qualquer lugar posso ter o mesmo servidor LetoDbf que é o mesmo servidor só que posso usar toda a sintaxe do Harbour.
E onde vai ter o servidor LeToDbf ?
Itamar M. Lins Jr. escreveu:Não sei.
Fiz isso para atualizar as estações.
USE ( "select * from jpbinary where name = 'programa.exe' )
hb_memowrit( "arquivo.exe", hb_base64decode( jpbinary->campo ) )
USE
MenuOption( "Gerente" )
MenuDrop()
MenuOption( "Viagens dos veÃculos", "PNOTAVIAGEM" )
MenuOption( "Produtos nos pedidos", "PNOTACONSPROD" )
MenuOption( "Visualizar Vendas", "PNOTAVERVENDAS" )
MenuOption( "Visualizar próximas vendas", "PNOTAPROXIMAS" )
MenuOption( "Recálculo de Estoque", "PESTORECALCULO" )
MenuOption( "Log de Utilização do Sistema", "PADMINLOG" )
MenuOption( "(I)Ocorrências Alterar/Excluir", "ADMOCOALT" )
MenuOption( "Usuários/Senhas/Acessos", "PADMINACESSO" )
MenuUnDrop()
WITH OBJECT cnSQL
:cSQL := "SELECT * FROM JPBINARY WHERE BINTYPE = 'update' AND BINDATE > '2021-08-01' ORDER BY BINDATE, IDBINARY"
:Execute()
DO WHILE ! :Eof()
:ExecuteCmd( :String( "BINVALUE" ) )
:MoveNext()
ENDDO
:CloseRecordset()
ENDWITYH
*--- Nao existe mais
SayScroll( "SQL Verificando desativados" )
WITH OBJECT cnSQL
IF AppVersaoSQLAnt() < 20200302
IF :TableExists( "JPAGENDA" )
IF :FieldExists( "CDID", "JPAGENDA" )
:ExecuteCmd( "DROP TABLE IF EXISTS JPAGENDA" )
ENDIF
ENDIF
ENDIF
IF AppVersaoSQLAnt() < 20200822
:ExecuteCmd( "DROP TABLE IF EXISTS JPPRETAB" )
:ExecuteCmd( "DROP TABLE IF EXISTS JPPROMIX" )
ENDIF
IF AppVersaoSQLAnt() < 20200905
:ExecuteCmd( "DROP TABLE IF EXISTS JPANPATI" )
:ExecuteCmd( "DROP TABLE IF EXISTS JPLEIANPATI" )
:ExecuteCmd( "DROP TABLE IF EXISTS JPAUXANPATI" )
:ExecuteCmd( "DROP TABLE IF EXISTS JPTABANPATI" )
ENDIF
IF AppVersaoSQLAnt() < 20200727.2
:ExecuteCmd( "DROP TABLE IF EXISTS JPFISCAL" )
ENDIF
ENDWITH
JoséQuintas escreveu:Aonde o MySQL está em servidor Linux DEU ERRO !!!!
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 15 visitantes