Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • FI330EST - Manipulação de parâmetros na rotina de Estorno CR. -- 112340

Ponto-de-Entrada: FI330EST - Manipulação de parâmetros na rotina de Estorno CR.
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: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
O ponto de entrada FI330EST manipula os parâmetros usados para filtros de títulos na rotina de Estorno e Exclusão, na Compesação de títulos a receber.
Programa Fonte 
FINA330.PRX
Sintaxe

FI330EST - Manipulação de parâmetros na rotina de Estorno CR. ( [ Paramixb ] ) --> nRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Paramixb Array of Record Carrega informação da operação escolhida: Sendo 5 - Estorno e 4 - Excluir no Paramixb[1], e no Paramixb[2], os campos da tela de parâmetros para filtrar os títulos, no total seis campos.
Retorno
    nRet(numerico)
  • Retorno igual a "1" confirma o processo. Retorno igual a "2", aborta.
Exemplos 
User Function FI330EST Local nAcao   := Paramixb[1]Local aCampos := Paramixb[2]Local x       := 0Local nReturn := 0 Local cOper   := ""If nAcao == 5 .Or. nAcao == 4	cOper := IIf( nAcao == 5, "ESTORNO CANCELADO", "EXCLUSÃO CANCELADA" )EndIfFor x := 1 to Len( aCampos )      If x == 1 .And. Empty( aCampos[x] )     	cOper += " - Campo 'Prefixo' Vazio"  		nReturn += 1   ElseIf x == 3 .And. Empty( aCampos[x] )     	cOper += " - Campo 'Parcela' Vazio"  	  	nReturn += 1   EndIf   Next    If MsgYesNo( IIf( nReturn == 0, " DESEJA PROSSEGUIR? ", cOper + " DESEJA PROSSEGUIR?" ) )   Return 1Else	   Return 0EndIf
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não