Santander - Correção arquivo remessa

[Gildenor]

Favor corrigir a rotina de geracao do arquivo remessa 400 posicoes, linha 696.

Nesta linha ocorre o teste pelo tamanhho do CNPJCPF do cedente > 12 (pJuridica), o CPF tem 11 digitos e nao 12.

é preferivel que fique assim : IfThen(Cedente.TipoInscricao = pJuridica,'02','01')         +  // 2 a 3

 

Att,

Gildenor

[Juliomar Marchetti]

boa tarde

sim mas se tem mais de 12 é o um cnpj senão é cpf está verificando correto não ?

mesmo assim se sugere correções ou mudanças anexe o fonte alterado!

[Gildenor]

Boa tarde,

Da forma como estava o cedente.cnpjcpf, estava com os caracteres da mascara (.-/), ou seja, nunca seria menor que 12. Como ja existe propriedade com este fim, melhor que seja usado.

Segue arquivo modificado.

 

Att,

ACBrBancoSantander.pas

[Juliomar Marchetti]

boa noite

subi sua alteração pois parece correta

obrigado está no svn