Joselito Nascimento

É o seguinte... Um de nossos clientes precisa destacar a coluna de Imposto Substituto na NF-e, então o que eu fiz, fui no formulário do DANFe, elaborado no Fortes Report e alterei as colunas, como não necessitava da coluna desconto, aproveitei a mesma para colocar o valor do imposto substituto. como fiz isso ?. no delphi abri o pacote cbr\pacotes\delphi\ACBrNFe2\ACBrNFeDanfeRLpkg.dpk, dentro desse pacote existia o arquivo ACBrNFeDANFeRLRetrato, abri o mesmo, fiz as alterações necessárias, recompilei o beleza. Nessa nova versão, não encontro mais esse arquivo para poder alterar. Pergunto: como faço agora para poder alterá-lo ?

Prezados Colaboradores, Antes para alterar o layout do DANFE no Fortes Report eu acessava acbr\pacotes\delphi\ACBrNFe2\ACBrNFeDanfeRLpkg.dpk, abria o pacote e abria o arquivo ACBrNFeDANFeRLRetrato, beleza, abria o form. com a nova versão que atualizei ontem, não consigo fazer o mesmo. Como proceder agora, para alterar o layout do DANFE no Fortes Report? Grato Joselito Nascimento

Caros Amigos, Reinstalei a ACBR para poder atender as novas exigências com relação a Lei da Transparência dos Impostos. Recompilei o programa e tudo OK. Entretanto ao tentar enviar um NF-e no ambiente de homologação (SEFAZ-PE) está ocorrendo erro descrito abaixo: 'Element '{http://www.portalfiscal.inf.br/nfe}vTotTrib' is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/nfe}imposto.' 'Expecting: {http://www.portalfiscal.inf.br/nfe}ICMS, {http://www.portalfiscal.inf.br/nfe}ISSQN.' O que é necessário fazer para resolver esse erro ? Grato pela ajuda.

Problema resolvido, agradeço a todos pela colaboração.

Ok, segue abaixo a rotina, só para constar, estou testando no ambiente de homologação, SEFAZ-PE // Cria lote de cancelamento NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); Dm1.Nfe.EventoNFe.Evento.Clear; Dm1.Nfe.EventoNFe.idLote := NumeroLote; // Seta atributos with Dm1.Nfe.EventoNFe.Evento.Add do begin infEvento.chNFe := CDSGeradaChaveNFE.AsString; infEvento.CNPJ := Dm1.sCNPJ; infEvento.dhEvento := NOW; infEvento.tpEvento := teCancelamento; infEvento.detEvento.nProt := CDSGeradaProtocoloNFE.AsString; infEvento.detEvento.xJust := EdJustifica.Text; end; // Envia evento de cancelamento if Dm1.Nfe.EnviarEventoNFe(NumeroLote) then begin with Dm1.Nfe.WebServices.EnvEvento do begin if EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135 then begin raise Exception.CreateFmt( 'Ocorreu o seguinte erro ao cancelar a nota fiscal eletrônica:' + sLineBreak + 'Código:%d' + sLineBreak + 'Motivo: %s', [ EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo]); end; // retornos DataHoraEvento := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; NumeroProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; XMLCancelamento := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; CodigoStatus := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; MotivoStatus := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; // atualiza tabela de entrada/saida fiscal with Dm1.QyGeral do begin Close; if CBoxTpMov.ItemIndex = 0 then begin Sql.Text := ' UPDATE TBENTRADAFISCAL SET SITUACAONFISCAL = ' + QuotedStr('C') + ', ProtocoloCancelou = ' + QuotedStr(NumeroProtocolo) + ' ' + ' WHERE NUMERONFISCAL = ' + QuotedStr(CDSGerada.FieldByName('NumeroNFiscal').AsString) + ' ' + ' AND SERIENFISCAL = ' + QuotedStr(CDSGerada.FieldByName('SerieNFiscal').AsString) + ' ' ; sTabela := 'TBENTRADAFISCAL'; end else begin Sql.Text := ' UPDATE TBSAIDAFISCAL SET SITUACAONFISCAL = ' + QuotedStr('C') + ', ProtocoloCancelou = ' + QuotedStr(NumeroProtocolo) + ' ' + ' WHERE NUMERONFISCAL = ' + QuotedStr(CDSGerada.FieldByName('NumeroNFiscal').AsString) + ' ' + ' AND SERIENFISCAL = ' + QuotedStr(CDSGerada.FieldByName('SerieNFiscal').AsString) + ' ' ; sTabela := 'TBSAIDAFISCAL'; end; ExecSQL; Close; end; // Salva em auditoria Dm1.salvaAuditoria('FATURAMENTO', sTabela, 'FATURAMENTO', 'NOTA FISCAL: ' + CDSGerada.FieldByName('NumeroNFiscal').AsString + ' SERIE ' + CDSGerada.FieldByName('SerieNFiscal').AsString, '5'); ShowMessage('A NF-e ' + CDSGerada.FieldByName('NumeroNFiscal').AsString + ' Foi cancelada...' + 'Retornou : ' + MotivoStatus + #13 + 'Protocolo : ' + NumeroProtocolo); end; end else begin with Dm1.Nfe.WebServices.EnvEvento do begin raise Exception.Create( 'Ocorreram erros ao tentar efetuar o cancelamento:' + sLineBreak + 'Lote: ' + IntToStr(EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + IntToStr(EventoRetorno.cOrgao) + sLineBreak + sLineBreak + 'Status: ' + IntToStr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo); end; Exit; end;

Amigos, Ajustei a rotina de cancelamento anterior, para a de cancelamento por evento, seguindo orientação de colegas, inclusive daqui do forúm. Atualizei os fontes da ACBR pelo SVN. Entretanto ao tentar enviar cancelamento de NFe, aparece a seguinte mensagem Não foi possível cancelar a NFe selecionada Erro:Ocorreu o seguinte erro ao cancelar a nota fiscal eletronica: Código:494 Motivo: Rejeição: Chave de Acesso Inexistente [chNfe: 26130203619029000144550550000620401000620401] Só que a chave que passei foi essa abaixo 26130303619029000144550550000620401000620405 Alguém pode me ajudar ?

Caros Colegas, Estou tentando alterar a apresentação do DANFE, arquivo .RAV que vem com a ACBR, as alterações efetuadas no cabeçalho dos itens da nfe consigo visualizar no preview, entretanto as alterações efetuadas nos itens da nfe, não, é como se as alterações que fiz não tivessem validade. Para melhor compreensão, segue abaixo imagem da alteração e como aparece no preview. Grato