<Lancamento OPERACAO="I"> 
    <ORG_IN_CODIGO>2</ORG_IN_CODIGO>  
    <LOT_IN_CODIGO>51211</LOT_IN_CODIGO>  
    <ACAO_IN_CODIGO>3</ACAO_IN_CODIGO>  
    <LAN_DT_LANCAMENTO>01/11/2007</LAN_DT_LANCAMENTO>  
    <PAR_BO_GRAVANAOATUALIZADO>S</PAR_BO_GRAVANAOATUALIZADO>  
    <ItemLancamento OPERACAO="I"> 
        <ITE_IN_CODIGO>2</ITE_IN_CODIGO>  
        <FIL_IN_CODIGO>3</FIL_IN_CODIGO>  
        <ITE_DT_CONVERSAO>01/11/2007</ITE_DT_CONVERSAO>  
        <ITE_DT_ORCAMENTO>01/11/2007</ITE_DT_ORCAMENTO>  
        <CRE_IN_REDUZIDO>119</CRE_IN_REDUZIDO>  
        <ITE_ST_COMPLEMENTO>4331,27</ITE_ST_COMPLEMENTO>  
        <ITE_RE_VALOR>4331,27</ITE_RE_VALOR>  
        <CentroCusto OPERACAO="I"> 
            <CUS_ST_EXTENSO>10101001</CUS_ST_EXTENSO>  
            <LCC_RE_VALOR>4331,27</LCC_RE_VALOR>  
            <LCC_CH_NATUREZA>C</LCC_CH_NATUREZA>  
            <Projeto OPERACAO="I"> 
                <PRO_ST_EXTENSO>901</PRO_ST_EXTENSO>  
                <RPRO_RE_VALOR>4331,27</RPRO_RE_VALOR>  
            </Projeto> 
        </CentroCusto> 
    </ItemLancamento> 
    <ItemLancamento OPERACAO="I"> 
        <ITE_IN_CODIGO>1</ITE_IN_CODIGO>  
        <FIL_IN_CODIGO>3</FIL_IN_CODIGO>  
        <ITE_DT_CONVERSAO>01/11/2007</ITE_DT_CONVERSAO>  
        <ITE_DT_ORCAMENTO>01/11/2007</ITE_DT_ORCAMENTO>  
        <DEB_IN_REDUZIDO>5</DEB_IN_REDUZIDO>  
        <ITE_ST_COMPLEMENTO>4331,27</ITE_ST_COMPLEMENTO>  
        <ITE_RE_VALOR>4331,27</ITE_RE_VALOR>  
        <CentroCusto OPERACAO="I"> 
            <CUS_ST_EXTENSO>10101001</CUS_ST_EXTENSO>  
            <LCC_RE_VALOR>4331,27</LCC_RE_VALOR>  
            <LCC_CH_NATUREZA>D</LCC_CH_NATUREZA>  
            <Projeto OPERACAO="I"> 
                <PRO_ST_EXTENSO>901</PRO_ST_EXTENSO>  
                <RPRO_RE_VALOR>4331,27</RPRO_RE_VALOR>  
            </Projeto> 
        </CentroCusto> 
    </ItemLancamento> 
</Lancamento>

Image Removed

Exemplo da Chamada no Delphi

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

Image Removed

Lançamento

Image Removed

Image Removed

Itens Lançamento

Image Removed

Image Removed

Centro de Custo

Image Removed

Image Removed

Projeto

Image Removed

Image Removed

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.