Ponto-de-Entrada: PLSPA300 - Exportação de Registro
| Abrangências: | Microsiga Protheus 10 |
| Versões: | Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Este ponto de entrada permite verificar a possibilidade de exportar um registro para o arquivo do PTU 300.
Eventos
No momento da geração do arquivo.
Programa Fonte
PLSUA300
Sintaxe
PLSPA300 - Exportação de Registro ( [ ] ) --> lSkipRecord
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lSkipRecord(logico)
- Se verdadeiro (.T.) o registro não será enviado no arquivo.
Observações
No monento da chamada do ponto de entrada, o registro da query esta poscionado.
Os seguintes campos podem ser usados para verificação e decisão para envio do arquivo do PTU.
| Campo | Descrição |
| BA1_DATINC | Data Inclusao do Usuario |
| BA1_DATBLO | Data do Bloqueio |
| BA1_CODINT | Operadora |
| BA1_CODEMP | Cod Empresa |
| BA1_MATRIC | Matricula do Usuario |
| BA1_TIPREG | Tipo do Registro |
| BA1_GRAUPA | Grau de Parentesco |
| BA1_DATNAS | Data de Nascimento |
| BA1_DIGITO | Digito |
| BA1_RECNO | RECNO BAI |
| BF4_DATBAS | Data Base |
| BF4_DATBLO | Data Bloqueio |
| BF4_CODPRO | Cod.Plano |
Exemplos
User Function PLSPA300() Local lSkipRecord := .F. //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Verifica a data boqueio. ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If Empty(QRY->BA1_DATBLO) lSkipRecord := .T. EndIf Return lSkipRecord
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |