O QUE USAR AO INVES DE MEMOREAD??

[MARSAN]

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)
 

[MARSAN]

Alow kapiii

[kapiaba]

Sorry, não manjo de NFC-e.

[wanderso]

 

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...

[fluna]

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

 

[alex2002]

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