Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS RH

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:SIGAGPE
Função:CSAA100.PRW
Ticket:8997835
Requisito/Story/Issue (informe o requisito relacionado) :DRHGCH-19365


02. SITUAÇÃO/REQUISITO

Utilizando o ExecAuto da rotina CSAA100 com a opção “4-alteração” para alteração da descrição do departamento, é sempre apresentada a mensagem que não encontrou o registro, mesmo estando posicionado.

03. SOLUÇÃO

O erro ocorre pois a descrição faz parte da chave primária da tabela. Sendo assim, foi alterada a rotina de forma que o registro é posicionado através da Filial e Código do Departamento para assim realizar o processamento da alteração da descrição ou qualquer outro campo.


Exemplo de chamada da execauto:


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

User Function TSTCSAA100()
    Local nOpr    := 4
    Local aHeader := {}
    Local aArea   := {}
 
    Private lMsErroAuto := .F.
    Private lMsHelpAuto := .T.

        aArea := GetArea()

        AAdd(aHeader, {"QB_FILIAL" ,    "D MG    " , NIL})
        AAdd(aHeader, {"QB_DEPTO"  ,    "000000003", NIL})
        AAdd(aHeader, {"QB_DESCRIC",    "DESCRIÇÃO ALTERADA COM SUCESSO" , NIL})
 
        MsExecAuto({|w, x, y, z| CSAA100(w, x, y, z)}, NIL, NIL, aHeader, nOpr)

        If (lMsErroAuto == .T.)
            MostraErro()
            ConOut(Repl("-", 80))
            ConOut(PadC("CSAA100 - Execauto finalizada com erros", 80))
            ConOut(PadC("Termino: " + Time(), 80))
            ConOut(Repl("-", 80))
        Else
            ConOut(Repl("-", 80))
            ConOut(PadC("CSAA100 - Execauto finalizada com sucesso", 80))
            ConOut(PadC("Termino: " + Time(), 80))
            ConOut(Repl("-", 80))
        EndIf
 
        RestArea(aArea)
Return


04. DEMAIS INFORMAÇÕES

N/A


05. ASSUNTOS RELACIONADOS

  • N/A