append from en uno me funciona en otro no

Posts: 141

Joined: Fri Feb 15, 2019 01:37 PM

append from en uno me funciona en otro no
Posted: Sat Sep 17, 2022 09:25 PM

Estoy haciendo append from.

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

#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 (fw): Select all Collapse

#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

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: append from en uno me funciona en otro no
Posted: Sun Sep 18, 2022 02:43 AM

Possible that there are no records matching the FOR condition.

Regards

G. N. Rao.

Hyderabad, India

Pg_cts

Posts: 32

Joined: Thu Dec 07, 2017 10:26 AM

Re: append from en uno me funciona en otro no
Posted: Sun Sep 18, 2022 07:06 PM

Buenas

Prueba a poner

Go Top

tras el append from.

Saludos

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: append from en uno me funciona en otro no
Posted: Mon Sep 19, 2022 12:44 PM

Code (fw): Select all Collapse

// 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 - <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Adolfredo Martinez

Posts: 141

Joined: Fri Feb 15, 2019 01:37 PM

Re: append from en uno me funciona en otro no
Posted: Thu Sep 22, 2022 12:35 AM

Gracias Amigos del forum. Por sus colaboracion.

Ya lo solucione.

FiveTech Support Forums

Continue the discussion