Whats 7222816462. Mejoramos la experiencia en el Punto de Venta de tu NEGOCIO
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
Este libro de finanzas abarca todo lo que una personadeclasemediadebesabersobre cómo manejarsus finanzas personales y familiares. Contiene historias de la vida cotidiana para que todo mundo puedareflexionarsobresus hábitos financieros.
Idioma: EspañolCategoría: Crecimientopersonal Traductor: Editorial: Storyside
Publicado: 2019-08-25
Duración: 5H 12M
ISBN: 9789179210137
En algunas ocasiones las basede datos se dañan con fallas dehardware, apagonesinesperadosdelservidor y transaccionesinterrumpidasincorrectamente. SQLServerproveedesentenciasquepermitenverificar y reparar una basede datos con inconsistencias o dañada.Antesderealizarelsiguienteprocedimientodeberiarealizar un respaldode la basede datos dañada si lo permiteSQLServer o hacer una copia física delosarchivos.
Paso 1: se coloca la basede datos en modo emergencia y usuario único AlterDatabase mibd SET SINGLE_USER AlterDatabase mibd SETEMERGENCY
Paso 2: Reparar la base datos
DBCC CHECKDB(‘mibd’, REPAIR_ALLOW_DATA_LOSS).
Repitaeste paso hasta queelmensajesea ‘0 erroresencontrados’ para la basede datos. La senteciaCHECKDB con la opcion REPAIR_ALLOW_DATA_LOSS elimina datos desernecesario para realizar la reparación o corregir la consistenciadelos datos, para una reparación más rápida y sin pérdida de datos pruebe la opcion REPAIR_REBUILD, aunqueenocasiones con esta opción nosereparacompletamente la basede datos.
Paso 3. Aplicar ajusteenel tamaño de la basede datos y el log
ckup log [TuBaseDeDatos] with Truncate_Only
DBCC SHRINKDATABASE ( [TuBaseDeDatos], 5 )
Paso 4: Regresar a multiusuario y colocar enlinea la basede datos AlterDatabase mibd SETONLINE AlterDatabase mibd SET MULTI_USER
Dirigirse al iconode inicio de windows y seleccionaren la carpetade Microsoft SQLServer 2005/Herramientasde Configuración/Administrador de Configuración
Leaparecerá una pantalla como la siguienteendondesemuestraquelosserviciosdeSQLSERVER 2005 (seencuentranenelrectángulo rojo) están activados. Si algunoestaen color rojo, lo debeseleccionar, dando un clic con el botón derecho y elegirPropiedades
Leaparecerá una ventana, seleccione la pestañaServicio, posteriormente Automático enel Modo de inicio. Dar un clic en Aplicar y enAceptar.
VerifiquequeelPuerto 1400 esteliberado, siga las instrucciones:
EneliconoProtocolos for SQLEXPRESS, verifique si losprotocolosdeSQLServerestán habilitados
Seleccioneel Protocolo TCP/IP, Clic con el botón derecho y elegirpropiedades
Debeseleccionar la pestaña IP Addresses, verifiquequeen la parteinferiortengaelPuerto Dinámico 1400
+ IP All
TCP Dynamic Ports 1400
En caso dequenoesté o aparezcaen blanco, colocar elnúmerodepuerto 1400.
Elsiguientebloquede código permiterealizar la consulta al catálogo de productos, verl las características y agregarel artículo al punto deventa. Este código seimplementaenelambientededesarrollo, creas un formulario; en la pestañadiseño solo agregas las etiquetas y textbox.
'jofelchez@gmail.com JoseFelix WhatsApp 7222816462
'Ejemplodeverificadordeprecios
Option Explicit
Dim mcp,mcl,mcm
Dim mca
Dim mcc
dim Busqueda,cCondicion
dim ApruebaEliminar
dim rstArticulo,rstClavesadd
dim rstArt
dim nPartida,n
if ControlEvento.Tag = "txtArticulo" Then
If KeyCode = 40 Then SetBusqueda = CreateObject ("MyBBusquedaArticulos.BusquedaArticulos") SetBusqueda.Ambiente = Ambiente SetBusqueda.Control = txtArticulo Busqueda.MuestraForma SetBusqueda = Nothing
txtArticulo.SetFocus ExitSub End if
End If
If KeyCode = 27 Then DescargaForma End If
EndSub
Function FDecimal(dValor) FDecimal = Replace(dValor, ",", ".") End Function
Sub Text_LostFocus()
If ControlEvento.Tag = "txtArticulo" Then LimpiarVentana
call VerificarArticulo(txtArticulo)
End If
EndSub
subVerificarArticulo(Articulo)
Dim s, s_adicional
dim Presentacion, Cant_Presentacion Presentacion = ""
Cant_Presentacion = ""
cCondicion = ""
if txtArticulo <> "" then
cCondicion = cCondicion & " and prods.articulo = '" & txtArticulo & "' " end if
s_adicional = ""
s = ""
s = s & "SELECT "
s = s & "prods.articulo As 'Articulo', "
s = s & "prods.descrip As 'Descripción', "
s = s & "impuestos.impuesto As 'Impuesto', "
'If Ambiente.rstEstacion("conimpuesto") <> 0 Then
' s = s & " precio1 * (1 + ( impuestos.valor / 100 )) As 'Precio 1', "
' s = s & " precio2 * (1 + ( impuestos.valor / 100 )) As 'Precio 2', "
' s = s & " precio3 * (1 + ( impuestos.valor / 100 )) As 'Precio 3', "
' s = s & "prods.costo_u * (1 + ( impuestos.valor / 100 )) As 'Costo Ultimo', "
'else
' s = s & " precio1 As 'Precio 1', "
' s = s & " precio2 As 'Precio 2', "
' s = s & " precio3 As 'Precio 3', "
' s = s & "prods.costo_u As 'Costo Ultimo', "
'end if
s = s & " precio1 * (1 + ( impuestos.valor / 100 )) As 'Precio 1', "
s = s & " precio2 * (1 + ( impuestos.valor / 100 )) As 'Precio 2', "
s = s & " precio3 * (1 + ( impuestos.valor / 100 )) As 'Precio 3', "
s = s & "prods.costo_u * (1 + ( impuestos.valor / 100 )) As 'Costo Ultimo', "
s = s & "prods.existencia As 'Existencia', "
s = s & "prods.linea As 'Línea', "
s = s & "prods.marca As 'Marca', "
s = s & "Fabricante As 'Fabricante', "
s = s & "Unidad As 'Unidad', "
s = s & "Invent As 'Control Inventario', "
s = s & "ParaVenta As 'Para venta', "
s = s & "Bloqueado As 'Bloqueado', "
s = s & "Bloqueado As 'Granel' "
s = s & "FROM prods INNER JOIN impuestos ON impuestos.impuesto = prods.impuesto "
s = s & "WHERE prods.articulo <> 'SYS' "
s_adicional = s & cCondicion
s_adicional = s_adicional & " ORDER BY 'Descripción' "
'mymessage "" & s_adicional
'SetSessionValueAmbiente, "SQLPRODUCTOS", s Set rstArticulo = CreaRecordSet( "" & s_adicional , Ambiente.Connection )
'Set rstArticulo = CreaRecordSet( "SELECT * FROM tickettextwhereNombreTicket = ", Ambiente.Connection )
If rstArticulo.EOFThen SetrstClavesadd = CreaRecordSet( "SELECT * FROM clavesaddWHEREclave = '" & txtArticulo & "'", Ambiente.Connection )
If NotrstClavesadd.EOFThen
'mymessage "si hay presentacion " & rstClavesadd("articulo")
'Set rstProd = CreaRecordSet( "SELECT * FROM prods WHERE articulo = '" & rstClavesadd("articulo") & "'", Ambiente.Connection ) Set rstArticulo = CreaRecordSet( "SELECT * FROM (" & s & ") a WHERE Articulo = '" & rstClavesadd("articulo") & "'", Ambiente.Connection ) Presentacion = rstClavesadd("clave") & " - " & rstClavesadd("dato1")
Cant_Presentacion = Val2(rstClavesadd("Cantidad")) End If
End If
If Not rstArticulo.EOFthen 'clEmpty(rstArticulo("Artículo")) Then
txtArticulo = rstArticulo("Articulo")
lblArticulo = "Artículo: " & rstArticulo("Articulo") lblDescripcion = "Descripción: " & rstArticulo("Descripción") lblPrecio = "Precio: " & formato(rstArticulo("Precio 1"),"##,##0.00" )
lblUnidad = "Unidad: " & rstArticulo("Unidad")
if Presentacion <> "" then lblPresentacion = "Presentación: " & Presentacion lblCantPres = "Cantidad presentación: " & Cant_Presentacion end if End If
endsub
SubNuevaPartida(rstArticulo, nPrecio)
on errorresumenext SetrstVenta = Rst("SELECTventa FROM ventasWHEREventa = " & ParentObject.Venta, Ambiente.Connection)
'mymessage "" & rstArticulo & nPrecio
If rstVenta.EOFThen SalvaVentaFalse End If
SelectCaseControlEvento.Tag Case "cmdAgregarPartida"
'Agregamos la recarga al punto deventa a través deNuevaPartida Set rstArt = Rst("SELECT prods.*, impuestos.valor FROM prods, impuestosWHERE prods.impuesto = impuestos.impuesto " & _
" and prods.articulo = '" & txtArticulo & "' ", Ambiente.Connection)
If not rstArt.EOFThen
'SalvaVentaFalse NuevaPartida rstArt, Val2(rstArt("precio1")) End If
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.linealeft 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.EOFThen consulta “INSERTIGNORE 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 errorresumenext ParentObject.txtFields(3) = “” ParentObject.LlenaPartida txtSKU.Text
DescargaForma
EndSub
Sub Form_Activate()
On ErrorResumeNext
If clEmpty( txtDescripcion ) Then txtDescripcion.SetFocus() Else
If NotclEmpty( txtImpuesto ) Then txtPrecio.SetFocus Else txtImpuesto.SetFocus End If End If
EndSub
Subconsulta(MiArticulo)
Dim NS, NS_SOAP, NS_SOAPENC, NS_XSI, NS_XSD
‘ The URL of theWebservice.
Dim URL
URL = “https://demo.helpmybusinesspos.info/ws/servicio_2.php?wsdl”
‘ The URL of theoperation (function).
Dim Operation_HMBP
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”)
‘ Createsthe main elements. SetEnvelope = 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.appendChildEnvelope Set Body = DOM.createElement(“SOAP-ENV:Body”) Envelope.appendChild Body
‘ Creates an element for theTIPOSDECAMBIO function.
‘SetOperation = DOM.createNode(1, “ns1:GetData”, NS) SetOperation = DOM.createNode(1, “ns1:GetData2”, NS)
Body.appendChildOperation
‘ Creates an element for theCelsiusparameter (passes a value of 33 °C).
‘Parámetro 1 Set Param = DOM.createNode(1, “ID”, NS)
Param.Text = MiArticulo Operation.appendChild Param
Set xml = CreateObject(“Msxml2.DOMDocument.3.0”)
xml.loadXML((sMensaje)) SetNodeList = xml.getElementsByTagName(“*”)
For EachElement 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 EndSub
Sub Text_LostFocus()
If ControlEvento.Tag = “txtSku” Then consulta “SELECT articulo, descrip, precio1,linea,marca, impuesto FROM prods WHERE articulo = ‘” & trim(txtSKU) & “‘ or articulo like ‘%” & Cambia(“%”, ” “, txtSKU) & “%’ or descriplike ‘%” & Cambia(“%”, ” “, txtSKU) & “%’ order by articulo ”
Form_Activate End If