Resultados de la búsqueda para: se detecto que no estan instalados los clientes de sql server, busque el archivo sqlncli.msi en su disco de instalación e instalelo

Publicado el por — Dejar un comentario

La importancia de la Actitud de servicio dentro de tu negocio

Si alguien te dice lo contrario, no caigas en la trampa, la actitud viene de la mano con el estado de ánimo, dale tiempo y espacio, porque la Actitud correcta es un cheque en blanco que cobras cada día de manera inmediata.

Cuanto más vivo, más cuenta me doy del impacto que la ACTITUD tiene sobre mi vida y la de otras personas.

Es más importante que el pasado, porque lo que sucedió te supera con una buena actitud o te destruye con una mala.

Para algunos es mejor que la educación formal cuando no tuvieron acceso a ella. Porque la actitud positiva abre puertas.

Para otros, una buena actitud es más que el dinero, las circunstancias, que los fracasos y el éxito, porque invariablemente el éxito, aprendizaje, los amigos y el amor acompañan a una persona positiva y con buena actitud.

Ademas, lo que otras personas piensan, digan o hagan con su actitud si no es pro-positiva y correcta pierde fuerza, se desvanece.
Es más importante que las apariencias, los dones o la destreza, porque a la falta de estas cualidades, la atención se fija en la mirada, en la sonrisa, en los modales. Claro que, si ya cuentas con alguna o todas estas cualidades de manera complementaria y adicional, estas listo para el éxito, si es que aun no lo eres.

La actitud levantará o hará fracasar una empresa, una iglesia y un hogar.

Lo admirable es que día a día desde que despertamos tenemos la elección de escoger la ACTITUD que asumiremos en respuesta a toda situación que se presente.

No podemos cambiar nuestro pasado, tampoco podemos cambiar el hecho de que la gente actúe en determinado modo y mucho menos podemos cambiar lo inevitable. Lo único que si podemos hacer es tocar la única cuerda que tenemos, y esa es nuestra ACTITUD.

Estoy convencido de que la vida esta constituida por un 10% de lo que me ocurre y el 90% de cómo reacciono ante ello.
Y así es también contigo, porque habría de ser diferente?

En todo momento somos responsables por nuestra ACTITUD. En efecto, las relaciones, oportunidades y éxito dependen eternamente de nuestra ACTITUD.
En mi negocio, evalúo a los candidatos primero por su actitud y después su aptitud, porque crear riqueza requiere de entusiasmo que contagia y esto genera ganancias a todos. Si tienes tu tienes una buena actitud, podemos hablar de emprender y ganar.

Publicado el por — Dejar un comentario

Solución al Error número: 35603 en el Business Manager, para mostrar los formatos del sistema

Mensaje de Error:

Module: Llena
Function: LlenaFormatos
Description: Invalid Key código duro: 1673
Error número: 35603
Causa:
En el Business Manager se agregó un procedimiento o formato con el nombre tipo numérico, por ejemplo, con el nombre de formato “1”,”20″, “25”. El sistema se confunde al desplegar la lista, ya que la columna Formato es tipo texto.

Solución:
Antes de aplicar esta solución, vale la pena realizar un respaldo de la base de datos, por si fuese necesario restaurar.

Las alternativas de solución son las siguientes:

  • A través de sql management studio, en la tabla FormatosDelta, identificar el formato que se agregó con nombre raro (numérico) y proceder a borrar o renombrar. después de esto, se podrá mostrar la información normal en el Business Manager
  • Otra alternativa de solución dentro de MyBusiness es utilizar el Editor de consultas que se encuentra en el menú Programación para identificar, en la tabla FormatosDelta, el formato que genera conflicto.
    Supongamos que identificamos el formato con nombre accidental se llama “10”
    Después, se puede crear un nuevo procedimiento que incluya el siguiente código para renombrar el formato. Este procedimiento se puede crear en el business manager — Configuración –Personalización — procedimientos y rutinas de usuario

Sub Main
  Ambiente.connection.execute ” Update FormatosDelta set formato = ‘MiFormato10′ where formato = ’10’ “
  mymessage “consulta terminada”
