PLSCOMEV - Composição de Procedimento

Fonte: PLSVLRPRO
Ponto de entrada  PLSCOMEV
 
É chamado dentro da função PLSCOMEVE que é responsável pela carga da composição de um procedimento, baseado na TDE.
O ponto de entrada é chamado antes de a função retornar os dados.
E possui a seguinte estrutura:
 
If ExistBlock('PLSCOMEV')
   aParPtoEnt := {aRet,cCodTab,cCodPad,cCodPro,dDatPro}
   aRet       := ExecBlock('PLSCOMEV',.F.,.F.,aParPtoEnt)
Endif
 
Os parâmetros passados são :
 
aRet – contem a composição do procedimento na seguinte estrutura:
            aRet[1]
...
...
...
aRet[N]
            
            Cada aRet[X] é composto da seguinte maneira:
 
aRet[X][1] - BD4->BD4_CODIGO
            aRet[X][2] - Str(BD3->BD3_ORDEM)
aRet[X][3] - valor de referencia,
aRet[X][4] - BD4->BD4_VLMED
            aRet[X][5] - BD4->BD4_PERACI
            aRet[X][6] - BD3->BD3_RDMAKE
            aRet[X][7] - BD3->BD3_UNIDAD
            aRet[X][8] - BD3->BD3_TIPVAL
            aRet[X][9] – considera fator multiplicador ? ( ‘0’ não ‘1’ sim )
            aRet[X][10] - considera horario especial ? ( ‘0’ não ‘1’ sim )
            aRet[X][11] - considera horario banda ? ( ‘0’ não ‘1’ sim )
            aRet[X][12] - considera porte medico ? ( ‘0’ não ‘1’ sim )
            aRet[X][13] – bloqueia o pagamento ? ( ‘0’ não ‘1’ sim )
 
cCodTab – Indica o código da TDE em que foram buscados os dados.
cCodPad – Indica o código do tipo da tabela .
cCodPro – Indica o código do procedimento.
dDatPro – Indica a data do procedimento.
 
 
Exemplo do uso do pto de entrada:
 
No caso abaixo utilizou-se o pto de entrada para não aplicar o horário especial no calculo do filme em todos os procedimentos que contem a unidade FIL.
 
User Function PLSCOMEV
LOCAL aRet := Paramixb[1]
LOCAL nI   := 1
 
For nI := 1  to Len(aRet)  
            If   aRet[nI][1] == GetNewPar('MV_YPLNHS','FIL')
                 aRet[nI][10] := '0'          
            Endif
Next
 
Return aRet
 

.PRW

PLSCOMEV - Composição de Procedimento ( < aRet[X]> , < cCodTab> , < cCodPad> , < cCodPro> , < dDatPro> ) --> aRet

aRet(vetor)
• Mesma estrutura da entrada