Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Hamilton Pereira Soldati

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Hamilton Pereira Soldati

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada para utilização no Retorno Mod2

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

RotinaNome Técnico
MNTA435Retorno Mod2

Chamados Relacionados

DNG-3844                                                           

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

aDadosOS[

Descrição:

Ponto de entrada acionado na validação do Retorno Mod2

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno de OS/Retorno Mod2 (MNTA435)

Eventos:

Retorno Mod2 (MNTA435)

Programa Fonte:

MNTA435.PRW

Função:

FVALIDOK()

Parâmetros:

NomePosição

Tipo

Descrição

Obrigatório
ParamIXB[1]Caracter

Id que indica o local da chamada do ponto de entrada

SimParamIXB[2]
IDDemais Parâmetros
VALID_OK
PosiçãoTipoDetalhesObrigatório
2Array
Dados da ordem

Informações das ordens de serviço

Posição
Tipo
Descrição


1
][1]
CaracterNúmero da O.S.
aDadosOS[1][
2
]
CaracterPlano
da O.O
aDadosOS[1][
3
]
ArrayInsumos previstos já salvos
aDadosOS[1][
4
]
ArrayInsumos realizados já salvos
aDadosOS[1][
5
]
Array
Insumos realizados das ordens que foram modificadas.
Todos os insumos realizados e modificados




Sim





Retorno:
IDTipoDescriçãoObrigatório
VALID_OKLógicoSe obteve sucesso nas validaçõesSim

 


Bloco de código
languagesql
titleExemplo: PE MNTA902G
linenumberstrue
#include"Protheus.ch"
#include"hbutton.ch"
#include"DbTree.ch"

User Function MNTA902G()

    oPnlBtn2 := PARAMIXB[1]

    //Adição de botão com chamada do relatório de OS
    oBtnPE := TBtnBmp2():New( 00,00,27,25,"NG_ICO_ATV_LOC_M",,,,{|| MNTR675()},oPnlBtn2,"Ponto de Entrada",bOk,.T. ) //"Ponto de Entrada"
    oBtnPE:Align   := CONTROL_ALIGN_TOP

    //Adição de botão sem chamada de rotina
    oBtnPE2 := TBtnBmp2():New( 00,00,27,25,"NG_ICO_VIS_RES_M",,,,,oPnlBtn2,"Ponto de Entrada2",bOk,.T. ) //"Ponto de Entrada"
    oBtnPE2:Align   := CONTROL_ALIGN_TOP

Return oPnlBtn2