Ponto-de-Entrada: F060VLOK - Validação de informações no borderô
| Abrangências: | Microsiga Protheus 10 |
| Versões: | Todas |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
Descrição:
Este Ponto de Entrada permite que o usuário faça a validação das informações na tela onde são informados os parâmetros, para geração do borderô a receber. O mesmo será executado após clicar no botao OK, para a inclusão deste registro.
Programa Fonte
FINA060.PRX
Sintaxe
F060VLOK - Validação de informações no borderô ( [ cNumBor ], [ cPort060 ], [ cAgen060 ], [ cConta060 ], [ cSituacao ], [ dVencIni ], [ dVencFim ], [ nLimite ], [ nMoeda ], [ cContrato ], [ dEmisDe ], [ dEmisAte ], [ cCliDe ], [ cCliAte ] ) --> aRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cNumBor | Caracter | Número do Borderô. | |||||||||||||||
| cPort060 | Array of Record | Portador. | |||||||||||||||
| cAgen060 | Array of Record | Agência. | |||||||||||||||
| cConta060 | Array of Record | Conta. | |||||||||||||||
| cSituacao | Array of Record | Situação. | |||||||||||||||
| dVencIni | Array of Record | Data de Vencimento Inicial. | |||||||||||||||
| dVencFim | Array of Record | Data de Vencimento Final. | |||||||||||||||
| nLimite | Array of Record | Limite Valor. | |||||||||||||||
| nMoeda | Array of Record | Moeda. | |||||||||||||||
| cContrato | Array of Record | Contrato. | |||||||||||||||
| dEmisDe | Array of Record | Data Emissão De. | |||||||||||||||
| dEmisAte | Array of Record | Data Emissão Até. | |||||||||||||||
| cCliDe | Array of Record | Cliente De. | |||||||||||||||
| cCliAte | Array of Record | Cliente Até. |
Retorno
-
aRet(array_of_record)
- Retorna um array com 14 posições seguindo as informações dos parâmetros passando no ponto de entrada. Caso o ponto de entrada retorne o conteúdo FALSO, o processo não será realizado mantendo a tela de parâmetros para a geração do borderô.
Exemplos
User Function F060VLOK()Local cNumBor := paramixb[1]Local cPort060 := paramixb[2]Local cAgen060 := paramixb[3]Local cConta060 := paramixb[4]Local cSituacao := paramixb[5]Local dVencIni := paramixb[6]Local dVencFim := paramixb[7]Local nLimite := paramixb[8]Local nMoeda := paramixb[9]Local cContrato := paramixb[10]Local dEmisDe := paramixb[11]Local dEmisAte := paramixb[12]Local cCliDe := paramixb[13]Local cCliAte := paramixb[14] alert("Numero do bordero: "+cNumBor)alert("Portador: "+cPort060)alert("Agencia: "+cAgen060)alert("Conta: "+cConta060)alert("Situaçao: "+cSituacao)alert("data de vencimento inicial: "+DtoS(dVencIni))alert("data de vencimento final: "+DtoS(dVencFim))alert("limite: "+STR(nLimite))alert("moeda: "+STR(nMoeda))alert("Contrato: "+cContrato)alert("data de emissao inicial: "+DtoS(dEmisDe))alert("data de emissao final: "+DtoS(dEmisAte))alert("cliente de: "+cCliDe)alert("cliente ate: "+cCliAte) Return .F.