FiveTech Support Forums

#include "FiveWin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg TITLE "Test" COLOR "W/B"

   @ 2, 2 SAY "Hello" COLOR "R/BG"

   ACTIVATE DIALOG oDlg CENTERED

return nil

Local oDlgS,oLbxS,oIcon
Local cCodigo1 := cCodigo
Local cCodigo2 := cCodigo
Local cNombre  := Str(cCodigo1)+" "+CLIE->Nombre
Local oSay

dbSelectArea("CLSI")
CLSI->(dbSetFilter({||CLSI->cliente := cCodigo}, "CLSI->cliente := cCodigo"))

    DEFINE DIALOG oDlgS RESOURCE "DLGCLISER" FONT oFont
    
    REDEFINE LISTBOX oLbxS ;
	     FIELDS  Str(CLSI->codigo),;
                                    CLSI->concepto,;
                    Transform(CLSI->cantidad,"@E 999,999"),;
                     Transform(CLSI->Precio,"@E 9,999.99") ;
	     HEADERS "Codigo" , "Servicio" , "Cantidad", "Precio" ;
	     COLOR CLR_BLACK, RGB( 255, 255, 235)  ;
	     ALIAS "CLSI";
	     ID 101 ;
	     UPDATE OF oDlgS
	     
	    oLbxS:bLogicLen := { || CLSI->(RecCount()) }
     REDEFINE SAY oSay PROMPT (cNombre) ID 401 OF oDlgS CENTER BORDER
	    


	   REDEFINE BUTTON ID 301 OF oDlgS SALIR ACTION ( oDlgS:End(),oLbxS:End() )

    REDEFINE BITMAP NAME "LOGO" ADJUST OF oDlgS


    ACTIVATE DIALOG oDlgS CENTERED
    SysRefresh()


Return( nil )

Application
===========
   Path and name: C:\ALcobendas\Walcob\ALCOB.Exe (32 bits)
   Size:   533,504 bytes
   Time from start: 0 hours 0 mins 4 secs 
   Error occurred at: 18-05-2008, 22:01:31
   Error description: Error FiveWin/1  Non defined Id: No:    121

Stack Calls
===========
   Called from: CONTROL.PRG => TCONTROL:INITIATE(0)
   Called from: BITMAP.PRG => (b)TBITMAP:TBITMAP(0)
   Called from:  => TBITMAP:INITIATE(0)
   Called from:  => __OBJSENDMSG(0)
   Called from: HARBOUR.PRG => OSEND(0)
   Called from: HARBOUR.PRG => ASEND(0)
   Called from: DIALOG.PRG => TDIALOG:INITIATE(0)
   Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
   Called from:  => DIALOGBOX(0)
   Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
   Called from: gesh0110.prg => PONVISTA(220)
   Called from: gesh0110.prg => PONSERVIC(178)
   Called from: gesh0110.prg => (b)CLIENTES(42)
   Called from: BTNBMP.PRG => TBTNBMP:CLICK(0)
   Called from: BTNBMP.PRG => TBTNBMP:LBUTTONUP(0)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
   Called from: BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0)
   Called from: WINDOW.PRG => _FWH(0)
   Called from:  => WINRUN(0)
   Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
   Called from: geshinic.prg => MAIN(91)

System
======
   CPU type: Intel(R) Celeron(R) CPU          420  @ 1.60GHz 1600 Mhz
   Hardware memory: 1016 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Compiler version: xHarbour build 1.1.0 Intl. (SimpLex)
   Windows version: 5.1, Build 2600 Service Pack 2

DEFINE BRUSH oFondo FILE ".\res\res_403.BMP"
DEFINE DIALOG oCuadr1 RESOURCE "orBodeg1" ICON "#8001" TRANSPARENT BRUSH oFondo

 REDEFINE BUTTONBMP Btn_Grab ID 11 OF oCuadr1 BITMAP "Bgrab" ACTION pValiBod()
 REDEFINE BUTTONBMP Btn_Canc ID 10 OF oCuadr1 BITMAP "Bcanc" ACTION oCuadr1:End()

 REDEFINE GET oB2og1 VAR oB2vg1 ID 4001 OF oCuadr1
 REDEFINE GET oB2og2 VAR oB2vg2 ID 4003 OF oCuadr1
 REDEFINE GET oB2og3 VAR oB2vg3 ID 4004 OF oCuadr1
 REDEFINE GET oB2og4 VAR oB2vg4 ID 4006 OF oCuadr1

 oCuadr1:cTitle := "Agregar Registro Bodegas"

ACTIVATE DIALOG oCuadr1 CENTERED

   DEFINE BRUSH oBrush FILENAME ".\bmp\gradien.bmp"
    DEFINE DIALOG oDlg RESOURCE "DLGMCLIE" FONT oFont  BRUSH oBrush 

      REDEFINE	GET aClien[1]   ID 201  PICTURE "99999999";
	       VALID Bclien(oDlg,nEvent,aClien)	OF oDlg UPDATE
      REDEFINE	GET aClien[2]   ID 202  PICTURE "@!"  OF oDlg UPDATE
      REDEFINE	GET aClien[3]   ID 203  PICTURE "@!"  OF oDlg UPDATE
      REDEFINE