prezado professor boa noite!
não entendi o complemento do seu post, onde vc diz: "tchau" várias vezes :%
o que significa as expressões no seu comentário?

Moderador: Moderadores
SayScroll( "Verificando atualizações" )
SAllMySql()
SAllDbf()
ConvGeral()
FUNCTION SAllMySql()
LOCAL cnMySql := ADOClass():New( AppcnMySqlLocal() )
IF AppcnMySqlLocal() == NIL
RETURN NIL
ENDIF
SayScroll( "Verificando tabelas MySql" )
// JPREGUSO antes de todos
cnMySql:ExecuteCmd( JPREGUSOCreateMySql() ) // primeiro ref log
cnMySql:ExecuteCmd( JPCONFICreateMySql() ) // segundo ref configuração
cnMySql:ExecuteCmd( JPBARRACreateMySql() )
FUNCTION SAllDbf()
IF AppDatabase() != DATABASE_DBF
RETURN NIL
ENDIF
SayScroll( "Verificando DBFs" )
// JPREGUSO antes de todos
JPREGUSOCreateDbf()
JPCONFICreateDbf()
FUNCTION Conv2016()
SayScroll()
SayScroll( "Verificando atualizações 2016" )
IF AppcnMySqlLocal() == NIL
JPREGUSOCreateDbf()
JPBARRACreateDbf()
JPCOTACACreateDbf()
JPDECRETCreateDbf()
JPIBPTCreateDbf()
JPLICMOVCreateDbf()
JPORDBARCreateDbf()
JPORDSERCreateDbf()
JPPROMIXCreateDbf()
JPVVDEMCreateDbf()
JPVVFINCreateDbf()
ELSE
IF File( "JPREGUSO.DBF" )
CopyDbfToMySql( "JPREGUSO", .T. )
fErase( "JPREGUSO.DBF" )
ENDIF
IF File( "JPBARRA.DBF" )
JPBARRACreateDbf()
CopyDbfToMySql( "JPBARRA", .T. )
fErase( "JPBARRA.DBF" )
ENDIF
INSERT INTO CLIENTES ( CODIGO, NOME, ENDERECO ) VALUES ( 1, "JUCA", "RUA CHICO BENTO" )
UPDATE CLIENTES SET NOME="JUCA", ENDERECO="RUA CHICO BENTO" WHERE CODIGO=1
[INSERT INTO CLIENTES ( CODIGO, NOME, ENDERECO ) VALUES ( ] + Ltrim( Str( nCodigo ) ) + [, "] + cNome + [", "] + cEndereco + ["]
[UPDATE CLIENTES SET NOME="] + cNome + [", ENDERECO="] + cEndereco + [" WHERE CODIGO=] + Ltrim( Str( nCodigo ) )
"INSERT INTO CLIENTES ( CODIGO, NOME, ENDERECO ) VALUES ( " + NumberSql( nCodigo ) + ", " + StringSql( cNome ) + ", " + StringSql( cEndereco )
"UPDATE CLIENTES SET NOME=" + StringSql( Nome ) + ", ENDERECO=" + StringSql( cEndereco ) + " WHERE CODIGO=" + NumberSql( nCodigo )
:QueryCreate()
:QueryAdd( "CODIGO", nCodigo )
:QueryAdd( "NOME", cNome )
:QueryAdd( "ENDERECO", cEndereco )
:QueryExecuteInsert( "CLIENTES" )
:QueryCreate()
:QueryAdd( "NOME", cNome )
:QueryAdd( "ENDERECO", cEndereco )
:QueryExecuteUpdate( "CLIENTES", "CODIGO=" + NumberSql( nCodigo ) )
#include "jpa.ch"
FUNCTION ConverteGeral()
SayScroll()
SayScroll( "Verificando se há ajustes adicionais" )
DelTempFiles()
IF AppDatabase() != DATABASE_DBF
RETURN NIL
ENDIF
ConverteCriaMySql()
ConverteCriaDbf()
Converte20160101() // arquivos opcionais dbf/mysql
IF AppVersaoDbfAnt() < 20160829; Converte20160829(); ENDIF // bancario renomeado
IF AppVersaoDbfAnt() < 20160829; Converte20160830(); ENDIF // nome cidades mogi mirim e embu das artes
IF AppVersaoDbfAnt() < 20160829; Converte20160831(); ENDIF // antigos imgcopy
IF AppVersaoDbfAnt() < 20160829; Converte20160901(); ENDIF // aumento de campo em jpreguso
IF AppVersaoDbfAnt() < 20160905; Converte20160905(); ENDIF // JPEMISSOR eliminado
IF AppVersaoDbfAnt() < 20160907; Converte20160907(); ENDIF // jpnfbase
IF AppVersaoDbfAnt() < 20160908; Converte20160908(); ENDIF // jpedicfg
IF AppVersaoDbfAnt() < 20130601; RemoveSenhasDesativadas(); ENDIF
IF File( "rastrea.dbf" ) ; fErase( "rastrea.dbf" ) ; ENDIF
IF File( "rastrea.cdx" ) ; fErase( "rastrea.cdx" ) ; ENDIF
IF File( "jplicmov.dbf" ) ; fErase( "jplicmov.dbf" ) ; ENDIF
IF File( "jplicmov.cdx" ) ; fErase( "jplicmov.cdx" ) ; ENDIF
RETURN NIL
FUNCTION Converte20160908()
LOCAL lEof, cnMySql := AdoClass():New( AppcnMySqlLocal() )
IF File( "jpedicfg.cdx" )
fErase( "jpedicfg.cdx" )
ENDIF
IF AppcnMySqlLocal() != NIL
cnMySql:ExecuteCmd( "ALTER TABLE JPEDICFG MODIFY EDDESEDI VARCHAR(50) NOT NULL DEFAULT ''" )
ENDIF
IF File( "jpedicfg.dbf" )
SayScroll( "Somente em MySQL - JPEDICFG" )
JPEDICFGCreateDbf()
USE jpedicfg
lEof := ( LastRec() < 5 )
USE
IF ! lEof
CopyDbfToMySql( "JPEDICFG", .T. )
ENDIF
fErase( "jpedicfg.dbf" )
ENDIF
RETURN NIL
STATIC FUNCTION JPEDICFGCreateDbf()
LOCAL mStruOk
SayScroll( "JPEDICFG, verificando atualizações" )
mStruOk := { ;
{ "EDNUMLAN", "C", 6 }, ;
{ "EDTIPO", "C", 6 }, ;
{ "EDCODJPA", "C", 6 }, ;
{ "EDCODEDI1", "C", 20 }, ;
{ "EDCODEDI2", "C", 20 }, ;
{ "EDDESEDI", "C", 30 }, ;
{ "EDINFINC", "C", 80 }, ;
{ "EDINFALT", "C", 80 } }
IF ! ValidaStru( "JPEDICFG", mStruOk )
MsgStop( "JPEDICFG não disponÃvel!" )
QUIT
ENDIF
RETURN NIL
/*
PROGRAMA...: JPA.CH - HEADER DA JPA
CRIACAO....: 2010.03.22.0900 - JOSE
*/
#xtranslate MemoWrit( ... ) => ChangeMemoWritTohb_MemoWrit( ... )
#xtranslate TempFile( ... ) => ChangeTempFileToMyTempFile( ... )
#xtranslate Descend( ... ] ) => ChangeDescendToMyDescend( ... )
#xtranslate Xtoc( ... ) => ChangeXtocToToString( ... )
#ifndef AD_STATE_CLOSED
#define AD_STATE_CLOSED 0
#endif
#define DATABASE_DBF 1
#define DATABASE_HBNETIO 2
#define MYSQL_MAX_CMDINSERT 500000
#define MYSQL_MAX_RECBACKUP 25000
#define DOW_DOMINGO 1
#define DOW_SEGUNDA 2
#define DOW_TERCA 3
#define DOW_QUARTA 4
#define DOW_QUINTA 5
#define DOW_SEXTA 6
#define DOW_SABADO 7
#define AUX_BANCO "BANCO." // bancos
#define AUX_CADCTL "CADCTL" // Contábil para Cadastro
#define AUX_CARCOR "CARCOR" // códigos de carta de correção
#define AUX_CCUSTO "CCUSTO" // centros de custo
#define AUX_CFOP "CFOP.." // CFOP
#define AUX_CLIGRU "CLIGRU" // Cliente - Grupos
#define AUX_CNAE "CNAE.." // CNAE
#define AUX_CTAADM "CTAADM" // contas administrativas
#define AUX_DEMDOC "DEMDOC" // documentos do demonstrativo
#define AUX_EDICFG "EDICFG" // configuracao de edi
#define AUX_FILIAL "FILIAL" // filiais
#define AUX_FINANC "FINANC" // financeiras
#define AUX_FINOPE "FINOPE" // financeiro - operações
#define AUX_FINPOR "FINPOR" // financeiro - portadores
#define AUX_ICMCST "ICMCST" // ICMS CST
#define AUX_IPICST "IPICST" // IPI CST
#define AUX_IPIENQ "IPIENQ" // IPI Enquadramento
#define AUX_LICTIP "LICTIP" // Tipo de licença
#define AUX_LICOBJ "LICOBJ" // Tipo de objeto
#define AUX_MEIAUT "MEIAUT" // Meio pelo qual foi feita a autorização
#define AUX_MIDIA "MIDIA." // Midia, forma por onde chegou o cliente
#define AUX_MODFIS "MODFIS" // Modelo de documento fiscal
#define AUX_MOTIVO "MOTIVO" // Motivo de cancelamento
#define AUX_ORDCLI "ORDCLI" // ordem de serviço - status de cliente
#define AUX_ORDSTA "ORDSTA" // ordem de serviço - status geral
#define AUX_ORDTEC "ORDTEC" // ordem de serviço - status técnico
#define AUX_ORIMER "ORIMER" // origem da mercadoria
#define AUX_OSAPAR "OSAPAR" // ordem de serviço - aparelho
#define AUX_PISCST "PISCST" // PIS CST
#define AUX_PISENQ "PISENQ" // PIS Enquadramento
#define AUX_PPRECO "PPRECO" // percentuais de tabelas de preço
#define AUX_PROGRU "PROGRU" // Produto Grupo
#define AUX_PRODEP "PRODEP" // Produto Departamento
#define AUX_PROSEC "PROSEC" // Produto Seção
#define AUX_PROLOC "PROLOC" // Produto Localização
#define AUX_PROUNI "PROUNI" // Produto unidade
#define AUX_QUAASS "QUAASS" // Qualificação do Assinante
#define AUX_TABAUX "TABAUX" // Tabelas Auxiliares
#define AUX_TARSTA "TARSTA" // Tarefas Status
#define AUX_TARTIP "TARTIP" // Tarefas Tipos
#define AUX_TRICAD "TRICAD" // Tributação de Cadastros
#define AUX_TRIEMP "TRIEMP" // Tributação de empresa
#define AUX_TRIPRO "TRIPRO" // Tributação de produtos
#define AUX_TRIUF "TRIUF." // Tributação de UFs
#define AUX_CXATIP "CXATIP" // Tipo de lançamento no caixa
#define AUX_ECIVIL "ECIVIL" // Estado Civil
#define AUX_REAJUS "REAJUS" // Tipo de Reajuste
#define AUX_TIPIMO "TIPIMO" // Tipo de Imóvel
#define AUX_TIPCTR "TIPCTR" // Tipo de Contrato
#define HLCAIXA_MONE_CHEQUE 1
#define HLCAIXA_MONE_DINHEIRO 2
#define HLCAIXA_MONE_CARTAO 3
#define HLCAIXA_MONE_DOLAR 4
#define HLCAIXA_MONE_VALE 5
#define HLCAIXA_DB_ENTRADA 1
#define HLCAIXA_DB_SAIDA 2
#define HLCAIXA_DB_EXTRACAIXA 3
#define HLCAIXA_TIPO_RECIBO 1
#define HLCAIXA_TIPO_RECIBO_ALUGUEL 2
#define HLCAIXA_TIPO_RECIBO_LUZ 3
#define HLCAIXA_TIPO_RECIBO_AGUA 4
#define HLCAIXA_TIPO_RECIBO_PREDIAL 5
#define HLCAIXA_TIPO_RECIBO_CONDOMINIO 6
#define HLCAIXA_TIPO_RECIBO_TELEFONE 7
#define HLCAIXA_TIPO_RECIBO_CONTRATOS 8
#define HLCAIXA_TIPO_DIVERSOS_ENTRADA 9
#define HLCAIXA_TIPO_RECIBO_FIANCA 10
#define HLCAIXA_TIPO_RECIBO_TAXALIXO 11
#define HLCAIXA_TIPO_RECIBO_ADICDIVS 11
#define HLCAIXA_TIPO_RECIBO_IRRF 12
#define HLCAIXA_TIPO_BOLETO_AVULSO 13
#define HLCAIXA_TIPO_HAVER 15
#define HLCAIXA_TIPO_RECIBO_DESCDIVS 17
#define HLCAIXA_TIPO_EXTRATOS 20
#define HLCAIXA_TIPO_ADIANTAMENTO 21
#define HLCAIXA_TIPO_DIVERSOS_SAIDA 22
#define HLCAIXA_TIPO_CHEQUE_DEPOSITO 23
#define HLCAIXA_TIPO_DEVE 26
#define HLCAIXA_TIPO_RETIRADACC 27
#define HLCAIXA_TIPO_BOLETO 28
#define RECIBO10_ENTRADA 1
#define RECIBO10_SAIDA 2
-ijpa.ch
d:\CDROM\FONTES\INTEGRA>hbmk2 jpa.hbp
hbmk2: Processing environment options: -comp=msvc
Harbour 3.4.0dev (b4aaa05) (2016-09-06 07:30)
Copyright (c) 1999-2016, http://github.com/vszakats/harbour-core/
Compiling 'jpa.prg'...
100
jpa.prg:125: warning W0001 Ambiguous reference 'DATABASE_DBF'
200
No code generated.
hbmk2 [jpa]: Error: Running Harbour compiler (built-in). 1
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 11 visitantes