Al dar un clic en un módulo adicional de la barra de tareas

Este es el código fuente del Procedimiento RUNBARRA
RUNBARRA almacena todas las acciones que realizan los iconos de la ventana principal del sistema.
Aqui podemos hacer algunos ajustes para ejecutar nuestras Formas desarrolladas con el Editor de “Ambiente de desarrollo”

 Visual Basic |  copy code |? 
001
' Mybusiness POS v. 2011
002
Sub Main()
003
    Dim Ventas    
004
 
005
    Select Case Ambiente.Tag    
006
           Case "Series"         
007
                Script.RunForm "SERIES", Parent, Ambiente,, False
008
           Case "Verificador"
009
 
010
                If Question( "Desea activar el verificador de precios (recuerde desactiva la ventana con ...1 y enter)", 1 ) Then
011
                   MuestraVerificador  
012
                End If
013
 
014
           Case "Reconectar"
015
                CreaConexiones                 
016
           Case "AltaRapida"
017
                Script.RunForm "ALTARAPIDA", Parent, Ambiente,, False
018
           Case "AltaHotel"
019
                Script.RunForm "ALTASERVICIOS", Parent, Ambiente,, False
020
           Case "MySQLPass"
021
                Script.RunForm "PASSMYSQL", Parent, Ambiente,, False
022
           Case "HotSync"
023
                Script.RunProcess "HOTSYNC", Parent, Ambiente
024
           Case "Ofertas"
025
                Script.RunForm "OFERTAS", Parent, Ambiente,, False
026
           Case "CambioPrecio"
027
                Script.RunForm "CAMBIOPRECIO", Parent, Ambiente,, False
028
           Case "Procedimientos"
029
                MuestraNodo "Procedimientos" 
030
           Case "Formatos"
031
                MuestraNodo "formatos" 
032
           Case "Reportes"
033
                MuestraNodo "Reportes" 
034
           Case "Hermes"
035
                Script.RunForm "OFERTAS2", Parent, Ambiente,, False
036
           Case "Etiquetas2"
037
                Script.RunForm "ETIQUETA2", Parent, Ambiente,, False
038
           Case "InvExcel"
039
                Script.RunForm "PRODSEXCEL", Parent, Ambiente,, False
040
           Case "estados"
041
                Script.RunForm "ESTADOS", Parent, Ambiente,, False
042
           Case "EditarCB" 
043
                MuestraDEtiquetas
044
           Case "EditarTicket"
045
                Script.RunForm "EDITORTICKET", Me, Ambiente,, False 
046
           Case "EditarGuion"
047
                Script.RunForm "EDITORMENSAJE", Me, Ambiente,, False 
048
           Case "Pls2001"
049
                Script.RunForm "EPLS2000", Me, Ambiente,, False 
050
           Case "Repartidor"
051
                Script.RunForm "ALTAREPARTIDOR", Me, Ambiente,, False 
052
           Case "ImpVentas"
053
                Script.RunForm "IMPVENTAS2", Me, Ambiente,, False 
054
           Case "Pacientes"
055
                Script.RunForm "PACIENTES", Me, Ambiente,, False       
056
           Case "Bitacoras"
057
                Script.RunForm "BITACORAS", Me, Ambiente,, False            
058
           Case "SubirBitacora"
059
                Script.RunForm "SUBIRBITACORAS", Me, Ambiente,, False            
060
           Case "prospectos"    
061
                ' Script puede ejecutar un proceso, una forma de captura, un reporte
062
                ' o un formato impreso
063
                Script.RunForm "PROSPECTOS", Me, Ambiente,, False 
064
           Case "PreciosEspeciales"
065
                Script.RunForm "PRECIOSESPECIALES", Me, Ambiente,, False
066
 
067
           Case "Recostear"
068
                Script.RunForm "COSTEO", Me, Ambiente,, False
069
 
070
           Case "Touch"
071
 
072
                Set Ventas = CreateObject("MyBVentas.ventas")
073
                Set Ventas.Ambiente = Ambiente
074
                Ventas.ActivaTouch
075
 
076
           Case "PuntoVenta2"
077
 
