Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLS001VLRS - Tratamento da valorização na guia de reembolso.
  • Criado por Usuário desconhecido (nayland), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: PLS001VLRS - Tratamento da valorização na guia de reembolso.
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: 
Tratamento da valorização na guia de reembolso.
Programa Fonte 
PLSA001
Sintaxe

PLS001VLRS - Tratamento da valorização na guia de reembolso. ( [ lRet1 ], [ aRet2 ], [ aRet3 ], [ cCodProd ], [ cCodTab ], [ cCodRda ], [ cCodEsp ], [ aCritic ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
lRet1 Lógico Se há alguma critica
aRet2 Array of Record Valor total do procedimento
aRet3 Array of Record Valor total da Guia
cCodProd Array of Record Código do procedimento
cCodTab Array of Record Código da tabela
cCodRda Array of Record Código da RDA
cCodEsp Array of Record Código da especialidade
aCritic Array of Record Contem as críticas
Retorno
    (logico)
Exemplos 
User Function PLS001VLRS()Local i			:=0Local lRet1		:=Paramixb[1] // se há alguma criticaLocal aRet2		:=Paramixb[2] // Total do procedimentoLocal aRet3		:=Paramixb[3] // Total da GuiaLocal cCodProd	:=Paramixb[4] // Codigo do procedimentoLocal cCodTab	:=Paramixb[5] // Codigo da tabela Local cCodTab	:=Paramixb[6] // Matricula Local cCodRda	:=Paramixb[7] // RDALocal cCodEsp	:=Paramixb[8] // Codigo da EspecialidadeLocal aCritic	:=Paramixb[9] // CriticasFor i=1 to Len(aRet2)	nVlrPagPro	:=aRet2[1] // Valor pago do procedimento	nVlrManPro	:=aRet3[2] // Valor vase pagamento	nVlrGloPro	:=aRet3[3] // Valor da glosa	nVlrBprPro  :=aRet3[4] // Valor contratadoNext i                    For i=1 to Len(aRet3)	nVlrPagGui	:=aRet3[1] // Valor pago do procedimento 	nVlrManGui	:=aRet3[2] // Valor vase pagamento	nVlrGloGui	:=aRet3[3] // Valor da glosa	nVlrBprGui	:=aRet3[4] // Valor contratadoNext iReturn({lRet1,aRet2,aRet3})
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não