Contratos
Nombre: Ingresar Producto
Responsabilidades: Capturar los datos del producto que se venderá, agregarlos a la factura venta, y desplegar los datos del producto: referencia, nombre,valor, cantidad.
Tipo: Sistema
Notas: Utilizar el acceso a la base datos, teniendo en cuenta las siguientes validaciones y comandos SQl.
Inicio
Lea referenciaMientras referencia ””
Si referencia producto existe
Mostrar mensaje informativo
Sino
Guardar datos con esta instrucción: StrSQL = "insert intoTblProductos(LngRef,StrNombre,StrDimension,StrMarca,IntCantidad,LngPrecio)" & _
"Values('" & Val(TxtRef.Text) & "','" & Trim(TxtNombre.Text) & "','" &Trim(TxtDimension.Text) & " ','" & Trim(TxtMarca.Text) & "','" & Trim(TxtCantidad.Text) & "','" & TxtPrecio.Text & "');"
FinSi
Fin Mientras
Excepciones: Si la Referencia del producto no esvalida, indicara que se cometió un error en ingresar el dato.
Precondiciones: El sistema conoce la referencia del producto.
Nombre: Ingresar clientes
Responsabilidades:Capturar los datos del cliente; nombre, cedula, teléfono, y en caso de que exista mostrar sus datos y segmento.
Tipo: Sistema
Notas: Utiliza el acceso de la base de datos para mejor información, yvalida con los siguientes codigos:
Inicio
Lea cédula
While cedula””
Si cédula existe
Mostrar mensaje informativo
Sino
Guardar datos con lainstrucción sql:
StrSQL = "insert into TblClientes (LngCedula,strNombre,StrTelefono)" & _
"Values('" &Val(TxtCedula.Text) & "','" & Trim(TxtNombre.Text) & "','" & TxtTelefono.Text & "');"
FinSi
Fin Mientras
Excepciones: Si la cedula del cliente no es valida, indicara que se cometió...
Regístrate para leer el documento completo.