C:\THFOXBIN\DEVELOP\iconosxp\salirx32.bmp C:\THFOXBIN\DEVELOP\iconosxp\qtbleft.bmp C:\THFOXBIN\DEVELOP\iconosxp\titleback.bmp C:\THFOXBIN\DEVELOP\imagengif\sbth.png C:\THFOXBIN\DEVELOP\iconosxp\92x16.bmp C:\THFOXBIN\DEVELOP\imagengif\icon_trails_toggle.gif C:\THFOXBIN\DEVELOP\imagengif\icon_viewspal.gif C:\THFOXBIN\DEVELOP\iconosxp\20783x16.bmp C:\THFOXBIN\DEVELOP\imagengif\box.png C:\THFOXBIN\DEVELOP\iconosxp\qtbright.bmp C:\THFOXBIN\DEVELOP\iconosxp\qtbback.bmp C:\THFOXBIN\DEVELOP\iconosxp\ventasx16.bmp C:\THFOXBIN\DEVELOP\iconosxp\compraplusx16.bmp C:\THFOXBIN\DEVELOP\iconosxp\kardexinx16.bmp C:\THFOXBIN\DEVELOP\iconosxp\01004x16.bmp C:\THFOXBIN\DEVELOP\iconos\ojos\001.bmp C:\THFOXBIN\DEVELOP\iconosxp\carroproduccionx24.bmp C:\THFOXBIN\DEVELOP\iconosxp\05000.ico C:\THFOXBIN\DEVELOP\iconosxp\00206x16.bmp C:\THFOXBIN\DEVELOP\iconosxp\09606x16.bmp C:\THFOXBIN\DEVELOP\iconosxp\sharedclockbluex32.bmp C:\THFOXBIN\DEVELOP\iconosxp\impresora.bmp C:\THFOXBIN\DEVELOP\iconosxp\excelx48.bmp C:\THFOXBIN\DEVELOP\imagengif\marcosimagen2.jpg Width = 200 Height = 200 BorderWidth = 0 Name = "vista" Height = 60 Width = 63 Picture = ..\iconosxp\salirx32.bmp Caption = "" ToolTipText = "Finaliza o termina la ejecuación del formulario" Name = "cmdsalir" ** PROCEDURE Click THISFORM.RELEASE ENDPROC ** Width = 511 Height = 201 Enabled = .F. BackColor = 255,255,240 BorderColor = 192,192,192 Name = "datoresumen" ** PROCEDURE Init THIS.TEXT21.VALUE = SINICIAL+COMPRAS+VENTAS+PRODE+TRANSE THIS.TEXT22.VALUE = VENTAS+PRODS+TRANSS THIS.TEXT23.VALUE = CSINICIAL+CVENTAS+CPRODE+CTRANSE THIS.TEXT24.VALUE = COSTOS+CPRODS+CTRANSS THIS.TEXT26.VALUE = (SINICIAL+COMPRAS+VENTAS+PRODE+TRANSE)-(VENTAS+PRODS+TRANSS) THIS.TEXT28.VALUE = (CSINICIAL+CVENTAS+CPRODE+CTRANSE)-(COSTOS+CPRODS+CTRANSS) ENDPROC ** PROCEDURE GotFocus THIS.TEXT21.VALUE = ABS(SINICIAL)+ABS(COMPRAS)+ABS(VENTAS)+ABS(PRODE)+ABS(TRANSE) THIS.TEXT22.VALUE = ABS(VENTAS)+ABS(PRODS)+ABS(TRANSS) THIS.TEXT23.VALUE = ABS(CSINICIAL)+ABS(CVENTAS)+ABS(CPRODE)+ABS(CTRANSE) THIS.TEXT24.VALUE = ABS(COSTOS)+ABS(CPRODS)+ABS(CTRANSS) THIS.TEXT26.VALUE = (ABS(SINICIAL)+ABS(COMPRAS)+ABS(VENTAS)+ABS(PRODE+TRANSE))-(ABS(VENTAS)+ABS(PRODS)+ABS(TRANSS)) THIS.TEXT28.VALUE = (ABS(CSINICIAL)+ABS(CVENTAS)+ABS(CPRODE+CTRANSE))-(ABS(COSTOS)+ABS(CPRODS)+ABS(CTRANSS)) ENDPROC ** PROCEDURE Refresh THIS.TEXT21.VALUE = SINICIAL+COMPRAS+VENTAS+PRODE+TRANSE THIS.TEXT22.VALUE = VENTAS+PRODS+TRANSS THIS.TEXT23.VALUE = CSINICIAL+CVENTAS+CPRODE+CTRANSE THIS.TEXT24.VALUE = COSTOS+CPRODS+CTRANSS THIS.TEXT26.VALUE = (SINICIAL+COMPRAS+VENTAS+PRODE+TRANSE)-(VENTAS+PRODS+TRANSS) THIS.TEXT28.VALUE = (CSINICIAL+CVENTAS+CPRODE+CTRANSE)-(COSTOS+CPRODS+CTRANSS) ENDPROC ** PROCEDURE SetFocus THIS.TEXT21.VALUE = SINICIAL+COMPRAS+VENTAS+PRODE+TRANSE THIS.TEXT22.VALUE = VENTAS+PRODS+TRANSS THIS.TEXT23.VALUE = CSINICIAL+CVENTAS+CPRODE+CTRANSE THIS.TEXT24.VALUE = COSTOS+CPRODS+CTRANSS THIS.TEXT26.VALUE = (SINICIAL+COMPRAS+VENTAS+PRODE+TRANSE)-(VENTAS+PRODS+TRANSS) THIS.TEXT28.VALUE = (CSINICIAL+CVENTAS+CPRODE+CTRANSE)-(COSTOS+CPRODS+CTRANSS) ENDPROC ** AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Kilos Entradas" Height = 17 Left = 91 Top = 32 Width = 84 Name = "Label1" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Kilos Salidas" Height = 17 Left = 193 Top = 32 Width = 75 Name = "Label2" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Soles Entradas" Height = 17 Left = 296 Top = 32 Width = 88 Name = "Label3" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Soles Salidas" Height = 17 Left = 398 Top = 32 Width = 79 Name = "Label4" AutoSize = .T. BackStyle = 0 Caption = "Saldo Inicial" Height = 17 Left = 11 Top = 48 Width = 69 Name = "Label5" AutoSize = .T. BackStyle = 0 Caption = "Compras" Height = 17 Left = 11 Top = 69 Width = 54 Name = "Label6" AutoSize = .T. BackStyle = 0 Caption = "Ventas" Height = 17 Left = 11 Top = 90 Width = 40 Name = "Label7" AutoSize = .T. BackStyle = 0 Caption = "Producción" Height = 17 Left = 11 Top = 111 Width = 64 Name = "Label8" AutoSize = .T. BackStyle = 0 Caption = "Traslados" Height = 17 Left = 11 Top = 132 Width = 58 Name = "Label9" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Totales" Height = 17 Left = 11 Top = 157 Width = 44 Name = "Label10" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Saldo" Height = 17 Left = 11 Top = 177 Width = 34 Name = "Label11" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "sinicial" Height = 21 InputMask = "9,999,999.999" Left = 91 ReadOnly = .T. Top = 48 Width = 96 DisabledBackColor = 255,255,236 Name = "Text1" Alignment = 3 BorderStyle = 0 Value = 0 Height = 21 InputMask = "9,999,999.999" Left = 193 ReadOnly = .T. Top = 48 Width = 96 DisabledBackColor = 255,255,236 Name = "Text2" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "csinicial" Height = 21 InputMask = "9,999,999.999" Left = 296 ReadOnly = .T. Top = 48 Width = 96 DisabledBackColor = 255,255,236 Name = "Text3" Alignment = 3 BorderStyle = 0 Value = 0 Height = 21 InputMask = "9,999,999.999" Left = 398 ReadOnly = .T. Top = 48 Width = 96 DisabledBackColor = 255,255,236 Name = "Text4" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "compras" Height = 21 InputMask = "9,999,999.999" Left = 91 ReadOnly = .T. Top = 69 Width = 96 DisabledBackColor = 255,255,236 Name = "Text5" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "credcant" Height = 21 InputMask = "9,999,999.999" Left = 193 ReadOnly = .T. Top = 69 Width = 96 DisabledBackColor = 255,255,236 Name = "Text6" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "costos" Height = 21 InputMask = "9,999,999.999" Left = 296 ReadOnly = .T. Top = 69 Width = 96 DisabledBackColor = 255,255,236 Name = "Text7" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "credcosto" Height = 21 InputMask = "9,999,999.999" Left = 398 ReadOnly = .T. Top = 69 Width = 96 DisabledBackColor = 255,255,236 Name = "Text8" Alignment = 3 BorderStyle = 0 Value = 0 Height = 21 InputMask = "9,999,999.999" Left = 91 ReadOnly = .T. Top = 90 Width = 96 DisabledBackColor = 255,255,236 Name = "Text9" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "ventas" Height = 21 InputMask = "9,999,999.999" Left = 193 ReadOnly = .T. Top = 90 Width = 96 DisabledBackColor = 255,255,236 Name = "Text10" Alignment = 3 BorderStyle = 0 Value = 0 Height = 21 InputMask = "9,999,999.999" Left = 296 ReadOnly = .T. Top = 90 Width = 96 DisabledBackColor = 255,255,236 Name = "Text11" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "cventas" Height = 21 InputMask = "9,999,999.999" Left = 398 ReadOnly = .T. Top = 90 Width = 96 DisabledBackColor = 255,255,236 Name = "Text12" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "prode" Height = 21 InputMask = "9,999,999.999" Left = 91 ReadOnly = .T. Top = 111 Width = 96 DisabledBackColor = 255,255,236 Name = "Text13" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "prods" Height = 21 InputMask = "9,999,999.999" Left = 193 ReadOnly = .T. Top = 111 Width = 96 DisabledBackColor = 255,255,236 Name = "Text14" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "cprode" Height = 21 InputMask = "9,999,999.999" Left = 296 ReadOnly = .T. Top = 111 Width = 96 DisabledBackColor = 255,255,236 Name = "Text15" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "cprods" Height = 21 InputMask = "9,999,999.999" Left = 398 ReadOnly = .T. Top = 111 Width = 96 DisabledBackColor = 255,255,236 Name = "Text16" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "transe" Height = 21 InputMask = "9,999,999.999" Left = 91 ReadOnly = .T. Top = 132 Width = 96 DisabledBackColor = 255,255,236 Name = "Text17" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "transs" Height = 21 InputMask = "9,999,999.999" Left = 193 ReadOnly = .T. Top = 132 Width = 96 DisabledBackColor = 255,255,236 Name = "Text18" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "ctranse" Height = 21 InputMask = "9,999,999.999" Left = 296 ReadOnly = .T. Top = 132 Width = 96 DisabledBackColor = 255,255,236 Name = "Text19" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "ctranss" Height = 21 InputMask = "9,999,999.999" Left = 398 ReadOnly = .T. Top = 132 Width = 96 DisabledBackColor = 255,255,236 Name = "Text20" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "kilose" Height = 21 InputMask = "9,999,999.999" Left = 91 ReadOnly = .T. Top = 157 Width = 96 DisabledBackColor = 255,255,236 Name = "Text21" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "kiloss" Height = 21 InputMask = "9,999,999.999" Left = 193 ReadOnly = .T. Top = 157 Width = 96 DisabledBackColor = 255,255,236 Name = "Text22" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "solese" Height = 21 InputMask = "9,999,999.999" Left = 296 ReadOnly = .T. Top = 157 Width = 96 DisabledBackColor = 255,255,236 Name = "Text23" Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "soless" Height = 21 InputMask = "9,999,999.999" Left = 398 ReadOnly = .T. Top = 157 Width = 96 DisabledBackColor = 255,255,236 Name = "Text24" FontBold = .T. Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "saldok" Height = 21 InputMask = "9,999,999.999" Left = 193 ReadOnly = .T. Top = 177 Width = 96 DisabledBackColor = 255,255,236 Name = "Text26" FontBold = .T. Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "saldos" Height = 21 InputMask = "9,999,999.999" Left = 398 ReadOnly = .T. Top = 177 Width = 96 DisabledBackColor = 255,255,236 Name = "Text28" BorderWidth = 2 Height = 0 Left = 132 Top = 153 Width = 373 Name = "Line1" BorderWidth = 2 Height = 0 Left = 12 Top = 29 Width = 493 Name = "Line2" FontBold = .T. ControlSource = "producto" Height = 23 Left = 108 ReadOnly = .T. Top = 3 Width = 396 ForeColor = 0,0,255 DisabledBackColor = 255,255,236 Name = "Text25" FontBold = .T. ControlSource = "ad01_copr" Height = 23 Left = 12 ReadOnly = .T. Top = 3 Width = 84 ForeColor = 0,0,255 DisabledBackColor = 255,255,236 Name = "Text27" Caption = "mainToolbar" Height = 35 Left = 0 Movable = .F. Top = 0 Width = 901 BackColor = 244,244,244 ControlBox = .F. Name = "maintitlebar" This.cambiaojos() This.desactivamenu() PROCEDURE cambiaojos LPARAMETERS NNROJO THIS.BARTITLEMAIN1.CAMBIAOJOS(NNROJO) ENDPROC PROCEDURE desactivamenu LPARAMETERS NIDMENU AS NUMBER THIS.BARTITLEMAIN1.DESACTIVAMENU(NIDMENU) ENDPROC PROCEDURE Resize THIS.BARTITLEMAIN1.WIDTH = _SCREEN.WIDTH-5 ENDPROC PROCEDURE Init THIS.DOCK(0) THIS.BARTITLEMAIN1.WIDTH = _SCREEN.WIDTH-20 ENDPROC PROCEDURE DblClick NODEFAULT ENDPROC PROCEDURE AfterDock THIS.DOCK(1) ENDPROC Top = 3 Left = 5 Name = "Bartitlemain1" Image9.Name = "Image9" Shape5.Name = "Shape5" Image14.Name = "Image14" shpmenu2.Name = "shpmenu2" shpmenu1.Name = "shpmenu1" shpmenu3.Name = "shpmenu3" shpmenu4.Name = "shpmenu4" Label2.Name = "Label2" Image19.Name = "Image19" Image20.Height = 16 Image20.Width = 16 Image20.Name = "Image20" Textselecc5.Name = "Textselecc5" Textselecc6.Name = "Textselecc6" Textselecc7.Name = "Textselecc7" Textselecc8.Name = "Textselecc8" Image21.Height = 20 Image21.Width = 20 Image21.Name = "Image21" Image22.Height = 16 Image22.Width = 16 Image22.Name = "Image22" Image23.Height = 16 Image23.Width = 16 Image23.Name = "Image23" Image17.Name = "Image17" Textfind2.Shape1.Name = "Shape1" Textfind2.Image1.Height = 20 Textfind2.Image1.Width = 26 Textfind2.Image1.Name = "Image1" Textfind2.Label1.Name = "Label1" Textfind2.Image2.Height = 5 Textfind2.Image2.Width = 9 Textfind2.Image2.Name = "Image2" Textfind2.Text1.Name = "Text1" Textfind2.Text2.Name = "Text2" Textfind2.Name = "Textfind2" Image1.Name = "Image1" Image2.Name = "Image2" Image3.Height = 16 Image3.Width = 16 Image3.Name = "Image3" Image4.Height = 16 Image4.Width = 16 Image4.Name = "Image4" Image5.Height = 16 Image5.Width = 16 Image5.Name = "Image5" Image6.Height = 16 Image6.Width = 16 Image6.Name = "Image6" Ojos.Height = 32 Ojos.Width = 32 Ojos.Name = "Ojos" Timer1.Name = "Timer1" Image7.Height = 24 Image7.Width = 24 Image7.Name = "Image7" Image8.Name = "Image8" Image10.Height = 16 Image10.Width = 16 Image10.Name = "Image10" Width = 1011 Height = 27 BackStyle = 0 BorderWidth = 0 Style = 3 nhandlemenu = .NULL. ultimotime = 0 nxcoord = 0 nycoord = 0 nhandlemain = .NULL. Name = "bartitlemain" This.Nidmenuactivo This.Nhandlemenu This.Ultimotime This.Nxcoord This.Nycoord This.Nhandlemain This.cambiaojos() This.clicktools() This.desactivamenu() This.desactivallmenu() This.buscacambio() PROCEDURE cambiaojos LPARAMETERS NNROJO DO CASE CASE NNROJO=7 THIS.OJOS.PICTURE = "iconos\ojo007.bmp" CASE NNROJO=8 THIS.OJOS.PICTURE = "iconos\ojo008.bmp" CASE NNROJO=9 THIS.OJOS.PICTURE = "iconos\ojo009.bmp" CASE NNROJO=6 THIS.OJOS.PICTURE = "iconos\ojo006.bmp" CASE NNROJO=1 THIS.OJOS.PICTURE = "iconos\ojo001.bmp" CASE NNROJO=10 THIS.OJOS.PICTURE = "iconos\ojo010.bmp" CASE NNROJO=5 THIS.OJOS.PICTURE = "iconos\ojo005.bmp" CASE NNROJO=4 THIS.OJOS.PICTURE = "iconos\ojo004.bmp" CASE NNROJO=3 THIS.OJOS.PICTURE = "iconos\ojo003.bmp" CASE NNROJO=11 THIS.OJOS.PICTURE = "iconos\ojo011.bmp" CASE NNROJO=2 THIS.OJOS.PICTURE = "iconos\ojo002.bmp" ENDCASE ENDPROC PROCEDURE clicktools Lparameters NIDITEM OVARIABLE = Createobject("variables") OVARIABLE.CSERIE = "" OVARIABLE.NNUMERO = 0 OVARIABLE.ESNUEVO = .T. OVARIABLE.CCODPRODUCTO = "" OVARIABLE.CDESCRPRODUCTO = "" Do Case Case NIDITEM=100 .And. VERNIVEL(1, 4) OTASKING.RUNAPP("ventas", "Ventas", "", "ovariable", .F.) Case NIDITEM=200 .And. VERNIVEL(4, 4) OTASKING.RUNAPP("compras", "Nueva Compra Mercadería", "", "ovariable", .F.) Case NIDITEM=300 .And. VERNIVEL(5, 15) OVARIABLE.NNUMERO = 0 OVARIABLE.CCODPRODUCTO = "" OVARIABLE.CDESCRPRODUCTO = "" OVARIABLE.CNRODOCUMENTO = "" OVARIABLE.CKEYSERIE = "" OVARIABLE.CSERIE = "" OTASKING.RUNAPP("kardex", "Kardex de Producto", "", 'ovariable', .F.) Case NIDITEM=400 .And. VERNIVEL(6, 12) CALIASCAJA = Alias() cporalmacen=[] If !_ALMACENDEFAULT=0 CPORALMACEN = ' and almacen='+Str(_ALMACENDEFAULT, 3, 0) Endif CSCADENASQL = 'select * from cajabancos where estado=0 and tipo=1 '+cporalmacen+' order by descripcion ' *CSCADENASQL = 'select * from cajabancos where tipo=1 order by descripcion' NRESULTADOS = SQLExec(HANDLESQL, CSCADENASQL, "vcaja", ACOUNTINFO) If NRESULTADOS<0 = ERRORDATA("buscando cajas") Return Else If Used("vcaja") If Reccount("vcaja")>0 NLOCUENTA = 0 Dimension OVARIABLE.ADOCEMIT[RECCOUNT("vcaja")] Select VCAJA Scan NLOCUENTA = NLOCUENTA+1 OVARIABLE.ADOCEMIT[NLOCUENTA] = Alltrim(DESCRIPCION) Endscan OVARIABLE.CDESCRPRODUCTO = "Caja a Seleccionar" Do Form comboseleccion With OVARIABLE If OVARIABLE.ESNUEVO Select VCAJA Goto OVARIABLE.VALORRETORNO CPARAMETERS = Str(VCAJA.CODIGO, 3, 0)+",,,'"+VCAJA.DESCRIPCION+"'" If Used("vcaja") Select VCAJA Use If .Not. Empty(CALIASCAJA) .And. Used(CALIASCAJA) Select (CALIASCAJA) Endif Endif OTASKING.RUNAPP("recibosdecaja", "Recibos de Caja", "", CPARAMETERS, .F.) Endif Endif Endif Endif Case NIDITEM=500 .And. VERNIVEL(6, 13) CPARAMETERS = '0' OTASKING.RUNAPP("movimientobanco", "Movimiento de Banco", "", CPARAMETERS, .F.) Case NIDITEM=800 OTASKING.RUNAPP("pizarra", "Pizarra de Publicaciones", "", "", .F.) Case NIDITEM=810 .And. VERNIVEL(5, 22) OTASKING.RUNAPP("carritocomprasverify", "Verificador de Carrito Compras", "", "", .F.) Case NIDITEM=10000 This.DESACTIVALLMENU() Do Form menu10000 Name This.NHANDLEMAIN Linked This.NIDMENUACTIVO = .T. Case NIDITEM=10010 This.DESACTIVALLMENU() Do Form menu10010x Name This.NHANDLEMENU Linked This.NHANDLEMENU.SIPIERDEFOCO = .T. This.SHPMENU1.BackStyle = 1 This.SHPMENU1.Visible = .T. This.NIDMENUACTIVO = .T. Case NIDITEM=10020 This.DESACTIVALLMENU() If Isnull(NHANDLEMENU20) Do Form menu10020 Name NHANDLEMENU20 Linked Else NHANDLEMENU20.Visible = .T. Endif This.SHPMENU2.BackStyle = 1 This.SHPMENU2.Visible = .T. This.NIDMENUACTIVO = .T. Case NIDITEM=10030 This.DESACTIVALLMENU() If Isnull(NHANDLEMENU30) Do Form menu10030 Name NHANDLEMENU30 Linked Else NHANDLEMENU30.Visible = .T. Endif This.SHPMENU3.BackStyle = 1 This.SHPMENU3.Visible = .T. This.NIDMENUACTIVO = .T. Case NIDITEM=10040 This.DESACTIVALLMENU() If Isnull(NHANDLEMENU40) Do Form menu10040 Name NHANDLEMENU40 Linked Else NHANDLEMENU40.Visible = .T. Endif This.SHPMENU4.BackStyle = 1 This.SHPMENU4.Visible = .T. This.NIDMENUACTIVO = .T. Case NIDITEM=10050 This.DESACTIVALLMENU() If Isnull(NHANDLEMENU50) Do Form menu10050 Name NHANDLEMENU50 Linked Else NHANDLEMENU50.Visible = .T. Endif This.SHPMENU4.BackStyle = 1 This.SHPMENU4.Visible = .T. This.NIDMENUACTIVO = .T. Case NIDITEM=10099 If Isnull(NHANDLEMENU99) Do Form menu10099 Name NHANDLEMENU99 Linked Else NHANDLEMENU99.Visible = .T. Endif Endcase ENDPROC PROCEDURE desactivamenu LPARAMETERS NIDMENU AS NUMBER DO CASE CASE NIDMENU=10010 THIS.SHPMENU1.BACKSTYLE = 0 THIS.SHPMENU1.VISIBLE = .F. CASE NIDMENU=10020 THIS.SHPMENU2.BACKSTYLE = 0 THIS.SHPMENU2.VISIBLE = .F. CASE NIDMENU=10030 THIS.SHPMENU3.BACKSTYLE = 0 THIS.SHPMENU3.VISIBLE = .F. CASE NIDMENU=10040 THIS.SHPMENU4.BACKSTYLE = 0 THIS.SHPMENU4.VISIBLE = .F. CASE NIDMENU=10050 THIS.SHPMENU4.BACKSTYLE = 0 THIS.SHPMENU4.VISIBLE = .F. ENDCASE THIS.NIDMENUACTIVO = .F. ENDPROC PROCEDURE desactivallmenu THIS.SHPMENU1.BACKSTYLE = 0 THIS.SHPMENU1.VISIBLE = .F. THIS.SHPMENU2.BACKSTYLE = 0 THIS.SHPMENU2.VISIBLE = .F. THIS.SHPMENU3.BACKSTYLE = 0 THIS.SHPMENU3.VISIBLE = .F. THIS.SHPMENU4.BACKSTYLE = 0 THIS.SHPMENU4.VISIBLE = .F. THIS.NIDMENUACTIVO = .F. IF .NOT. ISNULL(THIS.NHANDLEMAIN) THIS.NHANDLEMAIN.RELEASE ENDIF IF .NOT. ISNULL(THIS.NHANDLEMENU) THIS.NHANDLEMENU.RELEASE ENDIF IF .NOT. ISNULL(NHANDLEMENU20) NHANDLEMENU20.VISIBLE = .F. ENDIF IF .NOT. ISNULL(NHANDLEMENU30) NHANDLEMENU30.VISIBLE = .F. ENDIF IF .NOT. ISNULL(NHANDLEMENU40) NHANDLEMENU40.VISIBLE = .F. ENDIF IF .NOT. ISNULL(NHANDLEMENU50) NHANDLEMENU50.VISIBLE = .F. ENDIF ENDPROC PROCEDURE buscacambio dfecha=DATE() csCadenaSQL="select tipocambio.* from tipocambio where fecha='"+Dtoc(DFECHA)+"'" NRESULTADOS = SQLExec(HANDLESQL, CSCADENASQL, "mycambio", ACOUNTINFO) If nresultados>0 Select MYCAMBIO Goto Top ncambio=mycambio.cambio this.lbltipocambio.Caption=[T.C. ]+ALLTRIM(STR(ncambio,6,3)) Else = ERRORDATA("buscando tipo cambio del día") Endif ENDPROC PROCEDURE DblClick NODEFAULT ENDPROC PROCEDURE Init IF _MAC DIMENSION A_OJOS[11] ENDIF this.buscacambio ENDPROC PROCEDURE Error LPARAMETERS NERROR, CMETHOD, NLINE = ERRORES(NERROR, CMETHOD, NLINE) ENDPROC Picture = ..\iconosxp\qtbleft.bmp Stretch = 2 Height = 28 Left = 137 Top = 0 Width = 19 Name = "Image9" Top = 1 Left = -85 Height = 49 Width = 232 Curvature = 35 BackColor = 196,10,0 BorderColor = 196,10,0 Name = "Shape5" Anchor = 10 Picture = ..\iconosxp\titleback.bmp Stretch = 2 Height = 28 Left = 264 Top = 0 Width = 679 Name = "Image14" Top = 3 Left = 358 Height = 28 Width = 104 BackStyle = 0 Visible = .F. SpecialEffect = 0 BackColor = 255,172,89 Name = "shpmenu2" Top = 3 Left = 279 Height = 28 Width = 78 BackStyle = 0 Visible = .F. SpecialEffect = 0 BackColor = 207,207,207 Name = "shpmenu1" Top = 3 Left = 463 Height = 28 Width = 70 BackStyle = 0 Visible = .F. SpecialEffect = 0 BackColor = 180,185,70 Name = "shpmenu3" Top = 3 Left = 534 Height = 28 Width = 75 BackStyle = 0 Visible = .F. SpecialEffect = 0 BackColor = 185,220,255 Name = "shpmenu4" AutoSize = .T. FontBold = .T. FontName = "MS Sans Serif" BackStyle = 0 Caption = "Gestión Empresarial 3.5" Height = 15 Left = 4 MousePointer = 15 Top = 8 Width = 136 ForeColor = 255,255,255 Name = "Label2" PROCEDURE Click If Type("_screen.activeform")="O" If _Screen.ActiveForm.WindowType=1 Messagebox("Finalize el módulo actual", 64, CTITLEMESSAGEBOX) Return Endif Endif This.Parent.CLICKTOOLS(10000) ENDPROC Anchor = 8 Picture = ..\imagengif\sbth.png Stretch = 2 Height = 27 Left = 828 Top = 0 Width = 12 Name = "Image19" Picture = ..\iconosxp\92x16.bmp BackStyle = 0 Height = 16 Left = 538 Top = 6 Width = 16 Name = "Image20" FontBold = .T. FontName = "MS Sans Serif" Caption = "Ventanas" Left = 300 Top = 6 niditem = 10010 Name = "Textselecc5" PROCEDURE Click If Type("_screen.activeform")="O" If _Screen.ActiveForm.WindowType=1 Messagebox("No puede cambiar de tarea hasta finalizar el módulo actual", 64, CTITLEMESSAGEBOX) Return Endif Endif This.Parent.CLICKTOOLS(This.NIDITEM) ENDPROC PROCEDURE MouseLeave LPARAMETERS NBUTTON, NSHIFT, NXCOORD, NYCOORD DODEFAULT() IF .NOT. THIS.PARENT.NIDMENUACTIVO THIS.PARENT.SHPMENU1.VISIBLE = .F. ENDIF ENDPROC PROCEDURE MouseEnter LPARAMETERS NBUTTON, NSHIFT, NXCOORD, NYCOORD DODEFAULT() THIS.PARENT.SHPMENU1.VISIBLE = .T. IF THIS.PARENT.NIDMENUACTIVO THIS.CLICK ENDIF ENDPROC FontBold = .T. FontName = "MS Sans Serif" Caption = "Aplicaciones" Left = 382 Top = 6 niditem = 10020 Name = "Textselecc6" PROCEDURE Click If Type("_screen.activeform")="O" If _Screen.ActiveForm.WindowType=1 Messagebox("Finalize el módulo actual", 64, CTITLEMESSAGEBOX) Return Endif Endif This.Parent.CLICKTOOLS(This.NIDITEM) ENDPROC PROCEDURE MouseEnter LPARAMETERS NBUTTON, NSHIFT, NXCOORD, NYCOORD DODEFAULT() THIS.PARENT.SHPMENU2.VISIBLE = .T. IF THIS.PARENT.NIDMENUACTIVO THIS.CLICK ENDIF ENDPROC PROCEDURE MouseLeave LPARAMETERS NBUTTON, NSHIFT, NXCOORD, NYCOORD DODEFAULT() IF .NOT. THIS.PARENT.NIDMENUACTIVO THIS.PARENT.SHPMENU2.VISIBLE = .F. ENDIF ENDPROC FontBold = .T. FontName = "MS Sans Serif" Caption = "Planing" Left = 486 Top = 6 niditem = 10030 Name = "Textselecc7" PROCEDURE Click If Type("_screen.activeform")="O" If _Screen.ActiveForm.WindowType=1 Messagebox("Finalize el módulo actual", 64, CTITLEMESSAGEBOX) Return Endif Endif This.Parent.CLICKTOOLS(This.NIDITEM) ENDPROC PROCEDURE MouseEnter LPARAMETERS NBUTTON, NSHIFT, NXCOORD, NYCOORD DODEFAULT() THIS.PARENT.SHPMENU3.VISIBLE = .T. IF THIS.PARENT.NIDMENUACTIVO THIS.CLICK ENDIF ENDPROC PROCEDURE MouseLeave LPARAMETERS NBUTTON, NSHIFT, NXCOORD, NYCOORD DODEFAULT() IF .NOT. THIS.PARENT.NIDMENUACTIVO THIS.PARENT.SHPMENU3.VISIBLE = .F. ENDIF ENDPROC FontBold = .T. FontName = "MS Sans Serif" Caption = "Internet" Left = 558 Top = 6 niditem = 10050 Name = "Textselecc8" PROCEDURE Click If Type("_screen.activeform")="O" If _Screen.ActiveForm.WindowType=1 Messagebox("Finalize el módulo actual", 64, CTITLEMESSAGEBOX) Return Endif Endif This.Parent.CLICKTOOLS(This.NIDITEM) ENDPROC PROCEDURE MouseEnter LPARAMETERS NBUTTON, NSHIFT, NXCOORD, NYCOORD DODEFAULT() THIS.PARENT.SHPMENU4.VISIBLE = .T. IF THIS.PARENT.NIDMENUACTIVO THIS.CLICK ENDIF ENDPROC PROCEDURE MouseLeave LPARAMETERS NBUTTON, NSHIFT, NXCOORD, NYCOORD DODEFAULT() IF .NOT. THIS.PARENT.NIDMENUACTIVO THIS.PARENT.SHPMENU4.VISIBLE = .F. ENDIF ENDPROC Picture = ..\imagengif\icon_trails_toggle.gif BackStyle = 0 Height = 20 Left = 358 Top = 6 Width = 20 Name = "Image21" Picture = ..\imagengif\icon_viewspal.gif BackStyle = 0 Height = 16 Left = 283 Top = 6 Width = 16 Name = "Image22" Picture = ..\iconosxp\20783x16.bmp BackStyle = 0 Height = 16 Left = 466 Top = 6 Width = 16 Name = "Image23" Anchor = 8 Picture = ..\imagengif\box.png Stretch = 2 Height = 28 Left = 841 Top = 0 Width = 184 Name = "Image17" Picture = ..\iconosxp\qtbright.bmp Stretch = 2 Height = 27 Left = 265 Top = 0 Width = 12 Name = "Image1" Picture = ..\iconosxp\qtbback.bmp Stretch = 2 Height = 28 Left = 155 Top = 0 Width = 111 Name = "Image2" Picture = ..\iconosxp\ventasx16.bmp BackStyle = 0 Height = 16 Left = 155 MousePointer = 15 Top = 7 Width = 16 ToolTipText = "Documento de Ventas" Name = "Image3" PROCEDURE Click THIS.PARENT.CLICKTOOLS(100) ENDPROC Picture = ..\iconosxp\compraplusx16.bmp BackStyle = 0 Height = 16 Left = 177 MousePointer = 15 Top = 7 Width = 16 ToolTipText = "Documento de Compras" Name = "Image4" PROCEDURE Click THIS.PARENT.CLICKTOOLS(200) ENDPROC Picture = ..\iconosxp\kardexinx16.bmp BackStyle = 0 Height = 16 Left = 199 MousePointer = 15 Top = 8 Width = 16 ToolTipText = "Kardex de Productos" Name = "Image5" PROCEDURE Click THIS.PARENT.CLICKTOOLS(300) ENDPROC Picture = ..\iconosxp\01004x16.bmp BackStyle = 0 Height = 16 Left = 221 MousePointer = 15 Top = 8 Width = 16 ToolTipText = "Recibo de Caja" Name = "Image6" PROCEDURE Click THIS.PARENT.CLICKTOOLS(400) ENDPROC Anchor = 2 Picture = ..\iconos\ojos\001.bmp BackStyle = 0 Height = 32 Left = 610 Top = 3 Width = 32 Name = "Ojos" Top = -12 Left = 576 Height = 23 Width = 23 Interval = 100 Name = "Timer1" PROCEDURE Timer NCOL = Mcol("screen", 3) NFILA = Mrow("screen", 3) NSEGUNDOS = Seconds() If This.Parent.NXCOORD=NFILA .And. This.Parent.NYCOORD=NCOL If This.Parent.ULTIMOTIME+60<=NSEGUNDOS If This.Parent.ULTIMOTIME+120 Anchor = 8 Picture = ..\iconosxp\carroproduccionx24.bmp BackStyle = 0 Height = 24 Left = 801 Top = 2 Width = 24 Name = "Image7" PROCEDURE Click THIS.PARENT.CLICKTOOLS(810) ENDPROC PROCEDURE Init THIS.TOOLTIPTEXT = 'Carrito de Compras análisis de'+CHR(13)+'requerimientos de productos'+CHR(13)+'aprobación y generación de orden compra' ENDPROC Anchor = 8 Picture = ..\iconosxp\05000.ico Stretch = 2 BackStyle = 0 Height = 24 Left = 775 Top = 2 Width = 24 Name = "Image8" PROCEDURE Init THIS.TOOLTIPTEXT = 'Tabloide donde el usuario'+CHR(13)+'realizara las publicaciones de las'+CHR(13)+'consultas principales visualizadas'+CHR(13)+'como gráfico o tipo lista o tabla' ENDPROC PROCEDURE MouseDown LPARAMETERS NBUTTON, NSHIFT, NXCOORD, NYCOORD IF NBUTTON=1 IF NSHIFT=2 OTASKING.RUNAPP("pizarra", "Pizarra de Publicaciones", "", ".f., 1", .F.) ELSE OTASKING.RUNAPP("pizarra", "Pizarra de Publicaciones", "", "", .F.) ENDIF ENDIF ENDPROC Picture = ..\iconosxp\00206x16.bmp BackStyle = 0 Height = 16 Left = 244 MousePointer = 15 Top = 7 Width = 16 ToolTipText = "Movimiento Bancos" Name = "Image10" PROCEDURE Click THIS.PARENT.CLICKTOOLS(500) ENDPROC Anchor = 8 Picture = ..\imagengif\box.png Stretch = 2 Height = 28 Left = 695 Top = 0 Width = 77 Name = "Image11" FontBold = .T. FontName = "MS Sans Serif" FontSize = 10 Anchor = 8 Caption = "T.C. 2.873" Left = 699 Top = 6 ForeColor = 255,0,0 niditem = 10050 Name = "lbltipocambio" PROCEDURE Click this.Parent.buscacambio ENDPROC FontBold = .T. FontName = "MS Sans Serif" Anchor = 8 Caption = "Tareas/Alertas/Notif." Left = 873 Top = 6 niditem = 10099 Name = "Textselecc1" PROCEDURE MouseEnter LPARAMETERS NBUTTON, NSHIFT, NXCOORD, NYCOORD DODEFAULT() IF THIS.PARENT.NIDMENUACTIVO THIS.CLICK ENDIF ENDPROC PROCEDURE MouseLeave Lparameters NBUTTON, NSHIFT, NXCOORD, NYCOORD DoDefault() If .Not. This.Parent.NIDMENUACTIVO *THIS.PARENT.SHPMENU1.VISIBLE = .F. Endif ENDPROC PROCEDURE Click If Type("_screen.activeform")="O" If _Screen.ActiveForm.WindowType=1 Messagebox("No puede cambiar de tarea hasta finalizar el módulo actual", 64, CTITLEMESSAGEBOX) Return Endif Endif This.Parent.CLICKTOOLS(This.NIDITEM) ENDPROC Anchor = 8 Picture = ..\iconosxp\09606x16.bmp BackStyle = 0 Height = 16 Left = 851 Top = 6 Width = 16 Name = "Image12" Anchor = 8 Picture = ..\iconosxp\sharedclockbluex32.bmp BackStyle = 0 Height = 32 Left = 660 Top = -3 Width = 32 ToolTipText = "" Name = "Image13" PROCEDURE Init this.ToolTipText="Autorizado a "+CHR(13)+cnameempresa+chr(13)+"Próximo Venc: "+DTOC(date()) ENDPROC Height = 52 Width = 75 Picture = ..\iconosxp\impresora.bmp Caption = "" ToolTipText = "Imprime los datos del formulario" BackColor = 254,251,233 cnamereporte = Name = "cmdimprimir" This.Cnamereporte PROCEDURE Click If .Not. Empty(This.CNAMEREPORTE) Report Form (This.CNAMEREPORTE) To Printer Prompt Preview In Screen Else = Messagebox("No ha sido indicado ningun reporte", 64, "Acerca del Registro") Endif ENDPROC Height = 48 Width = 60 Picture = ..\iconosxp\excelx48.bmp Caption = "" BackColor = 254,251,233 ctypo = XL5 calias = cextension = xls Name = "exportabla" This.Ctypo [Indica El Tipo Al Que Va Ha Ser Importada La Tabla] This.Calias [Indica El Alias De La Tabla A Ser Importada] This.Cextension [Indica La Extension Del Formato A Exportar] PROCEDURE Click If Used(This.CALIAS) .And. Reccount(This.CALIAS)>0 CNAMEFILE = Putfile("", "", This.CEXTENSION) If .Not. Empty(CNAMEFILE) Select (This.CALIAS) CTYPO = This.CTYPO Copy To (CNAMEFILE) Type &CTYPO = Messagebox("Grabación satisfactoria", 0, "Acerca del Registro") Endif Else = Messagebox("Debe procesar para poder enviar la tabla "+Chr(13)+"al formato indicado", 64, "Acerca del Registro") Endif ENDPROC Stretch = 2 Height = 600 Width = 800 Name = "fondoescritorio" PROCEDURE MouseUp Lparameters NBUTTON, NSHIFT, NXCOORD, NYCOORD If NBUTTON=2 XACCION_MENU = 0 Define Popup SHORTCUT From Mrow(), Mcol() Relative SHORTCUT Define Bar 10 Of SHORTCUT Prompt 'Cambiar imagen de fondo...' On Selection Popup SHORTCUT Do VERMENU With Bar() Activate Popup SHORTCUT If .Not. XACCION_MENU=0 CNAMEFILE = Getpict("", "Fondo de Gestión", "Cambiar") If .Not. Empty(CNAMEFILE) This.Picture = CNAMEFILE = Strtofile(CNAMEFILE, "gdesktop.ini") Endif Endif Endif ENDPROC Caption = "Toolbar1" Height = 752 Left = 0 Movable = .F. Top = 0 Width = 97 BackColor = 244,244,244 ControlBox = .F. Name = "mainbar" This.muestrabotones [Cambia Entre Contable Y Comercial]() PROCEDURE muestrabotones Lparameters NCUALGESTION As Integer This.BARTOOLS.Clear If NCUALGESTION=1 This.BARTOOLS.ADDBOTON(5, 1, "", "", "") This.BARTOOLS.ADDBOTON(1, 100, "Clientes", "Listado de Clientes", "iconosxp\clientesx48.bmp") If _CONTINUOS This.BARTOOLS.ADDBOTON(1, 150, "Trabajos", "Listado de Trabajos Realizados", "iconos\maletin.bmp") This.BARTOOLS.ADDBOTON(1, 200, "Orden Prod.", "Listado de Ordenes de Producción", "iconosxp\produccionx48.bmp") Else This.BARTOOLS.ADDBOTON(1, 201, "Producción", "Listado de Ordenes de Producción", "iconosxp\produccionx48.bmp") Endif This.BARTOOLS.ADDBOTON(1, 250, "Proveedores", "Listado de Proveedores y Compras", "iconosxp\proveedorx48.bmp") This.BARTOOLS.ADDBOTON(1, 300, "Productos", "Listado de Productos y Kardex", "iconosxp\almacen48x48.bmp") This.BARTOOLS.ADDBOTON(1, 400, "Caja Bancos", "Listado de Caja y Bancos", "iconosxp\calculadorax48.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Ventas", "iconosxp\ventasx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Guía Remisión", "iconosxp\cotizaddx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Nota Crédito", "iconosxp\cotizaddx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Nota Débito", "iconosxp\ventaseditx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Retenciones", "iconosxp\133x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Letras", "iconosxp\01007x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Cotizaciones", "iconosxp\cotizax16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Control Central", "iconosxp\174x32.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Listado Vendedores", "iconosxp\clientesx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, IIF(_despachoventas=1,"Listado Pedidos por Despachar","Listado Despacho Buques"), "iconosxp\compranewx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "\-", "") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Listado de Ventas", "iconosXp\ventasx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Listado de Letras", "iconosXp\01007x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Listado de Cuotas", "iconosXp\01007x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Listado de Cuentas por Cobrar", "iconosXp\01007x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Listado de Ventas y Amortizaciones", "iconosXp\01007x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Listado de Cotizaciones", "iconosXp\cotizax16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Listado de Canjes", "iconosXp\copyfx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Listado de Productos x Cliente", "iconosXp\ventasx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "\-", "") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Resumen de Ventas Mensual por Clientes", "iconosxp\kardexokx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Resumen Mensual de Productos Vendidos", "iconosxp\kardexokx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Resumen Cuentas x Cobrar", "iconosxp\kardexokx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(100, "Resumen ventas a clientes por clasificación", "iconosxp\kardexokx16.bmp") This.BARTOOLS.NAMEWINDOWBOTTON(100, This.Name) This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Compra Mercadería", "iconosxp\compraplusx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Documento Gastos", "iconosxp\compraplusx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Nota de Crédito", "iconosxp\cotizaddx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Nota de Débito", "iconosxp\ventaseditx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Orden de Compra", "iconosxp\ocomprax16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Documentos x Pagar", "iconosxp\156x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Resumen Compras a Proveedores", "iconosxp\kardexokx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Resumen Productos Comprados", "iconosxp\kardexokx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "\-", "") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Listado de Compras", "iconosXp\compranewx16") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Listado de Letras", "iconosXp\01007x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Listado de Cuentas x Pagar", "iconosXp\01007x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Resumen de Cuentas x Pagar", "iconosXp\01007x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(250, "Listado de Compras y Amortizaciones", "iconosXp\01007x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(300, "Kardex de Productos", "iconosxp\kardexinx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(300, "Kardex de Series", "iconos\dmm32.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(300, "Kardex de Lotes", "iconosxp\kardexlotesx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(300, "Kardex en Línea de Tiempo", "iconosxp\kardextime16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(300, "Kardex Diario de Almacén", "iconosxp\kardexinx16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(300, "\-", "") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(300, "Transferencias", "iconosxp\kardex16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(300, "Mov. Almacén", "iconosxp\kardex16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(300, "Listado Movimiento Almacén", "iconosxp\00204x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(300, "Listado de Garantías", "iconosxp\01310x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(300, "Liquidación de Guías", "iconosxp\00204x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(400, "Recibo de Caja", "") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(400, "Movimiento Banco", "") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(400, "\-", "") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(400, "Listado de Recibos de Caja", "iconosxp\01004x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(400, "Listado de Transacciones Banco", "iconosxp\00206x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(400, "Listado de Liquidaciones", "iconosxp\00204x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(400, "Listado de Envios a Banco", "iconosxp\136x16.bmp") This.BARTOOLS.ADDMENUCONTEXTUALBOTON(400, "Listado de Operaciones a Rendir", "iconosxp\136x16.bmp") Else This.BARTOOLS.ADDBOTON(5, 1, "", "", "") This.BARTOOLS.ADDBOTON(1, 1100, "Plan de Cuentas", "Listado del Plan de Cuentas", "iconosxp\propiertesx48.bmp") This.BARTOOLS.ADDBOTON(1, 1200, "Presupuestos", "Cuentas de Presupuestos", "iconosxp\cuentasx48.bmp") This.BARTOOLS.ADDBOTON(1, 1210, "Activos Fijos", "Listado de Activos Fijos de la Empresa", "iconosxp\homex48.bmp") This.BARTOOLS.ADDBOTON(1, 1220, "Centro Costos", "Manejo de Centro de Costos de la Empresa", "iconosxp\85x48.bmp") This.BARTOOLS.ADDBOTON(1, 1300, "Libros EE/FF", "Libros Principales y Estados Financieros", "iconosxp\bookx48.bmp") This.BARTOOLS.ADDBOTON(1, 1350, "Personal", "Listado de Personal", "iconosxp\personaltimex48.bmp") This.BARTOOLS.ADDBOTON(1, 1400, "Asist. Experto", "Listado de Asientos predefinidos o expertos", "iconosxp\magicx48.bmp") Endif This.BARTOOLS.ADDBOTON(5, 0, "", "", "") CTOOLTIP = "Utilidades del Sistema"+Chr(13)+"Mantenimiento de Usuarios"+Chr(13)+"Backup de Información"+Chr(13)+"Definición de Privilegios"+Chr(13)+"Sincronización de Datos, etc." This.BARTOOLS.ADDBOTON(1, 750, "Utilidades", CTOOLTIP, "iconosxp\configuracionx48.bmp") This.BARTOOLS.ADDBOTON(1, 900, "Salir", "Finaliza la ejecución del programa", "iconosxp\exitx48.bmp") This.BARTOOLS.SHOWBARR ENDPROC PROCEDURE DblClick NODEFAULT ENDPROC PROCEDURE Show Lparameters NSTYLE If Empty(CIMAGENUSER) This.CONTAINER1.IMAGE2.PictureVal = '' This.CONTAINER1.IMAGE2.Visible = .F. Else CNAMEFILE = Sys(2004)+"MiFoto" Strtofile(CIMAGENUSER, CNAMEFILE) This.CONTAINER1.IMAGE2.Picture = CNAMEFILE This.CONTAINER1.IMAGE2.Visible = .T. This.CONTAINER1.IMAGE2.ToolTipText = "Usuario: "+Alltrim(GET_USUARIO) Endif ENDPROC PROCEDURE Init If Empty(CIMAGENUSER) This.CONTAINER1.IMAGE2.PictureVal = '' This.CONTAINER1.IMAGE2.Visible = .F. Else CNAMEFILE = Sys(2004)+"MiFoto" Strtofile(CIMAGENUSER, CNAMEFILE) This.CONTAINER1.IMAGE2.PictureVal = CIMAGENUSER This.CONTAINER1.IMAGE2.Visible = .T. This.CONTAINER1.IMAGE2.ToolTipText = "Usuario: "+Alltrim(GET_USUARIO) Endif This.Dock(1) ENDPROC PROCEDURE AfterDock THIS.DOCK(1) ENDPROC Top = 11 Left = 5 Width = 87 Height = 82 BackStyle = 0 BorderWidth = 0 MousePointer = 15 Name = "Container1" Picture = ..\imagengif\marcosimagen2.jpg Stretch = 2 Height = 87 Left = -3 Top = -2 Width = 94 Name = "Image1" PROCEDURE DblClick DO FORM cuentauser ENDPROC Stretch = 1 Height = 67 Left = 8 MousePointer = 15 Top = 7 Width = 70 Name = "Image2" PROCEDURE DblClick DO FORM cuentauser ENDPROC Top = 92 Left = 5 Height = 19 Width = 87 FontBold = .T. FontUnderline = .T. Caption = "Comercial" SpecialEffect = 2 ForeColor = 0,0,128 Name = "Command1" PROCEDURE Click If This.Caption="Comercial" This.Caption = "Contable" This.Parent.MUESTRABOTONES(2) Else This.Caption = "Comercial" This.Parent.MUESTRABOTONES(1) Endif ENDPROC Top = 110 Left = 5 Width = 87 Height = 639 BackColor = 255,255,255 orientacion = 2 sizeboton = 68 Name = "BarTools" Command1.Name = "Command1" Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" PROCEDURE Init THIS.PARENT.MUESTRABOTONES(1) ENDPROC PROCEDURE clickbotton Lparameters NIDBOTON As Integer, NIDMENU As Integer, CTEXT As Character If Type("_screen.activeform")="O" If _Screen.ActiveForm.WindowType=1 Messagebox("No puede seleccionar otra opción hasta finalizar el módulo actual", 64, CTITLEMESSAGEBOX) Return Endif Endif OTASKING.DATASESION = 1 This.Parent.Enabled = .F. OVARIABLE = Createobject("variables") OVARIABLE.CSERIE = "" OVARIABLE.NNUMERO = 0 OVARIABLE.ESNUEVO = .T. OVARIABLE.CCODPRODUCTO = "" OVARIABLE.CDESCRPRODUCTO = "" Do Case Case NIDBOTON=100 .And. (VERNIVEL(1, 0,.t.) OR vernivel(2,0,.t.)) If NIDMENU=0 OTASKING.RUNAPP("listadeclientes", "Listado de Clientes", "", "", .F.) Else Do Case Case NIDMENU=1 .And. VERNIVEL(1, 4) OTASKING.RUNAPP("ventas", "Ventas", "", "ovariable", .F.) Case NIDMENU=2 .And. VERNIVEL(1, 5) OTASKING.RUNAPP("guiaremisioncliente", "Guía Remisión Cliente", "", "ovariable", .F.) Case NIDMENU=3 .And. VERNIVEL(1, 6) OTASKING.RUNAPP("notacreditocliente", "Nota de Crédito Cliente", "", "ovariable", .F.) Case NIDMENU=4 .And. VERNIVEL(1, 7) OTASKING.RUNAPP("notadebitocliente", "Nota de Débito Cliente", "", "ovariable", .F.) Case NIDMENU=5 .And. VERNIVEL(1, 6) OTASKING.RUNAPP("retencioncliente", "Retención Cliente", "", "ovariable", .F.) Case NIDMENU=6 .And. VERNIVEL(1, 8) OTASKING.RUNAPP("letracliente", "Letras de Clientes", "", "ovariable", .F.) Case NIDMENU=7 OTASKING.RUNAPP("cotizacioncliente", "Cotización a Clientes", "", "ovariable", .F.) Case NIDMENU=8 .And. VERNIVEL(1, 12) OTASKING.RUNAPP("controlcentral", "Control Central", "", "", .F.) Case NIDMENU=9 .And. VERNIVEL(2, 0) OTASKING.RUNAPP("lstvendedor", "Listado Vendedores", "", "", .F.) Case NIDMENU=10 .And. VERNIVEL(1, 12) IF _DESPACHOVENTAS=1 OTASKING.RUNAPP("despachoventas", "Listado Pedidos por Despachar", "", "", .F.) ELSE OTASKING.RUNAPP("despachobuques", "Listado Despacho Buques", "", "", .F.) ENDIF Case NIDMENU=12 .And. VERNIVEL(1, 12) OTASKING.RUNAPP("lstventas", "Listado Ventas", "", "", .F.) Case NIDMENU=13 .And. VERNIVEL(1, 13) OTASKING.RUNAPP("listaletraclientes", "Listado Letras Clientes", "", "", .F.) Case NIDMENU=14 .And. VERNIVEL(1, 13) OTASKING.RUNAPP("listacuotasclientes", "Listado Cuotas Clientes", "", "", .F.) Case NIDMENU=15 OTASKING.RUNAPP("lstxcobrar", "Listado Cuentas por Cobrar", "", "", .F.) Case NIDMENU=16 OTASKING.RUNAPP("lstventasamortizaciones", "Listado Ventas y Amortizaciones", "", "", .F.) Case NIDMENU=17 OTASKING.RUNAPP("lstcotizacionesclientes", "Listado Cotizaciones Clientes", "", "", .F.) Case NIDMENU=18 OTASKING.RUNAPP("lstcanjeventas", "Listado Canje de Ventas", "", "", .F.) Case NIDMENU=19 OVARIABLE.CSERIE = "" OVARIABLE.NNUMERO = Year(Date()) OVARIABLE.NUNIDADES = Month(Date()) OVARIABLE.TIPO = '' OVARIABLE.NACUENTA = 0 OVARIABLE.NCUENTADOC = 0 OVARIABLE.CCODPRODUCTO = '' OVARIABLE.CDESCRPRODUCTO = '' OVARIABLE.CNRODOCUMENTO = '' OVARIABLE.DESDE = Date() OTASKING.RUNAPP("lstprodxclientexvendedor", "Productos a Clientes x Vendedor", "", "ovariable", .F.) Case NIDMENU=21 .And. VERNIVEL(1, 15) OTASKING.RUNAPP("resumenxclienteacumulado", "Resumen Ventas por Cliente", "", "", .F.) Case NIDMENU=22 .And. VERNIVEL(1, 14) OTASKING.RUNAPP("resumenxprodvendidos", "Resumen Productos Vendidos", "", "", .F.) Case NIDMENU=23 .And. VERNIVEL(1, 16) OTASKING.RUNAPP("resumenxclientexcobrar", "Resumen Cuentas por Cobrar", "", "", .F.) Case NIDMENU=24 .And. VERNIVEL(1, 16) OTASKING.RUNAPP("resumenxvtasxlineaxcliente", "Resumen Ventas por Cliente y Clasificación", "", "", .F.) Endcase Endif Case NIDBOTON=150 .And. VERNIVEL(2, 0) OTASKING.RUNAPP("listadetrabajosporclientes", "Listado de Trabajos Realizados a Clientes", "", "", .F.) Case NIDBOTON=200 .And. VERNIVEL(3, 0) OTASKING.RUNAPP("listadeordenesdetrabajo", "Listado de Ordenes de Trabajos", "", "", .F.) Case NIDBOTON=201 .And. VERNIVEL(3, 0) OTASKING.RUNAPP("listahojaprod", "Listado de Hojas de Producción", "", "", .F.) Case NIDBOTON=250 .And. VERNIVEL(4, 0) If NIDMENU=0 OTASKING.RUNAPP("lstproveedor", "Listado de Proveedores", "", "", .F.) Else Do Case Case NIDMENU=1 .And. VERNIVEL(4, 4) OTASKING.RUNAPP("compras", "Nueva Compra Mercadería", "", "ovariable", .F.) Case NIDMENU=2 .And. VERNIVEL(4, 5) OTASKING.RUNAPP("compragastos", "Nueva Compra Gastos", "", "ovariable", .F.) Case NIDMENU=3 .And. VERNIVEL(4, 6) OTASKING.RUNAPP("notacreditoproveedor", "Nueva Nota Crédito", "", "ovariable", .F.) Case NIDMENU=4 .And. VERNIVEL(4, 7) OTASKING.RUNAPP("notadebitoproveedor", "Nueva Nota Débito Proveedor", "", "ovariable", .F.) Case NIDMENU=5 .And. VERNIVEL(4, 8) OTASKING.RUNAPP("ordencompra", "Nueva Orden de Compra", "", "ovariable", .F.) Case NIDMENU=6 .And. VERNIVEL(4, 11) OTASKING.RUNAPP("lstdocumentosxpagar", "Lista documentos x Pagar", "", "ovariable", .F.) Case NIDMENU=7 .And. VERNIVEL(4, 13) OTASKING.RUNAPP("resumenxproveedoracumulado", "Resumen de compra a proveedores", "", "", .F.) Case NIDMENU=8 .And. VERNIVEL(4, 14) OTASKING.RUNAPP("resumenxprodcomprados", "Resumen Productos Comprados", "", "", .F.) Case NIDMENU=10 .And. VERNIVEL(4, 15) OTASKING.RUNAPP("lstcompras", "Listado de Compras", "", "", .F.) Case NIDMENU=11 .And. VERNIVEL(4, 16) OTASKING.RUNAPP("listaletraproveedores", "Listado de Letras Proveedores", "", "", .F.) Case NIDMENU=12 .And. VERNIVEL(4, 16) OTASKING.RUNAPP("lstxpagar", "Listado de Cuentas por Pagar", "", "", .F.) Case NIDMENU=13 .And. VERNIVEL(4, 14) OTASKING.RUNAPP("resumenxproveedorxpagar", "Resumen Cuentas por Pagar a Proveedores", "", "", .F.) Case NIDMENU=14 OTASKING.RUNAPP("lstcomprasamortizaciones", "Listado Compras y Amortizaciones", "", "", .F.) Endcase Endif Case NIDBOTON=300 .And. VERNIVEL(5, 0) If NIDMENU=0 OTASKING.RUNAPP("lstproductos", "Listado de Productos", "", "", .F.) Else OVARIABLE.NNUMERO = 0 OVARIABLE.CCODPRODUCTO = "" OVARIABLE.CDESCRPRODUCTO = "" OVARIABLE.CNRODOCUMENTO = "" OVARIABLE.CKEYSERIE = "" OVARIABLE.CSERIE = "" Do Case Case NIDMENU=1 .And. VERNIVEL(5, 15) OTASKING.RUNAPP("kardex", "Kardex de Producto", "", 'ovariable', .F.) Case NIDMENU=2 .And. VERNIVEL(5, 18) OTASKING.RUNAPP("lstseries", "Kardex de Series", "", 'ovariable', .F.) Case NIDMENU=3 .And. VERNIVEL(5, 17) OTASKING.RUNAPP("kardexlotes", "Kardex de Lotes del Producto", "", 'ovariable', .F.) Case NIDMENU=4 .And. VERNIVEL(5, 16) OTASKING.RUNAPP("kardextime", "Kardex en Linea de Tiempo", "", 'ovariable', .F.) Case NIDMENU=5 .And. VERNIVEL(5, 16) OTASKING.RUNAPP("kardexdiario", "Kardex Diario de Almacén", "", '', .F.) Case NIDMENU=7 .And. VERNIVEL(5, 23) OVARIABLE.ESNUEVO = .T. OVARIABLE.VALORRETORNO = 0 OVARIABLE.AUTOMATICA = .F. OTASKING.RUNAPP("transferencias", "Transferencia entre Almacenes", "", 'ovariable', .F.) Case NIDMENU=8 .And. VERNIVEL(5, 23) OVARIABLE.ESNUEVO = .T. OVARIABLE.VALORRETORNO = 0 OVARIABLE.AUTOMATICA = .F. OTASKING.RUNAPP("movimientoalmacen", "Movimiento de Almacenes", "", 'ovariable', .F.) Case NIDMENU=9 .And. VERNIVEL(5, 23) OTASKING.RUNAPP("lstransferencias", "Listado de Transferencia/Movimiento Almacén", "", '', .F.) Case NIDMENU=10 .And. VERNIVEL(5, 23) OTASKING.RUNAPP("lstgarantias", "Listado de Garantías", "", '', .F.) Case NIDMENU=11 .And. VERNIVEL(5, 23) OTASKING.RUNAPP("lstliquidacionguias", "Liquidación de Almacén", "", '', .F.) Endcase Endif Case NIDBOTON=400 .And. VERNIVEL(6, 0) If NIDMENU=0 OTASKING.RUNAPP("lstcaja", "Listado de Caja", "", "", .F.) Else Do Case Case NIDMENU=1 .And. VERNIVEL(6, 12) cporalmacen=[] If !_ALMACENDEFAULT=0 CPORALMACEN = ' and almacen='+Str(_ALMACENDEFAULT, 3, 0) Endif CSCADENASQL = 'select * from cajabancos where estado=0 and tipo=1 '+cporalmacen+' order by descripcion ' NRESULTADOS = SQLExec(HANDLESQL, CSCADENASQL, "vcaja", ACOUNTINFO) If NRESULTADOS<0 = ERRORDATA("buscando cajas") Return Else If Used("vcaja") If Reccount("vcaja")>0 NLOCUENTA = 0 Dimension OVARIABLE.ADOCEMIT[RECCOUNT("vcaja")] Select VCAJA Scan NLOCUENTA = NLOCUENTA+1 OVARIABLE.ADOCEMIT[NLOCUENTA] = Alltrim(DESCRIPCION) Endscan OVARIABLE.CDESCRPRODUCTO = "Caja a Seleccionar" Do Form comboseleccion With OVARIABLE If OVARIABLE.ESNUEVO Select VCAJA Goto OVARIABLE.VALORRETORNO CPARAMETERS = Str(VCAJA.CODIGO, 3, 0)+",,,'"+VCAJA.DESCRIPCION+"'" OTASKING.RUNAPP("recibosdecaja", "Recibos de Caja", "", CPARAMETERS, .F.) Endif Endif Endif Endif Case NIDMENU=2 .And. VERNIVEL(6, 13) OTASKING.RUNAPP("movimientobanco", "Movimientos de Banco", "", "", .F.) Case NIDMENU=4 .And. VERNIVEL(6, 9) OTASKING.RUNAPP("lstrecibos", "Listado de Recibos", "", "", .F.) Case NIDMENU=5 .And. VERNIVEL(6, 10) OTASKING.RUNAPP("lstmovbancos", "Listado de Movimiento Banco", "", "", .F.) Case NIDMENU=6 .And. VERNIVEL(6, 11) OTASKING.RUNAPP("lstliquidacion", "Listado de Liquidaciones", "", "", .F.) Case NIDMENU=7 .And. VERNIVEL(6, 11) OTASKING.RUNAPP("lstenviosmasivosbanco", "Listado de Envios Masivos a Banco", "", "", .F.) Case NIDMENU=8 .And. VERNIVEL(6, 10) OTASKING.RUNAPP("lstarendir", "Listado de Operaciones a rendir", "", "", .F.) Endcase Endif Case NIDBOTON=750 .And. VERNIVEL(7, 0) OTASKING.RUNAPP("lstutilidades", "Utilidades del Sistema", "", "", .F.) Case NIDBOTON=1100 .And. VERNIVEL(8, 0) OTASKING.RUNAPP("lstplandecuentas", "Listado Plan de Cuentas", "", "", .F.) Case NIDBOTON=1200 .And. VERNIVEL(9, 0) OTASKING.RUNAPP("lstpresupuesto", "Listado Presupuesto/Proyectos", "", "", .F.) Case NIDBOTON=1210 .And. VERNIVEL(10, 0) OTASKING.RUNAPP("lstactivosfijos", "Listado Activos Fijos", "", "", .F.) Case NIDBOTON=1220 .And. VERNIVEL(11, 0) OTASKING.RUNAPP("lstcentrocostos", "Listado Centro de Costos", "", "", .F.) Case NIDBOTON=1300 .And. VERNIVEL(12, 0) OTASKING.RUNAPP("lstlibroseeff", "Libros y EE.FF.", "", "", .F.) Case NIDBOTON=1350 .And. VERNIVEL(13, 0) OTASKING.RUNAPP("lstpersonal", "Listado de Personal", "", "", .F.) Case NIDBOTON=1400 .And. VERNIVEL(14, 0) OTASKING.RUNAPP("lstwizard", "Listado Asistente Expertos", "", "", .F.) Case NIDBOTON=900 Quit Endcase This.Parent.Enabled = .T. ENDPROC Top = 110 Left = 91 Height = 0 Width = 0 Name = "Separator1"