Perdida de recursos en Laout, Folderex (Resuelto)

[Joel Andujo]

Buenos días foro, ojala y me pueda ayudar.
Estoy desarrollando un sistema de contabilidad con la modalidad de ventanas en folder, es decir en lugar de la clásica ventana popup, cada vez
que abro una añado un a pestaña al folder y trabaja todo muy bien, el detalle que acabo de actualizar de FWH 15.01 a FWH2104 con xHarbour
y ya los foder no se comportan de manera correcta, llega un momento en que se pierdes las pantallas (desaparecen los controles) y marca error la aplicación por
perdida de recursos (.rc).
La aplicación se comporta bien con FWH1501, xHarbour y BCC582
Pero no la he podido hacer funcionar con FWH2104 con xHarbour y Harbour BCC 7, ya cambie de Foderex a Folder nativo de FW y tampoco
Que puede ser ? le pongo un gif con el efecto visual.

Les deja la liga para la descarga del gif donde muestro el problema.

https://drive.google.com/file/d/1-beSMXmv5bB4p0HVdWtBzGwijOhpGQby/view?usp=sharing

de antemano gracias
Joel Andujo

[karinha]

Holá, que usas? Recursos ó código? Pequeño ejemplo? Más detalles, porfa.

Se usas Recursos, muestre el .RC del FOLDEREX y del FLD_HIJA.

Regards, saludos.

[Joel Andujo]

Gracias por contestar Karinha, básicamente este es el ejemplo:

El folderex (con Folder nativo pasa lo mismo) lo defino por código desde el main, este esta dentro de un Panel:

@01,01 FOLDEREX oFldGral PIXEL PROMPT '&Inicio' SIZE oPanel2:nRight-oPanel2:nLeft-9, oPanel2:nBottom-oPanel2:nTop-5 ACTION DelFld() OF oPanel2

y voy agregando folders cada vez que el usuario ejecuta una opción del menú: AddFld(Nombre de la opción .prg)

Code: Select all  Expand view  RUN

*----------------------------*
func AddFld(cNomRes)
 local nFld:=0, nRes:=0, cResCap:='', i:=0
 cNomRes:=upper(cNomRes)

 // Buscamos que no este abierto el Folder
 nFld:=Len(oFldGral:aDialogs)
 for i:=nFld to 1 step -1
     if (oFldGral:aDialogs[i]:cResName==cNomRes)
         oFldGral:SetOption(i)
        retu.f.
     endif
 next

 nRes:=ascan(oVp:aResources, {|array| array[1]==cNomRes})
 if nRes>0
    cResCap:=oVp:aResources[nRes,2]  // Caption del Resource
    cResID :=oVp:aResources[nRes,3]    // ID del Resource

    // Agregamos folder
    oFldGral:AddItem(cResCap, cNomRes, {|oDlg| RedefineCtrls(oDlg, cResID)  } )
    nFld:=len(oFldGral:aDialogs)

    oFldGral:SetBitMap('Images\FSalir.bmp'    , nFld)
    oFldGral:SetBrightBmp('Images\FSalir2.bmp', nFld)
    oFldGral:aAlign[nFld]:=1 //Right
    oFldGral:aDialogs[nFld]:bValid:={|| CerrarDlg()}
 endif
retu.t.

*----------------------------*
stat func RedefineCtrls(oDlg, cResID)
 local opVar:=TPublic():New(.T.); opVar:lIni:=.t.
 // Genero Objeto Hash que cargará con la variables del Folder(Dialogo) en Proceso
 v[cResID]:=opVar

 // .PRG a ejecutar
 do case
    case (cResID=='POL'); TPolizas(oDlg)                               // Captura de Pólizas
    case (cResID=='VP'); RVerPolizas      (oDlg, v[cResID])            // Verificador de Pólizas
    case (cResID=='BC'); RBalanzaCom      (oDlg, v[cResID])            // Balanza de Comprobación
    case (cResID=='DG'); RDiarioGral      (oDlg, v[cResID])            // Diario General
    case (cResID=='MA'); RMayorAcum       (oDlg, v[cResID])            // Mayor Acumulado
    case (cResID=='MD'); RMayorDeta       (oDlg, v[cResID])            // Mayor Detallado
    case (cResID=='AM'); RAuxMayor        (oDlg, v[cResID])            // Auxiliar de Mayor
    case (cResID=='RA'); RRelacionesAna   (oDlg, v[cResID])            // Relaciones Analíticas
    case (cResID=='ER'); REdoResultados   (oDlg, v[cResID])            // Estado de Resultados
    case (cResID=='EP'); REdoPosFinanciera(oDlg, v[cResID])            // Estado de Posición Financiera
    case (cResID=='EF'); REdoFinCompa     (oDlg, v[cResID])            // Estado Financiero Comparativo
    case (cResID=='EC'); REdoCamSitFinan  (oDlg, v[cResID])            // Estado de Cambios en la Situación Financiera
    case (cResID=='PC'); TParamContaSAT   (oDlg, v[cResID])            // Paramétros Conta SAT
    case (cResID=='GA'); TGenArchivosElect(oDlg, v[cResID])            // Generación de archivos Electrónicos SAT
    case (cResID=='RC'); HResguardoCFDI   (oDlg, v[cResID])            // Generación de archivos Electrónicos SAT
    case (cResID=='RP'); TReproceso       (oDlg, v[cResID])            // Reproceso de Pólizas (Generamos Saldos)
    case (cResID=='CS'); HConSaldosMovs   (oDlg, v[cResID])            // Consulta de Saldos y Movimientos
 endcase
retu.t.
 

Espero te ayude y de antemano gracias
Joel Andujo

[karinha]

Buén dia. Este ejemplo, no me ayda en nada, simplesmente no comprendo, podrias hacer un ejemplo más simples y completo, e poner en el mega upload como .RAR? Para testes?

https://mega.nz/

Regards, saludos.

[Joel Andujo]

Tienes razón Karinha, de hecho la lo estoy preparando en cuento lo tengo lo subo.

gracias.
Joel Andujo

[Joel Andujo]

Después de un buen rato he encontrado el error, lo provoca esta línea:

DEFINE MSGITEM oMsgItem OF oWnd:oMsgBar PROMPT oVP:cUsuyPAC SIZE 5*len(oVP:cUsuyPAC) BITMAPS 'AA_ICO' // ESTA LINEA PROBOCA EL ERROR
Esta en el fuente: TestError.prg, línea 145, si omito esta línea todo funciona perfecto.

El error sucede al estar jugando con los folders, subo .rar con fuentes, ejecutable y Video Error.mp4 donde muestro como se pierden los recursos e imágenes.
Al final la aplicación se marca error y se sale.

https://mega.nz/file/EKpG1bQQ#cypkYlAAn1G3GqLK0MG1B180zyn-u5LihDr5OzpRa-U

de antemano muchas gracias.
Joel Andujo
FWH 21.04, xHarbour 1.2.3 Intl. (SimpLex) (Build 20201212), BCC 7.0, PellesC

[Antonio Linares]

Joel,

Revisa este post en donde se explica como proceder

viewtopic.php?p=241020&sid=ae24a5b4cde999b6a1e092b5669c7207#p241020

saludos

[karinha]

Joel, cambie por:

Code: Select all  Expand view  RUN

   SET MESSAGE OF oWnd TO...
 

Reporte se funciona ahora.

Regards, saludos.

[karinha]

Joel,

Mira se ayuda:

Code: Select all  Expand view  RUN

   //-> Esta em \samples\TESTMBAR.PRG
   /*
   oWnd:oMsgBar:KeybOn()
   oWnd:oMsgBar:DateOn()
   oWnd:oMsgBar:ClockOn()
   oWnd:oMsgBar:Refresh()
   */

   /*  // ESTA EM: \SAMPLES\ACCOUNT - Modelo antigo, mas legal clicka/desclika
   STATIC oClock, oDate, oKeyb  // mensajes de estado para la barra de estado

   ACTIVATE WINDOW oWnd MAXIMIZED;
             ON INIT (CreaDbfConta(),;
                      oWnd:oMsgBar:ClockOn(), oClock:SetCheck(.T.),;
                      oWnd:oMsgBar:DateOn(), oDate:SetCheck(.T.),  ;
                      oWnd:oMsgBar:KeybOn(), oKeyB:SetCheck(.T.) ) ;
             VALID  Confirma("Si cierra la aplicacion volver  al Windows.  ¨Deseas Salir del Programa?");
             ON PAINT dbCommitAll()
   */
 

Regards, saludos.

[Joel Andujo]

Gracias por su ayuda, detectado y resuelto.
El detalle esta en: BITMAPS 'AA_ICO' que defino en MSGITEM:

DEFINE MSGITEM oMsgItem OF oWnd:oMsgBar PROMPT oVP:cUsuyPAC SIZE 5*len(oVP:cUsuyPAC) BITMAPS 'AA_ICO'

Elimine BITMAPS de MSGITEM y lo cambie por:

DEFINE ICON oIcon RESOURCE 'AA_ICO'
oWnd:SetIcon(oIcon)

todo trabaja bien, gracias Karinha y Master Antonio
Regards, Saludos.