Me da un error el siguiente codigo
C´ant create dialog box
* FICHERO RC
#ifdef _CE
#include "c:\vce\include\arm\windows.h"
#include "c:\vce\include\arm\commctrl.h"
#endif
rst DIALOG 5, 18, 151, 102
STYLE 0x4L | WS_CHILD | WS_CAPTION
CAPTION "Recuento de almacen"
FONT 8, "MS Sans Serif"
{
LTEXT "Fecha recuento", -1, 3, 1, 53, 8
CTEXT "Código artículo", -1, 56, 1, 78, 8
EDITTEXT 1000, 4, 10, 48, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
EDITTEXT 1001, 55, 10, 78, 12
LTEXT "Nombre del artículo", -1, 3, 23, 135, 8
EDITTEXT 1002, 3, 32, 144, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
LTEXT "Stock actual en almacen", -1, 3, 47, 94, 8
EDITTEXT 1003, 99, 45, 48, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
LTEXT "Precio medio actual", -1, 3, 60, 94, 8
EDITTEXT 1004, 99, 58, 48, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
LTEXT "Resultado del recuento", -1, 3, 73, 94, 8
EDITTEXT 1005, 99, 71, 48, 12
DEFPUSHBUTTON "Grabar", 500, 3, 86, 38, 14
DEFPUSHBUTTON "Salir", 501, 109, 86, 38, 14
PUSHBUTTON "...", 502, 134, 9, 11, 14, NOT WS_TABSTOP
}
* Fichero PRG
#include "FWCE.ch"
FUNCTION recuento()
grid_recuento()
RETURN 0
**************************************************************
* PANTALLA DE A¥ADIR ARTICULOS AL RECUENTO DE ALMACEN *
**************************************************************
FUNCTION grid_recuento()
local v:=Array(22), vv:=Array(22)
DEFINE DIALOG oDlg NAME "rst"
REDEFINE GET vv[1] VAR v[1] ID 1000 OF odlg
REDEFINE GET vv[2] VAR v[2] ID 1001 OF odlg
REDEFINE GET vv[3] VAR v[3] ID 1002 OF odlg
REDEFINE GET vv[4] VAR v[4] ID 1003 OF odlg
REDEFINE GET vv[5] VAR v[5] ID 1004 OF odlg
REDEFINE GET vv[6] VAR v[6] ID 1005 OF odlg
REDEFINE BUTTON ID 500 OF odlg
REDEFINE BUTTON ID 501 OF odlg
REDEFINE BUTTON ID 502 OF odlg
ACTIVATE DIALOG oDlg
RETURN 0
Un problema que no puedo revolver ayuda por favor
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact: