-
Total de ítens
29 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por drezius
-
-
Olá, fiz a atualização para o Trunk2 e estou com um problema ao validar o XML. Quando compilo meu projeto o Delphi 7 acusa erro na linha "ACBrNFe1.NotasFiscais.Valida;" acusando Undeclared identifier para o comando "Valida".
Essa parte do meu código foi escrita há uns cinco anos, pelo menos, e é provável que esteja desatualizada. Alguém pode me auxiliar em como fazer a validação?
...
//VALIDA
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(vAux);
ACBrNFe1.NotasFiscais.Valida;
if MessageDlg('A NF-e é válida. Deseja EMITIR essa NF-e?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
//ENVIA
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(vAux);
ACBrNFe1.Enviar(vNSU);
... -
PROBLEMA RESOLVIDO.
A solução foi trocar o comando de leitura do XML, onde eu usava LerXMLFromString passei a usar LerXML e funcionou.
O que antes estava assim:
ACBrNFeDANFERaveCB1.MostrarPreview := True;
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica>
ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);//<XML Evento>
ACBrNFe1.ImprimirEvento;Ficou assim:
ACBrNFeDANFERaveCB1.MostrarPreview := True;
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica>
ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.LerXML(OpenDialog1.FileName);//<XML Evento>
ACBrNFe1.ImprimirEvento; -
Boa tarde
Favor debugar e conferir os valores retornados no carregamento do xml !
isso pode ser problema de enconding do arquivo ou até mesmo em função de strings unicode no delphi e suas versões!
Juliomar, qual unit acbr faz o carregamento do xml? Sobre a versão, uso Delphi 7.
-
Pra não abrir novo tópico eu volto nesse.
Se vocês abrirem o XML verão que o cOrgao está lá, e que no retorno consta "<xMotivo>Evento registrado e vinculado a NF-e</xMotivo>". Mas ao tentar imprimir aparece 'campo cOrgao nao informado'.
Depurando pelo Delphi (7) noto que o sistema entra na função LerXml da pcnNFeR e chama o raise 'Não encontrei inicio do URI: Id=', mas a mensagem não aparece na tela, e em seguida vem o 'campo cOrgao nao informado'.
Já atualizei e recompilei os fontes do ACBr.
Meu código de impressão é
ACBrNFeDANFERaveCB1.MostrarPreview := True;
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica>
ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);//<XML Evento>
ACBrNFe1.ImprimirEvento;4214100811038100017355001000000262100000262011011002-procEventoNFe.xml
-
Alguma sugestão?
-
Senhores, boa tarde,
Reativando o tópico, pois o problema persiste.
Mudei o componente e agora estou usando o ACBrNFeDANFERaveCB, mas ao tentar imprimir continua retornando a mesma mensagem, "Campo cOrgao não informado". Segue XML em anexo.
Aproveitando o tópico, percebi que a tag <verEvento> no XML da CCe não está recebendo a informação que passo via código. No XML da NFe mostra a versão correta do sistema, já na CCe aparece sempre 1.00. É assim mesmo?
4214050811038100017355001000000213100000213211011004-procEventoNFe.xml
-
Coloquei o componente ACBrDANFeRaveCB1 no meu projeto e percebi que ao contrário do ACBrDANFeRave1, o ACBrDANFeRaveCB1 não possui a propriedade 'RavFile' para selecionar qual arquivo .rav será usado. O ACBrDANFeRaveCB1 assume automaticamente o arquivo que usa?
-
Obrigado, André.
Qual componente tem suporte para impressão de eventos?
-
Italojjr, boa tarde,
Acho que estou com dificuldade no entendimento do procedimento de impressão. No meu projeto delphi eu tenho o componente ACBrNFeDANFERave1. O código de impressão é aquele descrito acima. E na minha pasta de reports tenho o arquivo "NotaFiscalEletronica.rav". Pelo jeito está faltando alguma coisa, mas não consegui entender ainda o que. Pode me esclarecer?
Obrigado.
-
Estou passando pelo mesmo problema. Já fiz algumas pesquisas no fórum e em outras fontes na internet, sem sucesso. A mensagem "Campo cOrgao não informado" aparece quando pego o XML da CCe e tento imprimir. Segue abaixo o arquivo XML e também o código implementado.
O código que escrevi foi baseado no artigo do Régys Silveira.
http://www.regys.com.br/como-imprimir-um-evento-utilizando-o-acbrnfe/
Meu código:
procedure TFNFe.btnImprimeCCeClick(Sender: TObject);
begin
OpenDialog1.Title := 'Selecione o XML da CCe';
OpenDialog1.DefaultExt := '*.XML';
OpenDialog1.Filter := '*'+DM.cdsPedidoNUCHAVEACESSONFE.Text+'*.XML';
OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
if OpenDialog1.Execute then
begin
ACBrNFeDANFERave1.MostrarPreview := True;
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica>
ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);//<XML Evento>
ACBrNFe1.ImprimirEvento;
end;
end;4213110811038100017355001000004807100004807811011010-procEventoNFe.xml
-
Bom dia,
Estou reativando essa discussão. Estou passando pelo mesmo problema e não consegui resolver. Já fiz algumas pesquisas no fórum e em outras fontes na internet, sem sucesso. A mensagem "Campo cOrgao não informado" aparece quando pego o XML da CCe e tento imprimir. Segue abaixo o arquivo XML e também o código implementado.
O código que escrevi foi baseado no artigo do Régys Silveira. http://www.regys.com.br/como-imprimir-um-evento-utilizando-o-acbrnfe/
Meu código:
procedure TFNFe.btnImprimeCCeClick(Sender: TObject);
begin
OpenDialog1.Title := 'Selecione o XML da CCe';
OpenDialog1.DefaultExt := '*.XML';
OpenDialog1.Filter := '*'+DM.cdsPedidoNUCHAVEACESSONFE.Text+'*.XML';
OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
if OpenDialog1.Execute then
begin
ACBrNFeDANFERave1.MostrarPreview := True;
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica>
ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);//<XML Evento>
ACBrNFe1.ImprimirEvento;
end;end;
4213110811038100017355001000004807100004807811011010-procEventoNFe.xml
-
Kiko, problema resolvido. Agradeço a atenção.
-
Kiko, boa tarde, segue XML em anexo.
-
Kiko, boa tarde, segue em anexo.
-
Jorge, eu uso o CST 70 com CSOSN 201, o que é correto. Já procurei em outros tópicos, mas não encontrei resposta para o meu problema.
-
Amigos, continuo com o problema relatado acima, tentei algumas modificações, mas sem sucesso. Aparece a mensagem "Total da BC ICMS-ST difere do somatorio dos itens".
Abaixo listo como o XML está enviando as informações.
ICMS para o item da nota:
-<ICMS>
-<ICMSSN201>
<orig>0</orig>
<CSOSN>201</CSOSN>
<modBCST>4</modBCST>
<vBCST>14.50</vBCST>
<pICMSST>12.00</pICMSST>
<vICMSST>0.54</vICMSST>
<pCredSN>0.00</pCredSN>
<vCredICMSSN>0.00</vCredICMSSN>
</ICMSSN201>
</ICMS>
ICMS para o total da nota:
-<total>-<ICMSTot>
<vBC>10.00</vBC>
<vICMS>0.00</vICMS>
<vBCST>14.50</vBCST>
<vST>0.54</vST>
<vProd>10.00</vProd>
<vFrete>0.00</vFrete>
<vSeg>0.00</vSeg
><vDesc>0.00</vDesc>
<vII>0.00</vII>
<vIPI>0.00</vIPI>
<vPIS>0.00</vPIS>
<vCOFINS>0.00</vCOFINS>
<vOutro>0.00</vOutro>
<vNF>10.54</vNF>
</ICMSTot>
</total> -
Vinha emitindo a NF-e com o ACBr, mas por solicitação da contabilidade alterei a variável CRT para Simples Nacional, então a mensagem "Total da BC ICMS-ST difere do somatorio dos itens" começou a aparecer. Uso CST 70 e CSOSN 201. Se omito a informação "Emit.CRT := crtSimplesNacional" o faturamento ocorre normalmente. Estou informando os valores referentes a ST nas tags dos itens, e também o somatório nas tags totalizadoras.
Pesquisando na internet observei alguns comentário dizendo que para Santa Catarina os valores referentes a ST não devem aparecer nos itens do pedido, e sim descritos no campo Dados Adicionais. Procede?
-
Passei pelo mesmo problema, só resolveu atrasando o relógio do computador em 1h.
-
Passei pelo mesmo problema, só resolveu atrasando o relógio do computador em 1h.
-
Por acaso não seria possível disponibilizar a versão compilada do DANFE_Rave513.rav para download?
Grato.
-
Eu quis dizer onde conseguir legalmente esse update. No site da Nevrona não tem essa versão 7.6.
Bem, pelo jeito fiquei pelo caminho, vou dar um jeito de recompilar o sistema no Delphi 7, e resolver meu problema.
De qualquer forma agradeço pela atenção.
Abraços,
Drezius.
-
É verdade, passou em branco. O problema agora é que o único site (da embarcadero) que encontrei o update para 7.6.2 BE não me permite fazer o download. Sabe me dizer onde conseguir esse update?
-
A versão é 7.6.0.
-
João Henrique, não estou familiarizado com o Rave, mas procurei o erro nos eventos e não encontrei.
O que fiz foi o seguinte, no Event Editor cliquei no botão "Show All Events on Page" e apareceu uma lista de eventos em "Defined Events". Fui passando de evento em evento e aparentemente todos eventos seguem o mesmo padrão de pontuação.
Infelizmente ao clicar em Compile aparece o alerta de erro na tela, mas não indica onde está o erro.
Undeclared identifier: 'Valida'
em ACBrNFe
Postado
Claro, nada que um ctrl+barra de espaço não resolvesse.
Obrigado