Como usar a CCe no ACBRnfeMonitor

[Walney Moreira Klein]

Boa tarde

Tenho um cliente necessitando implementar carta de correção, como fazer isso com o ACBRnfeMonitor ? pois ele necessita disso e estou por fora do assunto obrigado

[Walney Moreira Klein]

Achei este exemplo

NFE.CARTADECORRECAO("[CCE]

idLote=1

[EVENTO001]

chNFe=35111100164276000105550010000092261991646266

cOrgao=35

CNPJ=99999999000199

dhEvento=18/11/2011 15:34:08

nSeqEvento=1

xCorrecao=CORRECOES NA NFE ATRAVES DA CARTA DE CORRECAO DE TESTE")

Este CNPJ eh do emitente ou do destinatario ?

[cesar_moura]

Boa tarde, se vc usa o ACBrNFeMonitor2 Ver.0.7.1a - OpenSSL da uma olhada nessa procedure, espero ajudar.

procedure TFrmConsultaNotaFiscal.BitBtn3Click(Sender: TObject);

Var i, j, k: integer;

s, CStat, CPFCNPJ, CMDCC: string;

begin

If Length(Cpo_MotivoCorrecao.Text) = 0 Then

Begin

ShowMessage('Informe o Motivo da Correção.');

Exit;

End;

SoDANFE := 9; // Informa que o ACBrNFeMonitor a ser executado é o do DANFE

AtivaAcbr;

SoDANFE := 0;

ListaErrosPCN.Clear;

ListaErrosPCN.Color := ClYellow;

tbCadastro.Enabled := False;

GroupBox4.Enabled := False;

BitBtn1.Enabled := False;

PathWRK := 'C:\Nfe' + IntToStr(CodEmpresa) + '\';

PathWRKARQ := PathWRK + QryNotachave_nfe.AsString;

PathWRK := 'C:\DANFE-Nfe' + IntToStr(CodEmpresa);

//ACBrNFeMonitor - Status do Serviço

msg := '';

ResultMsg := '';

ListaErrosPCN.Lines.add('- Verificando Status Serviço... Aguarde!');

Application.ProcessMessages;

mACBrStsServico(msg, PathWRKARQ);

if Copy(trim(ResultMsg),1,3) = 'OK:' then

Begin

//ACBrNFeMonitor - Enviar Carta de Correção

msg := '';

ResultMsg := '';

CPFCNPJ := '';

If QryNotaind_tipo_ident.Value = 'J' Then

CPFCNPJ := '' +IntToStr(QryNotanum_base_cpf_cnpj.Value) + '' + IntToStr(QryNotaseq_filial_cliente.Value) + '' + IntToStr(QryNotanum_dv_cpf_cnpj.Value);

If QryNotaind_tipo_ident.Value = 'F' Then

CPFCNPJ := '' +IntToStr(QryNotanum_base_cpf_cnpj.Value) + '' + IntToStr(QryNotanum_dv_cpf_cnpj.Value);

ListaErrosPCN.Lines.add('- Enviando Carta de Correção... Aguarde!');

Application.ProcessMessages;

CMDCC := '[CCE] idLote =1 [EVENTO001] chNFe=' + Copy(QryNotachave_nfe.AsString,1,44) + ' cOrgao=35 CNPJ=' + CPFCNPJ + '';

CMDCC := CMDCC + ' dhEvento=' + FormatDateTime('dd/mm/yy hh:mm:ss',Now) + ' nSeqEvento=1 xCorrecao=' + Cpo_MotivoCorrecao.Text + '';

msg := mACBrGravaComando('', 'NFE.CartadeCorrecao("' + CMDCC + '")');

ResultMsg := msg;

ListaErrosPCN.Lines.add(msg);

//NFE.CartadeCorrecao("[CCE] idLote =1 [EVENTO001] chNFe=35111100164276000105550010000092261991646266 cOrgao=35 CNPJ=65531758000100 dhEvento=18/11/2011 15:34:08 nSeqEvento=1 xCorrecao=CORRECOES NA NFE ATRAVES DA CARTA DE CORRECAO DE TESTE")

End;

ListaErrosPCN.Color := ClWindow;

tbCadastro.Enabled := True;

BitBtn1.Enabled := True;

GroupBox4.Enabled := True;

end;

[Italo Giurizzato Junior]

Boa tarde a todos,

Quem emite uma Carta de Correção é o emitente da NF-e, portanto o CNPJ que aparece na CC-e é do emitente da NF-e.

[Walney Moreira Klein]

muito obrigado parceiros, bela rotina cesar deu para entender uso a capicom mais deu para entender, abraços

[cesar_moura]

blz, fico feliz a ideia era te passar a estrutura para vc montar a sua rotina mas essa estrutura esta me retornando o seguinte erro:

envio o comando:

NFE.CARTADECORRECAO("[CCE] idLote =1 [EVENTO001] chNFe=52101103862256000104550040000006029600669831 cOrgao=35 CNPJ=5582870130 dhEvento=10/04/12 16:34:46 nSeqEvento=1 xCorrecao=RAZAO SOCIAL GUIMARAES E MOURA LTDA")

ele retorna:

ERRO: Comando inválido (NFE.CARTADECORRECAO("[CCE] idLote =1 [EVENTO001] chNFe=52101103862256000104550040000006029600669831 cOrgao=35 CNPJ=5582870130 dhEvento=10/04/12 16:34:46 nSeqEvento=1 xCorrecao=RAZAO SOCIAL GUIMARAES E MOURA LTDA"))

Onde esta erro será ??? alguém consegue ver ??

Obrigado.

[André Ferreira de Moraes]

Vc tem q enviar o comando com quebra de linha(veja o exemplo no segundo post deste tópico) e não apenas com espaços.