Sat Ler Xml Do Bd

[netsolutions]

Pessoal, estou com um pequeno problema.. mais um

 

Eu gravo o XML gerado no Banco de dados, e quando vou fazer o cancelamento no demo do ACBR tem a opção

 

   ACBrSAT1.CFe.LoadFromFile( OpenDialog1.FileName );

    ACBrSAT1.CFe2CFeCanc;

 

porém eu precisava carregar o XML que está no Banco de dados...

 

estou tentando dessa forma..

 

   ACBrSAT1.CFe.AsXMLString   := Vendas.FieldbyName('arquivoXML').asstring;

    ACBrSAT1.CFe2CFeCanc;

 

desta forma da um erro...

 

aproveitando este post, no caso do Cancelamento eu devo carregar o XML que gerei ou o XML que o SAT me retornou??

 

Editado 19 Junho, 2015 por netsolutions

[...]

desta forma da um erro...

 

Que erro? Aqui eu uso e é de boa.

deve sempre carregar o xml que o sat retornou pra vc

Editado 19 Junho, 2015 por sossystem

[netsolutions]

Segue anexo o erro, fala que não tem nenhum XML carregado na memoria, mas se eu fizer um showmessage(Vendas.FieldbyName('arquivoXML').asstring)

 

ele está trazendo o XML corretamente.. como você fez para carregar o arquivo XML ?

Editado 19 Junho, 2015 por netsolutions

[...]

aqui eu fiz um exemplo pratico para impressao na verdade. Coloquei 2 editbox e carreguei para o componente o conteudo deles antes de mandar imprimir. Quando vc faz um showmessage, o xml nao aparece truncado nem nada?

Vc nao consegue debugar e ver o valor dos campos do componente depois de carregar, para ver se realmente carregou?

[Daniel Simoes]

Tente assim:
 

ACBrSAT1.CFe.LoadFromFile( OpenDialog1.FileName );
ACBrSAT1.CancelarUltimaVenda; 

(o ACBrSAT gera o XML de cancelamento automaticamente)

[netsolutions]

sossystem , Aparece o XML na Integra no showmessage não trunca não.. aparentemente tudo OK

 

Daniel, nesse caso ele procura o caminho do Arquivo, se eu passar a string com o XML não vai funcionar vai??

e se usar o metodo CancelarUltimaVenda vai cancelar a última?? eu gostaria de deixar o usuario escolher a venda que quer cancelar, por isso precisava carregar o xml para cancelar a respeciva venda.

[Daniel Simoes]

O método LoadFromFile sempre tentará ler do disco...

 

Você pode usar a atribuição de uma String ao XML:

ACBrSAT1.CFe.AsXMLString :=  SuaStringContedoOXML;

[...]

Tenta fazer o que o Daniel falou. Acredito que vc esteja achando que isso vai cancelar a ultima venda, mas na verdade nao, o nome que a sefaz deu ao metodo é CancelarUltimaVenda, mas na verdade ele cancela o XML que vc carregou no componente (desde que seja de até 30min atras)

[netsolutions]

EU queria testar hoje, mas está fora o Sefaz e meu SAT está bloqueado, acredito que amanhã se restabeleça, ai testo e retorno aqui se funcionou!

[Jugger72]

Também estou com problemas para ler o Xml do BD.
Por vários motivos, tive que implementar à parte toda a lógica de impressão dos extratos de Venda e Cancelamento.
O meu problema é no extrato de cancelamento.  Como optei por não depender de I/O em disco para ficar lendo
arquivos xml, eu faço a carga do componente a partir dos campos de meu BD, usando XXX.AsXMLString.
Funciona para carregar o xml de venda, mas não para o de cancelamento:

ACBrSAT.CFe.AsXMLString     := Qcupons.FieldByName ('XMLV').asAnsiString;  => Funciona
ACBrSAT.CFeCanc.AsXMLString := Qcupons.FieldByName ('XMLC').asAnsiString;  (usando este comando, as tags do componente vêm em branco)

Para contornar o problema, tive que momentâneamente usar o arquivo em disco, como mostrado abaixo:

ACBrSAT.CFe.AsXMLString     := Qcupons.FieldByName ('XMLV').asAnsiString;  => Funciona
ACBrSAT.CFeCanc.LoadFromFile ('C:\S@T\XML\Cancelamento\CFe35150711111111111111591234567890000477620232-can.xml');  => Funciona

Observação:  o comando abaixo também não teve efeito:

ACBrSAT.CFe.AsXMLString     := Qcupons.FieldByName ('XMLV').asAnsiString;  => Funciona
ACBrSAT.CFeCanc.SetXMLString (Qcupons.FieldByName ('XMLC').asAnsiString);  (usando este comando, as tags do componente vêm em branco)

Resumindo:  CFeCanc.LoadFromFile funciona, e CFeCanc.AsXMLString não!

[Daniel Simoes]

Por favor seja mais objetivo... Qual é exatamente o problema que você quer reportar ?

Lembre-se que, conforme anunciei nesse post só estou verificando problemas no "Trunk2"

[Jugger72]

