Integração Xbase com Firebird

08/08/2018

1

Bom dia, amigos (as)

Tenho uma tabela em foxpro (xbase) e preciso atualizar a quantidade de estoque dessa tabela todo final do dia para uma outra tabela em firebird. Escrevi o código abaixo, mas não consigo exito, talvez por não programar há muito tempo e não conhecer o firebird. Se alguém puder me orientar agradeço

clear
CLOSE ALL

STORE SQLSTRINGCONNECT("dsn=Caixa") TO N_CONEXAO
*
IF N_CONEXAO > 0 THEN
*
IF USED("CADEST") = .T.
*
SELECT CADEST
*
ELSE
*
FOR I = 1 to 255
*
SELECT (I)
*
if len(alltrim(alias())) = 0
*
use cadest shared
GOTO top
EXIT
*
ENDIF
*
ENDFOR
*
ENDIF
*
DO WHILE .not. EOF()
*
xcodigo = replicate("0",5-len(alltrim(str(cadest.codproduto))))+alltrim(str(cadest.codproduto))
xqtd = cadest.qtd
*
sql_prepare= ("UPDATE ESTOQUE SET QTD_ATUAL = ?xqtd")
*
if sqlexec(n_conexao,sql_prepare) < 0 then
*

= aerror(matriz_erro)
messagebox("Erro no INSERT:"+chr(13)+chr(13)+;
alltrim(matriz_erro(3)))
=sqldisconnect(n_conexao)
*
RETURN .T.
*
ENDIF
*
SKIP
*
IF EOF()
CLOSE ALL
EXIT
ENDIF
*
ENDDO
*
=SQLDISCONNECT(N_CONEXAO)
*
ELSE
*
= aerror(matriz_erro)
messagebox(alltrim(matriz_erro(3)),0+64,"Sertec")
return 0
*
ENDIF
*
SELECT 1
*
RETURN(.T.)
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira