programado visual basic 6 mysql
hola buenas tardes forodel web necesito la ayuda de un forero por favor
estoy ponchado con este es codigo hice sistema de ordenes de compra funciona perfectamente monosuario pero necesito.
que funcione como multisuario de decir que funcione en diferentes computadores al mismo tiempo para que no se mesclen las orden ejemplo computador 1 orden 2500 computador 2 2500 , computador 3 orden 2500 al tener el mismo numero se mesclan las orden y queda la embarrada en la base datos este es mi codigo si puedes ayudarme de ante mano gracias
en este codigo avanza el numero de orden
Sub SumarOrden()
Adodc4.RecordSource = "Select * from ordencompra order by NumOrden asc"
Adodc4.Refresh
If Adodc4.Recordset.EOF Then
txtNumOrden = 2500
Else
Adodc4.Recordset.MoveLast
txtNumOrden = Val(Adodc4.Recordset.Fields("NumOrden")) + 1
End If
es el codigo de grabacion
If x = True Then
Coneccion.Execute ("Insert Into ordencompra(Rut_Proveedor,Proveedor,Direccion,Ciud ad,FechaEntrega,fechahoy,fono,Correo,NumOrden,Nume ro_Requisicion," & _
"Contrato,Numero_Presupuesto,Codicion_Pago,Via _des pacho,Contacto,Inspeccion,Multa,Su_Bodega,Nuestra_ Bodega,Otros,Rut_Personal,Nombres,SumaTotal,Porcen tajeIva,TotalFactura,TotalNeto,Numero_Cotizacion,d vrequisicion,dvproveedor,Nota,exento) values ('" & txtRut_Proveedor & "', '" & txtProveedor & "', '" & txtDireccion & "', '" & txtCiudad & "', '" & fechaasalida & "','" & fechaahoyy & "','" & txtfono & "', '" & txtCorreo & "', '" & txtNumOrden & "','" & txtNumero_Requisicion & "','" & txtContrato & "','" & txtNumeroPresupuesto & "','" & txtCodicionPago & "','" & txtViadespacho & "','" & txtcontacto & "','" & Variableuno & "','" & Variabledos & "','" & Variabletres & "','" & Variablecuatro & "','" & VariableCinco & "','" & txtRut & "','" & txtnombres & "','" & txtSumaTotal & "','" & txtPorcentajeIva & "','" & txtTotalFactura & "','" & txtTotalNeto & "','" & Text8.Text & "','" & txtdvrequisicion & "','" & txtDevPersonal & "','" & txtNota & "','" & txtexento & "')")
For I = 1 To Grilla2.Rows - 1
Adodc9.RecordSource = "Select * from detalle_orden_compra where NumOrden = '" & txtNumOrden & "' and Codigo_Producto = '" & Grilla2.TextMatrix(I, 0) & "'"
Adodc9.Refresh
If Adodc9.Recordset.EOF Then
Call sumarcodigo
Coneccion.Execute ("Insert Into detalle_orden_compra (NumOrden,Numero_Cotizacion,Codigo,Codigo_Producto ,Cantidad,Descripcion,Precio,Total) values ('" & txtNumOrden & "', '" & Text8 & "','" & txtcodigosuma & "','" & Grilla2.TextMatrix(I, 1) & "','" & Grilla2.TextMatrix(I, 2) & "','" & Grilla2.TextMatrix(I, 3) & "','" & Grilla2.TextMatrix(I, 4) & "','" & Grilla2.TextMatrix(I, 5) & "')")
End If
Next
Coneccion.Close
MsgBox "Registro Ingresado Exitosamente", vbOKOnly + vbInformation, "SIC ATACAMA"
Call SumarOrden
fechaEntrega.Value = Date
txtFecha = Date
Text8.Text = ""
Call Limpiarcajasorden
Text8.SetFocus
Command2.Enabled = True
Adodc10.RecordSource = "Select * from detalle_cotizacion where Codigo_producto = '2134565523231'"
Adodc10.Refresh
ElseIf x = False Then
Coneccion.Execute ("Insert Into ordencompra(Rut_Proveedor,Proveedor,Direccion,Ciud ad,FechaEntrega,fechahoy,fono,Correo,NumOrden,Nume ro_Requisicion,Contrato,Numero_Presupuesto," & _
"Codicion_Pago,Via_despacho,Contacto,Inspeccio n,Mu lta,Su_Bodega,Nuestra_Bodega,Otros,Rut_Personal,No mbres,SumaTotal,PorcentajeIva,TotalFactura,TotalNe to,Numero_Cotizacion,dvrequisicion,dvproveedor,Not a,exento) values ('" & txtRut_Proveedor & "', '" & txtProveedor & "', '" & txtDireccion & "', '" & txtCiudad & "', '" & fechaasalida & "','" & fechaahoyy & "','" & txtfono & "', '" & txtCorreo & "', '" & txtNumOrden & "','" & txtNumero_Requisicion & "','" & txtContrato & "','" & txtNumeroPresupuesto & "','" & txtCodicionPago & "','" & txtViadespacho & "','" & txtcontacto & "','" & Variableuno & "','" & Variabledos & "','" & Variabletres & "','" & Variablecuatro & "','" & VariableCinco & "','" & txtRut & "','" & txtnombres & "','" & txtSumaTotal & "','" & txtPorcentajeIva & "','" & txtTotalFactura & "','" & txtTotalNeto & "','" & txtnumerocotizacioncero & "','" & txtdvrequisicion & "','" & txtDevPersonal & "','" & txtNota & "','" & txtexento & "')"), adOpenStatic, adLockOptimistic
Coneccion.Close
MsgBox "Registro Ingresado Exitosamente", vbOKOnly + vbInformation, "SIC ATACAMA"
fechaEntrega.Value = Date
txtFecha = Date
Call SumarOrden
Call Limpiarcajasorden
txtRut_Proveedor.SetFocus
Command2.Enabled = True
End If
End If
txtdvrequisicion = ""
Adodc4.RecordSource = "Select * from ordencompra order by NumOrden asc"
Adodc4.Refresh
Adodc5.RecordSource = "select * from detalle_orden_compra WHERE Codigo_producto = '2134565523231'"
Adodc5.Refresh
End Sub
