Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS RH

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:GESTÃO DE PESSOAS (SIGAGPE)
Função:AMBIENTE(ERRORAMBI)
Ticket:15431864
Requisito/Story/Issue (informe o requisito relacionado) :DRHROTPRT-7698


02. SITUAÇÃO/REQUISITO

Ao executar rotina automática para o fonte CSAA100 - Departamentos - Ocorre error log: type mismatch on + on CSAA100(CSAA100.PRW) 11/05/2022 16:47:10 line : 126, quando chamado através do Menu

03. SOLUÇÃO

Foi realizado um ajuste do campo em fonte para a identificação do campo QB_FILIAL.
Segue abaixo exemplo do ExecAuto do fonte CSAA100, para inclusão de um departamento via interface(ex. Menu)

#Include "TOTVS.ch"
#Include "TBICONN.ch"

User Function TCSAA100()
    Local nOpr    := 3 //Inclusão
    Local aHeader := {}
    Local aArea   := {}
 
    Private lMsErroAuto := .F.
    Private lMsHelpAuto := .T.

    aArea := GetArea()

        // BEGIN: CREATE //
        If (nOpr == 3)
            AAdd(aHeader, {"QB_FILIAL",     "D MG 01 "})
            AAdd(aHeader, {"QB_DEPTO",      "000000009"})
            AAdd(aHeader, {"QB_DESCRIC",    "COMPRAS"})
            AAdd(aHeader, {"QB_CC",         ""})
            AAdd(aHeader, {"QB_FILRESP",    ""})
            AAdd(aHeader, {"QB_MATRESP",    ""})
            AAdd(aHeader, {"QB_DEPSUP",     ""})
            AAdd(aHeader, {"QB_ARELIN",     ""})

        EndIf
        // END: CREATE //
 
        MsExecAuto({|w, x, y, z| CSAA100(w, x, y, z)}, NIL, NIL, aHeader, nOpr)
        
        If (lMsErroAuto == .T.)
            MostraErro()

            ConOut(Repl("-", 80))
            ConOut(PadC("CSAA100 automatic routine ended with error", 80))
            ConOut(PadC("Ends at: " + Time(), 80))
            ConOut(Repl("-", 80))
        Else
            ConOut(Repl("-", 80))
            ConOut(PadC("CSAA100 automatic routine successfully ended", 80))
            ConOut(PadC("Ends at: " + Time(), 80))
            ConOut(Repl("-", 80))
        EndIf
 
   RestArea(aArea)
   RPCClearEnv()

Return(NIL)

Para preparação do ambiente sem interface, é necessário incluir a função RpcSetEnv()
Exemplo:
RPCSetEnv("T1", "D MG    ", NIL, NIL, "GPE", NIL, {"SQB"}) 


04. DEMAIS INFORMAÇÕES

Não se aplica

05. ASSUNTOS RELACIONADOS