PLSCTVL - Manipula Valores

O ponto de entrada PLSCTVL é utilizado para manipular valores de cobrança de identificação de usuário (carteirinha).

PLSMFUN

PLSCTVL - Manipula Valores ( [ aValor ] ) --> aValor

aValor()
• Sendo aValoraValor[1] - (n) valor a ser cobradoaValor[2] - (c) conteudo do campo COBRAR (exemplo BJC_COBRAR)aValor[3] - (c) prefixo do titulo a ser gerado quando cobrado no atoaValor[4] - (c) numero do titulo a ser gerado quando cobrado no atoaValor[5] - (c) parcela do titulo a ser gerado quando cobrado no atoaValor[6] - (c) tipo do titulo a ser gerado quando cobrado no atoaValor[7] - (n) numero da próxima viaaValor[8] - (l) falso quando nao foi possivel gerar o titulo a receberaValor[9] - (n) recno do alias de onde veio a informacaoaValor[10] - (c) alias do nivel de onde veio a informacao

User Function PLSCTVLLOCAL aValor := paramixb[1]LOCAL nRecno := aValor[9]LOCAL cAlias := aValor[10] LOCAL cCodInt:= aValor[11]LOCAL cCodEmp:= aValor[12]LOCAL cMatric:= aValor[13]LOCAL cTipReg:= aValor[14]LOCAL cSQL   := ""LOCAL nValor := 0If BJC->(FieldPos("BJC_XCOMPV")) == 0   Final("Campo BJC_XCOMPV nao criado. Fundamental para utilizacao do ponto de entrada PLSCTVL")Endif BJC->(DbGoTo(nRecno)) If cAlias == "BJC" .And. BJC->BJC_XCOMPV == "2"   cSQL := "SELECT BM1_VALOR FROM "+RetSQLName("BM1")+" WHERE "   cSQL += "BM1_FILIAL = '"+xFilial("BM1")+"' AND "   cSQL += "BM1_CODINT = '"+cCodInt+"' AND "   cSQL += "BM1_CODEMP = '"+cCodEmp+"' AND "   cSQL += "BM1_MATRIC = '"+cMatric+"' AND "   cSQL += "BM1_TIPREG = '"+cTipReg+"' AND "   cSQL += "BM1_CODTIP = '101' AND "   cSQL += "D_E_L_E_T_ = ''"   PLSQuery(cSQL,"PLSCTVL")      While ! PLSCTVL->(Eof())         nValor := PLSCTVL->BM1_VALOR   PLSCTVL->(DbSkip())   Enddo   //para parar no ultimo   If nValor > 0      aValor[1] := (nValor*BJC->BJC_VALOR)/100   Endif   PLSCTVL->(DbCloseArea())   DbSelectArea("BA1")   Endif Return(aValor)