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;

Amigos ja vi meu erro aqui dentro do R4 tem o R7 tb esta correto a visao do componente Obrigado

Ola amigos estava dando uma olhada no manual acho que o R7 nao pode ser detalhe no R6 já que eu tenho que lancar um R7 para um R4 e tambem para o R6 o que vcs acham de deixar o medodo fora de PAF_R.RegistroR06.New.RegistroR07 Obrigado

Ok ja verifiquei obrigado.

Boa tarde implementei o Registro Tipo C no PAF envio para este e-mail mesmo para implementar no svn ACBrPAF.zip