Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLSPA300 - Exportação de Registro
  • Criado por Usuário desconhecido (ana.lira), última alteração por admin em 24 jun, 2012

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