078
                Set Ventas = CreateObject("MyBVentas.ventas")
079
                Set Ventas.Ambiente = Ambiente
080
                Ventas.ActivaPuntoDeVenta2
081
 
082
           Case "Recalcular"
083
                If Question( "Desea recalcular el inventario", 1 ) Then
084
                   Call RecDelta()
085
                End If
086
 
087
           Case "Servicios"
088
 
089
                ejecuta "CD010"                          
090
 
091
           Case "DatosGenerales" 
092
 
093
                Me.DatosEmpresa
094
 
095
           Case "Mantenimiento"
096
 
097
                RepararBaseDedatos
098
 
099
           Case "FormatosImpresion"
100
 
101
                Formatos
102
 
103
           Case "Consecutivos"
104
 
105
                'Consecutivos
106
 SetSessionValue Ambiente, "FORMPADRECONSEC", "BUSINESSMANAGER"
107
 Script.RunForm "CONSECUTIVOS", Me, Ambiente,, True
108
 
109
    Case "GeneralConsecutivos"
110
 
111
 Script.RunForm "TODOSLOSCONSECUTIVOS", Me, Ambiente,, True
112
 
113
           Case "BorrarBase"
114
 
115
                EliminaDatos
116
 
117
           Case "AltaEmpresa"
118
 
119
                Script.RunForm "DATOSEMPRESA", Me, Ambiente,, False
120
 
121
           Case "CambiarEmpresa"
122
 
123
                CambiaEmpresa
124
 
125
           Case "RegistroDeLicencia"
126
 
127
                 AcercaDe                                   
128
 
129
           Case "ConfigGeneral"
130
 
131
                 ConfigGeneral                      
132
 
133
           Case "SincronizarProcedimientos"
134
 
135
                 SincronizarProcedimientos
136
 
137
          Case "Rangos"
138
 
139
                 establecerPeriodosDeCarpetas
140
 
141
         Case "configpocket"                     
142
       Script.RunForm "CONFIGPOCKETPC", Me, Ambiente,, True
143
         Case "inventariopocket"
144
   Script.RunForm "ENTRADAPOCKET", Me, Ambiente,, True
145
         Case "pocket"
146
              Script.RunForm "EXPORTAIMPORTAPOCKET", Me, Ambiente,, True
147
   'Script.RunProcess "EXPORTAINFOTOPOCKET", Parent, Ambiente
148
  Case "confirmaventas"
149
   Script.RunForm "CONFIRMAVENTAS", Me, Ambiente,, True
150
  Case "creanotas"
151
   Script.RunForm "AsistenteNotasPocket", Me, Ambiente,, True
152
  'Case "creainventariofisico"
153
   'Script.RunForm "INVFISICOPOCKET", Me, Ambiente,, True
154
 Case "reportepedidospk"
155
            EjecutaReporte "PEDIDOSMOBILE" 
156
 Case "cargainicial"
157
            EjecutaReporte "PRODSPOCKET"
158
  Case "ventaspendientes"
159
           EjecutaReporte "VENTASMOBILE"
160
  Case "articulosvendidos"
161
              EjecutaReporte "VENTAPRODSMOBILE"
162
 
163
         Case "HojaInventario"
164
 
165
              Script.RunForm "HOJACOSTOS", Me, Ambiente,, False
166
              'muestraHojaDeInventario   
167
 
168
         Case "CobroCaja"
169
 
170
              Set ventas = CreateObject( "MyBVentas.ventas" )
171
              Set ventas.Ambiente = Me.Ambiente
172
              Ventas.MuestraCobroEncaja                              
173
 
174
         Case "Consulta"
175
 
176
              Script.RunForm "CONSULTA", Me, Ambiente,, False           
177
 
178
         Case "etenvio"
179
 
180
              Script.RunForm "ETENVIO", Me, Ambiente,, False
181
 
182
         Case "FacturaCierre"
183
 
184
              Script.Runform "FACTURADECIERRE", Me, Ambiente,, False
185
 
186
         Case "series"
187
 
188
              activaSeriesSalida       
189
 
190
         Case "lotes"
191
 
192
              activaFormaDeLotes
193
 
194
         Case "CambioCosto"
