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:
Nombre | Tipo | Descripción | Estándar | Obligatorio | Referencia | ||||||||||||
{"NOMBRE DEL ALIAS"} | Cualquier | nombre del alias que se pretende borrar |
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