REGISTRO TIPO C2 "ATUALIZAR NO SVN" POR FAVOR

[Gutierres]

Ola para atender as observações do registro TIPO C2 fiz umas pequenas mudanças no arquivo quem tem permissao no svn atualiza para mim por favor

Obrigado

function TPAF_C.WriteRegistroC2: string;

var

intFor: integer;

strRegistroC2: string;

begin

strRegistroC2 := '';

if Assigned(FRegistroC2) then

begin

for intFor := 0 to FRegistroC2.Count - 1 do

begin

with FRegistroC2.Items[intFor] do

begin

Check(funChecaCNPJ(FRegistroC1.CNPJ), '(C2) CONTROLE DE ABASTECIMENTO E ENCERRANTE: O CNPJ "%s" digitado é inválido!', [FRegistroC1.CNPJ]);

///

strRegistroC2 := strRegistroC2 + LFill('C2') +

LFill(FRegistroC1.CNPJ, 14) +

RFill(TANQUE, 3) +

RFill(BOMBA, 3) +

RFill(BICO, 3) +

RFill(COMBUSTIVEL, 20) +

LFill(HORA_ABASTECIMENTO, 'hhmmss') +

LFill(ENCERRANTE_INICIAL, 15, 2) +

LFill(ENCERRANTE_FINAL, 15, 2) +

RFill(STATUS_ABASTECIMENTO, 10) +

RFill(NRO_SERIE_ECF, 20) +

IfThen(STATUS_ABASTECIMENTO <> 'EMITIDO CF', RFill(' ',8) , LFill(DATA, 'yyyymmdd')) +

IfThen(STATUS_ABASTECIMENTO <> 'EMITIDO CF', RFill(' ',6) , LFill(HORA, 'hhmmss')) +

IfThen(STATUS_ABASTECIMENTO <> 'EMITIDO CF', RFill(' ',6) , LFill(COO, 6)) +

IfThen(STATUS_ABASTECIMENTO <> 'EMITIDO NF', RFill(' ',6) , LFill(NRO_NOTA_FISCAL, 6)) +

LFill(VOLUME, 6, 3) +

#13#10;

end;

///

FRegistroC9.TOT_REG := FRegistroC9.TOT_REG + 1;

end;

Result := strRegistroC2;

end;

end;

[Gutierres]

Amigos que tem permissão no svn por gentileza subir esta versão da classe ACBrPAF_C_Class.pas fiz algumas melhorias para atender as observações do Registro Tipo C2

Obrigado

ACBrPAF_C_Class.pas

[EMBarbosa]

Qual a diferença desse pro viewtopic.php?f=12&t=1445??

[Gutierres]

Desculpa, não a diferença só depois de conversar com Daniel Simões por email que vi que tinha condições de enviar o aquivo então achei proveniente enviar, estou respondendo somente agora porque estava homologando o PAF para versão 1.06 ai la tive que fazer algumas mundaças do Registro R vou enviar depois por anexo, mas esta do Registro C esta OK

[EMBarbosa]

Não se preocupe. Mas então já foi pro SVN?

MODERAÇÃO. Tópicos mencionados fundidos.

[Gutierres]

Fiz o update agora nao foi atualizado ainda.

Obrigao