/
Exemplo da Chamada no Delphi - Serviço 306
Exemplo da Chamada no Delphi - Serviço 306
var
vDM: TDM_IntFatura_Server;
begin
try
vDM := TDM_IntFatura_Server.Create(Self);
vDM.CL_Fatura_.CreateDataSet;
vDM.CL_Fatura_.Insert;
// Alimenta os campos e faz o mesmo com os outros datasets
vDM.Integra(1{código do usuário},
[vDM.CL_Fatura_.Data,
vDM.CL_RetencoesCPA_.Data,
vDM.CL_GeraParcelas_.Data,
vDM.CL_MovVinc_.Data,
vDM.CL_Classe_.Data,
vDM.CL_CCusto_.Data,
vDM.CL_Projeto_.Data]);
finally
FreeAndNil(vDM);
end;
end;