End Sub

Dar clic en el botón Ejecutar para que se aplique la actualización.
Con esto ya se actualiza el formato de manera que se pueda desplegar de manera normal en el Business Manager.
Saludos y confiamos que esta información sea de utilidad

 

Código duro 24

 

Ocurrió un error. Module frminicio.

Function vbarlist1Bar1_itemClick.

Descripción: Error de automatización.

Código duro: 24.

Error número -2147024770

 

 

Ocurrió un error

Module:frmInicio

Function: vbalListBar1_itemClick

Description: ActiveX component can’t create object

código duto: 24

Error número: 429

 

También podemos solucionar este error, desde whatsapp 7222816462:
Error Número 429

Module: frminicio
Function: vbalListBar1_ItemClick
Description: ActiveX Component can´t create object
Código duro 24
Error Número 429

.

Gratis Catálogo de productos para Abarrotes Alta UltraRapida

Descarga El archivo para dar de alta productos de internet, helpmybusinesspos.info

Este Vídeo muestra cómo implementar el catálogo de abarrotes, alta UltraRapida

‘jofelchez@gmail.com
‘whatsapp 7222816462
‘Alta de catálogo de producots desde halpmybusinesspos.info
Public imagen
Public info
Public codigoEncontrado

Sub Form_Load()
‘—-**** MyBusiness POS Generated
‘—-**** Date: 08-09-2008
‘—-**** Time: 22:35:42
‘—-**** User: SUP
Dim wf

Me.Caption = “ALTA ULTRARAPIDA”

cmdCancelar.Cancel = True

txtSKU.TabIndex = 0
txtDescripcion.TabIndex = 1
txtImpuesto.TabIndex = 2
txtPrecio.TabIndex = 3
cmdAceptar.TabIndex = 4
cmdCancelar.TabIndex = 5

codigoEncontrado = False
txtImpuesto = 0
txtSKU.Text = “” & GetSessionValue( Ambiente, “SKU_BUSCADO” )

‘Set wf = getWebFiles(“http://201.155.92.187:4420”, Ambiente.Path & “\web”)
‘c = wf.solicitaCodigo( txtSKU, “201.155.92.187”, 2000)

‘If Len( c ) > 3 Then
‘ If Mid(c,1,3) = “Ok.” Then
‘ codigoEncontrado = True
‘ Call procesaCadena( c )
‘ End If
‘End If

‘consulta

End Sub

Sub procesaCadena( c )
Dim n, s, i

c = Mid( c, 4 )

Do While True
n = clAt( “:–:”, c )

If n = 0 Then
Exit Do
Else
i = i + 1

If i = 1 Then
txtSKU = Mid( c, 1, n – 1 )
End If

If i = 2 Then
txtDescripcion = Mid( c, 1, n – 1 )
End If

If i = 3 Then
txtPrecio = Formato( Val2(Mid( c, 1, n – 1 )), “##,##0.00” )
txtPrecio.SelStart = 0
txtPrecio.SelLength = Len( txtPrecio )
End If

If i = 4 Then
imagen = Mid( c, 1, n – 1 )
End If

If i = 5 Then
info = Mid( c, 1, n – 1 )
End If

If i = 6 Then
txtImpuesto = Formato( Val2(Mid( c, 1, n – 1 )), “##,##0.00” )
End If

c = Mid( c, n + 4 )

End If

Loop

‘If Trim(info) <> “” Then
‘ WebBrowser.Navigate (info)
‘Else
‘ webBrowser1.Navigate “http://localhost:4410/aspnet/puntodeventa.aspx”
‘End If

End Sub

Sub Button_click()
‘—-**** MyBusiness POS Generated
‘—-**** Date: 09-09-2008
‘—-**** Time: 00:31:51
‘—-**** User: SUP
Select Case ControlEvento.Tag
Case “cmdAceptar”

Call salvaDatos()

Case “cmdCancelar”
DescargaForma
End Select

End Sub

Sub salvaDatos()
Dim Query, rstImpuesto, codigoImpuesto, wf,longitudDescipcion,informacion
dim rstProds

If clEmpty( txtSKU ) Then
MyMessage “Es necesario que indique el código de barras del producto”
txtSKU.Setfocus
Exit Sub
End If

If Val2( txtPrecio ) <= 0 Then
MyMessage “Es necesario que indique el precio del producto”
txtDescripcion.SetFocus
Exit Sub
End If

Set Query = NewQuery()
Set Query.Connection = Ambiente.Connection

Set rstImpuesto = CreaRecordSet( “SELECT * FROM impuestos WHERE valor = ” & Val2( txtImpuesto ), Ambiente.Connection )

If rstImpuesto.EOF Then
Query.strState = “INSERT”
Query.AddField “impuestos”,”Impuesto”, “I” & txtimpuesto
Query.AddField “impuestos”,”Descrip”, “I” & txtimpuesto
Query.AddField “impuestos”,”Valor”, txtimpuesto
Query.AddField “impuestos”,”Usuario”, Ambiente.Uid
Query.AddField “impuestos”,”usuFecha”, Date
Query.AddField “impuestos”,”usuHora”, Formato( Time, “hh:mm:ss” )
Query.Exec

codigoImpuesto = “I” & txtimpuesto
Else

codigoImpuesto = rstImpuesto(“impuesto”)

End If

Set rstProds = CreaRecordSet( “SELECT articulo FROM prods WHERE articulo = ‘” & txtSKU & “‘”, Ambiente.Connection )

longitudDescipcion = len(txtDescripcion)
informacion = Lcase(Mid( txtDescripcion, 1, longitudDescipcion – 7))
informacion = replace(informacion,”ñ”,”%C3%B1″) ‘ñ
informacion = replace(informacion,”á”,”a”) ‘a
informacion = replace(informacion,”é”,”e”) ‘e
informacion = replace(informacion,”í”,”i”) ‘i
informacion = replace(informacion,”ó”,”o”) ‘o
informacion = replace(informacion,”ú”,”u”) ‘u

Query.Reset

If rstProds.EOF Then
Query.strState = “INSERT”
Query.AddField “prods”, “linea”, “SYS”
Query.AddField “prods”, “marca”, “SYS”
Query.AddField “prods”, “ubicacion”, “SYS”
Query.AddField “prods”, “fabricante”, “SYS”
Query.AddField “prods”, “imagen”, info
‘Query.AddField “prods”, “url”, “https://mbasic.facebook.com/search/photos/?source=filter&isTrending=0&q=” & Mid( txtDescripcion, 1, longitudDescipcion – 7)

Else
Query.strState = “UPDATE”
Query.Condition = “articulo = ‘” & txtSKU & “‘”

End If

‘Query.strState = “INSERT”
Query.AddField “prods”, “articulo”, txtSKU
Query.AddField “prods”, “descrip”, txtDescripcion
Query.AddField “prods”, “precio1”, Val2(txtPrecio) / (1 + (Val2( txtImpuesto ) / 100))
Query.AddField “prods”, “impuesto”, codigoImpuesto
Query.AddField “prods”, “paraventa”, 1
Query.AddField “prods”, “invent”, 1
Query.AddField “prods”, “url”, “https://mbasic.facebook.com/search/photos/?source=filter&isTrending=0&q=” & informacion
Query.Exec

‘If Not clEmpty( txtDescripcion ) Then
Set rstProds2 = CreaRecordSet( “SELECT top 1 ARTICULO, prods.DESCRIP, prods.LINEA, prods.MARCA, PRECIO1, UNIDAD, IMPUESTO, INVENT, lineas.descrip as descripLinea, marcas.descrip as descripMarca FROM prods left join lineas on prods.linea = lineas.linea left join marcas on prods.marca= marcas.marca WHERE prods.autor is null or prods.autor <> ‘1’ order by articulo desc “, Ambiente.Connection )
If not rstProds2.EOF Then
consulta “INSERT IGNORE INTO prods (ARTICULO, DESCRIP, LINEA, MARCA, PRECIO1, UNIDAD, IMPUESTO, INVENT, DESCRIPLINEA, DESCRIPMARCA, USUFECHA ) VALUES (‘” & rstProds2(“ARTICULO”) & “‘, ‘” & rstProds2(“DESCRIP”) & “‘ , ‘” & rstProds2(“LINEA”) & “‘ , ‘” & rstProds2(“MARCA”) & “‘ , ‘” & rstProds2(“PRECIO1”) & “‘ , ‘” & rstProds2(“UNIDAD”) & “‘ , ‘” & rstProds2(“IMPUESTO”) & “‘ , ‘” & rstProds2(“INVENT”) & “‘ , ‘” & rstProds2(“DESCRIPLINEA”) & “‘ , ‘” & rstProds2(“DESCRIPMARCA”) & “‘ , now() ) ”
Ambiente.Connection.Execute “update prods set autor = 1 where articulo = ‘” & rstProds2(“ARTICULO”) & “‘ ”

end if

on error resume next
ParentObject.txtFields(3) = “”
ParentObject.LlenaPartida txtSKU.Text

DescargaForma

End Sub

Sub Form_Activate()
‘—-**** MyBusiness POS Generated
‘—-**** Date: 09-09-2008
‘—-**** Time: 02:15:05
‘—-**** User: SUP
On Error Resume Next

If clEmpty( txtDescripcion ) Then
txtDescripcion.SetFocus()
Else
If Not clEmpty( txtImpuesto ) Then
txtPrecio.SetFocus
Else
txtImpuesto.SetFocus
End If
End If

End Sub

Sub consulta(MiArticulo)
‘20180523 jose felix jofelchez@gmail.com
‘Consulta local al SOAP MyBUsinessPOS
Dim NS, NS_SOAP, NS_SOAPENC, NS_XSI, NS_XSD

‘NS = “http://ws.dgie.banxico.org.mx”
‘NS = “http://mybusinessposdesarrollos.com/”
‘NS = “http://helpmybusinesspos.info/”
NS = “urn:miserviciowsdl”

‘”https://www.w3schools.com/xml/”

NS_SOAP = “http://schemas.xmlsoap.org/soap/envelope/”
NS_SOAPENC = “http://schemas.xmlsoap.org/soap/encoding”
NS_XSI = “http://www.w3.org/2001/XMLSchema-instance”
NS_XSD = “http://www.w3.org/2001/XMLSchema” ‘”http://www.w3.org/2001/XMLSchema”

‘ The URL of the Web service.
Dim URL
‘URL = “http://localhost:4430/ws/hmbp.asmx?wsdl”
URL = “http://demo.helpmybusinesspos.info/ws/servicio_2.php?wsdl”

‘ The URL of the operation (function).
Dim Operation_HMBP
‘Operation_HMBP = “urn:MyServicewsdl#GetData”
Operation_HMBP = “urn:MyServicewsdl#GetData2”

‘ XML DOM objects.
Dim DOM, Envelope, Body, Operation, Param

‘ Creates an XML DOM object.
Set DOM = CreateObject(“MSXML2.DOMDocument.6.0”)

‘ Creates the main elements.
Set Envelope = DOM.createNode(1, “SOAP-ENV:Envelope”, NS_SOAP)
Envelope.setAttribute “xmlns:soapenc”, NS_SOAPENC
Envelope.setAttribute “xmlns:xsi”, NS_XSI
Envelope.setAttribute “xmlns:xsd”, NS_XSD
DOM.appendChild Envelope
Set Body = DOM.createElement(“SOAP-ENV:Body”)
Envelope.appendChild Body

‘ Creates an element for the TIPOSDECAMBIO function.
‘Set Operation = DOM.createNode(1, “ns1:GetData”, NS)
Set Operation = DOM.createNode(1, “ns1:GetData2”, NS)
Body.appendChild Operation

‘ Creates an element for the Celsius parameter (passes a value of 33 °C).
‘Parámetro 1
‘Set Param = DOM.createNode(1, “servidor”, NS)
Set Param = DOM.createNode(1, “ID”, NS)
‘Param.Text = MiServidor
Param.Text = MiArticulo
Operation.appendChild Param

‘Parámetro 2
‘Set Param2 = DOM.createNode(1, “baseDeDatos”, NS)
‘Param2.Text = MibaseDeDatos
‘Operation.appendChild Param2

‘Parámetro 3
‘Set Param3 = DOM.createNode(1, “cliente”, NS)
‘Param3.Text = MiCliente
‘Operation.appendChild Param3

‘ Releases the objects.
Set Param = Nothing
Set Operation = Nothing
Set Body = Nothing
Set Envelope = Nothing

‘xml que se enviará al servidor
‘mymessage “” & replace(DOM.xml ,”><“,”>” &vbCrLf& “<“) ‘ Creates an XML HTTP object for sending a request. Dim XMLHTTP Set XMLHTTP = CreateObject(“MSXML2.ServerXMLHTTP.6.0”) XMLHTTP.Open “POST”, URL, False XMLHTTP.setRequestHeader “Content-Type”, “text/xml; charset=utf-8” XMLHTTP.setRequestHeader “SOAPAction”, Operation_HMBP on error resume next ‘ Sends the request. XMLHTTP.send DOM.xml ‘ Loads the response to the DOM object. DOM.LoadXML XMLHTTP.responseXML.xml ‘ Releases the object. Set XMLHTTP = Nothing ‘ XML DOM objects. Dim NodeList, Element ‘xml que se regresa del servidor ‘mymessage “” & replace(DOM.xml ,”><“,”>” &vbCrLf& “<“)

‘ Searches for the CelsiusToFahrenheitResult object, which contains the value in degrees Fahrenheit.
Set NodeList = DOM.getElementsByTagName(“*”)
For Each Element in NodeList
If Element.tagName = “return” then
‘mymessage ” ” & Element.Text
‘procesaRespuesta Element.Text

‘cortar hasta el primer pipe
nPos = clAt( “|”, “” & Element.Text )
cArticulo = Mid( Element.Text, 1, nPos – 1)
txtSku = trim(cArticulo)

cDescripcion = Mid( Element.Text, nPos + 1)
‘cortar hasta el segundo pipe
nPos = clAt( “|”, “” & cDescripcion )
‘nPos2 = clAt( “|”, “” & cDescripcion )
cDescripcion = Mid( cDescripcion,1, nPos – 1)
txtDescripcion = trim(cDescripcion)

Exit For

End If
Next

‘ Releases the objects.
Set Element = Nothing
Set NodeList = Nothing
Set DOM = Nothing

End Sub

Sub procesaRespuesta( sMensaje)
Dim Query, rstArticulo
Dim NodeList, Element

mymessage “” & sMensaje

Set Query = NewQuery()
Set Query.Connection = Ambiente.Connection

Set xml = CreateObject(“Msxml2.DOMDocument.3.0”)
xml.loadXML((sMensaje))
Set NodeList = xml.getElementsByTagName(“*”)
For Each Element in NodeList
If Element.tagName = “bm:Obs” then
msgbox “Tipo de cambio : ” & Trim(Element.getAttribute(“OBS_VALUE”) ) & vbCrLf & “Fecha : ” & Trim(Element.getAttribute(“TIME_PERIOD”) )
Exit For
End If
Next
End Sub

Sub Text_LostFocus()

If ControlEvento.Tag = “txtSku” Then
‘consulta
consulta “SELECT articulo, descrip, precio1,linea,marca, impuesto FROM prods WHERE articulo = ‘” & trim(txtSKU) & “‘ or articulo like ‘%” & Cambia(“%”, ” “, txtSKU) & “%’ or descrip like ‘%” & Cambia(“%”, ” “, txtSKU) & “%’ order by articulo ”
Form_Activate
End If

End Sub

Publicado el por — Dejar un comentario

Solución al error en tecla Ctrl

 

BDBusquedaArticulos

17:33:41 Ocurrió un error: Module: frmBusca Function: Form _KeyDown

Description: Column not found, Unidad de consumo código duro: 42

Causa. Este error es un bug de la v.17