Histórico da Página
Ponto de entrada que permite a customização de coluna em O.S. gerada na rotina de Confirmação (MNTA340)
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de entrada executado na rotina de Confirmação (MNTA340) que permite a customização de coluna em O.S. gerada | |||||||||
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Confirmação | |||||||||
Programa Fonte: | MNTA340.prx | |||||||||
Função: | MNTA340D() | |||||||||
| Parâmetros: |
| |||||||||
Retorno: |
|
| Bloco de código | ||
|---|---|---|
| ||
#Include 'Protheus.ch' User Function MNTA340D() aTRB aDBF := ParamIXB[1] aDBF // Armazena os campos da tabela temporária dependendo do tipo de plano da ordem aDBF1 := ParamIXB[2] aSize( aDBF, Len( aDBF ) + 1 ) // Armazena os campos da tabela temporária para realizar a confirmacao aDBF001 := ParamIXB[3] // Armazena os campos que vao ser usados na montagem de browse para cadastrar informacoes, e para relatorio nPosDBF := aScan( aDBF ,{|x| x[1] == "TJ_HOMPFIMTIPO" } ) If nPosDBF > 0 aIns( aDBF, nPosDBF + 1 ) aDBF[ nPosDBF + 1aAdd( ]aDBF, := { "'TJ_TIPO" ', "'C"', , 39, 0 }) EndIf aSize( aTRB, Len( aTRB ) + 1 ) nPOsAtu nPosDBF := aScan( aTRBaDBF1 ,{|x| x[1] == "TJ_HOMPFIMDESCR" } ) If nPOsAtunPosDBF > 0 aIns( aTRB, nPosAtu + 1 ) aTRB[ nPosAtu + 1 ] := { "TJ_TIPO" , NIL, "Ponto de Entrada" , } EndIf aAdd( aDBF, { 'TJ_DESCR', 'C', 50, 0 }) EndIf nPosDBF := aScan( aDBF001 ,{|x| x[1] == "NUMSEQ" } ) If nPosDBF > 0 aAdd( aDBF, { 'NUMSEQ', 'C', 5, 0 }) EndIf Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas