FiveTech Software tech support forums

... NEW Set index to I2Factur USE Siniestr NEW INDEX ON Siniestr->NumControl TO I1Sini DESCENDING SET INDEX TO I1Sini GO TOP SET RELATION TO NumPoliza INTO Polizas, NumControl INTO Facturas y realizo un LISTBOX así @ 1, 1 LISTBOX oLbx FIELDS aHBitmaps[ MAX(1,Recal(Siniestr->FechaNoti ))],; ...

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 == '"' ...

no se como se explicaria tecnicamente, pero el indice lo esta creando con cNumPoliza dentro de un area de "memoria" determinada, eso no significa q cuando cambies el valor de cNumPoliza se cambie automaticamente el indice por valor de la variable, eso solo te ...

... y el indice (marcado en rojo). FUNCTION ModiSini(oBrw) // Varios LOCAL cCiaAseg := SPACE(25) LOCAL cRefe := SPACE(7) LOCAL nRefe := 0 LOCAL cNumPoliza := SPACE(15) LOCAL cNumSini := SPACE(18) LOCAL cClaveCia := SPACE(12) LOCAL cRamo := SPACE(20) LOCAL cCondi := SPACE(15) LOCAL cSuperficie ...

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

Buenas tardes: Tengo un 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 ...

... PICTURE "@D" ID 13 OF oDlg REDEFINE GET fFeNotif PICTURE "@D" ID 14 OF oDlg REDEFINE GET fFeVisita PICTURE "@D" ID 15 OF oDlg REDEFINE GET cNumPoliza ID 16 OF oDlG SELE 2 SET INDEX TO I1Poliza SEEK cNumPoliza IF .NOT. EOF() cRamo:=Polizas->Ramo cNombre:=Polizas->Nombre cDomicilio:=Polizas->Domicilio ...

... PICTURE "@D" ID 13 OF oDlg REDEFINE GET fFeNotif PICTURE "@D" ID 14 OF oDlg REDEFINE GET fFeVisita PICTURE "@D" ID 15 OF oDlg REDEFINE GET cNumPoliza ID 16 OF oDlG SELE 2 SET INDEX TO I1Poliza SEEK cNumPoliza IF .NOT. EOF() cRamo:=Polizas->Ramo cNombre:=Polizas->Nombre cDomicilio:=Polizas->Domicilio ...