Exemplo da chamada no Delphi - Serviço 507

var
  vDM             : TDM_IntFaturamento_Server;
  v_DataNF     : OleVariant;

begin
  try
      vDM := TDM_IntFaturamento_Server.Create(Self);
      vDM. Cl_OEGeral_.Close;
      vDM. Cl_OEGeral_.CreateDataSet;
      vDM. CL_PedProgEntrega_.Close;
      vDM. CL_PedProgEntrega_.CreateDataSet;
      vDM. CL_PedProgEstoque_.Close;
      vDM. CL_PedProgEstoque_.CreateDataSet;

    // Criar o array multidimensional.
     v_DataNF := VarArrayCreate([0, 2, 0, 1], varVariant);

      v_DataNF[0,0] := vDM. Cl_OEGeral_.Data;
      v_DataNF[1,0] := vDM. Cl_PedProgEntrega_.Data;
      v_DataNF[2,0] := vDM. Cl_PedProgEstoque_.Data;

      v_DataNF[0,1] := ' OrdemExpedicao'; // Nome da TAG
      v_DataNF[1,1] := ' ProgramacaoEntrega';
      v_DataNF[2,1] := ' Caracteristica';

      vDM.IntegraOrdemExpedicao('P', v_DataOE, RDMUsuario, '', -1]);
  finally
    FreeAndNil(vDM);
  end;
end;