195
 
196
              activaFormaDeCambiosDeCosto
197
 
198
         Case "ReportesFinancieros"
199
 
200
              ShellRun Me.hWnd, "Open", "http://localhost:4410/index.myweb?newsession"
201
 
202
         Case "seriesseguimiento"
203
 
204
              Script.RunForm "RASTREOSERIE", Me, Ambiente,, False
205
 
206
         Case "MBInventario"
207
 
208
              Set MBInventario = CreateObject( "MyBArticulos.Articulos" )
209
              Set MBInventario.Ambiente = Ambiente
210
              MBInventario.muestraMBInventario
211
 
212
         Case "ordenproduccion"   
213
 
214
              Set p = CreateObject( "MyBProduccion.produccion" )
215
              Set p.Ambiente = Ambiente
216
              p.NuevaOp
217
 
218
         Case "capturaetiquetas"   
219
 
220
              Set p = CreateObject( "MyBProduccion.produccion" )
221
              Set p.Ambiente = Ambiente
222
              p.MuestraCapturaDeFracciones    
223
 
224
         Case "seguimiento"
225
 
226
              Set p = CreateObject( "MyBProduccion.produccion" )
227
              Set p.Ambiente = Ambiente
228
              p.muestraSeguimiento   
229
 
230
         Case "destajo"
231
 
232
              Script.RunForm "DESTAJO", Me, Ambiente,, False 
233
 
234
         Case "ordenservicio"
235
 
236
              Script.RunForm "ORDENES", Me, Ambiente,, False
237
 
238
         Case "BuscarTicket"
239
 
240
              Script.RunForm "BUSCATICKET", Me, Ambiente,, False
241
 
242
         Case "existenciaremota"
243
 
244
              Script.RunForm "EXISTENCIAREMOTA", Me, _
245
              Ambiente, , False                    
246
 
247
         Case "Abonos"
248
 
249
             Set Cobranza = CreateObject( "MyBCobranza.Cobranza" )
250
             Set Cobranza.Ambiente = Ambiente
251
             Cobranza.NuevoAbono  
252
 
253
 
254
         Case "ImportarMySQL"
255
 
256
             Script.RunForm "IMPORTAMYSQL", Me, Ambiente,, False
257
 
258
         Case "Analisis"
259
 
260
             Script.RunForm "PRODUCTOSSUGERIDO", Me, Ambiente,, False
261
 
262
         Case "UEPS"
263
 
264
             Script.RunForm "COSTEOUEPS", Me, Ambiente,, False
265
 
266
         Case "PEPS"
267
 
268
             Script.RunForm "COSTEOPEPS", Me, Ambiente,, False
269
 
270
         Case "Secciones"
271
 
272
             Script.RunForm "BUSQUEDASECCIONES", Me, Ambiente,, False
273
 
274
         Case "Comandas"
275
 
276
             Script.RunProcess "AAMESAS", Me, Ambiente
277
 
278
         Case "Reservaciones"
279
 
280
             Script.RunProcess "AARESERVACIONES", Me, Ambiente         
281
 
282
         Case "Backup"
283
 
284
             Script.RunForm "RESPALDOBASEDEDATOS", Me, Ambiente,, False
285
 
286
         Case "Menu"
287
 
288
             Script.RunForm "CATEGORIASMENU", Me, Ambiente,, True
289
 
290
         Case "r_impresoras"
291
 
292
             Script.RunForm "IMPRESORAS", Me, Ambiente,, True
293
 
294
         Case "CierreTienda"
295
 
296
             Script.RunForm "CORTETIENDA", Me, Ambiente,, True
297
 
298
         Case "Huella"
299
 
300
             Script.RunHuellaForm "REGISTROACCESO", Me, Ambiente,, True
301
         Case "PruebaHuella"
302
 
303
             Script.RunHuellaForm "TESTFINGER", Me, Ambiente,, True
304
 
305
 
306
         Case "Clientes2"
307
 
308
             Script.RunForm "CLIENTES", Me, Ambiente,, False
309
 
310
         Case "Proveedores2"
311
 
312
             Script.RunForm "PROVEEDORES", Me, Ambiente,, False
