Ponto-de-Entrada: F85ASDBCO - Valida informações bancárias
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol |
Descrição:
Ponto de Entrada que permite que, no momento da confirmação da Ordem de Pagamento, sejam validadas as informações bancárias em relação ao saldo, possibilitando ou não a baixa de títulos com valor superior ao saldo bancário.
Programa Fonte
FINA085A.PRW
Sintaxe
F85ASDBCO - Valida informações bancárias ( < cBanco> , < cAgencia> , < cConta> , < nValOrdens> , [ ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cBanco | Caracter | Código banco | X | ||||||||||||||
| cAgencia | Array of Record | Código da agência | X | ||||||||||||||
| cConta | Array of Record | Código da conta | X | ||||||||||||||
| nValOrdens | Array of Record | Valor da ordem de pago | X | ||||||||||||||
| Array of Record |
Retorno
-
lRet(logico)
- Define se será possível confirmar ou não a ordem de pago
Exemplos
User Function F85ASDBCO()Local aArea:=GetArea()Local lValid:= .T. Local nValLimite:= 300DbSelectArea('SA6')DbSetOrder(1) DbSeek(xFilial()+PARAMIXB[1]+PARAMIXB[2]+PARAMIXB[3])If PARAMIXB[4] > SA6->A6_SALATU .And. (PARAMIXB[4] - SA6->A6_SALATU ) <= nValLimite MsgAlert("Será utilizado o limite para baixar totalmente este titulo")ElseIf PARAMIXB[4] > SA6->A6_SALATU .And. (PARAMIXB[4] - SA6->A6_SALATU ) > nValLimite MsgAlert("Banco sem saldo e valor superior ao limite liberado") lValid:= .F.EndIfRestArea(aArea)Return lValid
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |