FiveTech Support Forums

*----------------------------*
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.

   SET MESSAGE OF oWnd TO...

   //-> Esta em \samples\TESTMBAR.PRG
   /*
   oWnd:KeybOn()
   oWnd:DateOn()
   oWnd:ClockOn()
   oWnd: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:ClockOn(), oClock:SetCheck(.T.),;
                      oWnd:DateOn(), oDate:SetCheck(.T.),  ;
                      oWnd:KeybOn(), oKeyB:SetCheck(.T.) ) ;
             VALID  Confirma("Si cierra la aplicacion volver  al Windows.  ¨Deseas Salir del Programa?");
             ON PAINT dbCommitAll()
   */