313
 
314
         Case "FPersonalizados"
315
 
316
             Script.RunForm "GENERADORDOCUMENTOS", Me, Ambiente,, False
317
 
318
         Case "materiales"
319
 
320
             Script.RunForm "HOJADEMATERIALES", Me, Ambiente,, False
321
 
322
         Case "imc"
323
 
324
             Script.RunForm "IMC", Me, Ambiente,, True
325
 
326
         Case "RemisionFactura"
327
 
328
             Script.RunForm "REMISIONFACTURA", Me, Ambiente,, True
329
 
330
  Case "ImpClientes"
331
 
332
  Script.RunForm "IMPORTACLIENTES", Me, Ambiente,, True
333
 
334
  Case "ImpProveedores"
335
 
336
  Script.RunForm "IMPORTAPROVEEDORES", Me, Ambiente,, True
337
 
338
  Case "CambioPrecio"
339
 
340
  Script.RunForm "CAMBIOPRECIO", Me, Ambiente,, True                  
341
         case "ConfigSucursal"
342
 
343
  Script.RunForm "CONEXIONES", Me, Ambiente,, True
344
 
345
  Case "FacturaElectronica"        
346
             ConfigFile = Ambiente.Path + "\econfig.txt"
347
             BatchFile = Ambiente.Path + "\FElectronica.bat"
348
 
349
             Set rstConfiguracion = CreaRecordSet("select * from FEConfig ", Ambiente.Connection)
350
             if not rstConfiguracion.EOF then                                         
351
                Set fso=CreateObject("Scripting.FileSystemObject")
352
                If fso.FileExists(ConfigFile) Then
353
                   fso.DeleteFile ConfigFile 
354
                End if                                                        
355
                If fso.FileExists(BatchFile) Then
356
                   fso.DeleteFile BatchFile 
357
                End if                                                        
358
                If not fso.FolderExists(rstConfiguracion("FileLocation")) Then
359
                   fso.CreateFolder(rstConfiguracion("FileLocation"))
360
                End if 
361
 
362
                outline BatchFile,"@echo off" + vbCrLf
363
                outline BatchFile,"cd " + Ambiente.Path + vbCrLf
364
                outline BatchFile,"start /wait FElectronica.exe" + vbCrLf
365
                outline BatchFile,"exit" + vbCrLf
366
 
367
                'ambiente.connection.execute "exec FEInicializaSerie '"+ trim(ambiente.estacion) + "'"
368
                outline ConfigFile,ambiente.connection + vbCrLf                                 
369
                ShellRun Me.hWnd, "Open",Ambiente.Path + "\FElectronica.bat" 
370
             end if
371
 
372
  Case "Tallas"
373
 
374
  Script.RunForm "TallaColModelos", Me, Ambiente,, True
375
    End Select
376
 
377
End Sub                                    
378
 
379
Sub ejecuta( nombreProcedimiento )
380
    Dim rstFormato
381
 
382
    Set rstFormato = CreaRecordSet( _
383
    "SELECT * FROM formatos WHERE formato = '" & nombreProcedimiento & "'",_
384
    Ambiente.Connection )
385
 
386
    If rstFormato.EOF Then
387
       Exit Sub
388
    End If
389
 
390
    ' 1.- Tipo de programa           
391
    ' 2.- Codigo de programacion
392
    ' 3.- El objeto Ambiente
393
    ' 4.- El objeto padre
394
    Script.Preview rstFormato("tipo"), rstFormato("codigo"), Ambiente, Me
395
 
396
End Sub 
397
 
398
 
399
Sub EjecutaReporte(reporte)
400
 
401
    Dim rstReporte
402
 
403
    Set rstReporte = Rst("SELECT * FROM formatosdelta WHERE formato = '" & reporte & "'", Ambiente.Connection )
404
 
405
    If rstReporte.EOF Then
406
       Exit Sub
407
    End If
408
 
409
 Script.Preview rstReporte("tipo"), rstReporte("codigo"), Ambiente, Me, rstReporte("formato"), ""
410
 
411
 
412
End Sub
413
 
414
 
415
 
416
 
417
 
418
 
419

Deja un comentario