André

              with ACBrPAF.PAF_R  do
               begin
                  RegistroR01.NUM_FAB  := ACBrECF.NumECF;
                  RegistroR01.MF_ADICIONAL:= ACBrECF.MFAdicional;
                  RegistroR01.TIPO_ECF:= 'ECF-IF';
                  RegistroR01.MARCA_ECF:= ACBrECF.ModeloStr;
                  RegistroR01.MODELO_ECF:= ACBrECF.ModeloStr;
                  RegistroR01.VERSAO_SB:= '0123456789';
                  RegistroR01.DT_INST_SB:= StrToDate(FormatDateTime('dd/mm/yyyy', ACBrECF.DataHoraSB));
                  RegistroR01.HR_INST_SB:= StrToTime(FormatDateTime('hh:mm', ACBrECF.DataHoraSB));
                  RegistroR01.NUM_SEQ_ECF:= 123;
                  RegistroR01.CNPJ:= RegEmpresa.CGC;
                  RegistroR01.IE:=  RegEmpresa.InscEstadual ;
                  RegistroR01.DT_INI:= edtDe.Date;
                  RegistroR01.DT_FIN:= edtAte.Date;
                  RegistroR01.NOME_SH:= RegEmpresa.Nm_Empresa;


                  RegistroR02.New.NUM_USU:= StrToInt(ACBrECF.UsuarioAtual);
                  RegistroR02.New.CRZ:= StrToInt(ACBrECF.NumCRZ);
                  RegistroR02.New.COO:= StrToInt(ACBrECF.NumCOO);
                  RegistroR02.New.CRO := StrToInt(ACBrECF.NumCRO);
                  RegistroR02.New.DT_MOV:= ACBrECF.DataMovimento;
                  RegistroR02.New.DT_EMI  := StrToDate(FormatDateTime('dd/mm/yyyy' , Now));
                  RegistroR02.New.HR_EMI  :=  StrToTime(FormatDateTime('hh:mm', Now));
                  RegistroR02.New.VL_VBD := ACBrECF.VendaBruta;

                  RegistroR04.New.NUM_USU:= StrToInt( ACBrECF.UsuarioAtual);
                  RegistroR04.New.NUM_CONT:= StrToInt(ACBrECF.NumECF);
                  RegistroR04.New.COO:= StrToInt(ACBrECF.NumCOO);
                  RegistroR04.New.DT_INI:= edtDe.Date;
                  RegistroR04.New.SUB_DOCTO := edtAte.Date;
                  RegistroR04.New.TP_DESCTO:= 'V';
                  RegistroR04.New.SUB_ACRES:= ACBrECF.TotalAcrescimos;
                  RegistroR04.New.TP_ACRES:= 'V';
                  RegistroR04.New.VL_TOT:= ACBrECF.TotalPago;
                  RegistroR04.New.CANC:= 'S';
                  RegistroR04.New.VL_CA:= 10.10;
                  RegistroR04.New.ORDEM_DA:= 'A';
                  RegistroR04.New.NOME_CLI:= 'Nome';
                  RegistroR04.New.CNPJ_CPF:= '46072811310';


                  RegistroR06.New.NUM_USU:= StrToInt(ACBrECF.UsuarioAtual);
                  RegistroR06.New.COO:= StrToInt(ACBrECF.NumCOO);
                  RegistroR06.New.GNF:= StrToInt(ACBrECF.NumGNF);
                  RegistroR06.New.GRG:= StrToInt(ACBrECF.NumGRG);
                  RegistroR06.New.CDC:= StrToInt(ACBrECF.NumCDC);
               end;