FiveTech Software tech support forums

... -* -* -* -* -* -* -* -* -* -* -* -* @ 185.50,8.00 TABS oTabs OF oWnd ITEMS "Tab1","Tab2","Venga a ordenarrrrr!!" ; PIXEL COLORS CLR_BLUE,CLR_HCYAN SIZE 288.00,9.00 MESSAGE "Mensaje del Tabs" AutoResize( oTabs, 3, .T. ) -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* ...

... function Main() local oWnd DEFINE WINDOW oWnd TITLE "TEST sound " @1,10 button "Test 1 PLAYWAV()" size 150, 20 action PLAYWAV() @4,10 button "Test 2 PLAYWAVRES()" size 150, 20 action PLAYWAVRES() ACTIVATE WINDOW oWnd return nil ******************************************************** ...

... HB_LANGSELECT("ES") cPath := Curdir()+"\" DEFINE WINDOW oWnd TITLE "Minpda" @ 15, 20 BTNBMP FILE CPath+ "bmp\users.bmp" ; PROMPT "Clientes" TOP ; SIZE 60, 60 ; ACTION Eligefichacli() @ 15, 90 BTNBMP FILE CPath+"bmp\search.bmp" ; PROMPT "Articulos" TOP ; SIZE 60, 60 ; ACTION msginfo("1") @ 15, ...

... oTb := TDbOdbc():New( "empresas", oODbc) //oTb := TRecordSet():New(oOdbc,,"Empresas") oInspect( oTb) DEFINE FONT oFontBrw Name "Ms Sans Serif" SIZE 0,-11 DEFINE DIALOG oDlg RESOURCE "DLGMANDB" FONT oFontBrw REDEFINE LISTBOX oLbx ; FIELDS oTb:FieldGet(1) ,;// Campos que contendr  oTb:FieldGet( ...

... "fivewin.ch" function main() local oDlg,oget,obtn initv1() define dialog odlg ; from 0,0 to 200,300 pixel @ 10,10 get oGet var nn of odlg ; size 50,100 pixel @ 0,0 button obtn action tt() pixel @ 0,120 button obtn action tt2("nn",oDlg:acontrols[1]:value()) pixel activate dialog odlg return ...

... "fivewin.ch" function main() local oDlg,oget,obtn public nn:=0 define dialog odlg ; from 0,0 to 200,300 pixel @ 10,10 get oGet var nn of odlg ; size 50,100 pixel @ 0,0 button obtn action tt() pixel activate dialog odlg return "" function tt() local odlg,oget public nn:="sdfdsf" define dialog ...

... ) select 1 use cust DEFINE DIALOG oDlg TITLE "Phone Book" FROM 0, 0 TO 23, 79 @ 1, 2 SAY "Number:" OF oDlg @ 1, 6 GET oGet VAR dnum OF oDlg SIZE 20, 12 PICT "9999" @ 2, 2 SAY "Date:" OF oDlg @ 2, 6 GET oGet VAR dDay OF oDlg SIZE 40, 12 @ 3, 2 SAY "Name:" OF oDlg @ 3, 6 GET oGet VAR dNam ...

... DBFCDX function Main() local oWnd, oBrw USE "Storage card\Customer" VIA "DBFCDX" DEFINE WINDOW oWnd TITLE "test" @ 1, 1 LISTBOX oBrw FIELDS SIZE 220, 167 a := {} aadd(a,{"open.bmp", {|o|nested()}}) aadd(a,{"print.bmp", {|o|oWnd:End()}}) aadd(a,{"search.bmp", {|o|oWnd:End()}}) aadd(a,{"setup.bmp", ...

... esecuzione ottengo: OLE ERROR ---------> ADD: Unknow error conseguentemente: Application =========== Path and name: C:\med32\MED.Exe (32 bits) Size: 1,346,560 bytes Time from start: 0 hours 2 mins 3 secs Error occurred at: 09-11-2005, 18:53:50 Error description: Error BASE/1004 Class: NIL has ...

... freed. Highest total allocated 4075148 bytes in 14524 blocks. WARNING! Memory allocated but not released: 48 bytes (2 blocks) Block 1 00CD07C4 (size 24) KEYBON(0), "008000003F00000080DFCC0010000000000000007871CC00" Block 2 00F2B640 (size 24) SETFILTER(0), "008000003F000000F8ED38011900000000000000DC74F200" ...

... Bueno, como no se poner la imagen, os la describo el log Application =========== Path and name: C:\DESCAR~1\FIVE\FTPTEST.EXE (16 bits) Size: 824,960 bytes Max files handles permited: ( SetHandleCount() ) 91 Time from start: 0 hours 0 mins 0 secs Error occurred at: 11/09/05, 09:27:56 ...

... este ejemplo. REDEFINE BROWSE oBrw ALIAS (cDePaso) UPDATE GRID ID 200 OF oDlg; WHEN ! EMPTY(oCab:HDR_NOM) ADD COLUMN TO oBrw; HEADER "Producto"; SIZE 95 PIXELS ; DATA FIELDWBLOCK("MOV_PRO",SELECT(cDePaso)); ALIGN DT_LEFT,DT_LEFT,DT_RIGHT; EDITABLE; PICTURE "@!K"; FOOTER { || TRANSFORM(nTotItm,"@Z ...

... Edit(Venta1->Tot_art:=Venta1->Can_Art*Venta1->Pre_Art,; Calcula_Total(),oLbx1:Refresh()) Error Path and name: C:\SISTEM~2\GESTION.dwd Size: 0 bytes Max files handles permited: ( SetHandleCount() ) 100 Error ocurred at: 08-11-2005, 15:55:01 Error description: Error BASE/1122 Argument ...

Kronos,

Please generate the PPO file and check what you get for:

@10,15 BUTTON OemToAnsi("ÅíôÜîåé") OF oStats ACTION (oStats:End()) SIZE 80,30

... := 0 xTotal := 0 cPre_Art := 0 Precio := 0 Select 90 go Bottom cFol_Fac := Inv_Cfa1->Fol_Fac + 1 go top DEFINE Font oFont1 Name "Arial" Size 0,-12 DEFINE Font oFont2 NAME "ARIAL" SIZE 0,50 BOLD DEFINE DIALOG oDlgEdit1 ResName "IngresoCompra" TITLE OemToAnsi("Ingreso Facturas de Compra") ...