djnilo djnilo
06 de Mayo del 2012

hola buenos dias programacion.com soy aprendiz de visual basic 6 mysql tengo una aplicacion que desarrolle y la tengo montada en tres computadores funciona perfectamente en solo computador
el problema es abren los demas computadores el mismo formulario es decir el de las ordens de compra por ejemplo computador 1 orden 2500 computador 2 2500 computador 3 2500 numero de orden al tener el mismo numero de orden se mesclan en la base datos y queda la embarrada

necesito si alguien me ayuda por

en lograr que san multusuario la aplicacion este es mi codigo

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

End Sub

es el otro codigo donde grabo el numero de orden

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,Inspeccion,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