Histórico da Página

Produto:	Protheus
Ocorrência:	Exemplo prático de como cadastrar operações em rotinas automáticas.
Passo a passo:	O programa PCPA124 ( - Operações) utiliza o conceito de MVC. Para que seja possível utilizá-lo possibilitar sua utilização em rotinas automáticas, é necessário instanciar o modelo de dados do programa e executar as funções responsáveis pela persistência de dados. Para mais detalhes dos métodos disponíveis nas rotinas MVC, consulte o manual https://tdn.totvs.com/display/public/framework/AdvPl+utilizando+MVC. Fonte Abaixo estão fontes com exemplos abaixo.
Observações:	Para ser possível utilizar as possibilitar a utilização de variáveis estáticas "cujo nome inicia com MODEL_..." OPERATION_ e para que funcione corretamente o "comando Prepare environment", é necessário utilizar os includes "FWMVCDEF.CH" e "TBICONN.CH" no no arquivo fonte.

Bloco de código

language	java
title	Exemplo Inclusão
linenumbers	true

#INCLUDE 'FWMVCDEF.CH'
#Include "TBICONN.CH"

//Inclusão de um roteiro
User Function incRot()
    Local oModel, oMdlDet, oMdlH3 
    Local cErro  := ""
    Local lRet   := .T.

 	Prepare environment empresa '99' filial '01' modulo 'PCP'       

	INCLUI := .T.
    ALTERA := .F.
     
    oModel := FWLoadModel('PCPA124') //Carrega o modelo do programa PCPA124
 
    oModel:SetOperation(MODEL_OPERATION_INSERT) //Seta a operação de inclusão no modelo.
     
    If oModel:Activate() //Ativa o modelo.
        If !oModel:SetValue("PCPA124_CAB","G2_CODIGO" , "02") //Atribui o código do roteiro no modelo. (G2_CODIGO)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oModel:SetValue("PCPA124_CAB","G2_PRODUTO", "PRD_EXEMPLO") //Atribui o código do produto no modelo. (G2_PRODUTO)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
 
        oMdlDet := oModel:GetModel("PCPA124_SG2") //Recupera o submodelo detalhe.
 
        If lRet .And. !oMdlDet:SetValue("G2_OPERAC","10") //Atribui o código da operação no modelo. (G2_OPERAC)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_DESCRI","OPERAC. TESTE") //Atribui a descrição da operação no modelo. (G2_DESCRI)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_RECURSO","REC01") //Atribui o código do recurso no modelo. (G2_RECURSO)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_SETUP",1) //Atribui o tempo de setup no modelo. (G2_SETUP)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_LOTEPAD",100) //Atribui o lote padrão no modelo. (G2_LOTEPAD)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_TEMPAD",1) //Atribui o tempo padrão no modelo. (G2_TEMPAD)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_TPOPER",'1') //Atribui o tipo de operação no modelo. (G2_TPOPER)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_CTRAB",'CT01') //Atribui o Centro de trabalho no modelo. (G2_CTRAB)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf


        If lRet
            //Adiciona recursos alternativos.
            oMdlH3 := oModel:GetModel("PCPA124_SH3_R")
            If !oMdlH3:SetValue("H3_RECALTE",'REC02') //Atribui o Recurso alternativo
                //Se ocorreu algum erro na atribuição, recupera o erro.
                cErro := u_getErr(oModel)
                lRet := .F.
            EndIf
            If lRet .And. !oMdlH3:SetValue("H3_TIPO",'A') //Atribui o Tipo do Recurso alternativo
                //Se ocorreu algum erro na atribuição, recupera o erro.
                cErro := u_getErr(oModel)
                lRet := .F.
            EndIf

            //Adiciona um novo recurso alternativo
            If lRet .And. !oMdlH3:AddLine()
                lRet := .F.
                cErro := u_getErr(oModel)
            EndIf

            If lRet .And. !oMdlH3:SetValue("H3_RECALTE",'REC03') //Atribui o Recurso alternativo
                //Se ocorreu algum erro na atribuição, recupera o erro.
                cErro := u_getErr(oModel)
                lRet := .F.
            EndIf
            If lRet .And. !oMdlH3:SetValue("H3_TIPO",'A') //Atribui o Tipo do Recurso alternativo
                //Se ocorreu algum erro na atribuição, recupera o erro.
                cErro := u_getErr(oModel)
                lRet := .F.
            EndIf
        EndIf

        If lRet .And. !oMdlDet:AddLine() //Adiciona uma nova linha no modelo detalhe
            //Se ocorreu algum erro ao adicionar uma nova linha, recupera o erro
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
 
        If lRet .And. !oMdlDet:SetValue("G2_OPERAC","20") //Atribui o código da operação no modelo. (G2_OPERAC)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_DESCRI","OPERAC. TESTE 2") //Atribui a descriçãoo da operação no modelo. (G2_DESCRI)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_RECURSO","REC02") //Atribui o código do recurso no modelo. (G2_RECURSO)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_SETUP",0) //Atribui o tempo de setup no modelo. (G2_SETUP)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_LOTEPAD",90) //Atribui o lote padrão no modelo. (G2_LOTEPAD)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_TEMPAD",1) //Atribui o tempo padrão no modelo. (G2_TEMPAD)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_TPOPER",'1') //Atribui o tipo de operação no modelo. (G2_TPOPER)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf
        If lRet .And. !oMdlDet:SetValue("G2_CTRAB",'CT01') //Atribui o Centro de trabalho no modelo. (G2_CTRAB)
            //Se ocorreu algum erro na atribuição, recupera o erro.
            cErro := u_getErr(oModel)
            lRet := .F.
        EndIf

        If lRet
            //Adiciona recursos alternativos.
            oMdlH3 := oModel:GetModel("PCPA124_SH3_R")
            If !oMdlH3:SetValue("H3_RECALTE",'REC03') //Atribui o Recurso alternativo
                //Se ocorreu algum erro na atribuição, recupera o erro.
                cErro := u_getErr(oModel)
                lRet := .F.
            EndIf
            If lRet .And. !oMdlH3:SetValue("H3_TIPO",'A') //Atribui o Tipo do Recurso alternativo
                //Se ocorreu algum erro na atribuição, recupera o erro.
                cErro := u_getErr(oModel)
                lRet := .F.
            EndIf
        EndIf
 
        If lRet
            If oModel:VldData() //Valida as informações
                lRet := oModel:CommitData() //Efetiva o cadastro.
                If !lRet
                    cErro := u_getErr(oModel)
                EndIf
            Else
                cErro := u_getErr(oModel)
                lRet := .F.
            EndIf
        EndIf
        oModel:DeActivate() //Desativa o modelo.
    Else
        lRet := .F.
    EndIf
 
Return lRet

...

Árvore de páginas

Versões comparadas

Versão antiga 7

Nova versão Atual

Chave