Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Diego Oliveira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Realiza a validação da variação dia do contador

Substitui o browse de cancelamento de O.S. por um customizado.

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Manufatura.

Módulo:

Manutenção de Ativos e Gestão de Frotas.

Rotina:

Rotina

Nome Técnico

MNTA400

Retorno

.Rotina(s) envolvida(s)

Rotinas envolvidas

Nome Técnico

MNTA420

OS Corretiva
MNTA435Retorno Mod. 2
MNTA450
OS
O.S. de Reforma
MNTA460Retorno
OS
O.S. de Reforma
MNTA490Liberação
OS

Requisito/Story/Issue (informe o requisito relacionado):

DNG-2301
O.S.

Países

País(es)

:

Todos.

Banco(s)

Bancos de Dados:

Todos.

Sistema(s) Operacional(is)Sistemas Operacionais:

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada acionado ao montar a tela de cancelamento, permitindo montar um browse especifico para o processo.

Programa Fonte:

MNTA400.prx

Função:

NG400EXC()

Parâmetros:
TipoDescriçãoObrigatório
NuméricoRECNO do registro que será alteradoSim
Retorno:
TipoDescriçãoObrigatório
Lógico

.T. - Para confirmação da tela

.F. - Cancelamento da tela

Sim

 

Exemplo:

Aviso
titleImportante
  • O nome do arquivo fonte .prw no qual o ponto de entrada será salvo e compilado deve ter um nome genérico e com nome diferente da função "MNTA400A", ou seja, não pode se chamar "MNTA400A" pois este já existe no banco de fontes TOTVS.
Bloco de código
languagesql
titlePonto de Entrada - MNTA400A
linenumberstrue
 #INCLUDE "PROTHEUS.CH"
  
User Function MNTA400A()
        
        Local aArea := GetArea()
    Local cObs  := ""
    Local cObsnOpcc := ""
 0
    Local oDlg  := Nil
    Local oObs nOpcc := 0Nil
    Local oMenu := Nil
    Local oDlg, oObs, oMenu nRec  := ParamIXB[1]
        
    dbSelectArea("STJ")
    dbGoTo(nRec)
        
    cObs := STJ->TJ_MTCANC
        
        Define Msdialog oDlg Title "Cancelamento da O.S."+STJ->TJ_ORDEM From 18,20 To 35,75 Of oMainWnd
               @ 38,8 Say "Motivo do Cancelamento" Of oDlg Pixel
               @ 45,8 Get oObs Var cObs Of oDlg Multiline Size 200,40 Pixel
               
               If ValType(aSMenu) == "A"
                       NGPOPUP(aSMenu,@oMenu)
                       oDlg:bRClicked:= { |o,x,y| oMenu:Activate(x,y,oDlg)}
               EndIf
               
        Activate Msdialog oDlg On Init EnchoiceBar(oDlg,{||nOpcc:=1,oDlg:End()},{||oDlg:End()})
        
        If nOpcc == 1
               dbSelectArea("STJ")
               RecLock('STJ',.F.)
               STJ->TJ_MTCANC := cObs
               MsUnLock('STJ')
        EndIf
        
        RestArea(aArea)
        
Return (nOpcc == 1)