FiveTech Software tech support forums

Posted: **Sat Sep 17, 2022 9:25 pm**

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

Posted: **Sun Sep 18, 2022 2:43 am**

Possible that there are no records matching the FOR condition.

Posted: **Sun Sep 18, 2022 7:06 pm**

Buenas

Prueba a poner

Go Top

tras el append from.

Saludos

Posted: **Mon Sep 19, 2022 12:44 pm**

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.

Posted: **Thu Sep 22, 2022 12:35 am**

Gracias Amigos del forum. Por sus colaboracion.

Ya lo solucione.

append from en uno me funciona en otro no