Temos um sistema feito em PHP+MYSQL que roda nas nuvens e os representantes comerciais da empresa fazem seus pedidos através do mesmo, e na empresa fiz integração no sistema usando xHarbour 1.2.1 + SQLRDD, trazendo os pedidos e atualizando os dados de cadastros na nuvens.
Tudo está funcionando certinho, mais tenho que melhorar um processo que é o INSERT.
Quando estou cadastrando dados nas nuvens, mesmo usando o comando SR_CommitTransaction() após cada atualização, a alteração que é concretizada no bando de dados, somente ocorre verdadeiramente quando eu fecho a conexão. SR_EndConnection( nCnn )
Abertura do banco de dados
//-------------------------------------------------------------------------
// Primeiro fazer teste de conectividade com o banco nas Nuvens
//
nCnn = sr_addConnection( CONNECT_MYSQL, "MYSQL=;UID=;PWD=;DTB=;PORT=3306")
if nCnn < 0
mensagem("Erro de conexao com o banco de dados!",3)
MENSAGEM("Nao sera possivel usar esta opcao neste momento!",5)
ABREARQ(,.F.)
RESTSCREEN(00,00,24,79,aTel)
else
WIN3D("Conexao com o Banco de Dados",03,01,05,30,2,"9")
@ 04,05 say "Conectado com SUCESSO"
sr_msg(2)
sr_setfastopen(.T.)
sr_setbaselang(2)
sr_setactiveconnection( nCnn )
end
Comando INSERT
nConect=sr_getconnection()
nConect:exec([INSERT INTO tb_v_produtos (vstrCodProduto,vstrDescricao,vstrPrecoTab,vdecDesconto1,vdecDesconto2,vdecDesconto3,vdecDesconto4,vdecDesconto5,vdecDesconto6,vdecDescAtcd1,vdecDescAtcd2,vdecDescAtcd3,vdecDescAtcd4,vdecDescAtcd5,vstrTipo,vstrCodBarra,vintStatus) ]+;
[VALUES ("]+ALLTRIM(AL_ESTOQ->codigo)+;
[","]+ALLTRIM(AL_ESTOQ->descri)+;
[","]+ALLTRIM(TRANS(AL_ESTOQ->pretab,"99999999.99"))+;
[","]+ALLTRIM(TRANS(AL_ESTOQ->indic1,"99.99"))+;
[","]+ALLTRIM(TRANS(AL_ESTOQ->indic2,"99.99"))+;
[","]+ALLTRIM(TRANS(AL_ESTOQ->indic3,"99.99"))+;
[","]+ALLTRIM(TRANS(AL_ESTOQ->indic4,"99.99"))+;
[","]+ALLTRIM(TRANS(AL_ESTOQ->indic5,"99.99"))+;
[","]+ALLTRIM(TRANS(AL_ESTOQ->indic6,"99.99"))+;
[","]+ALLTRIM(TRANS(AL_ESTOQ->desca1,"99.99"))+;
[","]+ALLTRIM(TRANS(AL_ESTOQ->desca2,"99.99"))+;
[","]+ALLTRIM(TRANS(AL_ESTOQ->desca3,"99.99"))+;
[","]+ALLTRIM(TRANS(AL_ESTOQ->desca4,"99.99"))+;
[","]+ALLTRIM(TRANS(AL_ESTOQ->desca5,"99.99"))+;
[","]+cTipo+;
[","]+ALLTRIM(AL_ESTOQ->codbar)+;
[","]+IIF(AL_ESTOQ->situac="01","1",IIF(AL_ESTOQ->situac="03","3","2"))+[")])
SR_CommitTransaction()
Espero resolver esta situação com a ajuda dos amigos e assim como no xHarbour poder atualizar o registro logo após o comitar.
Saudações,
Júlio.