PUNTOV001

En ocasiones necesitamos ajustar las columnas del punto de venta o hacer algunas modificaciones que nos permitan utilizar de manera más cómoda el punto de venta.
A continuación explico un poco sobre un procedimiento que viene en MyBusiness Pos, llamado PUNTOV001. Este se encuentra dentro del business manager, en la ruta configuracion–personalizacion–procedimientos y rutinas de usuario

 Visual Basic |  copy code |? 
001
002
'Este procedimiento se ejecuta al abrir el punto de venta
003
 
004
Sub Main()             
005
 
006
    ' Si la ventana va a aparecer maximizada
007
    'Me.windowsMode = 0
008
 'Titulo que aparece en la parte superior izquierda
009
    Me.Caption = Ambiente.Empresa               
010
 'Formato con decimales
011
    Me.formatoDeDinero = "##,##0.00"
012
    Me.formatoDeDineroTotales = "##,##0.00"  
013
    Me.formatoDeDescuento = "##,##0"
014
 
015
    Version2005  'llama a la función que tiene las dimensiones de algunas columnas
016
    Me.MaxPartidas = 8  ' máximo registros que aparecen en el PV
017
 
018
    ' Limpiamos los mensajes 
019
    txtFields(3) = ""  'Libera el campo inferior izquierdo
020
 
021
    ' La variable reload si es falsa indica que la ventana del punto de venta
022
    ' todavia no realiza una venta
023
    if Reload = False Then        
024
       Ambiente.Tag = 2
025
       Script.RunProcess "PUNTOV053", Parent, Ambiente 
026
    end if    ' invoca un procedimiento llamado puntov053
027
 
028
    'txtFields(1) = Ambiente.Uid
029
    fg2.Redraw = False  'desactiva el ajuste de malla
030
    AjustaFlexGrid fg2  ' Toma las dimensiones de la malla a la pantalla
031
    fg2.Redraw = True     'ejecuta el ajuste              
032
 
033
    ' Coloca o quita la columna del impuesto                                    
034
    'fg2.ColWidth(5) = 1000
035
 
036
   	If Trim("" & Ambiente.rstEstacion("serieRemision")) = "" Then
037
   		Me.consecutivoRemisiones = Ambiente.Estacion & "Remision"
038
   	Else		
039
   		Me.consecutivoRemisiones = Trim( "" & Ambiente.rstEstacion("serieRemision") ) & "Remision"
040
   	End If
041
 
042
   	If Trim("" & Ambiente.rstEstacion("serieTicket")) = "" Then
043
		Me.consecutivoTickets = Ambiente.Estacion & "Ticket"
044
   	Else
045
   		Me.consecutivoTickets = Trim("" & Ambiente.rstEstacion("serieTicket")) & "Ticket"
046
   	End If
047
'Tpma los consecutivos de facruración
048
   	Me.serieFactura = Trim("" & Ambiente.rstEstacion("serieFactura"))
049
   	Me.serieTicket = Trim("" & Ambiente.rstEstacion("serieTicket"))
050
   	Me.serieRemision = Trim("" & Ambiente.rstEstacion("serieRemision"))
051
 
052
    If Trim(Me.serieTicket) = "" Then
053
    	Me.serieTicket = Ambiente.Estacion
054
	End If
055
 
056
	If Trim(Me.serieRemision) = "" Then
057
      	Me.serieRemision = Ambiente.Estacion
058
	End If
059
   'Me.modeloScanner = "Scanner"
060
   'Me.ActivaScannerOPOS
061
 
062
   Me.usuarioRequerido = 0                      
063
   fg2.ColWidth(18) = 0  'oculta la columna al dejarla en 0px de ancho
064
 
065
End Sub
066
 
067
 
068
Sub Version2005()
069
 
070
'Este bloque de código es el que
071
'permite ajustar las columnas en el punto de venta
072
 
073
    'Me.DevolverEfectivo = True 
074
	Me.DevolverEfectivo = False
075
 
076
    FormatoCantidad = "##,##0.000"                    
077
    TimerComodin.Enabled = False   
078
    TimerComodin.Interval = 4000
079
    TimerComodin.Enabled = True
080
 
081
    fg2.ColWidth(6) = 5000        ' columna de descripción        
082
    fg2.ColWidth(9) = 1200    'columna de Precio de Lista (1, 2, 3, 4)    
083
 
084
	'fg2.ColWidth(1) = 1200 'Columna de Cantidad (QTY)             
085
	'fg2.ColWidth(2) = 1200 'Columna de Precio Unitario, sin incluir impuestos
086
 
087
	'fg2.ColWidth(3) = 1200 'Columna de Descuento en Porcentaje (%) 
088
	'fg2.ColWidth(4) = 1200 'Columna de Importe
089
 
090
	'fg2.ColWidth(5) = 1200 'Columna de Impuesto en Porcentaje (%)      
091
	'fg2.ColWidth(6) = 1200 'Columna de Descripción de Artículo
092
 
093
	'fg2.ColWidth(7) = 1200 'Columna de Número de salida en el Kárdex          
094
	'fg2.ColWidth(8) = 1200 'Columna de Almacén del que se toma la mercancía
095
 
096
	'columnas de presentaciones
097
	'fg2.ColWidth(11) = 1200 'cantidad por presentación
098
	'fg2.ColWidth(10) = 1200  'descripción de presentación         
099
 
100
	'fg2.ColWidth(12) = 1200	'Costo de producto                           
101
	'fg2.ColWidth(13) = 1200	'Columna especial para viaje           
102
	'fg2.ColWidth(14) = 1200 	'Columna de Impuesto especial 	   
103
	'fg2.ColWidth(15) = 1200 	'Columna Precio Unitario, con impuesto
104
 
105
	'fg2.ColWidth(16) = 1200 	'Columna Importe total, con impuesto
106
	'fg2.ColWidth(17) = 1200 	'Columna Donativo
107
	'fg2.ColWidth(18) = 1200 	'columna para Incluir en el próximo CorteZ 
108
 
109
End Sub
110
																																																																																	        '
111

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *


Time limit is exhausted. Please reload CAPTCHA.