Histórico da Página

#INCLUDE "TBICONN.CH"
#INCLUDE "TOPCONN.ch"
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"


/*/{Protheus.doc} User Function exExecAuto
    (FunçãoFunción que inicializainicia oel processamentoprocesamiento.)
    @type  Function
    @author user
    @since 04/09/2023
    @version 12.1.2210
    @return Nil, Nil, semsin retornodevolución
/*/
User Function exExecAuto()
    local lMVFACAUTO := .F.
    local nOp := 4
    local cCodPerfil := "200001"
    local cTipoPart := "1"
    local cCliFor := "SP0003"
    local cLoja := "01"
    local cTipoPerf := "02"
    local lOk := .F.

    ConOut(Repl("-",80))
    ConOut(PadC("MensagemMensaje : InicíoInicio dodel processamentoprocesamiento " + Time(), 80))

    // preparo oel ambienteentorno
    // prepare oel entorno ambientede dala maneiramanera que acharle melhorparezca
    // para este exemploejemplo abrireisolo apenasabriré aslas tabelastablas F20 ey F22
    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "XIFIS26" MODULO "FIS" TABLES "F20", "F22"


        /*
            Lógica de cadastroregistro de cliente/fornecedorproveedor por viael execAuto de daslas rotinasrutinas de
            cadastroregistro de cliente ey fornecedorproveedor.
        */


        // InclusãoInclusión de novonuevo fornecedorproveedor/cliente emen umun perfil de participante já existente
        lMVFACAUTO := GetNewPar("MV_FACAUTO", lMVFACAUTO)
        if lMVFACAUTO // sesi oel facilitador estiverestuviera ativadoactivado
            dbSelectArea("F20")
            F20->(dbSetOrder(1))
            // posicionovoy noal perfil en aoel qualcual queroquiero incluir oel novonuevo cliente/fornecedorproveedor
            if F20->(MsSeek(xFilial("F20") + cCodPerfil + cTipoPerf))
                // chamollamo ala funçãofunción para grabar gravaruna novanueva linhalínea de participante (F22)
                lOk := u_gravaPart(nOp, cCodPerfil, cTipoPart, cCliFor, cLoja, cTipoPerf)
                if !lOk
                    ConOut("MensagemMensaje : NãoNo foifue possívelposible aincluir inserçãoun denuevo novoparticipante participanteen noel perfil. Verificar Log.")
                else 
                    ConOut("MensagemMensaje : Se incluyó Incluídoel participante " + cCliFor + " ao perfil " + cCodPerfil+".")
                endif
            else
                ConOut("MensagemMensaje : Perfil de Participanteparticipante inexistente!")
            endIf
        endif
        ConOut("MensagemMensaje : Final Fimde dala Execuçãoejecución emen - "+Time())

    RESET ENVIRONMENT

Return


/*/{Protheus.doc} User Function gravaPart
    (GravaGraba cliente/fornecedorproveedor emen perfil de participante já existente)
    @type  Function
    @author user
    @since 05/09/2023
    @version version
    @param nOp, numeric, OpçãoOpción aque serse aplicadaaplicará
    @param cCodPerfil, character, Código dodel perfil Perfilal aque serse vinculadovinculará oel participante
    @param cTipoPart, character, Tipo dode Participanteparticipante - FornecedorProveedor (1) Cliente (2)
    @param cCliFor, character, Código dodel cliente/fornecedorproveedor
    @param cLoja, character, LojaTienda dodel cliente/fornecedorproveedor
    @param cTipoPerf, character, Tipo dode Perfilperfil de participante: 1-OrigemOrigen Destinodestino; 2-Participante; 3-OperaçãoOperación. NoEn nossonuestro caso siempre será sempre 2
    @return lOk, logical, flag que identifica sesi aocurrió inserçãola ocorreuinclusión
/*/
User Function gravaPart(nOp, cCodPerfil, cTipoPart, cCliFor, cLoja, cTipoPerf)
    local oModel as object
    local lOk := .F.

    oModel := FwLoadModel("FISA164") // carregocargo oel modelo de dala rotinarutina

    if nOp == MODEL_OPERATION_UPDATE // verifico sesi ées alteraçãomodificación

        // Através da operaçãoPor medio de la operación de update en noel modelo, consigo adicionaragregar umauna novanueva
        // línea linhaen nala GRID (F22).
        oModel:SetOperation(MODEL_OPERATION_UPDATE)
        oModel:Activate() // ativoactivo oel modelo

        //AdicionaAgrega una umanueva novalínea linhaen noel grid
        oModel:GetModel("FISA164PARTICIPANTE"):AddLine()
        oModel:SetValue("FISA164PARTICIPANTE", "F22_CODIGO", cCodPerfil)
        oModel:SetValue("FISA164PARTICIPANTE", "F22_TPPART", cTipoPart)
        oModel:SetValue("FISA164PARTICIPANTE", "F22_CLIFOR", cCliFor)
        oModel:SetValue("FISA164PARTICIPANTE", "F22_LOJA", cLoja)
        oModel:SetValue("FISA164PARTICIPANTE", "F22_TIPOPF", cTipoPerf)

        If oModel:VldData()
            oModel:CommitData()
            lOk := .T.
        Else
            VarInfo("",oModel:GetErrorMessage())
        EndIf

        oModel:DeActivate()
    else
        ConOut("MensagemMensaje : OpçãoOpción de operaçãooperación diferente dade la esperada: ")
        ConOut("MensagemMensaje : OperaçãoOperación esperada: 4")
        ConOut("MensagemMensaje : OperaçãoOperación recebidarecibida: " + str(nOp))
    endif
Return lOk