Page Comparison

  v_DataNF     : OleVariant;

begin

  try

    vDM := TDm_IntRecebimento_Server.Create(Self);

    vDM.CL_Recebimento_Imp_.Close;

    vDM.JnCl_ItensReceb_Imp_.Close;

    vDM.CL_LotesVinculados_Imp_.Close;

    vDM.CL_ItensReceb_CCF_Imp_.Close;

    vDM.CL_ItensReceb_Proj_Imp_.Close;

    vDM.Cl_ParcelasFin_Imp_.Close;

	vDM.Cl_RecPedidosReceb_Imp_.Close;
	vDM.Cl_ProcessoAdmJudReceb_Imp_.Close;
    vDM.CL_Recebimento_Imp_.CreateDataSet;

    vDM.JnCl_ItensReceb_Imp_.Open;

    vDM.CL_LotesVinculados_Imp_.CreateDataSet;

    vDM.CL_ItensReceb_CCF_Imp_.CreateDataSet;

    vDM.CL_ItensReceb_Proj_Imp_.CreateDataSet;

    vDM.Cl_ParcelasFin_Imp_.CreateDataSet;

	vDM.Cl_RecPedidosReceb_Imp_.CreateDataSet;
	Cl_ProcessoAdmJudReceb_Imp_.CreateDataSet;
    vDM.CL_Recebimento_Imp_.Insert;

    vDM.JnCl_ItensReceb_Imp_.Insert;

    v_DataNF := VarArrayCreate([0,

 14, 0,

 1], varVariant);

//PES-133 //PFIS-2631
    v_DataNF[0 ,0] :=

 Cl_NotaFiscal_            .Data;
    v_DataNF[1 ,0] := JnCl_ItemNotaFiscal_      .Data;
    v_DataNF[

2 ,0] :=

 Cl_ItemNotaEstoque_       .Data;
    v_DataNF[3 ,0] := Cl_DeclaracaoImpItemNF_   .Data;
    v_DataNF[

4 ,0] :=

 Cl_ObservacaoNF_          .Data;
    v_DataNF[5 ,0] := Cl_VolumeNF_              .Data;
    v_DataNF[

6 ,0] :=

 CL_GeraParcelas_          .Data;
    v_DataNF[7 ,0] := Cl_DeclaracaoImp_         .Data;
    v_DataNF[

8 ,0] :=

 Cl_ItemPed_ItemNot_NOT_   .Data;
    v_DataNF[9 ,0] := Cl_DocVinculados_         .Data;
    v_DataNF[10,0] := Cl_NotasVinculadas_       .Data;
    v_DataNF[

11,0] :=

 Cl_DeclaracaoExp_         .Data;
    v_DataNF[12,0] := Cl_CTeEmissao_            .Data;
    v_DataNF[13,0] := CL_ItemNotaFiscalNVE_     .Data; 
    v_DataNF[14,0] := CL_ItemNotaFiscalCredPres_.Data;

 
    vDM.IntegrarRecebimento('P', v_DataNF, RDMUsuario, '', -1);

  finally

    FreeAndNil(vDM);

  end;