Resultados de la búsqueda para: comando para impresion windows 10 generic text

Publicado el por — Dejar un comentario

Registrar un archivo OCX o DLL en Windows 7 / 8 / 8.1 – x86 (32 bits) y x64 (64 bits).

Primeramente explicar que es un OCX o DLL, son librerías internas que usan los programas para poder funcionar correctamente, hay veces que por fallo de instalación o Desinstalando un Software que este ligado a esta librería .

Registrar un OCX o DLL en un sistema de 32 bits

Este es el método más extendido pero claro solamente funciona con sistemas operativos de 32 bits

1º- Tenemos que copiar el archivo de la librería en la ruta C:\WINDOWS\System32\

2º- Abrimos la consola de Windows (CMD) como administrador (botón derecho, ejecutar como administrador) y escribimos:

C:\WINDOWS\System32\

3º- Una vez copiado la librería en la Carpeta System32 podremos registrar la librería y seguimos el siguiente paso:

regsvr32 nombre de la Libreria.ocx

Y listo ya está la librería registrada en el sistema.

Registrar un OCX o DLL de 32 bits o 64 bits en un sistema de 64 bits

Es un poco diferente del modo de registrarlo en 32 bits, aunque sólo son las carpetas las que cambian (no válido para sistemas operativos de 32 bits)

1º- Tenemos que copiar el archivo de la librería en la ruta C:\WINDOWS\SysWOW64\

2º- Abrimos la consola de Windows (CMD) como administrador (botón derecho, ejecutar como administrador) y escribimos:

C:\WINDOWS\SysWOW64\

3º- Una vez copiado la librería en la Carpeta SysWOW64 podremos registrar la librería y seguimos el siguiente paso:

regsvr32 nombre de la Libreria.ocx

Y listo ya está la librería registrada en el sistema.

Nota:Las Librerias las puedes descargar de la Web.

Nestor Octavio Guzman Bernal

Desarrollador de Soluciones

Cel.: (722) 7 70 16 56

WhatsApp: (722) 7 70 16 56

Oro1

Publicado el por — Dejar un comentario

Optimizador de Base de Datos 2010, 2011 y 2012

Te Preocupa Que tú Base de Datos Este al Limite de Su Capacidad

y NO PUEDES DEPURAR?

depurabase

Esta Poderosa Herramienta. Te dará Oportunidad de Hacerlo

  • Permite seleccionar la fecha Final Desde la Cual Realizara La Depuración
  • Ejemplo: 01/01/2013 (Borrara todo lo encontrado desde esa fecha hacia atras)
  • Esto borraría el contenido solo de aquellas tablas que selecciones

  • Se solicita una Clave de Seguridad que está basada en un algoritmo.

  • La operación es rápida pero sujeta a las condiciones del equipo de computo.
Linea promo Ticket
Publicado el por — Dejar un comentario

Instalar Punto de Venta MyBusiness POS Windows 10

A continuación se explica cómo instalar el punto de venta mybusiness pos en Windows 10

Icono

Sql server para MyBusiness Pos v20

1 archivo(s) 0.00 KB
Descarga

Icono

MyBusiness POS v.20, Gratis

1 archivo(s) 0.00 KB
Descarga

SQLcli Cliente SQL para Terminales en Windows8 y Windows10

8.04 MB 877 descargas
Icono

sql Management Studio 2012 para Win8 (x86)

1 archivo(s) 939.80 MB
♞Registro
♞Entrar_D
Olvidé_P
Icono

Sql Management Studio 2012 + SQL Server para Win8 (x64)

1 archivo(s) 600.16 MB
♞Registro
♞Entrar_D
Olvidé_P
Icono

SQL Server 2012 para Win8 32 bits ENG 116.65 MB 497 downloads

...
♞Registro
♞Entrar_D
Olvidé_P
Icono

SQL Server 2012 para Win8 64 bits ENG 132.33 MB 527 downloads

...
♞Registro
♞Entrar_D
Olvidé_P


Comprendo que hay equipos que tienen precargado Windows 8 o Win10. Si se pudiera bajar a win7 sería mejor.

Para que no sufran mucho en la instalación, mi recomendación es MyBusinessPOS 2012 Windows 7.

Hasta el momento, la recomendación es instalar el servidor SQL server en un equipo con Windows 7, ya que así el sistema MyBusinessPOS se instala completo con las configuraciones por default, incluyendo sql server.

Publicado el por — 4 comentarios

Alinear y Centrar el texto del ticket con PadC, PadL y PadR

Alinear_centrar_texto_mybusinessposEn este ejemplo veremos cómo alinear el texto de un ticket con las funciones

  • PadL(cadenaTexto,Longitud). Rellena de espacios a la izquierda; Alineación a la Derecha
  • PadR(cadenaTexto,Longitud). Rellena de espacios a la derecha; Alineación a la Izquierda
  • PadC(cadenaTexto,Longitud). Rellena de espacios al centro; Alineación Centrado

Icono

Alinear Texto con PadL, PadR y PadC

1 archivo(s) 88.00 KB
♞Registro
♞Entrar_D
Olvidé_P

Para lograrlo, crearemos tres funciones, aunque PadL ya viene por default, aquí la colocaremos.

Sub Main()
'La letra posterior a PAD es el lado que se rellenará de espacios
a = padL ("Frase de prueba",40) 'Relleno IZQUIERDO. Alinea a la derecha
b = PadC ("Frase de prueba",40) 'Ambos lados. Alinear al centro
c = PadR ("Frase de prueba",40) 'Relleno DERECHO. Alineación a la izquierda

mymessage "PadL: '" & a & "'" & vbcrlf & _
"PadC: '" & b & "'" & vbcrlf &_
"PadR: '" & c & "'"

End Sub

'PADL() Alineación a la DERECHA inserta los caracteres de relleno a la Izquierda
Function PadL(cadena,nLongitud)
dim clen
dim temp
dim char
char = " " 'espacio en blanco
on error resume next
'Tomamos la cadena enviada en el parámetro
'eliminando los chares vacios izq-dch
temp = trim(cadena)
clen = len(temp)
for n=1 to nLongitud
char = char & " "
Next

'Analizamos si la nLongitud justificada es menos
'que la propia cadena enviada en parámetro.
if clen < nLongitud then temp = mid(char,1,nLongitud - clen) & temp 'Alineación a la Derecha end if PadL = temp end function 'PADR() Alineación a la IZQUIERDA inserta los caracteres de relleno a la derecha Function PadR(cadena,nLongitud) dim clen dim temp char = " " 'espacio en blanco on error resume next 'Tomamos la cadena enviada en el parámetro 'eliminando los chares vacios izq-dch temp = trim(cadena) clen = len(temp) for n=1 to nLongitud char = char & " " Next 'Analizamos si la nLongitud justificada es menos 'que la propia cadena enviada en parámetro. if clen < nLongitud then temp = temp & mid(char,1,nLongitud - clen) 'Alineación a la Izquierda end if PadR = temp end function 'PADC() Alineación al CENTRO inserta los caracteres de relleno a ambos lados Function PadC(cadena,nLongitud) dim clen dim temp char = " " 'espacio en blanco 'on error resume next 'Tomamos la cadena enviada en el parámetro 'eliminando los chares vacios izq-dch temp = trim(cadena) clen = len(temp) for n = 1 to nLongitud char = char & " " Next 'Espacios al lado Izquierdo nEspaciosA = formato((nLongitud - clen)/2 , "#.0") DondeEstaElPunto = clAt( ".", nEspaciosA ) - 1 'Espacios al lado derecho nEspaciosA = mid(nEspaciosA,1,DondeEstaElPunto) nEspaciosB = nLongitud -clen - nEspaciosA 'Analizamos si la nLongitud justificada es menos 'que la propia cadena enviada en parámetro. if clen < nLongitud then temp = mid(char,1,nEspaciosA) & _ temp & _ mid(char,1,nEspaciosB) 'Alineación a la Izquierda end if PadC = temp end function

Espero sea de utilidad estas funciones que dejo a su disposición en espera de que correspondan con un pomo para seguir inspirados.
Saludos
José Félix

Publicado el por — 1 comentario

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.


Sub ValidaComando()

If clAt( "/", Articulo ) > 0 And clAt( "//", Articulo ) = 0 Then
Call cantidaporPrecio()
Exit Sub
End If

If Trim(UCase(Articulo)) = "COMPRAS" Then
Set Compras = CreateObject( "MyBCompras.Compras" )
Set Compras.Ambiente = Ambiente
Compras.NuevaCompra True
End If

If Len( Trim( Articulo ) ) <> 4 Then
Exit Sub
End If

If clAt( "Z", UCase(Articulo) ) <> 1 Then
Exit Sub
End If

Select Case UCase(Articulo)
Case "Z001"
Script.RunForm "ALTACLIENTE", Me, Ambiente,, True
Case "Z002"
Me.OperacionBloqueada = False
txtFields(3) = "Operación Reactivada"
Case "Z003"
Me.FinalizaOperacion
Case "Z004"
Script.RunForm "ALTARAPIDA", Me, Ambiente,, True
Case "Z005"

If Question(Mensaje(642, Ambiente)) Then
Me.BorraVenta = True
Me.FinalizaOperacion
End If

Case "Z006"

Me.RecuperaVentaDeCliente

Case "Z007"

If txtFields(0).Enabled Then
txtFields(0).SetFocus
End If

Case "Z008"

AplicaDescuento

Case "Z009"

Script.RunProcess "CORTEX", Me, Ambiente

Case "Z010"

Script.RunProcess "CORTEZ", Me, Ambiente

Case "Z011"

Script.RunForm "PAGOEFECTIVO", Me, Ambiente,, True

Case "Z012"

Script.RunForm "COBROENEFECTIVO", Me, Ambiente,, True

Case "Z013"

Set rstUsuventas = CreaRecordSet( "SELECT * FROM usuventas WHERE usuario = '" & Ambiente.Uid & "'", Ambiente.Connection )

If rstUsuventas.EOF Then
Script.RunForm "DEVOLUCIONES", Me, Ambiente, True
'Exit Sub
End If

If Val2( rstUsuventas("devpunto") ) <> 0 Then
Script.RunForm "DEVOLUCIONES", Me, Ambiente, True
'Exit Sub
Else
MyMessage "No tiene derecho a hacer devoluciones, solicite el permiso con su supervisor"
'Exit Sub
End If

Case "Z014"

Script.RunForm "TICKETAFACTURA", Me, Ambiente,, True

'Case "Z016"
'
' Me.ActivaCobranza

Case "Z015"

Script.RunProcess "PUNTOV063", Me, Me.Ambiente

Case "Z016"

Script.RunForm "RETICKET", Me, Ambiente,, True

'Case "Z019"
'
' 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"

Case "Z017"

Script.RunForm "FCAJA", Me, Ambiente,, True

Case "Z018"

Script.RunForm "CAMBIOUSUARIO", Me, Ambiente,, True

'Case "Z022"
'
' Script.RunProcess "VENTASCOLECTOR", Me, Me.Ambiente

Case "Z019"

Calculadora Ambiente

Case "Z020"

Script.RunProcess "ABRECAJON", Me, Me.Ambiente

Case "Z021"

Script.RunForm "AUXCLIENTS", Parent, Ambiente,, True

Case "Z022"

Script.RunProcess "ELIMINAVENTA", Me, Me.Ambiente

Case "Z023"

Script.RunForm "VENTASOBSERV", Me, Ambiente,, True

Case "Z024"

Script.RunForm "VENTASDESC", Me, Ambiente,, True

Case "Z025"

Script.RunForm "CAMBIOVALEEFECTIVO", Me, Me.Ambiente,, True

Case "Z026"

Script.Runform "FACTURADECIERRE", Me, Ambiente,, False

Case "Z027"

Script.RunHuellaForm "REGISTROACCESO", Me, Ambiente,, True

'Case "Z028"

'Script.Runform "LISTADEPEDIDOS", Me, Ambiente,, True

End Select

CancelaProceso = True
txtFields(4) = ""

End Sub