| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Gerar Programação (MDTA190) |
| País: | Brasil |
| Ticket: | Não há. |
| Issue: | Não há. |
Ponto de entrada MDTA190Fil criado na rotina Gerar Programação (MDTA190) para possibilitar que o sistema realize o seguinte tratamento: no momento de gerar Exames por Filial para os funcionários, para cada um dos exames deste tipo, será chamado o ponto de entrada que deverá retornar um conteúdo verdadeiro (.T.) ou falso (.F.), indicando se este exame deverá ser gerado para o funcionário ou não.
| Ponto de Entrada | MDTA190Fil() |
|---|---|
| Chamada | No momento da geração de Exames por Filial. |
| Pré-Requisito | Realizar a inclusão de uma Programação de Exames. |
| Evento | Tratamento na geração de Exames por Filial. |
| Retorno | Indica se o exame deverá ou não ser gerado para o funcionário. |
| Função | MDTA190Fil() |
|---|---|
| Parâmetros | Local lRet, booleano, se o campo Centro de Custo existir na tabela de Exames por Filial, somente será gerado este exame para os funcionários pertencentes ao Centro de Custo informado. |
| Retorno | lRet, booleano, retorna verdadeiro ou falso indicando se o Exame por Filial deverá ser gerado para o funcionário. |
#include "Protheus.ch"
User Function MDTA190Fil
Local lRet := .t. /*Se o campo Centro de Custo existir na tabela de Exames por Filial,
somente será gerado este exame para os funcionários pertencentes ao C.Custo informado.*/
If TN9->(FieldPos("TN9_CC")) > 0
If SRA->RA_CC != TN9->TN9_CC
lRet := .f.
Endif
Endif
Return lRet |