Linha Microsiga Protheus

Árvore de páginas

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:

Rotina

Nome Técnico

MNTA995

Calibragem e Medição de Sulco.

Rotina(s) envolvida(s)

Nome Técnico

MNT9952

Ponto de Entrada

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:

NomeTipoPode AlterarDescrição
cChave
CaracterNão.

Chave da tabela posicionada.

nOpc
NuméricoNão.Operação sendo executada no momento.
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