topic-9083

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

problema con filtro urgente
Posted: Wed Dec 05, 2007 05:20 PM

Hola:

Quiero filtrar todas las facturas desde una serie y un numero hasta otra serie y el número final de esa serie.

Por ejemplo, desde la a1 a la b10, de modo que tiene que imprimir toda la serie A entera y de la B sólo hasta la 5.

Hago:

local ccondicion := "FIELD->FSERIE >= " +CHR(34)+cFSERIE1+CHR(34)+ " .AND. FIELD->FNUMERO >= " AllTrim( Str( nCodigo1 ) ) + ".AND. +" ;
"FIELD->FSERIE <= " +CHR(34)+cFSERIE2+CHR(34)+ " .AND. FIELD->FNUMERO <= " AllTrim( Str( nCodigo2 ) )

set filter to & cCondicion

Sin emabrgo, sólo me imprime de la a1 a la a5 y de la b1 a la b5. Falta el resto de la serie A. ¿Qué hago mal?.

Muchas garcias!!!!.

Salu2,

Moisés

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: problema con filtro urgente
Posted: Wed Dec 05, 2007 05:39 PM

MOISES wrote:Hola:

Quiero filtrar todas las facturas desde una serie y un numero hasta otra serie y el número final de esa serie.

Por ejemplo, desde la a1 a la b10, de modo que tiene que imprimir toda la serie A entera y de la B sólo hasta la 5.

Hago:

local ccondicion := "FIELD->FSERIE >= " +CHR(34)+cFSERIE1+CHR(34)+ " .AND. FIELD->FNUMERO >= " AllTrim( Str( nCodigo1 ) ) + ".AND. +" ;
"FIELD->FSERIE <= " +CHR(34)+cFSERIE2+CHR(34)+ " .AND. FIELD->FNUMERO <= " AllTrim( Str( nCodigo2 ) )

set filter to & cCondicion

Sin emabrgo, sólo me imprime de la a1 a la a5 y de la b1 a la b5. Falta el resto de la serie A. ¿Qué hago mal?.

Muchas garcias!!!!.

Salu2,

Moisés

Prueba con:
Str( nCodigo2, 10, 0 ) en vez de Str( nCodigo2 )

estás comprobando cadenas y no es lo mismo '1' que '1.00' por ejemplo.

Saludos
Carlos G.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

problema con filtro urgente
Posted: Wed Dec 05, 2007 05:57 PM

Lo primero seria recomendarte una solucion sin filtros, usando scope con un bucle While o similiar.

La sentencia para filtro debe ser del estilo

Code: Select all Collapse

local ccondicion := "      FIELD->FSERIE+Str(FIELD->FNUMERO,10) >= '"+cFSERIE1+ Str( nCodigo1,10 ) +;
                   "'.AND. FIELD->FSERIE+Str(FIELD->FNUMERO,10) <= '"+cFserie2+Str(nCodigo2,10)+"'"

Suponiendo fnumero un campo númerico, si es caracter quitar el Str(), y ajustar Str(nCodigo, longitud del campo de la tabla)

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

problema con filtro urgente
Posted: Sun Dec 09, 2007 07:25 PM

Muchas gracias, al final opté por SCOPES y funciona OK.

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

FiveTech Support Forums

Continue the discussion