Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite a criação de um novo folder no cadastro de Bens Padrão (MNTA170)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

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

Rotina:

Rotina

Nome Técnico

MNTA170

Bens Padrão


Rotina(s) envolvida(s)

Nome Técnico

MNTA1703

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 executado na rotina de Bens Padrão (MNTA170) permite a criação de um folder novo 

Localização:SIGAMDI: Atualizações/Controle de Oficina/Bens/Bens Padrão

Programa Fonte:

MNTA170.prx

Função:

MNTA1703()
Parâmetros:
NomeTipoDescrição
ParamIXB[1]ObjetoRecebe as informações do folder padrão

Retorno:

Nulo
Exemplo do Ponto de Entrada MNTA1703()
#Include 'Protheus.ch'

User Function MNTA1703()

    Local oFolder   := PARAMIXB[1]
    Local aAlter := {}
    Local nFolderAtu := ++Len(oFolder:aDialogs)
    Local bSetOption := oFolder:bSetOption
    Local cGetWhile := "TP9_FILIAL == xFilial('TP9') .and. TPF_CODFAM == M->TP9_CODFAM .and. TPF_TIPMOD ==  M->TP9_TIPMOD"
    Private aCols := {}
    Private aHeadTPF := {}

    lAltProg := If(INCLUI .Or. ALTERA,.T.,.F.)
    cKey := M->TP9_CODFAM + M->TP9_TIPMOD
    //Retira SetOption para nao ocorrer mensagem de OBRIGATORIO do primeiro folder
    oFolder:bSetOption := {||}
    //Cria Folder
    oFolder:AddItem("Não Numerados")
    aAlter := {'TPF_CODFAM','TPF_SERVIC','TPF_SEQREL'}
    aHeadTPF := NGHeader('TPF')
    aCols := {}
    DbSelectArea("TPF")
    Dbgobottom()
    Dbskip()
    oGet170 := MSnewGETDADOS():New(0,0,125,315,IIF(lAltProg,GD_INSERT+GD_UPDATE+GD_DELETE,0) ;
    ,"U_LinhaOk()","AllWaysTrue()",'',aAlter,,9999,'AllwaysTrue()','','AllwaysTrue()', ;
    oFolder:aDIALOGS[nFolderAtu],@aHeadTPF,@aCols)

    oGet170:oBrowse:Align := CONTROL_ALIGN_ALLCLIENT
    oGet170:oBROWSE:REFRESH()
    oFolder:SetOption(1)
    oFolder:bSetOption := bSetOption

    aCols := MAKEGETD("TPF", cKey, aHeadTPF, cGetWhile,,.F.)

    If Empty(aCols)
        aCols := BlankGetd(aHeadTPF)
    EndIf

    oGet170:aCols := aCols

Return