Histórico da Página

Programa Fonte
TMSA491.PRW    

User Function TM491CPO()

Local  Local aTit   := {}

    If nOpcao == 1 //-- apresenta campos do usuario// Exemplo//  
        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    
        //-- Exemplo            // DbGoto(nRecno)
            // Reclock('DT6',.F.)     
       // DT6->DT6_STATUS := '1'
        MsUnlock()
    
   // 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
   Return aTitEndIf EndIf

Return Nil