Histórico da Página

import.css=/download/attachments/327912/newLayout.css

...

...

...

Retorna um valor logico que permitira ou nao a exclusão do campo

CTBA220.PRW 

...

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