Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Prestadores de Serviços Terceirização

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:Gestão de Serviços
Função:TECA894 – Controle de Uniformes
Ticket:Não há.
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-9616


02. SITUAÇÃO/REQUISITO

Necessidade de implementar manutenções específicas no processamento de uniformes após a exclusão da requisição de uniformes.

03. SOLUÇÃO

Implementado o ponto de entrada Ex894Rec que é acionado ao final da função padrão At894Excl, após a operação de exclusão da requisição de uniformes.


Este ponto de entrada recebe os seguintes parâmetros:

Parâmetro

Descrição

NTXCRec

Variável numérica com o RECNO do registro processado, da tabela TXC – Cabeçalho Gestão de Uniformes.

NTXDRec

Variável numérica com o RECNO do registro processado, da tabela TXD – Itens Gestão de Uniformes.

NTXERec

Variável numérica com o RECNO do registro processado, da tabela TXD – Itens Troca Gestão de Uniformes. (quando houver).


Este ponto de entrada não possui retorno.


Os números dos registros (RECNOS) estarão disponíveis no PARAMIXB, na ordem descrita no quadro acima.


#include 'protheus.ch'
#include 'totvs.ch'

#Define CRLF CHR(13)+CHR(10)

User Function Ex894Req()

Local   cMsg := 'Os registros (RECNOS) manipulados no processo de exclusao foram: '+CRLF
        cMsg += CRLF
        cMsg += 'TXC (Cabecalho Gestao de Uniformes): '+Str(PARAMIXB[1])+' '+CRLF
        cMsg += 'TXD (Itens Gestao de Uniformes): '+Str(PARAMIXB[2])+' '+CRLF
        cMsg += 'TXE (Itens Troca Gestao de Uniforme): '+Str(PARAMIXB[3])+' '+CRLF

Aviso('Exclusao de Requisicao de Uniformes', cMsg,{'OK'},2)
    
Return



04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

  • Não há.