Ponto-de-Entrada: GPA110EXC - Exclusão Cadastro Lançamentos Futuros
Abrangências: | Microsiga Protheus 10 |
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todas TotvsDbAccess |
Descrição:
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.
Programa Fonte
GPA110EXC.PRW
Sintaxe
GPA110EXC - Exclusão Cadastro Lançamentos Futuros ( ) --> lRet
Retorno
-
lRet(logico)
- Verdadeiro ou Falso (.T. ou .F.)
Observações
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.
Exemplos
#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 )
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas