FiveTech Support Forums

#include "FiveWin.ch"

function Main()

   local oDlg, cText1 := Space( 10 ), cText2 := "one"

   DEFINE DIALOG oDlg RESOURCE "DLG_PRODUCTOE"

   REDEFINE GET cText1 ID 103 OF oDlg
   
   REDEFINE COMBOBOX cText2 ID 104 OF oDlg ITEMS { "one", "two", "three" }

   REDEFINE BUTTON ID 202 OF oDlg ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTER

return nil

ico  ICON "./../ICONS/fivewin.ico"

#ifdef __FLAT__
  1 24 "WinXP/WindowsXP.Manifest" 
#endif

#ifdef __64__
  1 24 "WinXP/WindowsXP.Manifest64"
#endif 

LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
DLG_PRODUCTOE DIALOG 59, 60, 305, 190
STYLE DS_3DLOOK | DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "Datos Generales"
FONT 9, "MS Sans Serif"
{
    GROUPBOX        "", -1, 4, 3, 297, 57
    LTEXT           "Código:", -1, 9, 12, 41, 12, SS_LEFT
    EDITTEXT        101, 53, 12, 58, 12, ES_AUTOHSCROLL
    LTEXT           "Unidad de medida:", -1, 165, 12, 73, 12, SS_LEFT
    EDITTEXT        102, 240, 12, 54, 12, ES_AUTOHSCROLL
    LTEXT           "Nombre:", -1, 9, 26, 41, 12, SS_LEFT
    EDITTEXT        103, 53, 26, 241, 12, ES_AUTOHSCROLL
    LTEXT           "Familia:", -1, 9, 39, 41, 12, SS_LEFT
    COMBOBOX        104, 53, 40, 241, 98, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL
    GROUPBOX        "Precio, Impuesto y existencia", -1, 4, 62, 297, 46
    LTEXT           "Precio U$:", -1, 11, 72, 60, 12, SS_LEFT
    EDITTEXT        105, 74, 72, 64, 12, ES_RIGHT
    LTEXT           "Tasa de IVA %:", -1, 11, 87, 60, 12, SS_LEFT
    EDITTEXT        106, 74, 87, 64, 12, ES_RIGHT
    GROUPBOX        "", -1, 161, 62, 140, 46
    LTEXT           "Precio Final U$:", -1, 169, 72, 55, 12, SS_LEFT
    EDITTEXT        107, 227, 72, 63, 12, ES_RIGHT
    LTEXT           "Existencia:", -1, 169, 87, 55, 12, SS_LEFT
    EDITTEXT        108, 227, 87, 63, 12, ES_RIGHT
    GROUPBOX        "Notas:", -1, 4, 109, 297, 60
    EDITTEXT        109, 11, 119, 285, 46, WS_VSCROLL | ES_AUTOVSCROLL | ES_MULTILINE
    PUSHBUTTON      "&Grabar", 201, 193, 173, 50, 14
    PUSHBUTTON      "&Salir", 202, 252, 173, 50, 14
}

#include "FiveWin.ch"

function Main()
    local oDlg, cText1 := Space( 10 ), cText2 := "one", cText3:="tres", cText4:="two"

    DEFINE DIALOG oDlg RESOURCE "DLG_PRODUCTOE"

    //REDEFINE GET cText1 ID 101 OF oDlg
    //REDEFINE GET cText2 ID 102 OF oDlg
    REDEFINE GET cText3 ID 103 OF oDlg
   
    REDEFINE COMBOBOX cText4 ID 104 OF oDlg ITEMS { "one", "two", "three" }

    REDEFINE BUTTON ID 201 OF oDlg ACTION msgInfo("ok")
    REDEFINE BUTTON ID 202 OF oDlg ACTION oDlg:End()
      
    ACTIVATE DIALOG oDlg CENTER

RETURN NIL