Histórico da Página
01. DADOS GERAIS
| Produto: |
| ||||||||
|---|---|---|---|---|---|---|---|---|---|
| Linha de Produto: |
| ||||||||
| Segmento: |
| ||||||||
| 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.
...
| Bloco de código |
|---|
#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á.
| Templatedocumentos |
|---|
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas