mkyx Posted October 6, 2015 Report Share Posted October 6, 2015 Será que alguém já conseguiu fazer funcionar o sat, uso o elgin mas, ao fazer o teste-fim-a-fim, dá esse erro. consulta sat e consulta status operacional, não dá problema, mas teste fim a fim, sim. hdllSAT:=LoadLibrary( "DLLSAT.dll" ) // carrega a dll do sat N_SESSAO:=INT(NRANDOM(999999)+1) //gera o número da sessão RETORNO:=SATConsultar(N_SESSAO) // esse comando funciona bem retorno:=CSO_sat(n_sessao, "1478963258") // esse comando tb funciona legal mas, o comando testefimafim, não Conteúdo xml: onde tem * (asterísco coloquei de propósito para não expor os dados verdadeiros) <?xml version='1.0' encoding='UTF-8'?><CFe> <infCFe versaoDadosEnt="0.06"> <ide> <CNPJ>**************</CNPJ> <signAC>F1Kr+w4+MNuKKjBO1Rv7enxubGG7HST1Tc6uWS3GOmHVN1V8AHs/5HhxDxO4quEdN5SqnEY6YjI997pp2oBPeeQZuy1mPzVOZk4IbheYFtyDEzHtNWwbU23gY1Gm64zmuv1O59YuJU0P+DBSzpmIiSP+1Mr0rwhCi1MZM/ia+lSnxbqi5xSUFgCRs/meDdsJtvGUVYBBn/boePaQ8Q3vrhKzjH0opjP8HHBMDBQDdf0Ghpln58Q0n++INviRG6i3FDfqk4FNgOUTItNYmnWarpCsy9LKlw/1t5s3HaQKyHmtJJwzODIvT8WPnMK3CU5qq3cbM7CTxJb2zWfn5Rc4fQ==</signAC> <numeroCaixa>001</numeroCaixa> </ide> <emit> <CNPJ>**************</CNPJ> <IE>************</IE> <cRegTribISSQN>1</cRegTribISSQN> <indRatISSQN>N</indRatISSQN> </emit> <det nItem="1"> <prod> <cProd>01</cProd> <cEAN>7890000004046</cEAN> <xProd>ACAI COM GUARANA</xProd> <NCM>20089900</NCM> <CFOP>5102</CFOP> <uCom>UN</uCom> <qCom>1.00</qCom> <vUnCom>1.20</vUnCom> <indRegra>A</indRegra> </prod> <imposto> <vItem12741>0.30</vItem12741> <ICMS> <ICMSSN102> <Orig>0</Orig> <CSOSN>102</CSOSN> </ICMSSN102> </ICMS> <PIS> <PISSN> <CST>49</CST> </PISSN> </PIS> <COFINS> <COFINSSN> <CST>49</CST> </COFINSSN> </COFINS> </imposto> </det> <vCFeLei12741>0.30</vCFeLei12741> <pgto> <MP> <cMP>01</cMP> <vMP>1.20</vMP> </MP> </pgto> </infCFe> </CFe> cFileXML:="xml.xml"Hxml := FOpen( cFileXML )IF Hxml == -1 MsgStop("Não foi possível abrir o XML!") Return(nil)EndifHxmlDoc := TXmlDocument():New( Hxml )texto:=HxmlDoc:ToString() retorno:=TesteFAF(STRZERO(N_SESSAO,6),"159357456",TEXTO) ******** as funções usadas no sistema: DLL32 Function SATConsultar(NumeroSessao AS _INT) AS STRING PASCAL FROM "ConsultarSAT" LIB hdllSATDLL32 Function CSO_sat(NumeroSessao AS _INT, codigoDeAtivacao AS STRING) AS STRING PASCAL FROM "ConsultarStatusOperacional" LIB hdllSATDLL32 Function TesteFAF(NumeroSessao AS _INT, codigoAtivacao AS STRING, dadosVenda AS STRING) AS STRING FROM "TesteFimAFim" LIB hdllSAT Obrigado pelas ajudas, já dispensadas Pompeo Guaratinguetá SP Ronaldbuch 1 Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted October 6, 2015 Report Share Posted October 6, 2015 Ola mkyx, aqui não cheguei fazer o teste fim a fim, tb uso o aparelho da Elgin , o que fiz antes de tentar mandar pelo sistema foi enviar pelo proprio sistema da Elgin, la dentro tem a opção fiscal, dai vc busca seu xml e tenta enviar, desta forma vc terá certeza que pelo menos o XML esta correto, depois vc parte para parte de programação via sistema. Abraços Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.