oVERSION = 3.00!Arial, 0, 9, 5, 15, 12, 32, 3, 0 scrollcontainer1PixelsClass18_scrollcontainerscrollcontainer1scrollcontainer1._sidebargroup5Ribbonbuttonh2 container foxribbon.vcx container foxribbon.vcx containerkWidth = 179 Height = 920 _title = Menu Principal _titleidtranslate = SB0001 Name = "scrollcontainer1"  _sidebargroup foxribbon.vcx container_sidebargroup1scrollcontainer1Top = 0 Left = 0 Width = 169 Height = 116 lminimized = .T. Name = "_sidebargroup1" _sidebartitle1.Image1.Name = "Image1" _sidebartitle1.ribbonlabel1.Caption = "Empresas" _sidebartitle1.ribbonlabel1.Name = "ribbonlabel1" _sidebartitle1.Image2.Name = "Image2" _sidebartitle1.Shape1.Name = "Shape1" _sidebartitle1.Ribbonlabel2.Name = "Ribbonlabel2" _sidebartitle1.Name = "_sidebartitle1"  ribbonbuttonh foxribbon.vcx containerribbonbuttonh1scrollcontainer1._sidebargroup1Top = 33 Left = 6 Width = 148 Height = 24 Name = "ribbonbuttonh1" Image1.Picture = images\empre.bmp Image1.Height = 18 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" ribbonlabel1.Caption = "Crear, modificar y borrar" ribbonlabel1.Name = "ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" PROCEDURE Click pnomform = "win"+alltrim(str(principalm.obarra.itemcount + 1,10,0)) public (pnomform) as form do form forms\procimp name (pnomform) ENDPROC !Arial, 0, 9, 5, 15, 12, 32, 3, 0 panel1PixelsClass17 ribbonpagepanel1$PROCEDURE Click finish() ENDPROC  container1!Arial, 0, 9, 5, 15, 12, 32, 3, 0  mytitlebarPixelsClass4 _titlebar ribbonbuttonh foxribbon.vcx containerRibbonbuttonh2scrollcontainer1._sidebargroup1Top = 59 Left = 6 Width = 148 Height = 24 Name = "Ribbonbuttonh2" Image1.Picture = images\ejern.png Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" ribbonlabel1.Caption = "Nuevo ejercicio" ribbonlabel1.Name = "ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  ribbonbuttonh foxribbon.vcx containerRibbonbuttonh3scrollcontainer1._sidebargroup1Top = 86 Left = 6 Width = 148 Height = 24 Name = "Ribbonbuttonh3" Image1.Picture = images\ejerd.png Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" ribbonlabel1.Caption = "Borrar ejercicio" ribbonlabel1.Name = "ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  _sidebargroup foxribbon.vcx container_sidebargroup2scrollcontainer1Top = 119 Left = 0 Width = 169 Height = 90 lminimized = .T. Name = "_sidebargroup2" _sidebartitle1.Image1.Name = "Image1" _sidebartitle1.ribbonlabel1.Caption = "Usuarios" _sidebartitle1.ribbonlabel1.Name = "ribbonlabel1" _sidebartitle1.Image2.Name = "Image2" _sidebartitle1.Shape1.Name = "Shape1" _sidebartitle1.Ribbonlabel2.Name = "Ribbonlabel2" _sidebartitle1.Name = "_sidebartitle1"  ribbonbuttonh foxribbon.vcx containerribbonbuttonh1scrollcontainer1._sidebargroup2Top = 34 Left = 6 Width = 148 Height = 24 Name = "ribbonbuttonh1" Image1.Picture = images\empre.bmp Image1.Height = 18 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" ribbonlabel1.Caption = "Crear, modificar y borrar" ribbonlabel1.Name = "ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  ribbonbuttonh foxribbon.vcx containerRibbonbuttonh2scrollcontainer1._sidebargroup2Top = 60 Left = 6 Width = 148 Height = 24 Name = "Ribbonbuttonh2" Image1.Picture = images\ejern.png Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" ribbonlabel1.Caption = "Nuevo ejercicio" ribbonlabel1.Name = "ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  _sidebargroup foxribbon.vcx container_sidebargroup3scrollcontainer1Top = 212 Left = 0 Width = 169 Height = 116 lminimized = .T. Name = "_sidebargroup3" _sidebartitle1.Image1.Name = "Image1" _sidebartitle1.ribbonlabel1.Caption = "Utilitarios" _sidebartitle1.ribbonlabel1.Name = "ribbonlabel1" _sidebartitle1.Image2.Name = "Image2" _sidebartitle1.Shape1.Name = "Shape1" _sidebartitle1.Ribbonlabel2.Name = "Ribbonlabel2" _sidebartitle1.Name = "_sidebartitle1"  ribbonbuttonh foxribbon.vcx containerribbonbuttonh1scrollcontainer1._sidebargroup3Top = 34 Left = 6 Width = 148 Height = 24 Name = "ribbonbuttonh1" Image1.Picture = images\empre.bmp Image1.Height = 18 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" ribbonlabel1.Caption = "Activar Periodos" ribbonlabel1.Name = "ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  ribbonbuttonh foxribbon.vcx containerRibbonbuttonh2scrollcontainer1._sidebargroup3Top = 60 Left = 6 Width = 148 Height = 24 Name = "Ribbonbuttonh2" Image1.Picture = images\ejern.png Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" ribbonlabel1.Caption = "Copiar tablas" ribbonlabel1.Name = "ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  ribbonbuttonh foxribbon.vcx containerRibbonbuttonh3scrollcontainer1._sidebargroup3Top = 87 Left = 6 Width = 148 Height = 24 Name = "Ribbonbuttonh3" Image1.Picture = images\ejerd.png Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" ribbonlabel1.Caption = "Comandos SQL" ribbonlabel1.Name = "ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  _sidebargroup foxribbon.vcx container_sidebargroup4scrollcontainer1Top = 331 Left = 0 Width = 169 Height = 90 lminimized = .T. Name = "_sidebargroup4" _sidebartitle1.Image1.Name = "Image1" _sidebartitle1.ribbonlabel1.Caption = "Copias de seguridad" _sidebartitle1.ribbonlabel1.Name = "ribbonlabel1" _sidebartitle1.Image2.Name = "Image2" _sidebartitle1.Shape1.Name = "Shape1" _sidebartitle1.Ribbonlabel2.Name = "Ribbonlabel2" _sidebartitle1.Name = "_sidebartitle1"  ribbonbuttonh foxribbon.vcx containerribbonbuttonh1scrollcontainer1._sidebargroup4Top = 34 Left = 6 Width = 148 Height = 24 Name = "ribbonbuttonh1" Image1.Picture = images\empre.bmp Image1.Height = 18 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" ribbonlabel1.Caption = "Crear, modificar y borrar" ribbonlabel1.Name = "ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  ribbonbuttonh foxribbon.vcx containerRibbonbuttonh2scrollcontainer1._sidebargroup4Top = 60 Left = 6 Width = 148 Height = 24 Name = "Ribbonbuttonh2" Image1.Picture = images\ejern.png Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" ribbonlabel1.Caption = "Nuevo ejercicio" ribbonlabel1.Name = "ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  _sidebargroup foxribbon.vcx container_sidebargroup5scrollcontainer1Top = 425 Left = 0 Width = 169 Height = 90 lminimized = .T. Name = "_sidebargroup5" _sidebartitle1.Image1.Name = "Image1" _sidebartitle1.ribbonlabel1.Caption = "Reportes" _sidebartitle1.ribbonlabel1.Name = "ribbonlabel1" _sidebartitle1.Image2.Name = "Image2" _sidebartitle1.Shape1.Name = "Shape1" _sidebartitle1.Ribbonlabel2.Name = "Ribbonlabel2" _sidebartitle1.Name = "_sidebartitle1"  ribbonbuttonh foxribbon.vcxribbonbuttonh1scrollcontainer1._sidebargroup5Top = 34 Left = 6 Width = 148 Height = 24 Name = "ribbonbuttonh1" Image1.Picture = images\empre.bmp Image1.Height = 18 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" ribbonlabel1.Caption = "Crear, modificar y borrar" ribbonlabel1.Name = "ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  ribbonbuttonhTop = 60 Left = 6 Width = 148 Height = 24 Name = "Ribbonbuttonh2" Image1.Picture = images\ejern.png Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" ribbonlabel1.Caption = "Nuevo ejercicio" ribbonlabel1.Name = "ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  mytitlebar foxribbon.vcx container mytitlebarName = "mytitlebar" Controlbuttons.Buttonmin.Image1.Height = 16 Controlbuttons.Buttonmin.Image1.Width = 16 Controlbuttons.Buttonmin.Image1.Name = "Image1" Controlbuttons.Buttonmin.xShape2.Name = "xShape2" Controlbuttons.Buttonmin.Shape1.Name = "Shape1" Controlbuttons.Buttonmin.Command1.Name = "Command1" Controlbuttons.Buttonmin.Image2.Name = "Image2" Controlbuttons.Buttonmin.Ribbonlabel1.Name = "Ribbonlabel1" Controlbuttons.Buttonmin.Ribbonlabel2.Name = "Ribbonlabel2" Controlbuttons.Buttonmin.Marlett.Name = "Marlett" Controlbuttons.Buttonmin.Name = "Buttonmin" Controlbuttons.buttonmax.Image1.Height = 16 Controlbuttons.buttonmax.Image1.Width = 16 Controlbuttons.buttonmax.Image1.Name = "Image1" Controlbuttons.buttonmax.xShape2.Name = "xShape2" Controlbuttons.buttonmax.Shape1.Name = "Shape1" Controlbuttons.buttonmax.Command1.Name = "Command1" Controlbuttons.buttonmax.Image2.Name = "Image2" Controlbuttons.buttonmax.Ribbonlabel1.Name = "Ribbonlabel1" Controlbuttons.buttonmax.Ribbonlabel2.Name = "Ribbonlabel2" Controlbuttons.buttonmax.Marlett.Name = "Marlett" Controlbuttons.buttonmax.Name = "buttonmax" Controlbuttons.buttonclose.Image1.Height = 16 Controlbuttons.buttonclose.Image1.Width = 16 Controlbuttons.buttonclose.Image1.Name = "Image1" Controlbuttons.buttonclose.xShape2.Name = "xShape2" Controlbuttons.buttonclose.Shape1.Name = "Shape1" Controlbuttons.buttonclose.Command1.Name = "Command1" Controlbuttons.buttonclose.Image2.Name = "Image2" Controlbuttons.buttonclose.Ribbonlabel1.Name = "Ribbonlabel1" Controlbuttons.buttonclose.Ribbonlabel2.Name = "Ribbonlabel2" Controlbuttons.buttonclose.Marlett.Name = "Marlett" Controlbuttons.buttonclose.Name = "buttonclose" Controlbuttons.TabIndex = 6 Controlbuttons.Name = "Controlbuttons" Ribbonlabel1.Height = 17 Ribbonlabel1.Left = 180 Ribbonlabel1.Width = 321 Ribbonlabel1.TabIndex = 8 Ribbonlabel1.Name = "Ribbonlabel1" Image1.Name = "Image1" Shape1.Name = "Shape1" Image2.Name = "Image2" Command1.TabIndex = 7 Command1.Name = "Command1" PROCEDURE Init DODEFAULT() WITH THIS .DEFAULT.ZORDER(0) .PROPERTIES.ZORDER(0) ENDWITH ENDPROC PROCEDURE Controlbuttons.buttonclose.Click KEYBOARD '{ALT+F4}' ENDPROC panel1.Ribbongroup5Ribbonbuttonv2 foxribbon.vcx ribbonbuttonvpanel1 Ribbongroup5 container foxribbon.vcx container6panel2Top = 1 Left = 101 Height = 26 TabIndex = 9 Name = "Ribbonseparator1" Line1.Name = "Line1" Line2.Name = "Line2" Line3.Name = "Line3"  ribbonbuttonh foxribbon.vcx containerdefault mytitlebarTop = 1 Left = 52 Width = 24 Height = 24 TabIndex = 1 Name = "default" Image1.Picture = images\formato.png Image1.Height = 16 Image1.Left = 4 Image1.Top = 4 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" =PROCEDURE Click do form forms\estilos with 40,40 ENDPROC Ribbonseparator1 container foxribbon.vcxribbonseparator%PROCEDURE Click oCal.Show ENDPROC  mytitlebar properties container foxribbon.vcx ribbonbuttonhTop = 1 Left = 77 Width = 24 Height = 24 TabIndex = 2 Name = "properties" Image1.Picture = images\calculadoral.png Image1.Height = 16 Image1.Left = 4 Image1.Top = 4 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" PixelsClass ribbonpagepanel2+Width = 747 Height = 89 Name = "panel2"  container foxribbon.vcx %EZTU CUFINISHClick,11) ribbongroup 7%_tnU forms\resresJUFORMSPNOMFORMClick,115)panel1.Ribbongroup4ClassRibbonbuttonv2 containerPixelspanel1!Arial, 0, 9, 5, 15, 12, 32, 3, 0 Top = 3 Left = 3 Name = "Ribbonbuttonv2" Image1.Picture = images\cerrar.png Image1.Stretch = 2 Image1.Height = 32 Image1.Width = 32 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "Cerrar Sistema" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" @PROCEDURE Click do form forms\resres name (pnomform) ENDPROC Top = 3 Left = 71 helptxt = Restaura copias de seguridad helptitle = Restaurar copia Name = "Ribbonbuttonv2" Image1.Picture = images\zipr.png Image1.Stretch = 2 Image1.Height = 32 Image1.Width = 32 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "Restaurar Copia" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  foxribbon.vcx ribbonbuttonv 7%_tnU forms\resgenJUFORMSPNOMFORMClick,115)panel1.Ribbongroup4Ribbonbuttonv1inistartbutton container@PROCEDURE Click do form forms\resgen name (pnomform) ENDPROC  foxribbon.vcx ribbonbuttonv Ribbongroup4 container foxribbon.vcx ribbongroupPROCEDURE Click pnomform = "win"+alltrim(str(principalm.obarra.itemcount + 1,10,0)) public (pnomform) as form do form forms\mansql name (pnomform) ENDPROC panel1.Ribbongroup3Ribbonbuttonv3 container foxribbon.vcx ribbonbuttonvinistartbutton^Top = 72 Left = -48 Height = 38 Width = 38 BackStyle = 0 Curvature = 0 Name = "Shape1" APROCEDURE Click do form forms\rescopy name (pnomform) ENDPROC panel1.Ribbongroup3Ribbonbuttonv2 container foxribbon.vcx containerinistartbuttonShape1shapeshapeImage3 ribbonbuttonvpanel1.Ribbongroup3OPROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord ENDPROC inistartbuttonimageimageinistartbuttonCommand1Image1&Top = 2 Left = 1 Width = 72 Height = 89 Name = "Ribbongroup5" Shape1.Name = "Shape1" Ribbonlabel1.Caption = "General" Ribbonlabel1.Name = "Ribbonlabel1" Image1.Name = "Image1" _Shape2.Name = "_Shape2" Ribbonbuttongroup1.Image1.Height = 32 Ribbonbuttongroup1.Image1.Width = 32 Ribbonbuttongroup1.Image1.Name = "Image1" Ribbonbuttongroup1.xShape2.Name = "xShape2" Ribbonbuttongroup1.Shape1.Name = "Shape1" Ribbonbuttongroup1.Command1.Name = "Command1" Ribbonbuttongroup1.Image2.Name = "Image2" Ribbonbuttongroup1.Ribbonlabel1.Name = "Ribbonlabel1" Ribbonbuttongroup1.Ribbonlabel2.Name = "Ribbonlabel2" Ribbonbuttongroup1.Marlett.Name = "Marlett" Ribbonbuttongroup1.x1.Name = "x1" Ribbonbuttongroup1.x2.Name = "x2" Ribbonbuttongroup1.z1.Name = "z1" Ribbonbuttongroup1.z2.Name = "z2" Ribbonbuttongroup1.x6.Name = "x6" Ribbonbuttongroup1.x5.Name = "x5" Ribbonbuttongroup1.x4.Name = "x4" Ribbonbuttongroup1.x3.Name = "x3" Ribbonbuttongroup1.z3.Name = "z3" Ribbonbuttongroup1.z4.Name = "z4" Ribbonbuttongroup1.Name = "Ribbonbuttongroup1" Top = 3 Left = 3 helptxt = Genera copias de seguridad helptitle = Generar copia Name = "Ribbonbuttonv1" Image1.Picture = images\zipn.png Image1.Height = 32 Image1.Width = 32 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "Generar Copia" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" Ribbonbuttonv1 foxribbon.vcx ribbonbuttonvpanel1 Ribbongroup3 container foxribbon.vcx ribbongroup commandbutton commandbuttoninistartbutton i%i|UUNBUTTONNSHIFTNXCOORDNYCOORD MouseDown,112D)+Width = 808 Height = 91 Name = "panel1"  foxribbon.vcxTop = 3 Left = 139 helptxt = Genera consultas SQL helptitle = Comandos SQL Name = "Ribbonbuttonv3" Image1.Picture = images\sql.png Image1.Stretch = 2 Image1.Height = 32 Image1.Width = 32 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "Comando SQL" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  containerimagePROCEDURE Click pnomform = "win"+alltrim(str(principalm.obarra.itemcount + 1,10,0)) public (pnomform) as form do form forms\manper name (pnomform) ENDPROC image %`uoU forms\rescopyJUFORMSPNOMFORMClick,116)inistartbuttonRibbonbuttonv2Image2imageTop = 3 Left = 71 helptxt = Copia tablas de una empresa a otra helptitle = Copia tablas Name = "Ribbonbuttonv2" Image1.Picture = images\copy.png Image1.Stretch = 2 Image1.Height = 32 Image1.Width = 32 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "Copiar Tablas" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" 3 %UX(TwinCC Z7QFORM forms\mansqlJUPNOMFORM PRINCIPALMOBARRA ITEMCOUNTFORMSClick,1!1)PROCEDURE Click pnomform = "win"+alltrim(str(principalm.obarra.itemcount + 1,10,0)) public (pnomform) as form do form forms\manuser name (pnomform) ENDPROC panel1.Ribbongroup2 foxribbon.vcx ribbonbuttonvRibbonbuttonv1iPicture = images\pventp.png BackStyle = 0 Height = 34 Left = 8 Top = 2 Width = 34 Name = "Image3" image *redraw  container3 %UX(TwinCC Z7QFORM forms\manperJUPNOMFORM PRINCIPALMOBARRA ITEMCOUNTFORMSClick,1!1)4Width = 200 Height = 200 Name = "inistartbutton" 4 #%UY(TwinCC Z7QFORM forms\manuserJUPNOMFORM PRINCIPALMOBARRA ITEMCOUNTFORMSClick,1!1) container ribbongroup foxribbon.vcx container Ribbongroup1panel1 ribbonbuttonvRibbonbuttonv15Top = 2 Left = 640 Width = 141 Height = 89 Name = "Ribbongroup4" Shape1.Name = "Shape1" Ribbonlabel1.Caption = "Copias de Seguridad" Ribbonlabel1.Name = "Ribbonlabel1" Image1.Name = "Image1" _SHAPE2.Name = "_SHAPE2" Ribbonbuttongroup1.Image1.Height = 32 Ribbonbuttongroup1.Image1.Width = 32 Ribbonbuttongroup1.Image1.Name = "Image1" Ribbonbuttongroup1.xShape2.Name = "xShape2" Ribbonbuttongroup1.Shape1.Name = "Shape1" Ribbonbuttongroup1.Command1.Name = "Command1" Ribbonbuttongroup1.Image2.Name = "Image2" Ribbonbuttongroup1.Ribbonlabel1.Name = "Ribbonlabel1" Ribbonbuttongroup1.Ribbonlabel2.Name = "Ribbonlabel2" Ribbonbuttongroup1.Marlett.Name = "Marlett" Ribbonbuttongroup1.X1.Name = "X1" Ribbonbuttongroup1.X2.Name = "X2" Ribbonbuttongroup1.Z1.Name = "Z1" Ribbonbuttongroup1.Z2.Name = "Z2" Ribbonbuttongroup1.X6.Name = "X6" Ribbonbuttongroup1.X5.Name = "X5" Ribbonbuttongroup1.X4.Name = "X4" Ribbonbuttongroup1.X3.Name = "X3" Ribbonbuttongroup1.Z3.Name = "Z3" Ribbonbuttongroup1.Z4.Name = "Z4" Ribbonbuttongroup1.Name = "Ribbonbuttongroup1" Top = 3 Left = 3 helptxt = Activa y desactiva periodos helptitle = Activa periodos Name = "Ribbonbuttonv1" Image1.Picture = images\periodos.png Image1.Height = 32 Image1.Width = 32 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "Activa Periodos" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" -Top = 2 Left = 429 Width = 209 Height = 89 Name = "Ribbongroup3" Shape1.Name = "Shape1" Ribbonlabel1.Caption = "Utilitarios" Ribbonlabel1.Name = "Ribbonlabel1" Image1.Name = "Image1" _SHAPE2.Name = "_SHAPE2" Ribbonbuttongroup1.Image1.Height = 32 Ribbonbuttongroup1.Image1.Width = 32 Ribbonbuttongroup1.Image1.Name = "Image1" Ribbonbuttongroup1.xShape2.Name = "xShape2" Ribbonbuttongroup1.Shape1.Name = "Shape1" Ribbonbuttongroup1.Command1.Name = "Command1" Ribbonbuttongroup1.Image2.Name = "Image2" Ribbonbuttongroup1.Ribbonlabel1.Name = "Ribbonlabel1" Ribbonbuttongroup1.Ribbonlabel2.Name = "Ribbonlabel2" Ribbonbuttongroup1.Marlett.Name = "Marlett" Ribbonbuttongroup1.X1.Name = "X1" Ribbonbuttongroup1.X2.Name = "X2" Ribbonbuttongroup1.Z1.Name = "Z1" Ribbonbuttongroup1.Z2.Name = "Z2" Ribbonbuttongroup1.X6.Name = "X6" Ribbonbuttongroup1.X5.Name = "X5" Ribbonbuttongroup1.X4.Name = "X4" Ribbonbuttongroup1.X3.Name = "X3" Ribbonbuttongroup1.Z3.Name = "Z3" Ribbonbuttongroup1.Z4.Name = "Z4" Ribbonbuttongroup1.Name = "Ribbonbuttongroup1" Top = 3 Left = 71 helptxt = Crea, modifica y borra usuarios helptitle = Mantenimiento de usuarios Name = "Ribbonbuttonv2" Image1.Picture = images\users.png Image1.Stretch = 2 Image1.Height = 32 Image1.Width = 32 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "Usuarios" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" bPROCEDURE Click *do form forms\arcempre name (pnomform) do form forms\claves with "0" ENDPROC panel1.Ribbongroup2 container foxribbon.vcx ribbonbuttonvpanel1 Ribbongroup2 container foxribbon.vcx ribbongroup@PROCEDURE Click do form forms\mandel name (pnomform) ENDPROC panel1.Ribbongroup1Ribbonbuttonv3 container foxribbon.vcx ribbonbuttonvpanel1.Ribbongroup1^Top = 48 Left = -33 Height = 27 Width = 27 Caption = "" TabIndex = 1 Name = "Command1"  containerTop = 3 Left = 3 helptxt = Cambia clave del Administrador helptitle = Clave Administrador Name = "Ribbonbuttonv1" Image1.Picture = images\user.png Image1.Height = 32 Image1.Width = 32 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "Administrador" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett"  +%UjdU forms\claves0UFORMSClick,11W) 7%_tnU forms\mandelJUFORMSPNOMFORMClick,115) foxribbon.vcx@PROCEDURE Click do form forms\mannue name (pnomform) ENDPROC Ribbonbuttonv2 container U%\ JU*TaUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENTIMAGE1VISIBLE*T-UNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENTIMAGE1VISIBLEU MouseLeave, MouseEnterClick 11B41A301 )Picture = defaultimages\startbuttonnormal.png Stretch = 0 BackStyle = 0 Height = 38 Left = 6 Top = 0 Width = 38 Name = "Image1" panel1.Ribbongroup1 ribbonbuttonv foxribbon.vcx 7%_tnU forms\mannueJUFORMSPNOMFORMClick,115)~Picture = defaultimages\startbuttonpressed.png BackStyle = 0 Height = 38 Left = -56 Top = 0 Width = 38 Name = "Image2" PROCEDURE Click pnomform = "win"+alltrim(str(principalm.obarra.itemcount + 1,10,0)) public (pnomform) as form do form forms\manemp name (pnomform) ENDPROC  @%F'Us l(h%%CCredrawhdCCULNITHIS CONTROLCOUNTCONTROLSCLASSREDRAWB mTTTTT,T& TaC  C  C TCC a-6 ;TTTC UTHIS BORDERWIDTH BACKSTYLETOPLEFTWIDTHHEIGHTVISIBLEIMAGE1ZORDERIMAGE2IMAGE3PICTURESHAPE1 BORDERSTYLECUTHISSHAPE1CLICKredraw,InitClick1qQ1AAA2AAAAA4Q2  $2)PROCEDURE MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord *IF THIS.PARENT.HEIGHT = 38 THIS.PARENT.image1.VISIBLE = .T. *ENDIF ENDPROC PROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord THIS.PARENT.image1.VISIBLE = .F. ENDPROC PROCEDURE Click *!* WITH THIS.PARENT *!* .Command1.SETFOCUS() *!* .ReDraw() *!* .ZORDER(0) *!* IF .HEIGHT = 38 *!* .image1.VISIBLE = .F. *!* .WIDTH = THISFORM.WIDTH *!* .HEIGHT = THISFORM.HEIGHT + 19 * do form forms\fmenu name fmenus with 2,25,THISFORM.HWND *!* *.StartPanel.VISIBLE = .T. *!* ELSE *!* .image1.VISIBLE = .T. *!* .WIDTH = 44 *!* .HEIGHT = 38 *!* *fmenus.release *!* *.StartPanel.VISIBLE = .F. *!* ENDIF *!* ENDWITH ENDPROC Top = 3 Left = 139 helptxt = Borra un ejercicio existente helptitle = Borra ejercicio Name = "Ribbonbuttonv3" Image1.Picture = images\bejer.png Image1.Stretch = 2 Image1.Height = 32 Image1.Width = 32 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "Borrar Ejercicio" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" 3 %UX(TwinCC Z7QFORM forms\manempJUPNOMFORM PRINCIPALMOBARRA ITEMCOUNTFORMSClick,1!1)*Top = 2 Left = 286 Width = 141 Height = 89 Name = "Ribbongroup2" Shape1.Name = "Shape1" Ribbonlabel1.Caption = "Usuarios" Ribbonlabel1.Name = "Ribbonlabel1" Image1.Name = "Image1" _SHAPE2.Name = "_SHAPE2" Ribbonbuttongroup1.Image1.Height = 32 Ribbonbuttongroup1.Image1.Width = 32 Ribbonbuttongroup1.Image1.Name = "Image1" Ribbonbuttongroup1.xShape2.Name = "xShape2" Ribbonbuttongroup1.Shape1.Name = "Shape1" Ribbonbuttongroup1.Command1.Name = "Command1" Ribbonbuttongroup1.Image2.Name = "Image2" Ribbonbuttongroup1.Ribbonlabel1.Name = "Ribbonlabel1" Ribbonbuttongroup1.Ribbonlabel2.Name = "Ribbonlabel2" Ribbonbuttongroup1.Marlett.Name = "Marlett" Ribbonbuttongroup1.X1.Name = "X1" Ribbonbuttongroup1.X2.Name = "X2" Ribbonbuttongroup1.Z1.Name = "Z1" Ribbonbuttongroup1.Z2.Name = "Z2" Ribbonbuttongroup1.X6.Name = "X6" Ribbonbuttongroup1.X5.Name = "X5" Ribbonbuttongroup1.X4.Name = "X4" Ribbonbuttongroup1.X3.Name = "X3" Ribbonbuttongroup1.Z3.Name = "Z3" Ribbonbuttongroup1.Z4.Name = "Z4" Ribbonbuttongroup1.Name = "Ribbonbuttongroup1" Top = 3 Left = 71 helptxt = Crea un nuevo ejercicio helptitle = Nuevo ejercicio Name = "Ribbonbuttonv2" Image1.Picture = images\nejer.png Image1.Stretch = 2 Image1.Height = 32 Image1.Width = 32 Image1.Name = "Image1" XSHAPE2.Name = "XSHAPE2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "Nuevo Ejercicio" Ribbonlabel1.Name = "Ribbonlabel1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT"  L%I^XU UOCALSHOWClick,11) k%[pjU$! forms\estilos((UFORMSClick,112)f MMD*% U? C 8CCUTHISDEFAULTZORDER PROPERTIES\{ALT+F4}UInit, Controlbuttons.buttonclose.Click1A31^ )M4 #%UY(TwinCC Z7QFORM forms\procimpJUPNOMFORM PRINCIPALMOBARRA ITEMCOUNTFORMSClick,1!1)Top = 3 Left = 3 helptxt = Aade, modifica y borra empresas helptitle = Administra empresas Name = "Ribbonbuttonv1" Image1.Picture = images\empresae.png Image1.Height = 32 Image1.Width = 32 Image1.Name = "Image1" XSHAPE2.Name = "XSHAPE2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "Administrar" Ribbonlabel1.Name = "Ribbonlabel1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT" PROCEDURE redraw LOCAL lnI WITH THIS FOR lnI = 1 TO .CONTROLCOUNT IF PEMSTATUS(.CONTROLS(lnI).CLASS, "redraw", 5) .CONTROLS(lnI).ReDraw() ENDIF ENDFOR ENDWITH ENDPROC PROCEDURE Init WITH THIS .BORDERWIDTH = 0 .BACKSTYLE = 0 .TOP = 6 .LEFT = 1 .WIDTH = 44 .HEIGHT = 38 .VISIBLE = .T. ENDWITH WITH THIS.Image1 *.TOP = 0 *.LEFT = 6 .ZORDER(1) ENDWITH WITH THIS.Image2 * .TOP = 0 * .LEFT = 6 .ZORDER(1) ENDWITH WITH THIS.Image3 *.TOP = 7 *.LEFT = 13 .ZORDER(0) .VISIBLE = IIF(!EMPTY(.PICTURE), .T., .F.) ENDWITH WITH THIS.Shape1 .TOP = 0 .LEFT = 6 .BORDERSTYLE = 0 .ZORDER(0) ENDWITH ENDPROC PROCEDURE Click THIS.shape1.CLICK() MOUSE CLICK ENDPROC )Top = 2 Left = 75 Width = 209 Height = 89 Name = "Ribbongroup1" Shape1.Name = "Shape1" Ribbonlabel1.Caption = "Empresas" Ribbonlabel1.Name = "Ribbonlabel1" Image1.Name = "Image1" _SHAPE2.Name = "_SHAPE2" RIBBONBUTTONGROUP1.Image1.Height = 32 RIBBONBUTTONGROUP1.Image1.Width = 32 RIBBONBUTTONGROUP1.Image1.Name = "Image1" RIBBONBUTTONGROUP1.XSHAPE2.Name = "XSHAPE2" RIBBONBUTTONGROUP1.Shape1.Name = "Shape1" RIBBONBUTTONGROUP1.Command1.Name = "Command1" RIBBONBUTTONGROUP1.Image2.Name = "Image2" RIBBONBUTTONGROUP1.Ribbonlabel1.Name = "Ribbonlabel1" RIBBONBUTTONGROUP1.RIBBONLABEL2.Name = "RIBBONLABEL2" RIBBONBUTTONGROUP1.MARLETT.Name = "MARLETT" RIBBONBUTTONGROUP1.X1.Name = "X1" RIBBONBUTTONGROUP1.X2.Name = "X2" RIBBONBUTTONGROUP1.Z1.Name = "Z1" RIBBONBUTTONGROUP1.Z2.Name = "Z2" RIBBONBUTTONGROUP1.X6.Name = "X6" RIBBONBUTTONGROUP1.X5.Name = "X5" RIBBONBUTTONGROUP1.X4.Name = "X4" RIBBONBUTTONGROUP1.X3.Name = "X3" RIBBONBUTTONGROUP1.Z3.Name = "Z3" RIBBONBUTTONGROUP1.Z4.Name = "Z4" RIBBONBUTTONGROUP1.Name = "RIBBONBUTTONGROUP1"