Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • F550VLD - Validação de Reposição de Caixinha -- 30170

Ponto-de-Entrada: F550VLD - Validação de Reposição de Caixinha
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: Espanhol , Inglês
Descrição: 
Ponto de entrada para validação das informações da reposição de caixinha.
Programa Fonte 
FINA550
Sintaxe

F550VLD - Validação de Reposição de Caixinha ( < aCmpVldU> ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aCmpVldU Array of Record Localidade : Brasil1. código do banco2. agência3. conta4. saldo atual5. moeda6. valor7. taxa da moedaLocalidade : outras1. código do banco2. agência3. conta4. saldo atual5. moeda6. débito7. tipo título8. núm. título9. data emissão10. vencimento11. valor 12. debitar título13. gerar mov. banc.14. aguardar autoriz. X
Retorno
    lRet(logico)
  • Se definido como .F. a gravação é bloqueada, caso contrário é dado continuidade no processo.
Exemplos 
#INCLUDE "Protheus.ch"User Function F550VLD()Local aAreaSA6	:= SA6->(GetArea())Local ni		:= 0Local cResp		:= ""Local lRet		:= .T.If ValType(ParamIXB[1]) == "A"	cResp := "Variaveis disponiveis para validação de usuario : " + CRLF	cResp += Replicate("-",50) + CRLF	For ni := 1 to Len(ParamIXB[1])		cResp += ParamIXB[1][ni][1] + " = " + IIf(ValType(ParamIXB[1][ni][2]) # "C", cValtoChar(ParamIXB[1][ni][2]), ParamIXB[1][ni][2]) + CRLF	Next ni	cResp += Replicate("-",50) + CRLFEndif                                MsgAlert(cResp,"PE F550VLD")dbSelectArea("SA6")SA6->(dbSetOrder(1))If SA6->(dbSeek(xFilial("SA6") + SET->(ET_BANCO + ET_AGEBCO + ET_CTABCO)))	If ParamIXB[1][5][2] # SA6->A6_MOEDA		MsgAlert("A moeda do banco selecionado precisa ser igual ao da moeda do banco do caixinha registrado!","PE F550VLD")		lRet := .F.	Else		MsgAlert("A moeda do banco selecionado precisa ser igual ao da moeda do banco do caixinha registrado!","PE F550VLD")	EndifEndifRestArea(aAreaSA6)Return lRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não