CNC - Existência do campo 006-000 (TipoPessoa)

[marciodc]

Durante o processo de homologação o homologador questionou a existência do campo 006-000 no CNC de cartão (esse campo é exclusivo de cheque) e observei na unit ACBrTEFDClass que na linha linha 1130 (fpTipoPessoa := ' ';) está sendo setado um espaço na variável (procedure TACBrTEFDResp.Clear;). Fiz um tratamento rápido para passar no teste, mas agora quero fazer da forma correte. Existe uma forma de evitar que esse campo seja inserido no CNC? Se não existir, posso alterar os fonte e encaminhar o arquivo alterado.

000-000 = CNC

001-000 = 48176

002-000 = 000608

003-000 = 200

006-000 =

010-000 = AMEX

012-000 = 749888

022-000 = 15052012

023-000 = 132216

999-999 = 0

[Daniel Simoes]

De acordo com o manual do G.P.,o Tipo é Opcional, ou seja, pode ser informado...

Acho que o que está errado é ele estar sendo informado vazio...

[marciodc]

O problema está na linha 1130

fpTipoPessoa := ' '; <---- espaço

Titar o espaço não funciona, pois a variável é do tipo AnsiChar (não aceita vazio) e está sendo utilizada em várias units (não é viável mudar o tipo).

Para passar no teste eu fiz a seguinte alteração na linha 1545:

if Trim(OldResp.TipoPessoa) <> '' then

Req.TipoPessoa := OldResp.TipoPessoa;

[Daniel Simoes]

De qual Unit ?

[marciodc]

ACBrTEFDClass

[Daniel Simoes]

Oi Marcio,

Finalmente apliquei a correção... muito obrigado...