Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLS500OK- Validação de Campos da Guia
  • Criado por Usuário desconhecido (ana.lira), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: PLS500OK- Validação de Campos da Guia
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
O ponto de entrada PLS500OK é executado no início da função PLSA500BOK e valida a digitação de todos os campos da guia, logo após a declaração de variáveis.

Ele é executado sempre ao clicar no botão de confirmação de uma guia no contas médicas, seja ela consulta, serviço ou qualquer outro tipo.
Programa Fonte 
PLSA500.PRW
Sintaxe

PLS500OK- Validação de Campos da Guia ( < ParamIxb[1]> , < ParamIxb[2]> , < @ParamIxb[3]> , < @ParamIxb[4]> ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIxb[1] Caracter Tipo de Guia. X
ParamIxb[2] Numérico Tipo de movimentação. X
ParamIxb[3] Array of Record Array contento os dados do aHeader conforme guia. Sendo: aHeader[1] = aHeader BD5aHeader[2] = aHeader BD6aHeader[3] = aHeader BD7aHeader[4] = aHeader BE4 X X
ParamIxb[4] Array of Record Array contento os dados do aCols conforme guia. Sendo: aCols[1] = aCols BD5aCols[2] = aCols BD6aCols[3] = aCols BD7aCols[4] = aCols BE4 X X
Retorno
    lRet(logico)
  • .T. ou .F. devolvendo se a guia poderá ser confirmada ou não.
Observações

 Tipos de Guia:

1 -  Consulta

2 - Serviço

3 - Internação

4 - Reembolso

_____________________________________________________

_____________________________________________________

 

Tipos de movimentação:

1 - Pesquisar

2 - Visualizar

3 - Incluir

4 - Alterar

5 - Excluir

_____________________________________________________

Array aHeader

Array contento os dados do aHeader conforme guia.
Sendo:
aHeader[1]  = aHeader BD5
aHeader[2]  = aHeader BD6
aHeader[3]  = aHeader BD7
aHeader[4]  = aHeader BE4

_____________________________________________________

Array aCols

Array contento os dados do aCols conforme guia.
Sendo:
aCols[1]  = aCols BD5
aCols[2]  = aCols BD6
aCols[3]  = aCols BD7
aCols[4]  = aCols BE4

Exemplos 
User Function PLS500OK()	Local cTipoGuia	:=	paramixb[1] //Tipo da guia	Local nOpc    	:=	paramixb[2]	//Opcao	Local aTmpCols 	:=	paramixb[3] //aHeader	Local aTmpHead 	:=	paramixb[4] //aCols		Local nCols		:=	0   	Local cMsg		:=	""	Local lRet := .T.	//Customizações do usuário	If cTipoGuia == '01' .OR. cTipoGuia == '02'		For nCols := 1 to Len(aTmpCols)			If nCols == 1				cMsg += " aCols BD5 possue:" + Str(Len(aTmpCols[nCols])) + " itens." + chr(13)			ElseIf nCols == 2				cMsg += " aCols BD6 possue:" + Str(Len(aTmpCols[nCols])) + " itens." + chr(13)			ElseIf nCols == 3				cMsg += " aCols BD7 possue:" + Str(Len(aTmpCols[nCols])) + " itens." + chr(13)			ElseIf nCols == 4				cMsg += " aCols BE4 possue:" + Str(Len(aTmpCols[nCols])) + " itens." + chr(13)			EndIf		Next nCols		Alert(cMsg)		EndIf	Return(lRet)