Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas