Estoy teniendo problemas ocasionales con los recursos, veamos el siguiente error:
En Archivo de recursos tengo definido lo siguiente:Application
===========
Path and name: C:\Adm_Com\Adm_com.exe (32 bits)
Size: 3,864,576 bytes
Time from start: 2 hours 44 mins 29 secs
Error occurred at: 24/11/2011, 12:10:14
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: 27
Stack Calls
===========
Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR(559)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(290)
Called from: Prg\coti_nueva.prg => COTI_AGREDIT(647)
Called from: Prg\coti_nueva.prg => (b)GENCOTIZA(165)
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1447)
Called from: .\source\classes\WINDOW.PRG => _FWH(3394)
Called from: => SENDMESSAGE(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(408)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(944)
Called from: .\source\classes\WINDOW.PRG => _FWH(3394)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(978)
Called from: Prg\Admin.prg => MAIN(106)
Code: Select all
#define DLG_EMI_CAT 27
DLG_EMI_CAT DIALOG 19, 73, 434, 29
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "Productos"
FONT 8, "Tahoma"
{
EDITTEXT 820, 2, 12, 80, 12
EDITTEXT 822, 140, 12, 49, 12, ES_RIGHT | NOT WS_TABSTOP | WS_BORDER
EDITTEXT 823, 190, 12, 40, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP
EDITTEXT 824, 397, 12, 34, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP
EDITTEXT 826, 231, 12, 165, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
LTEXT "Codigo", -1, 32, 3, 24, 8
}
Code: Select all
DEFINE DIALOG oDlg_Prod RESOURCE DLG_EMI_CAT ;
TRANSPARENT COLOR 0, oApp:Color2007
REDEFINE GET oCt_Get[1] VAR cArticulo ID 820 OF oDlg_Prod UPDATE PICTURE "@!"
REDEFINE GET oCt_Get[2] VAR sn_Precio ID 822 OF oDlg_Prod PICTURE "@R 999,999.9999"
REDEFINE GET oCt_Get[3] VAR nCantidad ID 823 OF oDlg_Prod UPDATE PICTURE "@K 999,999.99" ;
VALID Coti_Cantidad( nCantidad, cArticulo, @cDescr )
REDEFINE GET oCt_Get[4] VAR nPorcent ID 824 OF oDlg_Prod UPDATE PICTURE "999.9999"
REDEFINE GET oCt_Get[5] VAR cDescr ID 826 OF oDlg_Prod UPDATE PICTURE "@!" ;
VALID ValidaDescr( cArticulo, @lCmb_Descr ) WHEN lCod_Valido
ACTIVATE DIALOG oDlg_Prod CENTERED ;
ON INIT IF( CodeProc == NUEVA, oCt_Get[1]:oBtn:Click(),)
Saludos