Histórico da Página

Programa Fonte
TMSA491.PRW    

User Function TM491CPO()  Local 

Local aTit   := {}

    If nOpcao == 1 //-- apresenta campos do usuario
        Return ', DT6_STATUS, DT6_LOTNFC' //-- Os campos sempre deverao ser iniciados com ',
    
    ElseIf nOpcao == 2 //-- Gravacao no documento de transporte
        nRecno    := ParamIxb[2]
        cAliasTRB := ParamIxb[3]
        cPrefix   := ParamIxb[4]
        cFatura   := ParamIxb[5]
        cTipo     := ParamIxb[6]
        //-- Grava dados no documento de transporte
        DbGoto(nRecno)
        Reclock('DT6',.F.)
        DT6->DT6_STATUS := '1'
        MsUnlock()
    
    ElseIf nOpcao == 3 //-- Gravacao de informacoes na fatura (SE1)
        cAliasTRB := ParamIxb[2]
        cPrefix   := ParamIxb[3]
        cFatura   := ParamIxb[4]
        cTipo     := ParamIxb[5]
        //-- Informacoes para gravacao da fatura
        //-- Exemplo
        Aadd( aTit, { 'E1_CPOUSR' , (cAliasTRB)->DT6_CPOUSR } )
        Aadd( aTit, { 'E1_PREFIXO', cPrefix } )
        Return aTit
    EndIf

Return Nil