Lo que pasa es que estoy corriendo un ciclo, pero eventualmente necesito cancelarlo. Es posible que sea una pregunta un poco tonta pero no se como hacer esto.
Saludos
- Code: Select all Expand view
IF nRegistros#0
oConsCA:MoveFirst()
Do While !oConsCA:Eof()
vR_Ter:=if(valtype(oConsCA:Fields( "docu_terce" ):Value)="U",space(0),oConsCA:Fields( "docu_terce" ):Value)
vR_Con:=if(valtype(oConsCA:Fields( "id_compraventa" ):Value)="U",0,oConsCA:Fields( "id_compraventa" ):Value)
vR_Pro:=oConsCA:Fields( "id_proyecto" ):Value
vR_Lot:=if(valtype(oConsCA:Fields( "id_lote" ):Value)="U",0,oConsCA:Fields( "id_lote" ):Value)
vR_Tip:=if(valtype(oConsCA:Fields( "id_tipo_lote" ):Value)="U",0,oConsCA:Fields( "id_tipo_lote" ):Value)
vR_Maz:=if(valtype(oConsCA:Fields( "id_manzana" ):Value)="U",0,oConsCA:Fields( "id_manzana" ):Value)
vConsCB:="INSERT INTO lyma_cobro_serv (ss_regist,ss_estado,ss_tercer,ss_contra,ss_lotesp,ss_tiplot,ss_manzan,ufecha,uhoras) VALUES ('"+;
alltrim(vFReg)+"','A','"+alltrim(vR_Ter)+"',"+alltrim(str(vR_Con))+","+;
alltrim(str(vR_Lot))+","+alltrim(str(vR_Tip))+","+alltrim(str(vR_Maz))+",'"+vFec+"','"+vTim+"')"
TRY
oCon:Execute(vConsCB)
CATCH oError
FW_ShowAdoError(oCon)
END
oConsCA:MoveNext()
oProgress2:nPosition++
sysrefresh()
EndDo
ENDIF