GPA110EXC - Exclusão Cadastro Lançamentos Futuros -- 24180

Ponto de Entrada que possibilita a exclusão do registro na rotina Cadastro de Lançamentos Futuros (GPEA110). Se o retorno da função for verdadeiro (.T.) o registro será excluído.

GPA110EXC.PRW

GPA110EXC - Exclusão Cadastro Lançamentos Futuros ( ) --> lRet

lRet(logico)
• Verdadeiro ou Falso (.T. ou .F.)

No momento da exclusão, a tabela cadastro de Funcionários (SRA), estará posicionada no Funcionário que possui o Lançamento a ser excluído.

#INCLUDE "PROTHEUS.CH"/*                                        ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡…o    ³Gpa110Exc ³ Autor ³Microsiga              ³ Data ³ 13.11.09 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³ Valida a exclusao do Registro nos Lancamentos Futuros      ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³ Uso      ³ GpeA110                                                    ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ*/User Function Gpa110Exc()	Local cAliasSRC	:= "SRC"	Local cAliasRCK	:= "SRK"	Local nExistReg	:= 0  	Local nPosID	:= 0	Local cFil	:= SRA->RA_FILIAL	Local cMat	:= SRA->RA_MAT	Local lRet	:= .T.	nPosID	:= GdFieldPos( "RK_NUMID", aHeader )	cIDLcto	:= If( nPosID > 0, aCols[n,nPosID], "")		Alert("Passou pelo Ponto de Entrada: Gpa110Exc") 		cAliasSRC := GetNextAlias() 	cAliasRCK := GetNextAlias()	BeginSql Alias cAliasSRC		SELECT COUNT( RC_MAT ) MATMOVTO 		FROM %table:SRC%		WHERE	RC_FILIAL = %exp:cFil%	AND			RC_MAT = %exp:cMat%	AND			RC_NUMID = %exp:cIDLcto%	EndSql	BeginSql Alias cAliasRCK		SELECT COUNT( RCK_MAT ) MATLACTO		FROM %table:RCK%		WHERE	RCK_FILIAL = %exp:cFil%	AND			RCK_MAT = %exp:cMat%	AND			RCK_NUMID = %exp:cIDLcto%			EndSql		nExistReg += (cAliasSRC)->MATMOVTO	nExistReg += (cAliasRCK)->MATLACTO	/*/ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿	   ³Se existir algum Registro nos Lanc.Mensais (SRC) ou na Cta.³	   ³Corrente Val. Futuros (RCK) derivados do Lancamento que    ³	   ³esta sendo excluido, nao sera permitida a exclusao.        ³	   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ/*/                            	If nExistReg > 0		lRet := .F. 		Alert(	"O Registro nao pode ser excluído. Existem Lançamentos gerados "  + CRLF + ;			"Na(s) tabela(s): " + ;			If( (cAliasSRC)->MATMOVTO > 0, " SRC /", "" ) + ;			If( (cAliasRCK)->MATLACTO > 0, " RCK", "" ) )	EndIf	(cAliasSRC)->( DbCloseArea() )	(cAliasRCK)->( DbCloseArea() )Return( lRet )