FiveTech Software tech support forums

Code: Select all  Expand view

set filter to payments->consortium = nncons .and. discounts(payments->liqdate)<=discounts(dfliq) .and. ! Payments->paid
oBrw:GoTop()
oBrw:Refresh()
 

Code: Select all  Expand view

INDEX ON <expKey> [TAG <cOrderName>] [TO <cOrderBagName>]
        [FOR <lCondition>] [ALL]
        [WHILE <lCondition>] [NEXT <nNumber>]
        [RECORD <nRecord>] [REST]
        [EVAL <bBlock>] [EVERY <nInterval>]
        [UNIQUE] [ASCENDING|DESCENDING]
        [USECURRENT] [ADDITIVE]
        [CUSTOM] [NOOPTIMIZE] [MEMORY] [TEMPORARY]
 

Code: Select all  Expand view

#command INDEX ON <key> [TAG <(tag)>] TO <(bag)> ;
      [FOR <for>][ WHILE < while > ][ NEXT < next > ] ;
      [RECORD <rec>][ < rest:REST > ][ < all:ALL > ] ;
      [EVAL <eval>][ EVERY < every > ][ < unique: UNIQUE > ] ;
      [<ascend: ASCENDING>][ < descend: DESCENDING > ] ;
      [<add: ADDITIVE>][ < cur: USECURRENT > ][ < cust: CUSTOM > ] ;
      [<noopt: NOOPTIMIZE>][ < mem: MEMORY, TEMPORARY > ] ;
      [<filter: USEFILTER>][ < ex: EXCLUSIVE > ] => ;
      ordCondSet( < "for" >, < { for } >,[ < .all. > ], < { while } >, ;
      <{ eval } >, < every >, RecNo(), < next >, < rec >, ;
      [<.rest.>],[ < .descend. > ],, ;
      [<.add.>],[ < .cur. > ],[ < .cust. > ],[ < .noopt. > ], ;
      <"while" >,[ < .mem. > ],[ < .filter. > ],[ < .ex. > ] ) ;;
      ordCreate( < ( bag ) >, < ( tag ) >, < "key" >, < { key } >,[ < .unique. > ] )

 

José Camilo wrote:Karinha. gracias por contestarme. hoy x hoy tu solucion me supera. no la entiendo mucho. perdon.

Code: Select all  Expand view

   // set filter to pagos->consorcio = nncons .and. dtos(pagos->fechliq)<=dtos(dfliq) .and. ! Pagos->pagado


   LOCAL cAlias

   SELECT( PAGOS )
   GO TOP

   cAlias := ALIAS()

   // Mira que TAG es la ultima de PAGOS.CDX + 1 aqui:
   INDEX ON CONSORCIO TAG 03 TO CONSTEMP FOR ( .NOT. EOF() )           .AND. ;
      ( cAlias )->consorcio = nnCons                                   .AND. ;
      ( cAlias )->dtos( ( cAlias )->fechliq <= dtos( dfliq ) )         .AND. ;
      ( cAlias )->( cAlias )->pagado = [N] MEMORY // TEMPORARY

   GO TOP

   IF EOF()

      ? [ERROR, VACIO! ALGO ERRADO."

   ENDIF

   BROWSE()

karinha wrote:

José Camilo wrote:Karinha. gracias por contestarme. hoy x hoy tu solucion me supera. no la entiendo mucho. perdon.

Code: Select all  Expand view

   // set filter to pagos->consorcio = nncons .and. dtos(pagos->fechliq)<=dtos(dfliq) .and. ! Pagos->pagado


   LOCAL cAlias

   SELECT( PAGOS )
   GO TOP

   cAlias := ALIAS()

   // Mira que TAG es la ultima de PAGOS.CDX + 1 aqui:
   INDEX ON CONSORCIO TAG 03 TO CONSTEMP FOR ( .NOT. EOF() )           .AND. ;
      ( cAlias )->consorcio = nnCons                                   .AND. ;
      ( cAlias )->dtos( ( cAlias )->fechliq <= dtos( dfliq ) )         .AND. ;
      ( cAlias )->( cAlias )->pagado = [N] MEMORY // TEMPORARY

   GO TOP

   IF EOF()

      ? [ERROR, VACIO! ALGO ERRADO."

   ENDIF

   BROWSE()

Close the Filter:

https://vivaclipper.wordpress.com/2014/01/18/orddestroy/

Regards, saludos.