Histórico da Página
Aviso | ||
---|---|---|
| ||
|
Inclusão de
camposbotões na rotina de Programação de O.S. (MNTA990)
Características do Requisito
Linha de Produto: | Microsiga Protheus. | ||||
Segmento: | Manufatura. | ||||
Módulo: | SIGAMNT - Manutenção de Ativos. | ||||
Rotina: |
| ||||
Ponto de Entrada: | MNTA990A - Ponto de entrada que inclui novo campo botão na rotina de Programação de O.S. | ||||
Chamados Relacionados | V11 MNG-597 TICKET 293767 | ||||
País(es): | Todos. | ||||
Banco(s) de Dados: | Todos. | ||||
Sistema(s) Operacional(is): | Todos. |
Descrição
Ponto de entrada para incluir novos campos botões na rotina de Programação de Ordens de Serviço (MNTA990).
Ponto de Entrada
Descrição: | Ponto de entrada para utilização de campos botões na rotina de Programação de Ordens de Serviço (MNTA990). | ||||||||
Localização: | SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Abastecimento em Lote. | ||||||||
Eventos: | Programação de Ordens de Serviço (MNTA990). | ||||||||
Programa Fonte: | MNTA990.PRX | ||||||||
Função: | MNTA990CAD() | ||||||||
Retorno: |
|
Exemplo Protheus 11:
#Include 'Protheus.ch'"Protheus.ch"
//---------------------------------------------------------------------
/*/
{Protheus.doc}MNTA990A
Ponto de entrada que inclui novos campos no filtro da
rotina de Programação de OS.
/*/
//---------------------------------------------------------------------
User Function MNTA990A()
oScrDlg1 := PARAMIXB[1]
@ nwVerBt1,138 Button "Botão O.S." Size 40,10 Of oScrDlg1 Pixel Action fIncPvSTL() //"Botão O.S."
Return oScrDlg1
Exemplo Protheus 12:
#Include"Protheus.ch"
//---------------------------------------------------------------------
/*/
{Protheus.doc}MNTA990A
Ponto de entrada que inclui novos campos no filtro da
rotina de Programação de OS.
/*/
//---------------------------------------------------------------------
User Function MNTA990A()
oScrDlg1 := PARAMIXB[1]
oBtnInsuPr := TBtnBmp():NewBar("ng_insumos","ng_insumos",,,,{||fIncPvSTL(2) },,oScrDlg1,,,"Botão O.S.",,,,,"") //"Botão O.S."
oBtnInsuPr:Align := CONTROL_ALIGN_TOP
oBtnInsuPr:lVisible := .T.
Return oScrDlg1
User Function MNTA656L()
Local cCCusto := ""
aColsNI := PARAMIXB[1]
cCCusto := aColsNI[aPosCpo[1]]
Return cCCusto