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