Histórico da Página
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. <p style='margin-left: 30.0px;'>Segue abaixo exemplo do ExecAuto do fonte CSAA100, para inclusão de um departamento via interface (ex. Menu)</p><p style='margin-left: 30.0px;'></p><p style='margin-left: 30.0px;'>#Include "TOTVS.ch"</p><p style='margin-left: 30.0px;'>#Include "TBICONN.ch"</p><p style='margin-left: 30.0px;'></p><p style='margin-left: 30.0px;'>User Function TCSAA100()</p><p style='margin-left: 30.0px;'>Local nOpr := 3 //Inclusão</p><p style='margin-left: 30.0px;'>Local aHeader := {}</p><p style='margin-left: 30.0px;'>Local aArea := {}</p><p style='margin-left: 30.0px;'></p><p style='margin-left: 30.0px;'>Private lMsErroAuto := .F.</p><p style='margin-left: 30.0px;'>Private lMsHelpAuto := .T.</p><p style='margin-left: 30.0px;'></p><p style='margin-left: 30.0px;'>aArea := GetArea()</p><p style='margin-left: 30.0px;'></p><p style='margin-left: 30.0px;'>// BEGIN: CREATE //</p><p style='margin-left: 30.0px;'>If (nOpr == 3)</p><p style='margin-left: 30.0px;'>AAdd(aHeader, {"QB_FILIAL", "D MG 01 "})</p><p style='margin-left: 30.0px;'>AAdd(aHeader, {"QB_DEPTO", "000000009"})</p><p style='margin-left: 30.0px;'>AAdd(aHeader, {"QB_DESCRIC", "COMPRAS"})</p><p style='margin-left: 30.0px;'>AAdd(aHeader, {"QB_CC", ""})</p><p style='margin-left: 30.0px;'>AAdd(aHeader, {"QB_FILRESP", ""})</p><p style='margin-left: 30.0px;'>AAdd(aHeader, {"QB_MATRESP", ""})</p><p style='margin-left: 30.0px;'>AAdd(aHeader, {"QB_DEPSUP", ""})</p><p style='margin-left: 30.0px;'>AAdd(aHeader, {"QB_ARELIN", ""})</p><p style='margin-left: 30.0px;'></p><p style='margin-left: 30.0px;'>EndIf</p><p style='margin-left: 30.0px;'>// END: CREATE //</p><p style='margin-left: 30.0px;'></p><p style='margin-left: 30.0px;'>MsExecAuto({|w, x, y, z| CSAA100(w, x, y, z)}, NIL, NIL, aHeader, nOpr)</p><p style='margin-left: 30.0px;'></p><p style='margin-left: 30.0px;'>If (lMsErroAuto == .T.)</p><p style='margin-left: 30.0px;'>MostraErro()</p><p style='margin-left: 30.0px;'></p><p style='margin-left: 30.0px;'>ConOut(Repl("-", 80))</p><p style='margin-left: 30.0px;'>ConOut(PadC("CSAA100 automatic routine ended with error", 80))</p><p style='margin-left: 30.0px;'>ConOut(PadC("Ends at: " + Time(), 80))</p><p style='margin-left: 30.0px;'>ConOut(Repl("-", 80))</p><p style='margin-left: 30.0px;'>Else</p><p style='margin-left: 30.0px;'>ConOut(Repl("-", 80))</p><p style='margin-left: 30.0px;'>ConOut(PadC("CSAA100 automatic routine successfully ended", 80))</p><p style='margin-left: 30.0px;'>ConOut(PadC("Ends at: " + Time(), 80))</p><p style='margin-left: 30.0px;'>ConOut(Repl("-", 80))</p><p style='margin-left: 30.0px;'>EndIf</p><p style='margin-left: 30.0px;'></p><p style='margin-left: 30.0px;'>RestArea(aArea)</p><p style='margin-left: 30.0px;'>RPCClearEnv()</p><p style='margin-left: 30.0px;'></p><p style='margin-left: 30.0px;'>Return(NIL)</p><p style='margin-left: 30.0px;'></p><p style='margin-left: 30.0px;'>Para preparação do ambiente sem interface, é necessário incluir a função RpcSetEnv()</p><p style='margin-left: 30.0px;'>Exemplo:</p>
RPCSetEnv("T1", "D MG ", NIL, NIL, "GPE", NIL, {"SQB"})
04. DEMAIS INFORMAÇÕES
Não se aplica
05. ASSUNTOS RELACIONADOS
https://tdn.totvs.com/display/tec/Conout
...