var

  vDM: TDM_IntLancamento_Server;

begin

  try

    vDM := TDM_ IntLancamento _Server.Create(Self);

    vDM.CL_ CL_LancInt_.CreateDataSet;

    vDM.CL_ CL_LancInt_.Insert;

    // Alimenta os campos e faz o mesmo com os outros datasets

    vDM.Integra(1{código do usuário},

                          [vDM. CL_LancInt_ .Data, 

                          vDM. CL_ItemLancInt_ .Data, 

                          vDM. CL_ItemLancCCInt_. Data, 

                          vDM. CL_ItemLancProInt_ .Data]);

  finally

    FreeAndNil(vDM);

  end;

end;

Estrutura Analítica dos Campos

Lançamento

Itens Lançamento

Centro de Custo

Projeto

Observações

Os campos com a coluna Update/Delete preenchida são usados para localizar o registro. Todos os outros são usados para alterar o valor do campo.