FiveTech Software tech support forums

Code: Select all  Expand view

 Descripci¢n del error: Error FiveWin/3  Cannot create Dialog Box:
                      Title: FiveWin for Harbour

Llamadas al Stack
===========
   Llamado por: .\source\classes\DIALOG.PRG => CREATEDLGERROR( 538 )
   Llamado por: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 273 )
   Llamado por: C:\colegio_b\ERRSYSW.PRG => ERRORDIALOG( 426 )
   Llamado por: C:\colegio_b\ERRSYSW.PRG => (b)ERRORSYS( 31 )
   Llamado por: .\source\classes\WINDOW.PRG => WNDCREATEERROR( 747 )
   Llamado por: C:\colegio_b\mget.prg => TMULTIGET:CREATE( 416 )
   Llamado por: C:\colegio_b\mget.prg => TMULTIGET:NEW( 291 )
   Llamado por: C:\colegio_b\xls.prg => CONFECCIONACAJA( 1695 )
   Llamado por: C:\colegio_b\xls.prg => CAJADIARIA( 1480 )
   Llamado por: C:\colegio_b\plt.prg => (b)MAINMENU( 154 )
   Llamado por: .\source\classes\MENU.PRG => TMENU:COMMAND( 461 )
   Llamado por: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1027 )
   Llamado por: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND( 247 )
   Llamado por:  => TMDIFRAME:HANDLEEVENT( 0 )
   Llamado por: .\source\classes\WINDOW.PRG => _FWH( 3153 )
   Llamado por:  => WINRUN( 0 )
   Llamado por: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 980 )
   Llamado por: C:\colegio_b\plt.prg => START( 338 )
   Llamado por: C:\colegio_b\plt.prg => MAIN( 26 )
 

karinha wrote:Mustra,

Llamado por: C:\colegio_b\xls.prg => CAJADIARIA( 1480 )

Code: Select all  Expand view

Function ConfeccionaCaja()
                       
   Local oBtn    := Array( 4, 0 )
   Local oRBar
   Local oDlg
   Local oFont
   Local i
   Local oImageList
   Local oGr1_1
   Local oGr2_1
   Local oGr3_1
   Local oGr4_1
   Local oBtn1_1_1
   Local oBtn2_1_1
   Local oBtn1_2_1
   Local oBtn2_2_1
   //Local oBtn1_3_1
   Local oBtn2_3_1
   Local oBtn3_3_1
   Local oBtn4_3_1
   Local oBtn1_4_1
    Local lApagaBoton
    Local cNomVentana := 'Caja Diaria ' + StrTran( DToC( aVarCaja : dFechaCaja ), "/", "-" )
   ArmaDocumneto()
   Define Font oFont Name 'Courier' Size 0, -12

   If( BuscaUltimaFechaDeCierre(), lApagaBoton := .t., lApagaBoton := .f. )
    
    Define Window oDlg MDICHILD Of oVarGlobales : oWndMain NoSysMenu

      oDlg : SetText( 'Caja Diaria ' + StrTran( DToC( aVarCaja : dFechaCaja ), "/", "-" ) )
        oDlg : Hide()

      Define Ribbonbar oRBar Window oDlg Height 58 Topmargin 0

      Add Group oGr1_1 Ribbon oRBar TO Option 1 Prompt "volcado" Width 107 Gradiant { { 0.1, Rgb( 218, 229, 243 ), Rgb( 218, 229, 243 ) }, { 0.9, Rgb( 199, 216, 237 ), Rgb( 218, 229, 243 ) } }
      @ 003, 003 Add Button  oBtn1_1_1 Prompt "" Bitmap "#8051" Group oGr1_1 Action( XlsCajaDiaria( aVarCaja ), ManejaVentana( cNomVentana ) ) Size 50, 30 Top Tooltip 'Exportar A Planilla De Cálculo'
      @ 003, 053 Add Button  oBtn2_1_1 Prompt "" Bitmap "print" Group oGr1_1 Action Rep23()                   Size 50, 30 Top Tooltip 'Imprimir'

      //Add Group oGr2_1 Ribbon oRBar TO Option 1 Prompt "c. ant." Width 56 Gradiant { { 0.1, Rgb( 218, 229, 243 ), Rgb( 218, 229, 243 ) }, { 0.9, Rgb( 199, 216, 237 ), Rgb( 218, 229, 243 ) } }
      //@ 003, 003 Add Button  oBtn1_2_1 Prompt "" Bitmap "c:\sipep_sql\imagenes\calendar.bmp" Group oGr2_1 Action CambiaFecha( oDlg ) Size 50, 30 Top Tooltip "Visualizar cajas anteriores"

      Add Group oGr3_1 Ribbon oRBar TO Option 1 Prompt "cerrar" Width 56 Gradiant { { 0.1, Rgb( 218, 229, 243 ), Rgb( 218, 229, 243 ) }, { 0.9, Rgb( 199, 216, 237 ), Rgb( 218, 229, 243 ) } }
      @ 003, 003 Add Button  oBtn1_3_1 Prompt "" Bitmap "cierre_caja"  Group oGr3_1 Action If( !lApagaBoton, CierraCaja( oDlg ), MsgStop( ' La caja diaria ya ha sido cerrada !', 'Imposible ...' ) ) Size 50, 30 Top Tooltip 'Cerrar caja diaria'

      Add Group oGr4_1 Ribbon oRBar TO Option 1 Prompt "salir" Width 56 Gradiant { { 0.1, Rgb( 218, 229, 243 ), Rgb( 218, 229, 243 ) }, { 0.9, Rgb( 199, 216, 237 ), Rgb( 218, 229, 243 ) } }
      @ 003, 003 Add Button  oBtn1_4_1 Prompt "" Bitmap "imagen98" Group oGr4_1 Action oDlg : End() Size 50, 30 Top Tooltip 'Cerrar ventana actual'

      aVarCaja : oGet := TMultiGet() : New( 0, 0, { || aVarCaja : cCadena }, oDlg, 30, 30, oFont, .t. ) <- LINEA 1695 AQUI DA ERROR
      aVarCaja : oGet : lReadOnly := .t.
      aVarCaja : oGet : bKeyDown := { | nKey | If( nKey == VK_ESCAPE, oDlg : End(), ) }
      oDlg : SetControl( aVarCaja : oGet )

   Activate Window oDlg Maximized On Init oDlg : Show() Valid( recibos -> ( DbClearFilter() ), factura -> ( DbClearFilter() ), .t. )
   oFont : End()
   Return 0