pcncfew Ajuste pcnCFeW (ExecutarAjusteTagNro(FOpcoes.FAjustarTagNro, CFe.Emit.enderEmit.nro), DSC_NRO));

[tdpsistemas]

Olá a todos,

Identifiquei o seguinte caso no package - ACBr_SAT.dpk. Dentro da unit: pcnCFeW existe a seguinte propriedade: FAjustarTagNro, que é utilizada na function: ExecutarAjusteTagNro (pcnAuxiliar).

Essa function basicamente adiciona zeros a esquerda do numero do endereço do emitente ou dos dados da entrega, mas no meu caso eu não quero essa opção. Mas como essa property estava apenas declarada dentro do pcnCFeW.

Para resolver, criei uma nova propriedade (property AjustarTagNro:boolean read FAjustarTagNro write FAjustarTagNro;)  dentro da pcnCFe.pas. Essa propriedade irá ser utilizada na function, GerarXML.

Apartir dai dentro do componente ACBrSAT (ACBRSat.CFe.AjustarTagNro) consigo determinar se desejo ou não ajustar o tamanho do campo numero.

Baixei a ultima versão: (11727), e dentro dessa versão não havia nenhuma solução para esse caso.

Agradeço desde já pela atenção.

pcnCFe.pas

pcnCFeW.pas

[Daniel Simoes]

As modificações de pcnCFe.pas parece corretas... no entanto notei que a sua Unit pcnCFeW.pas está defasada em relação aos fontes do SVN...

Poderia por favor sincronizar, e verificar as modificações atuais ?

[tdpsistemas]

Boa tarde Daniel.

Eu baixei a ultima versão do svn:  (11727), em uma pasta separada para comparação exclusivamente dessa function. Não vi nenhuma implementação que resolva meu caso, como descrevi acima.

Acabei de fazer a alteração para a unit pcnCFe.pas atualizada.

Obrigado mais uma vez.

pcnCFe.pas

Desculpe vi agora que li errado não era pcnCFe.pas e sim  pcnCFeW.pas, mesmo assim comparando exatamente onde executa a ExecutarAjusteTagNro, não ouve alteração do meu .pas para o atualizado.

Por isso da implementação da property.

 

[Daniel Simoes]

Obrigado pela contribuição, enviei para o SVN, com pequenos ajustes...

 

[tdpsistemas]

Obrigado Daniel pela ajuda!!!