ACBrNFeMonitor Alteração DPEC

[VinheSoft]

Bom Dia,

ACBrNFeMonitor versao 0.6.2a

Fiz 2 alteracoes: (DoAcbrNfeUnit.PAS)

metodo:

NFe.ImprimirDANFE(cArqXML,[NomeImpressora],[nCopias])

alterei para:

NFe.ImprimirDANFE(cArqXML,[NomeImpressora],[nCopias],[cProtocoloNFe])

segue abaixo:

...

else if Cmd.Metodo = 'imprimirdanfe' then

begin

if ACBrNFeDANFERave1.MostrarPreview then

begin

Restaurar1.Click;

Application.BringToFront;

end;

ACBrNFe1.NotasFiscais.Clear;

if FileExists(Cmd.Params(0)) or FileExists(PathWithDelim(ACBrNFe1.Configuracoes.Geral.PathSalvar)+Cmd.Params(0)) then

begin

if FileExists(Cmd.Params(0)) then

ACBrNFe1.NotasFiscais.LoadFromFile(Cmd.Params(0))

else

ACBrNFe1.NotasFiscais.LoadFromFile(PathWithDelim(ACBrNFe1.Configuracoes.Geral.PathSalvar)+Cmd.Params(0));

end

else

raise Exception.Create('Arquivo '+Cmd.Params(0)+' não encontrado.');

if NotaUtil.NaoEstaVazio(Cmd.Params(1)) then

ACBrNFe1.DANFE.Impressora := Cmd.Params(1)

else

ACBrNFe1.DANFE.Impressora := cbxImpressora.Text;

if NotaUtil.NaoEstaVazio(Cmd.Params(2)) then

ACBrNFe1.DANFE.NumCopias := StrToIntDef(Cmd.Params(2),1)

else

ACBrNFe1.DANFE.NumCopias := StrToIntDef(edtNumCopia.Text,1);

// VinheSoft

if NotaUtil.NaoEstaVazio(Cmd.Params(3)) then

ACBrNFe1.DANFE.ProtocoloNFe := Cmd.Params(3)

else

ACBrNFe1.DANFE.ProtocoloNFe := '';

ACBrNFe1.NotasFiscais.Imprimir;

Cmd.Resposta := 'Danfe Impresso com sucesso';

if ACBrNFeDANFERave1.MostrarPreview then

Ocultar1.Click;

end

...

Inluido: metodo SetUFf(cUF) -> Altera UF do WebService

segue abaixo:

...

// VinheSoft

else if Cmd.Metodo = 'setuf' then

begin

if (Cmd.Params(0)<>'') then

begin

cbUF.Text := Cmd.Params(0);

ACBrNFe1.Configuracoes.WebServices.UF := Cmd.Params(0);

end

else

raise Exception.Create('UF: '+Cmd.Params(0)+' Inválida.');

end

...

Com estas alteracões consegui reimprimir um DANFE com DPEC e mudar a UF do Webservice.

Att,

Joao Carlos dos Santos Paula

VINHESOFT

[cleberverca]

Existe uma nova versão do monitor para download? Na versão 0.6.2a estou recebendo uma mensagem...

"ERRO: Protocolo de Registro no DPEC não informado."

[VinheSoft]

Boa noite,

Pois, do jeito que esta o ACBrNFeMonitor, tbm nao consegui.

Ai eu alterei. Mandei estas alteracoes tbm para o MANTIS.

Agora é so esperar o responsavel em liberar novas versoes do Monitor.

Att,

João Carlos dos Santos Paula

VinheSoft