MARSAN Posted October 10, 2018 Report Share Posted October 10, 2018 ESTOU TENDO PROBLEMAS COM NFCES COM MUITOS ITENS. ESTOU DESCONFIADO DESSE COMANDO (MEMOREAD) O QUAL DEVE TER LIMITE DE TAMANHO. COMO OS SENHORES SUGEREM PARA QUE EU LEIA O CONTEUDO DE UM ARQUIVO E GUARDAR EM UMA VARIAVEL DE MEMORIA. PRECISO PASSA CONFORME ESTOU FAZENDO ABAIXO. USO FLEXDOCS M_ARQ="\XML_NFE\ASSINADO\"+ALLTRIM("NFC"+INDPE->NFISPE+"-ASS.XML") pro_NFeAssinada := MemoRead(M_ARQ) // nfe assinada pra ser colocado a autorizacao pro_nRec := RTRIM(INDPE->RECIBO) // manda o recibo do lote e se autorizado // retorna o numero do protocolo e data // de autorizacao:nnnnnnnnnnnnnnn dd/mm/aaaa hh:mm:ss pro_nomeCertificado := cNOME pro_versao := "4.00" // versao das mensagens do WS pro_msgDados := "" // retorna a mensagem XML enviada para o WS pro_msgRetWS := "" // retorna a mensagem XML de resposta do WS pro_cStat := 0 // retorna o codigo do resultado da consulta da NFe (veja tabela flexdocs) pro_msgResultado := "" // retorna a literal do resultado da chamada do WS pro_nroProtocolo := "" // retorna o numero do protocolo de autorização pro_dhProtocolo := "" // retorna a data e hora da autorização pro_cMsg := "" // codigo de msg da SEFAZ pra aviso do emissor pro_xMsg := "" // literal da msg da SEFAZ pro_proxy := "" // informar serviço de proxy se houver pro_usuario := "" // informar usuario do proxy para autenticação pro_senha := "" // informar senha do usuario proxy pro_licenca := clicenca // informar licenca da Flexdocs NFe_Autorizada := objNFeUtil:BuscaNFe2G(pro_siglaWS, pro_tipoAmbiente, pro_NFeAssinada, pro_nRec, pro_nomeCertificado, pro_versao,; @pro_msgDados, @pro_msgRetWS, @pro_cStat, @pro_msgResultado, @pro_nroProtocolo,; @pro_dhProtocolo, @pro_cMsg, @pro_xMsg, pro_proxy, pro_usuario, pro_senha, pro_licenca) Quote Link to comment Share on other sites More sharing options...
MARSAN Posted October 10, 2018 Author Report Share Posted October 10, 2018 Alow kapiii Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 10, 2018 Report Share Posted October 10, 2018 Sorry, não manjo de NFC-e. Quote Link to comment Share on other sites More sharing options...
wanderso Posted October 10, 2018 Report Share Posted October 10, 2018 ESTOU TENDO PROBLEMAS COM NFCES COM MUITOS ITENS. ESTOU DESCONFIADO DESSE COMANDO (MEMOREAD) O QUAL DEVE TER LIMITE DE TAMANHO. COMO OS SENHORES SUGEREM PARA QUE EU LEIA O CONTEUDO DE UM ARQUIVO E GUARDAR EM UMA VARIAVEL DE MEMORIA. PRECISO PASSA CONFORME ESTOU FAZENDO ABAIXO. USO FLEXDOCS M_ARQ="\XML_NFE\ASSINADO\"+ALLTRIM("NFC"+INDPE->NFISPE+"-ASS.XML") pro_NFeAssinada := MemoRead(M_ARQ) // nfe assinada pra ser colocado a autorizacao pro_nRec := RTRIM(INDPE->RECIBO) // manda o recibo do lote e se autorizado // retorna o numero do protocolo e data // de autorizacao:nnnnnnnnnnnnnnn dd/mm/aaaa hh:mm:ss pro_nomeCertificado := cNOME pro_versao := "4.00" // versao das mensagens do WS pro_msgDados := "" // retorna a mensagem XML enviada para o WS pro_msgRetWS := "" // retorna a mensagem XML de resposta do WS pro_cStat := 0 // retorna o codigo do resultado da consulta da NFe (veja tabela flexdocs) pro_msgResultado := "" // retorna a literal do resultado da chamada do WS pro_nroProtocolo := "" // retorna o numero do protocolo de autorização pro_dhProtocolo := "" // retorna a data e hora da autorização pro_cMsg := "" // codigo de msg da SEFAZ pra aviso do emissor pro_xMsg := "" // literal da msg da SEFAZ pro_proxy := "" // informar serviço de proxy se houver pro_usuario := "" // informar usuario do proxy para autenticação pro_senha := "" // informar senha do usuario proxy pro_licenca := clicenca // informar licenca da Flexdocs NFe_Autorizada := objNFeUtil:BuscaNFe2G(pro_siglaWS, pro_tipoAmbiente, pro_NFeAssinada, pro_nRec, pro_nomeCertificado, pro_versao,; @pro_msgDados, @pro_msgRetWS, @pro_cStat, @pro_msgResultado, @pro_nroProtocolo,; @pro_dhProtocolo, @pro_cMsg, @pro_xMsg, pro_proxy, pro_usuario, pro_senha, pro_licenca) Olá, MEMOREAD() retorna o conteúdo de um arquivo texto na forma de uma cadeia de caracteres. O arquivo pode ter um tamanho de no máximo 65.535 caracteres (64K)--ou seja, o tamanho máximo de uma cadeia de caracteres. Terá que usar fopen, fread etc... Quote Link to comment Share on other sites More sharing options...
fluna Posted October 10, 2018 Report Share Posted October 10, 2018 crie um dbf (linha,c,250,0) APPE FROM <arq.xml> SDF e voilá... podes ler um xml com até x bilhões de linhas kkkkkkk Quote Link to comment Share on other sites More sharing options...
alex2002 Posted October 10, 2018 Report Share Posted October 10, 2018 Olá. Um pequeno exemplo para usar a TxtFile(). Ela abre arquivos maiores /////////////////////////////////////////////////////////////////// oTxt := TTxtFile():New( cArqTxt ) nLinhas := oTxt:nTLines oTxt:Gotop() cLinha := oTxt:cLine for x=1 to nlinhas cLinha := oTxt:cLine ? cLinha oTxt:Skip(1) next oTxt:Close() ///////////////////////////////////////////////////////////////// Um abraço, Alexandre Pereira kapiaba 1 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.