/
Exemplo de Chamada no Delphi

Exemplo de Chamada no Delphi

Owned by William Halter Batista (Unlicensed)
Last updated: Jul 13, 2017 by Thaise Sousa (Unlicensed)

var

  vDM: TDm_IntMovimento_Server;

  vDataEST : OleVariant;

begin

  try

  vDM := TDm_IntMovimento_Server.Create(Self);

  vDM. Cl_Movimento_Imp_.Close;

  vDM. CL_MovimentoCCF_Imp_.Close;

  vDM. CL_MovimentoProj_Imp_.Close;

  vDM. Cl_Lotes_Imp_.Close;

  vDM. Cl_LotesDest_Imp_.Close;

  vDM. Cl_Movimento_Imp_.CreateDataset;

  vDM. CL_MovimentoCCF_Imp_. CreateDataset;

  vDM. CL_MovimentoProj_Imp_. CreateDataset;

  vDM. Cl_Lotes_Imp_. CreateDataset;

  vDM. Cl_LotesDest_Imp_. CreateDataset;

  vDM.CL_Movimento_Imp_.Insert;

  vDataEST := VarArrayCreate([0, 4, 0, 0], varVariant);

  vDataEST[0,0] := vDM.CL_Movimento_Imp_.Data;

  vDataEST[1,0] := vDM.CL_MovimentoCCF_Imp_.Data;

  vDataEST[2,0] := vDM.CL_MovimentoProj_Imp_.Data;

  vDataEST[3,0] := vDM.CL_Lotes_Imp_.Data;

  vDataEST[4,0] := vDM.CL_LotesDest_Imp_.Data;

  vDM. IntegrarMovimentoEstoq ('P', vDataEST, RDMUsuario, '', -1);

  finally

   FreeAndNil(vDM);

end;