Ponto de entrada para inserção de dados em janela personalizada após confirmação da rotina de calibragem
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 para inserção de dados em janela personalizada após confirmação da rotina de calibragem. | ||||||||||||
Localização: | SIGAMNT: Em Atualizações > Controle de Pneus > Pneus > Calibragem/Medição Sulco. | ||||||||||||
Programa Fonte: | MNTA995.prx | ||||||||||||
Função: | MNTA9952() | ||||||||||||
Parâmetros: |
|
Exemplo PE MNTA9952
#INCLUDE "PROTHEUS.CH" User Function MNTA9952() Local cChave := ParamIXB[1] //chave da tabela TTO Local nOpc := ParamIXB[2] //Operação que está sendo executada Local cTGet1 := Space(TAMSX3("TTO_NOVOCAMPO")[1]) Local lGrava := .F. Local oFont Local oDlg Local oPanel DEFINE MSDIALOG oDlg TITLE "Cad01" FROM 000,000 TO 070,200 PIXEL oFont := TFont():New('Courier new',,-12,.T.) oPanel := TPanel():Create(oDlg,0,0,,,.F.,,,,0,0) oPanel:Align := CONTROL_ALIGN_ALLCLIENT TSay():New(05,05,{||"cText: "},oPanel,,oFont,,,,.T.,,,200,200,,,,,,) TGet():New(05,30,{|u| IIf(PCount() > 0 ,cTGet1 := u, cTGet1)},oPanel,070,009,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,,) TButton():New( 20, 35, "Salvar" ,oPanel,{||lGrava := .T., oDlg:End()}, 30,10,,,.F.,.T.,.F.,,.F.,,,.F.) TButton():New( 20, 70, "Cancelar",oPanel,{||lGrava := .F., oDlg:End()}, 30,10,,,.F.,.T.,.F.,,.F.,,,.F.) ACTIVATE MSDIALOG oDlg CENTERED If lGrava dbSelectArea("TTO") dbSetOrder(1) dbSeek(cChave) RecLock("TTO",.F.) TTO->TTO_NOVOCAMPO := cTGet1 MsUnLock() EndIf Return
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas