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,

 7, 0, 0], varVariant);

    v_DataNF[0,0] := vDM.CL_Recebimento_Imp_.Data;

    v_DataNF[1,0] := vDM.JnCl_ItensReceb_Imp_.Data;

    v_DataNF[2,0] := vDM.CL_LotesVinculados_Imp_.Data;

    v_DataNF[3,0] := vDM.CL_ItensReceb_CCF_Imp_.Data;

    v_DataNF[4,0] := vDM.CL_ItensReceb_Proj_Imp_.Data;

	v_DataNF[5,0] := vDM.Cl_RecPedidosReceb_Imp_.Data;
    v_DataNF[

6,0] := vDM.Cl_ParcelasFin_Imp_.Data;

    v_DataNF[7,0] := vDM.Cl_ProcessoAdmJudReceb_Imp_.Data;
    vDM.IntegrarRecebimento('P', v_DataNF, RDMUsuario, '', -1);

  finally

    FreeAndNil(vDM);

  end;