append from en uno me funciona en otro no

[Adolfredo Martinez]

Estoy haciendo append from.

Estoy practicando con ejemplo que hago aparte y me funciona este es el codigo:

Code: Select all  Expand view

#include "fivewin.ch"

static AMTIME
function Main()
local oWnd, oBrw, ofont

   use tempcustomer
   
  APPEND FROM customer.dbf FOR field->state="MA"

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-12

   
   DEFINE WINDOW oWnd
   oWnd:SetFont( oFont )

   @ 0,0 XBROWSE oBrw ;
      COLUMNS 'First', 'Last','City' , 'State' ;
      OF oWnd ;
      ALIAS 'tempcustomer' ;
      LINES CELL

   oBrw:CreateFromCode()
   oWnd:oClient := oBrw

   SET MESSAGE OF oWnd TO "XBrowse Vertical Fonts" 2007
   ACTIVATE WINDOW oWnd

return nil

Pero cuando estoy haciendo ya el mio,el que necesito este es el codigo:

Code: Select all  Expand view

#include "fivewin.ch"

static AMTIME
function Main()
local oWnd, oBrw, ofont

   use tempava
   
  APPEND FROM avaluo1.dbf FOR field->codip02="010200010013000001001"

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-12

   
   DEFINE WINDOW oWnd
   oWnd:SetFont( oFont )

   @ 0,0 XBROWSE oBrw ;
      COLUMNS 'codip02', 'vigip02','avaip02' ;
      OF oWnd ;
      ALIAS 'tempava' ;
      LINES CELL

   oBrw:CreateFromCode()
   oWnd:oClient := oBrw

   SET MESSAGE OF oWnd TO "XBrowse Vertical Fonts" 2007
   ACTIVATE WINDOW oWnd

return nil


 

No me muestra la informacion en el browse, sale vacio, que estoy haciendo mal

[nageswaragunupudi]

Possible that there are no records matching the FOR condition.

[Pg_cts]

Buenas

Prueba a poner

Go Top

tras el append from.

Saludos

[karinha]

Code: Select all  Expand view

// C:\FWH..\SAMPLES\ADOLFRE.PRG

#include "fivewin.ch"

STATIC oWnd

FUNCTION Main()

   FIELD FIRST

   LOCAL oBrw, oFont

   USE CUSTOMER
   GO TOP

   LOCATE FOR FIELD->FIRST = "Homer"

   IF FOUND()
   
      IF .NOT. FILE( "TEMPAVA.DBF" )

         COPY STRUCT TO TEMPAVA.DBF

      ENDIF

      CLOSE DATABASE

      USE TEMPAVA

      GO TOP

      IF .NOT. EOF()

         ZAP

      ENDIF

      APPEND FROM CUSTOMER.DBF FOR FIELD->FIRST = "Homer" .AND. .NOT. EOF()

      GO TOP

   ELSE

      MsgInfo( "Field Not Found", "Field Not Found" )

      RETURN NIL

   ENDIF

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0, - 12

   DEFINE WINDOW oWnd

   oWnd:SetFont( oFont )

   @ 0, 0 XBROWSE oBrw COLUMNS 'FIRST', 'LAST', 'STREET' OF oWnd ;
      ALIAS 'TEMPAVA' LINES CELL

   oBrw:CreateFromCode()

   oWnd:oClient := oBrw

   SET MESSAGE OF oWnd TO "XBrowse Vertical Fonts" 2007

   ACTIVATE WINDOW oWnd CENTERED

   oFont:End()

RETURN nil

// FIN - kapiabafwh@gmail.com
 

Regards, saludos.

[Adolfredo Martinez]

Gracias Amigos del forum. Por sus colaboracion.

Ya lo solucione.