FiveTech Software tech support forums

Quizás llego tarde, he visto un hilo muy largo. Intenta declarar el índice así: INDEX ON Garant->NumPoliza TO TEMPORAL; FOR Garant->NumPoliza == '"' + &(cNumPoliza) + '"' DESCENDING ó así: INDEX ON Garant->NumPoliza TO TEMPORAL; FOR Garant->NumPoliza ...

... el indice por valor de la variable, eso solo te va a servir para el momento que hiciste el INDEX crea el indice temporal dentro de la funcion garant... si no crea un indice principal index on garant->NumPoliza tag Poliza to garant abre la dbf use garant index garant asi siempre mantienes ...

... LOCAL iLd := .f. cRefe:=Siniestr->NumControl CLOSE DATABASES SELE 1 USE Siniestr NEW SELE 2 USE Polizas NEW SELE 3 USE Contrari NEW SELE 4 USE Garant NEW SELE 5 USE CiaAseg NEW SELE 1 SET INDEX TO I1Sini DbSeek(cRefe) cNumSini:=Siniestr->NumSini cNumPoliza:=Siniestr->NumPoliza fFeSini:=Siniestr->FechaSini ...

karinha wrote:cNumPoliza := ( Garant )->NumPoliza

Gracias por contestar, pero cNumPoliza es una variable que está pasada a la función "garan".

Un saludo

cNumPoliza := ( Garant )->NumPoliza

... problema con una pequeña parte de código. Al borrar un registro, da error (BASE1003 no existe al variable cNumPoliza). El código es: // Programa Garantias de pólizas 2008 #include "FiveWin.ch" #include "d:\personal\FWH\ts\TSBrowse\Include\TSBrowse.ch" static oWnd Function garan (oLb,cNumPoliza) ...

... REDEFINE GET cTelefono ID 23 OF oDlg REDEFINE GET cPoblacion ID 22 OF oDlg END IF REDEFINE GET cNota ID 20 OF oDlg /* REDEFINE LISTBOX oLb FIELDS Garant->NumGaranti,Garant->Garantia,STR(Garant->CapitalIni); HEADERS "Nº Póliza","Garantía","Capital" ID 21 OF oDlg SELE 1 INDEX ON Siniestr->NumPoliza ...

... REDEFINE GET cTelefono ID 23 OF oDlg REDEFINE GET cPoblacion ID 22 OF oDlg END IF REDEFINE GET cNota ID 20 OF oDlg /* REDEFINE LISTBOX oLb FIELDS Garant->NumGaranti,Garant->Garantia,STR(Garant->CapitalIni); HEADERS "Nº Póliza","Garantía","Capital" ID 21 OF oDlg SELE 1 INDEX ON Siniestr->NumPoliza ...