Home

Linha Microsiga Protheus

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

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
FI330EST - Manipulação de parâmetros na rotina de Estorno CR.
FI330EST - Manipulação de parâmetros na rotina de Estorno CR.

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
ParamixbArray of RecordCarrega 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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão