CTB220CDX - Valida borrado -- 109660

Descripción:

Devuelve un valor lógico que permitirá o no el borrado del campo

Eventos

se activa varias veces durante la función que Borra período deseado                                    

Programa fuente

CTBA220.PRW

Sintaxis

CTB220CDX - Valida borrado ( [ {"NOME DO ALIAS"} ] ) --> lRet

Parámetros:

Devolución
            lRet(logico)

            Indicador que dice si es posible o no el borrado

Ejemplos

	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	// Plan de cuentas	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 costo	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	// Ítems contables	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	// Clase 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	// Totales 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		// Numeración 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		// Asientos de cálculo con cuenta puente	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