Page tree
Skip to end of metadata
Go to start of metadata

Ponto-de-Entrada: CTB220CDX - Valida exclusão
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:
Retorna um valor logico que permitira ou nao a exclusão do campo
Eventos

é chamada varias vezes durante a função que Apaga periodo desejado                                    

Programa Fonte
CTBA220.PRW 
Sintaxe

CTB220CDX - Valida exclusão ( [ {"NOME DO ALIAS"} ] ) --> lRet

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
{"NOME DO ALIAS"}Qualquernome do alias quel pretende-se excluir
Retorno
    lRet(logico)
  • Indicador que diz se é possivel ou não a exclusão
Exemplos
	dbSelectArea("CT2")	dbSetOrder(1)	dbSeek(xFilial()+DTOS(dDataIni),.T.)	While !Eof() .And. xFilial() == CT2->CT2_FILIAL .And.;			DTOS(CT2->CT2_DATA) <= DTOS(dDataFim)					If lCtb220Cdx			lRet := ExecBlock("CTB220CDX",.f.,.f.,{"CT2"})			If !lRet				dbSelectArea("CT2")				dbSkip()				Loop			EndiF				EndIf					RecLock("CT2",.F.,.T.)		dbDelete()		MsUnlock()		dbSkip()	EndDo	// Plano de Contas	dbSelectArea("CT7")	dbSetOrder(4)	dbSeek(xFilial()+DTOS(dDataIni),.T.)	While !Eof() .And. xFilial() == CT7->CT7_FILIAL .And.;			DTOS(CT7->CT7_DATA) <= DTOS(dDataFim)					If lCtb220Cdx			lRet := ExecBlock("CTB220CDX",.f.,.f.,{"CT7"})			If !lRet				dbSelectArea("CT7")				dbSkip()				Loop			EndiF				EndIf					RecLock("CT7",.F.,.T.)		dbDelete()		MsUnlock()			dbSkip()	EndDo	// Centro de Custo	dbSelectArea("CT3")	dbSetOrder(3)	dbSeek(xFilial()+DTOS(dDataIni),.T.)	While !Eof() .And. xFilial() == CT3->CT3_FILIAL .And.;			DTOS(CT3->CT3_DATA) <= DTOS(dDataFim)					If lCtb220Cdx			lRet := ExecBlock("CTB220CDX",.f.,.f.,{"CT3"})			If !lRet				dbSelectArea("CT3")				dbSkip()				Loop			EndiF				EndIf					RecLock("CT3",.F.,.T.)		dbDelete()		MsUnlock()		dbSkip()	EndDo	// Itens Contabeis	dbSelectArea("CT4")	dbSetOrder(3)	dbSeek(xFilial()+DTOS(dDataIni),.T.)	While !Eof() .And. xFilial() == CT4->CT4_FILIAL .And.;			DTOS(CT4->CT4_DATA) <= DTOS(dDataFim)					If lCtb220Cdx			lRet := ExecBlock("CTB220CDX",.f.,.f.,{"CT4"})			If !lRet				dbSelectArea("CT4")				dbSkip()				Loop			EndiF				EndIf					RecLock("CT4",.F.,.T.)		dbDelete()		MsUnlock()		dbSkip()	EndDo	// Classe de Valor	dbSelectArea("CTI")	dbSetOrder(3)	dbSeek(xFilial()+DTOS(dDataIni),.T.)	While !Eof() .And. xFilial() == CTI->CTI_FILIAL .And.;			DTOS(CTI->CTI_DATA) <= DTOS(dDataFim)					If lCtb220Cdx			lRet := ExecBlock("CTB220CDX",.f.,.f.,{"CTI"})			If !lRet				dbSelectArea("CTI")				dbSkip()				Loop			EndiF				EndIf					RecLock("CTI",.F.,.T.)		dbDelete()		MsUnlock()		dbSkip()	EndDo	// Totais de Lote	dbSelectArea("CT6")	dbSetOrder(1)	dbSeek(xFilial()+DTOS(dDataIni),.T.)	While !Eof() .And. xFilial() == CT6->CT6_FILIAL .And.;			DTOS(CT6->CT6_DATA) <= DTOS(dDataFim)					If lCtb220Cdx			lRet := ExecBlock("CTB220CDX",.f.,.f.,{"CT6"})			If !lRet				dbSelectArea("CT6")				dbSkip()				Loop			EndiF				EndIf					RecLock("CT6",.F.,.T.)		dbDelete()		MsUnlock()		dbSkip()	EndDo	// Totais de Documento	dbSelectArea("CTC")	dbSetOrder(1)	dbSeek(xFilial()+DTOS(dDataIni),.T.)	While !Eof() .And. xFilial() == CTC->CTC_FILIAL .And.;			DTOS(CTC->CTC_DATA) <= DTOS(dDataFim)					If lCtb220Cdx			lRet := ExecBlock("CTB220CDX",.f.,.f.,{"CTC"})			If !lRet				dbSelectArea("CTC")				dbSkip()				Loop			EndiF				EndIf					RecLock("CTC",.F.,.T.)		dbDelete()		MsUnlock()		dbSkip()	EndDo		// Numeracao de Lote / Documento	dbSelectArea("CTF")	dbSetOrder(1)	dbSeek(xFilial()+DTOS(dDataIni),.T.)	While !Eof() .And. xFilial() == CTF->CTF_FILIAL .And.;			DTOS(CTF->CTF_DATA) <= DTOS(dDataFim)					If lCtb220Cdx			lRet := ExecBlock("CTB220CDX",.f.,.f.,{"CTF"})			If !lRet				dbSelectArea("CTF")				dbSkip()				Loop			EndiF				EndIf					RecLock("CTF",.F.,.T.)		dbDelete()		MsUnlock()		dbSkip()	EndDo		// Lancamentos de apuração com conta ponte	dbSelectArea("CTZ")	dbSetOrder(1)	dbSeek(xFilial()+DTOS(dDataIni),.T.)	While !Eof() .And. xFilial() == CTZ->CTZ_FILIAL .And.;			DTOS(CTZ->CTZ_DATA) <= DTOS(dDataFim)					If lCtb220Cdx			lRet := ExecBlock("CTB220CDX",.f.,.f.,{"CTZ"})			If !lRet				dbSelectArea("CTZ")				dbSkip()				Loop			EndiF				EndIf					RecLock("CTZ",.F.,.T.)		dbDelete()		MsUnlock()		dbSkip()	EndDo