Visual Basic - orden de compra multiusuario

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

orden de compra multiusuario

Publicado por rodrigo (6 intervenciones) el 06/05/2012 17:33:41
hola buenos dias lawebdelprogramador 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,Ciudad,FechaEntrega,fechahoy,fono,Correo,NumOrden,Numero_Requisicion," & _
"Contrato,Numero_Presupuesto,Codicion_Pago,Via_despacho,Contacto,Inspeccion,Multa,Su_Bodega,Nuestra_Bodega,Otros,Rut_Personal,Nombres,SumaTotal,PorcentajeIva,TotalFactura,TotalNeto,Numero_Cotizacion,dvrequisicion,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,Ciudad,FechaEntrega,fechahoy,fono,Correo,NumOrden,Numero_Requisicion,Contrato,Numero_Presupuesto," & _
"Codicion_Pago,Via_despacho,Contacto,Inspeccion,Multa,Su_Bodega,Nuestra_Bodega,Otros,Rut_Personal,Nombres,SumaTotal,PorcentajeIva,TotalFactura,TotalNeto,Numero_Cotizacion,dvrequisicion,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 & "','" & 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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder