snoopyfael

Muito obrigado. Não tinha prestado atenção na classe de pcnConversaoBPe. Ficou perfeito.

Segundo o manual do BPe as formas de pagamento são: 01-Dinheiro;02-Cheque;03-Cartão de Crédito;04-Cartão de Débito;05-Vale Transporte;99 -Outros Fiz as modificações no arquivo para atender o BPe. PCNComum/pcnConversao.pas TpcnFormaPagamentoBPe = (fpDinheiroBPe, fpChequeBPe, fpCartaoCreditoBPe, fpCartaoDebitoBPe, fpValeTransporteBPe, fpOutroBPe); function FormaPagamentoBPeToStr(const t: TpcnFormaPagamentoBPe): string; function FormaPagamentoBPeToDescricao(const t: TpcnFormaPagamentoBPe): string; function StrToFormaPagamentoBPe(out ok: boolean; const s: string): TpcnFormaPagamentoBPe; function FormaPagamentoBPeToStr(const t: TpcnFormaPagamentoBPe): string; begin result := EnumeradoToStr(t, ['01', '02', '03', '04', '05', '99'], [fpDinheiroBPe, fpChequeBPe, fpCartaoCreditoBPe, fpCartaoDebitoBPe, fpValeTransporteBPe, fpOutroBPe ]); end; function FormaPagamentoBPeToDescricao(const t: TpcnFormaPagamentoBPe): string; begin result := EnumeradoToStr(t, ['Dinheiro', 'Cheque', 'Cartão de Crédito', 'Cartão de Débito', 'Vale Transporte', 'Outro'], [fpDinheiroBPe, fpChequeBPe, fpCartaoCreditoBPe, fpCartaoDebitoBPe, fpValeTransporteBPe, fpOutroBPe]); end; function StrToFormaPagamentoBPe(out ok: boolean; const s: string): TpcnFormaPagamentoBPe; begin result := StrToEnumerado(ok, s, ['01', '02', '03', '04', '05', '99'], [fpDinheiroBPe, fpChequeBPe, fpCartaoCreditoBPe, fpCartaoDebitoBPe, fpValeTransporteBPe, fpOutroBPe]); end; ACBrDFe/ACBrBPe/ACBrBPeBilhetes.pas tPag := StrToFormaPagamentoBPe(OK, sFim); ACBrDFe/ACBrBPe/DABPE/EscPos/ACBrBPeDABPeESCPOS.pas FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoBPeToDescricao(FpBPe.pag.Items[i].tPag) + ACBrDFe/ACBrBPe/PCNBPe/pcnBPe.pas FtPag: TpcnFormaPagamentoBPe; property tPag: TpcnFormaPagamentoBPe read FtPag write FtPag; ACBrDFe/ACBrBPe/PCNBPe/pcnBPeR.pas BPe.Pag[i].tPag := StrToFormaPagamentoBPe(ok, Leitor.rCampo(tcStr, 'tPag')); ACBrDFe/ACBrBPe/PCNBPe/pcnBPeW.pas Gerador.wCampo(tcStr, '#162', 'tPag ', 02, 002, 1, FormaPagamentoBPeToStr(BPe.pag[i].tPag), DSC_TPAG); if(BPe.pag[i].tPag in [fpCartaoDebitoBPe,fpCartaoCreditoBPe]) and Segue arquivo para validação das modificações. ACBrBPeBilhetes.pas ACBrBPeDABPeESCPOS.pas pcnBPe.pas pcnBPeR.pas pcnBPeW.pas pcnConversao.pas

Bom dia Italo, Atualizei os fontes e fiz um teste aqui, a variável ACBrCTe1.WebServices.Consulta.RetCTeDFe esta sempre retornando vazia, mesmo o arquivo sendo gerado correto. Segue xml em anexo. 31140616883860000150570020000766971000766973-CTeDFe.xml

Como migramos da versão 1.4 para 2.0 isso pasou dispercebido... Problema e convencer os clientes que não é necessarios sair impresso esse valor mais.

with InfCTeComp do begin Chave := Cabecalho.Chave; vPresComp.vTPrest := Rodape.ValorFrete;

Sim esta rodando a versão 2.0

Debugando a unit pcteCTeR: (* Grupo da TAG <infCteComp> ************************************************) if Leitor.rExtrai(1, 'infCteComp') <> '' then begin CTe.InfCTeComp.Chave := Leitor.rCampo(tcStr, 'chave'); if Leitor.rExtrai(2, 'vPresComp') <> '' then begin CTe.infCTeComp.vPresComp.vTPrest := Leitor.rCampo(tcDe2,'vTPrest'); i01 := 0; while Leitor.rExtrai(3, 'compComp', '', i01 + 1) <> '' do begin CTe.InfCTeComp.vPresComp.compComp.Add; CTe.InfCTeComp.vPresComp.compComp[i01].xNome := Leitor.rCampo(tcStr, 'xNome'); CTe.InfCTeComp.vPresComp.compComp[i01].vComp := Leitor.rCampo(tcDe2, 'vComp'); inc(i01); end; end; Mas no xml as informaçõs dos valores complementados não vem dentro da tag <infCteComp> segue xml usado. 31140416883860000150570010000000221000000229.xml

Meu problema é ao carregar o xml ao componente... Vou adicionar as units ao projeto para debugar.

Estou tendo um problema parecido ao imprimir a DACTE o valor complementado sai corretamente, mas ao carregar o componente com o XML via LoadFromStream o valor complementado sempre sai zero. Alguma solução para esse problema?

Obrigado Nellien, vou fazer o teste aqui.

Segue retorno em Anexo: retorno.xml Se tentar enviar novamente recebo o retorno que o evento esta duplicado. Mas em todos os casos esta entrando na except raise EACBrCTeException.Create('Erro Desconhecido ao Enviar Evento de CT-e!')

Segue e-mail recebido ontem pela SEFAZ. Fazendo o teste aqui o retorno é stat=135 e mesmo assim retorna o erro de 'Erro Desconhecido ao Enviar Evento de CT-e!', consultando o CTe pelo http://portalcte.fazenda.mg.gov.br/consultas.html não tem como identificar se foi ou não enviada a CCe.

Muito obrigado Nellien, estava quebrando a cabeça aqui...

Atualizei os fontes ontem e recompilei. Estou tentando enviar o evento CCe para MG, mas sempre recebo como retorno o erro: "630 - Rejeicao: Falha no schema XML especifico para o evento", mesmo não dando nenhum erro no schema. Alguma ideia de como resolver esse problema? Segue em anexo o xml de envio e o retorno. Obrigado, Raphael... CCe.xml retorno.xml CCe.xml retorno.xml