Retomando o assunto:
Quando de uma reimpressão do cupom de cancelamento, estou carregando o xml da venda:

ACBrSAT.CFe.AsXMLString := Qcupons.FieldByName ('XMLV').asAnsiString;

ACBrSAT.CFeCanc.LoadFromFile ('E:\EXE\xxx\Cancelamentos\201509\ADC35150908930755000105590000518170000081399960.XML');

Deste jeito está funcionando, mas tenho também o xml de cancelamento armazenado no meu BD, e quando tento carregá-lo pelo comando:

ACBrSAT.CFeCanc.AsXMLString := Qcupons.FieldByName ('XMLC').asAnsiString;

os "Dados do Cupom Fiscal de Cancelamento" saem em branco no cupom.

[Daniel Simoes]

Testei aqui, e tudo está funcionando a contento...

Provavelmente você está carregando com o AsXMLString, a versão de envio (sem o ID)...

Verifique se o XML de Cancelamento que você está armazenando, é o XML de Resposta do SAT.. (ele deve conter a Tag ID)

 

[netsolutions]

Bom  desculpem retomar esse assunto, mas  estou com um problema.. e acho que cai bem aqui.

Todo mês precisaremos enviar os Xmls gerados pelo SAT para o contador, até ai tudo bem, bom gravei os XMLs no BD, alguém sabe como eu faria para exportar esses XMLs?? para gerar os arquivos referentes a cada cupom emitido?

é possível carrega-los no acbr para gerar tudo de uma vez??

[Daniel Simoes]

Não há nada no ACBr para agrupar vários XMLs de CFe

[netsolutions]

Não há nada no ACBr para agrupar vários XMLs de CFe

Entendi, o ACBR gera automaticamente todos os XMLs quando você chama o método Gerar?? independente de salvar no BD ou não?

[Sérgio Assunção]

O ACBr não gera os XMLs dessa forma que você está pensando.

Nessa sua idéia você deve converter o XML gravado no seu banco de dados para um arquivo XML ou mesmo pode enviar ao seu contador os arquivos gerados na pasta Vendas.

[Anthero Vieria Neto]

Jugger72

Para carregar o XML no ACBrSAT.CFeCanc você deve usar:

ACBrSAT.CFeCanc.SetXMLString( StringXML );
ACBrSAT.CFeCanc.Gerar( True );

Quando você carrega a string do XML sem ser pelo LoadFromFile ele só armazena, mas não lê e distribui para as suas propriedades o conteúdo do XML, para isso você deve usar o Gerar.

 

Sei que faz tempo que você mandou, mas sou novo aqui e vi só hoje esse tópico.
Valeu, falou... 

[Sergio Back]

  With tb512 do begin
         First;
         prog.Properties.Max := tb512.RecordCount;
         While not Eof do begin
            DtmFisco.NFE.NotasFiscais.Clear;
            DtmFisco.NFE.NotasFiscais.LoadFromString(tb512.fieldByName('XML').AsString);
            If somentegerar.Checked then
               DtmFisco.NFE.NotasFiscais.Items[0].GravarXML()
            Else Begin
               DtmFisco.NFe.NotasFiscais.Assinar;
               DtmFISCO.NFE.Consultar;
               SRetorno := DtmFisco.NFE.WebServices.Consulta.cStat;
               If ((SRetorno = 100) Or (SRetorno = 101) Or (SRetorno = 150)) then
                  DtmFisco.NFE.NotasFiscais.Items[0].GravarXML()
               Else lista.Items.Add(tb512.fieldByName('NOTFIS').AsString+' Motivo - '+DtmFisco.NFE.WebServices.Consulta.XMotivo);
            End;
            prog.Position := prog.Position + 1;
            Application.ProcessMessages;
            Next;
         End;
         prog.Positio

[Felipe E. Resende Mesquita]

35 minutos atrás, Sergio Back disse:

  With tb512 do begin
         First;
         prog.Properties.Max := tb512.RecordCount;
         While not Eof do begin
            DtmFisco.NFE.NotasFiscais.Clear;
            DtmFisco.NFE.NotasFiscais.LoadFromString(tb512.fieldByName('XML').AsString);
            If somentegerar.Checked then
               DtmFisco.NFE.NotasFiscais.Items[0].GravarXML()
            Else Begin
               DtmFisco.NFe.NotasFiscais.Assinar;
               DtmFISCO.NFE.Consultar;
               SRetorno := DtmFisco.NFE.WebServices.Consulta.cStat;
               If ((SRetorno = 100) Or (SRetorno = 101) Or (SRetorno = 150)) then
                  DtmFisco.NFE.NotasFiscais.Items[0].GravarXML()
               Else lista.Items.Add(tb512.fieldByName('NOTFIS').AsString+' Motivo - '+DtmFisco.NFE.WebServices.Consulta.XMotivo);
            End;
            prog.Position := prog.Position + 1;
            Application.ProcessMessages;
            Next;
         End;
         prog.Positio

Boa tarde, Sergio Back.

Tópico antigo. Sugiro que crie um novo, relatando sua dúvida ou problema.