F330EXCOMP - Valida exclusãoestorno da compensação -- 90889

Ponto-de-Entrada: F330EXCOMP - Valida exclusão/estorno da compensação

Abrangências:	Microsiga Protheus 10 , Microsiga Protheus 11
Versões:	Microsiga Protheus 10 , Microsiga Protheus 11 , Todas
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 F330EXCOMP efetua validações adicionais na exclusão/estorno da compensação de Contas a receber. Este ponto de entrada identifica através do terceiro parâmetro em qual operação está sendo realizada (5=Estorno e 4=Exclusão).

Eventos

Programa Fonte

FINA330.PRX

Sintaxe

F330EXCOMP - Valida exclusão/estorno da compensação ( [ ParamIxb ] ) --> lRet

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

ParamIxb

Array of Record

Array contendo na sua estrura dois arrays (aTitulos, aRegistros e nOpcao). O array aTitulos corresponde aos títulos marcados para estorno/exclusão da compensação, enquanto o aRegistros armazena o recno de cada registro na tabela SE5 com relação à compensação.E a variável nOpcao contém o número referente a operação que está sendo executada (5=Estorno e 4=Exclusão).Cada array contém a seguinte estrutura:ParamIxb:[01] - aTitulos[02] - aRegistrosaTitulos:[01] - Prefixo[02] - Número[03] - Parcela[04] - Tipo[05] - Loja[06] - Data[07] - Documento (Pref.+Num.+Parc.+Tipo) compensado[08] - Sequência (E5_SEQ)[09] - Valor líquido[10] - Valor compensado[11] - Lógico (true)[12] - FilialaRegistros:[01] - Recno do registro na tabela SE5

Retorno

lRet

Retorno da validação quando efetuado o estorno/exclusão da compensação. Caso o retorno seja verdadeiro, a operação de exclusão/estorno será efetivada. Caso seja falso, a operação é abortada e os registros permanecem íntegros.

Observações

Exemplos

#INCLUDE "TbiConn.ch"#INCLUDE "PROTHEUS.CH"#INCLUDE "FILEIO.CH"User Function F330EXCOMP()Local aTit	:= aClone(ParamIxb[1])Local aReg	:= aClone(ParamIxb[2])    Local nOpcao:= ParamIxb[3]    Local lRet := .F.If Len(aTit) > 0 .And. Len(aReg) > 0	If nOpcao == 5 //Estorno		    If MsgYesNo("Confirma o Estorno de compensação?")	        lRet := .T.	     EndIf		ElseIf nOpcao == 4 //Exclusao	    If MsgYesNo("Confirma a Exclusão de compensação?")	       lRet := .T.	    Endif		EndIf	EndIfReturn lRet

Home

Linha Microsiga Protheus

Páginas filhas