Error en control memo

[horacio]

Tengo el siguiente problema, en una aplicación genero una caja diaria y lo hago con una ventana MdiChild y un control MGet donde escribo los datos. Todo funciona maravillosamente en mi máquina que corre w7 64. Cuando porto el programa a una máquina de 32 me tira este error

Code: Select all  Expand view  RUN

 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 )
 

Este mensaje me desconcierta porque no estoy creando ningún diálogo y también me resulta raro que funcione en w7 64 y no en W7 32 ( lo he probado en tres máquinas ). Uso FWH 1204, BCC582 y xHarbour. Alguna idea ?? Gracias por la ayuda

Saludos

[karinha]

Mustra,

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

[GuillermoMtz]

Mustra,

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

Ademas de tambien muestranos el codigo de esta funcion --> C:\colegio_b\xls.prg => CONFECCIONACAJA( 1695 )
para poder ayudarte

Saludos

[horacio]

Aquí está el código:

Code: Select all  Expand view  RUN

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

 

Muchas gracias

[karinha]

Talbéz usted no tenga:


REQUEST DBFCDX, DBFFPT


[karinha]

\XHARBOUR\lib\dbfdbt.Lib +

[horacio]

Gracias Karinha por responder. Por una cuestión de urgencia ( distribuí varias copias de esta aplicación con este error ) lo resolví con xBrowse y funciona perfectamente. Gracias nuevamente

Saludos