Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:

MNTA9952()

País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada para inserção de dados em janela personalizada após confirmação da rotina de calibragem.

Localização:

SIGAMDI: Atualizações/Controle de Pneus/Pneus/ Calibragem/Medição de Sulco
Programa Fonte:MNTA995.prx

Função:

MNTA9952

Retorno:

NomeTipoPode AlterarDescrição
cChave
CaracterNão.

Chave da tabela posicionada.

nOpc
NuméricoNão.Operação sendo executada no momento.

03. DEMAIS INFORMAÇÕES

Exemplo 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


04. ASSUNTOS RELACIONADOS

  • Não se aplica.