FiveTech Software tech support forums

... de una base de datos. Para ello he modoifaco el programa como sigue: function InteractiveMessage() local oMail LOCAL cNumSini:=SPACE(18) LOCAL cNumPoliza:=SPACE(15) Use Siniestr cnumSini:=siniestr->Numsini DEFINE MAIL oMail ; SUBJECT "Siniestro "+cNumSini ; TEXT "Número de ...

... de una base de datos. Para ello he modoifaco el programa como sigue: function InteractiveMessage() local oMail LOCAL cNumSini:=SPACE(18) LOCAL cNumPoliza:=SPACE(15) Use Siniestr cnumSini:=siniestr->Numsini DEFINE MAIL oMail ; SUBJECT "Siniestro "+cNumSini ; TEXT "Número de ...

... de una base de datos. Para ello he modoifaco el programa como sigue: function InteractiveMessage() local oMail LOCAL cNumSini:=SPACE(18) LOCAL cNumPoliza:=SPACE(15) Use Siniestr cnumSini:=siniestr->Numsini DEFINE MAIL oMail ; SUBJECT "Siniestro "+cNumSini ; TEXT "Número de ...

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). ¿Pueden ayudarme?. Muchas gracias Puedes mostrar la lista que da errorsys para ver en que linea está el error y a la vez, puedes señalar en tu ...

... 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 == '"' + cNumPoliza + '"' DESCENDING Suerte ...

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 ...

MEMVAR cNumPoliza

cNumPoliza := SPACE(15)

... 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 ...

... donde se declara. Prueba utilizando scopes, o bien usa las forma funcional del comando index, construyendo las expresiones y usando el valor de cNumPoliza y no por referencia. Con Scopes, creas el índice (si no existe ya) y haces OrdScope( 0, cNumPoliza ) OrdScope( 1, cNumPoliza ) Eso es como ...

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 ...

... fFeSini 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 ...

... fFeSini 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 ...