a

as

Cómo quitar espacios y líneas en ticket

Puede descrgas de helpmybusinesspos.info el formato “ticket reducido”  y por lo que identifico solo sería necesario quitar a algunas partes el texto que hace los saltos de línea :

& cLineaNueva

Para colocar la línea punteada,  identifique la línea sonde dice

 Visual Basic |  copy code |? 
1
2
cSalida = cSalida & "CANT.  DESCRIP.  P.U. TOTAL" & cLineaNueva
3

Y le colocamos este código

 Visual Basic |  copy code |? 
1
2
cSalida = cSalida & "---------------------------" & cLineaNueva
3
cSalida = cSalida & "CANT.  DESCRIP.  P.U. TOTAL" & cLineaNueva  
4
cSalida = cSalida & "---------------------------" & cLineaNueva 
5

Personalizar comandos en punto de venta

En es sistema buscamos el procedimiento PUNTOV031 (business manager–configuracion–personalizacion–procedimientos y rutinas de usuario)
Dentor de este encontramos la función ValidaComando(). Ahí podemos ver cómo se invoca a las dierentes ventanas, como el Z010, Z009, Z026 y además podemos agregar las que necesitemos personalizar.

 Visual Basic |  copy code |? 
001
002
Sub ValidaComando()
003
 
004
    If clAt( "/", Articulo ) > 0 And clAt( "//", Articulo ) = 0 Then
005
       Call cantidaporPrecio()
006
       Exit Sub
007
    End If
008
 
009
 
010
    If Trim(UCase(Articulo)) = "COMPRAS" Then
011
       Set Compras = CreateObject( "MyBCompras.Compras" )
012
       Set Compras.Ambiente = Ambiente
013
       Compras.NuevaCompra True
014
    End If
015
 
016
    If Len( Trim( Articulo ) ) <> 4 Then
017
       Exit Sub
018
    End If
019
 
020
    If clAt( "Z", UCase(Articulo) ) <> 1 Then
021
       Exit Sub
022
    End If
023
 
024
    Select Case UCase(Articulo)
025
           Case "Z001"
026
                Script.RunForm "ALTACLIENTE", Me, Ambiente,, True 
027
           Case "Z002"
028
                Me.OperacionBloqueada = False
029
                txtFields(3) = "Operación Reactivada"
030
           Case "Z003"
031
                Me.FinalizaOperacion
032
           Case "Z004"
033
                Script.RunForm "ALTARAPIDA", Me, Ambiente,, True
034
           Case "Z005"
035
 
036
                If Question(Mensaje(642, Ambiente)) Then
037
                   Me.BorraVenta = True
038
                   Me.FinalizaOperacion
039
                End If
040
 
041
          Case "Z006"
042
 
043
               Me.RecuperaVentaDeCliente
044
 
045
          Case "Z007"
046
 
047
               If txtFields(0).Enabled Then
048
                  txtFields(0).SetFocus
049
               End If
050
 
051
          Case "Z008"
052
 
053
               AplicaDescuento 
054
 
055
          Case "Z009"
056
 
057
               Script.RunProcess "CORTEX", Me, Ambiente
058
 
059
          Case "Z010"
060
 
061
               Script.RunProcess "CORTEZ", Me, Ambiente
062
 
063
          Case "Z011"
064
 
065
               Script.RunForm "PAGOEFECTIVO", Me, Ambiente,, True
066
 
067
          Case "Z012"
068
 
069
               Script.RunForm "COBROENEFECTIVO", Me, Ambiente,, True
070
 
071
          Case "Z013"
072
 
073
               Set rstUsuventas = CreaRecordSet( "SELECT * FROM usuventas WHERE usuario = '" & Ambiente.Uid & "'", Ambiente.Connection )
074
 
075
               If rstUsuventas.EOF Then
076
                  Script.RunForm "DEVOLUCIONES", Me, Ambiente, True
077
                  'Exit Sub
078
               End If
079
 
080
               If Val2( rstUsuventas("devpunto") ) <> 0 Then
081
                  Script.RunForm "DEVOLUCIONES", Me, Ambiente, True
082
                  'Exit Sub              
083
               Else
084
                  MyMessage "No tiene derecho a hacer devoluciones, solicite el permiso con su supervisor" 
085
                  'Exit Sub
086
               End If  
087
 
088
          Case "Z014"
089
 
090
               Script.RunForm "TICKETAFACTURA", Me, Ambiente,, True
091
 
092
          'Case "Z016"
093
          '                                                      
094
          '     Me.ActivaCobranza
095
 
096
          Case "Z015"
097
 
098
               Script.RunProcess "PUNTOV063", Me, Me.Ambiente
099
 
100
          Case "Z016"
101
 
102
               Script.RunForm "RETICKET", Me, Ambiente,, True
103
 
104
          'Case "Z019"
105
          '
106
          '     MyMessage "CONTROL + F12 Editar datos cliente" & vbCrLf & "CONTROL + F7 Editar guión" & vbCrLf & "SHIFT + F3 Colocar cursor en campo repartidor" & vbCrLf & "SHIFT + F4 Alta de repartidor"
107
 
108
          Case "Z017"
109
 
110
               Script.RunForm "FCAJA", Me, Ambiente,, True
111
 
112
          Case "Z018"
113
 
114
               Script.RunForm "CAMBIOUSUARIO", Me, Ambiente,, True 
115
 
116
          'Case "Z022" 
117
          '             
118
          '     Script.RunProcess "VENTASCOLECTOR", Me, Me.Ambiente               
119
 
120
          Case "Z019" 
121
 
122
               Calculadora Ambiente
123
 
124
          Case "Z020"
125
 
126
               Script.RunProcess "ABRECAJON", Me, Me.Ambiente                    
127
 
128
          Case "Z021"
129
 
130
               Script.RunForm "AUXCLIENTS", Parent, Ambiente,, True
131
 
132
          Case "Z022"
133
 
134
               Script.RunProcess "ELIMINAVENTA", Me, Me.Ambiente                    
135
 
136
          Case "Z023"
137
 
138
               Script.RunForm "VENTASOBSERV", Me, Ambiente,, True
139
 
140
          Case "Z024"
141
 
142
               Script.RunForm "VENTASDESC", Me, Ambiente,, True
143
 
144
          Case "Z025"
145
 
146
               Script.RunForm "CAMBIOVALEEFECTIVO", Me, Me.Ambiente,, True
147
 
148
          Case "Z026"
149
 
150
             Script.Runform "FACTURADECIERRE", Me, Ambiente,, False
151
 
152
          Case "Z027"
153
 
154
             Script.RunHuellaForm "REGISTROACCESO", Me, Ambiente,, True
155
 
156
          'Case "Z028"
157
 
158
             'Script.Runform "LISTADEPEDIDOS", Me, Ambiente,, True
159
 
160
 
161
    End Select                    
162
 
163
    CancelaProceso = True
164
    txtFields(4) = ""
165
 
166
End Sub
167
 
168
 
169