Codigo Fuente Del Sistema Ventas

download Codigo Fuente Del Sistema Ventas

of 17

Transcript of Codigo Fuente Del Sistema Ventas

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    1

    BASE DE DATOS.. IMAGEN..

    EL LINK DE DE BASE DE DATOS LO PROPORCIONO A LOS QUE APOYAN CON UN LIKE A MI

    PAGINA ..UN MENSAGE X IMBOX POR FAVOR

    DISEO DE FORMULARIO.

    Primeramente antes crear ..un modulo llamado conexin

    Es seria el cdigo

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    2

    cdigo del formulario

    Imports System.Data.SqlClient Public Class LoginForm1 Private opcion As Integer

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    3

    ' TODO: inserte el cdigo para realizar autenticacin personalizada usando el nombre de usuario y la contrasea proporcionada ' (Consulte http://go.microsoft.com/fwlink/?LinkId=35339). ' El objeto principal personalizado se puede adjuntar al objeto principal del subproceso actual como se indica a continuacin: ' My.User.CurrentPrincipal = CustomPrincipal ' donde CustomPrincipal es la implementacin de IPrincipal utilizada para realizar la autenticacin. ' Posteriormente, My.User devolver la informacin de identidad encapsulada en el objeto CustomPrincipal ' como el nombre de usuario, nombre para mostrar, etc. Private Sub habilitarAceptar() If UsernameTextBox.Text "" And PasswordTextBox.Text "" Then OK.Enabled = True Else OK.Enabled = False End If End Sub Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click habilitarAceptar() 'If txtusuario.Text = "" Or txtusuario.Text = "" Then ' MsgBox("DEBES INGRESAR TUS DATOS DE USUARIO...?", vbOKOnly + vbInformation, "SISTEMA...!") ' BTNINGRESAR.Enabled = False ' txtusuario.Focus() 'Else Dim texto As String Dim cn As New SqlConnection Dim da As SqlDataAdapter Dim ds As New DataSet Dim password As String usuario = Me.UsernameTextBox.Text password = Me.PasswordTextBox.Text Dim activo As String ' cn.ConnectionString cn.ConnectionString = "data source=CPIPRODESIGN\SQLEXPRESS;initial catalog=BDventas;Integrated security=true" Try 'Crea el adaptador de datos, recuperando los datos de la tabla texto = ("SELECT * FROM USUARIO WHERE nom_usu='" & usuario & "' and password='" & password & "'") 'Abrir la coneccin cn.Open() 'ejecuto la consulta con el data adapter y lo guardo en la variable da da = New SqlDataAdapter(texto, cn) 'Limpia el dataset ds.Clear() 'Llena el Dataset con el data adapter

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    4

    da.Fill(ds, "nom_usu") 'Cuenta los registros del datatable si es igual a 0 If ds.Tables("nom_usu").Rows.Count() = 0 Then 'Si no existe el usuario o contrasea verifica cuantas veces a intentado ingresar If opcion = 3 Then MessageBox.Show("A Perdido la Oportunidad de Ingresar lo Siento", "Sistema", MessageBoxButtons.OK, MessageBoxIcon.Stop) Me.Close() End If MessageBox.Show("Usuario o Contrasea Incorrecta", "Sistema", MessageBoxButtons.OK, MessageBoxIcon.Error) Me.UsernameTextBox.Text = "" Me.PasswordTextBox.Text = "" Me.UsernameTextBox.Focus() 'Agrega uno mas a la opcion de ingresar opcion += 1 Else 'ver si el usuario esta activo, busca datos en el datatable activo = ds.Tables("nom_usu").Rows(0)(5) If activo 1 Then MessageBox.Show("Usuario Inactivo", "Sistema", MessageBoxButtons.OK, MessageBoxIcon.Information) Else habilitarAceptar() 'pasa los valores del datatable, el usuario y nivel de usuario nivel = ds.Tables("nom_usu").Rows(0)(2) usuario = ds.Tables("nom_usu").Rows(0)(3) cod_usu = ds.Tables("nom_usu").Rows(0)(0) MessageBox.Show("Bienvenido al sistema" & "***" & usuario, "Sistema", MessageBoxButtons.OK, MessageBoxIcon.Information) Dim f1 As New Menu_del_sistema Me.Hide() f1.Show() End If End If Catch ex As Exception 'captura si ocurre una error en la operacin MsgBox(ex.ToString) End Try 'End If End Sub

    SEGUNDO FORMULARIO..

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    5

    CODIGO..

    Imports System.Windows.Forms Public Class Menu_del_sistema Inherits System.Windows.Forms.Form ' ("hh:mm:ss") Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ' Me.ToolStripStatusLabel1.Text = DateTime.Now.ToShortTimeString 'Me.ToolStripStatusLabel1.Text = TimeString.Format = 1 ToolStripStatusLabel1.Text = Format(Now, "hh:mm:ss") ToolStripStatusLabel6.Text = Format(Now, "dd-MM-yyyy") ' End Sub Private Sub Menu_del_sistema_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Me.ToolStripStatusLabel1.Text = DateTime.Now.ToShortTimeString 'Me.ToolStripStatusLabel1.Text = DateTimePickerFormat.Custom 'ToolStripStatusLabel1.Text = TimeString ' ToolStripStatusLabel1.Text = TimeString ToolStripStatusLabel3.Text = usuario End Sub Private Sub MnuTranVentas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim frm As New Form1 frm.MdiParent = Me

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    6

    frm.Show() End Sub Private Sub MnuTranSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Me.Close() End End Sub Private Sub MnuConArticulos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim frm As New FrmProductos frm.MdiParent = Me frm.Show() End Sub Private Sub MnuConClientes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim frm As New FrmClientes frm.MdiParent = Me frm.Show() End Sub Private Sub MnuConProveedores_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim frm As New FrmProveedor frm.MdiParent = Me frm.Show() End Sub Private Sub MnuConEmpleados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim frm As New Form1 frm.MdiParent = Me frm.Show() End Sub Private Sub MnuConVentas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim frm As New frmventas frm.MdiParent = Me frm.Show() End Sub Private Sub MnuRepSeleccionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim frm As New Form1 frm.MdiParent = Me frm.Show() End Sub

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    7

    Private Sub MnuManContrasea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim frm As New Form1 frm.MdiParent = Me frm.Show() End Sub Private Sub MnuManArticulos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim frm As New FrmProductos frm.MdiParent = Me frm.Show() End Sub Private Sub MnuManClientes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim frm As New FrmClientes frm.MdiParent = Me frm.Show() End Sub Private Sub MnuManProveedores_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim frm As New FrmProveedor frm.MdiParent = Me frm.Show() End Sub Private Sub MnuManEmpleados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim frm As New Form1 frm.MdiParent = Me frm.Show() End Sub Private Sub MnuHerrCalcu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click System.Diagnostics.Process.Start("calc.exe") End Sub Private Sub MnuHerrBloc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click System.Diagnostics.Process.Start("notepad.exe") End Sub Private Sub MnuVenCascada_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Me.LayoutMdi(MdiLayout.Cascade) End Sub Private Sub MnuVenVertical_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Me.LayoutMdi(MdiLayout.TileVertical)

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    8

    End Sub Private Sub MnuVenHorizontal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick Select Case ToolBar1.Buttons.IndexOf(e.Button) Case 0 Me.MnuConArticulos_Click(sender, e) Case 1 Me.MnuConVentas_Click(sender, e) Case 2 Me.MnuConClientes_Click(sender, e) Case 3 Me.MnuConProveedores_Click(sender, e) Case 4 Me.MnuManContrasea_Click(sender, e) Case 5 Me.MnuHerrCalcu_Click(sender, e) Case 6 Me.MnuHerrBloc_Click(sender, e) Case 7 Me.MnuTranSalir_Click(sender, e) End Select End Sub Private Sub ProductosXVencimientoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductosXVencimientoToolStripMenuItem.Click End Sub Private Sub VentasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VentasToolStripMenuItem.Click Dim frm As New frmventas frm.MdiParent = Me frm.Show() End Sub Private Sub ProductosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductosToolStripMenuItem.Click Dim frm As New FrmProductos frm.MdiParent = Me frm.Show() End Sub Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    9

    End Sub Private Sub ToolTip_Popup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PopupEventArgs) Handles ToolTip.Popup End Sub Private Sub StatusStrip_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles StatusStrip.ItemClicked End Sub Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) End Sub Private Sub ClientesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesToolStripMenuItem.Click Dim frm As New FrmClientes frm.MdiParent = Me frm.Show() End Sub Private Sub ProveedorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProveedorToolStripMenuItem.Click Dim frm As New FrmProveedor frm.MdiParent = Me frm.Show() End Sub Private Sub ClientesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesToolStripMenuItem1.Click Dim frm As New consulta_Clientes frm.MdiParent = Me frm.Show() End Sub Private Sub ProductosToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductosToolStripMenuItem1.Click Dim frm As New Consulta_Productos frm.MdiParent = Me frm.Show() End Sub Private Sub VentasToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VentasToolStripMenuItem1.Click Dim frm As New CONSULTA_ventas frm.MdiParent = Me frm.Show() End Sub

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    10

    Private Sub ProductosToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductosToolStripMenuItem2.Click Dim frm As New reporte_ventas frm.MdiParent = Me frm.Show() End Sub End Class TERCER FORMULARIO

    CODIGO.. Imports System.Data.SqlClient Public Class FrmProductos Dim daproducto As SqlDataAdapter Dim Dataset As DataSet Dim flag As Integer Dim resultado As Integer Dim strCodigo As String Sub cargarData() daproducto = New SqlDataAdapter("Select * From producto", cn) Dataset = New DataSet() daproducto.Fill(Dataset, "producto") cn.Close() Me.TextBox1.DataBindings.Add("Text", Dataset, "producto.cod_pro") Me.TextBox2.DataBindings.Add("text", Dataset, "producto.descripcion")

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    11

    Me.TextBox3.DataBindings.Add("text", Dataset, "producto.pre_venta") Me.TextBox4.DataBindings.Add("text", Dataset, "producto.pre_compra") Me.DateTimePicker1.DataBindings.Add("text", Dataset, "producto.fecha_vencimiento") Me.TextBox5.DataBindings.Add("text", Dataset, "producto.stock") Me.Label10.DataBindings.Add("text", Dataset, "producto.cod_cate") Me.Label8.DataBindings.Add("text", Dataset, "producto.cod_prov") Me.Label12.DataBindings.Add("text", Dataset, "producto.cod_unidad") ' Me.TextBox6.DataBindings.Add("text", Dataset, "producto.nomusu") 'Me.cboestado.DataBindings.Add("Text", Dataset, "Asunto.estado") ''Me.txtencargado.DataBindings.Add("Text", Dataset, "Asunto.encargado") Me.DataGridView1.DataSource = Dataset Me.DataGridView1.DataMember = "producto" 'Data.Columns(0).Visible = False DataGridView1.Columns(0).Width = "60" DataGridView1.Columns(2).Width = "60" DataGridView1.Columns(3).Width = "60" End Sub Sub carga_actua() Try Dim DA As New SqlDataAdapter("Select * From producto", cn) Dim DS As New DataSet DA.Fill(DS, "producto") DataGridView1.DataSource = DS.Tables("producto") 'cbocate.ValueMember = "nom_des" ' Catch ex As Exception MessageBox.Show(ex.Message, "Error Controlado") End Try End Sub Sub cargar_Proveedor() Try Dim DA As New SqlDataAdapter("Select * From proveedor", cn) Dim DS As New DataSet DA.Fill(DS, "proveedor") ComboBox2.DataSource = DS.Tables("proveedor") ComboBox2.DisplayMember = ("nombre") 'cbocate.ValueMember = "nom_des" Label8.Text = DS.Tables("proveedor").Rows(0)("cod_proveedor") Catch ex As Exception MessageBox.Show(ex.Message, "Error Controlado") End Try End Sub Sub cargar_medida() Try Dim DA As New SqlDataAdapter("Select * From unidad_medida", cn) Dim DS As New DataSet

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    12

    DA.Fill(DS, "unidad_medida") ComboBox3.DataSource = DS.Tables("unidad_medida") ComboBox3.DisplayMember = ("des") Label12.Text = DS.Tables("unidad_medida").Rows(0)("cod_unidad") 'cbocate.ValueMember = "nom_des" ' dis.Text = DS.Tables("distrito").Rows(0)("cod_dis") Catch ex As Exception MessageBox.Show(ex.Message, "Error Controlado") End Try End Sub Sub cargar_categoria() Try Dim DA As New SqlDataAdapter("Select * From categoria1", cn) Dim DS As New DataSet DA.Fill(DS, "categoria1") ComboBox1.DataSource = DS.Tables("categoria1") ComboBox1.DisplayMember = ("descripcion") ' cbocate.ValueMember = "nom_des" Label10.Text = DS.Tables("categoria1").Rows(0)("cod_cate") Catch ex As Exception MessageBox.Show(ex.Message, "Error Controlado") End Try End Sub Private Sub FrmProductos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cargarData() cargar_Proveedor() cargar_categoria() cargar_medida() End Sub Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.Focused = True Then Label10.Text = ComboBox1.SelectedItem.Row("cod_cate") 'txtcodigo.Text = CBOCLIENTE.SelectedItem.row("cod_emp") End If End Sub Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged If ComboBox2.Focused = True Then Label8.Text = ComboBox2.SelectedItem.Row("cod_proveedor") 'txtcodigo.Text = CBOCLIENTE.SelectedItem.row("cod_emp")

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    13

    End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click GENERACODIGO() GroupBox2.Enabled = True Button2.Enabled = True LimpiaControles() End Sub Private Sub LimpiaControles() 'TextBox1.Text = "" TextBox2.Text = "" TextBox2.Focus() TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" 'ComboBox1.SelectedIndex = 0 'ComboBox2.SelectedIndex = 0 End Sub Sub GENERACODIGO() Dim cmd As New SqlCommand("select max(cod_pro)from producto", cn) cn.Open() strCodigo = cmd.ExecuteScalar cn.Close() TextBox1.Text = Format(Val(strCodigo) + 1, "0000000") End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 'GroupBox2.Enabled = True Dim SQL As String Try SQL = "update producto set descripcion='" & TextBox2.Text & "',pre_venta='" & CInt(TextBox3.Text) & "',pre_compra='" & CInt(TextBox4.Text) & "',fecha_vencimiento='" & DateTimePicker1.Text & "',stock='" & CInt(TextBox5.Text) & "',cod_cate='" & Label10.Text & "',cod_unidad='" & Label12.Text & "',cod_prov='" & Label8.Text & "',nomusu='" & usuario & "'where cod_pro='" & TextBox1.Text & "'" Dim cmd As New SqlCommand(SQL, cn) cn.Open() cmd.ExecuteNonQuery() cn.Close() MsgBox("Producto Modificado" & Chr(13) & "Codigo" & (TextBox1.Text), MsgBoxStyle.Information, "Sistemas Izquierdo") Actualizar() Catch ex As Exception MessageBox.Show(ex.Message, "Error Controlado") End Try End Sub Private Sub Actualizar() 'Para actualizar el DataSet

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    14

    Dataset.Clear() daproducto.Fill(Dataset, "producto") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim SQLGuardar As String Try If (TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or Label10.Text = "" Or Label8.Text = "") Then MsgBox("Debes ingrsar Datos Necesarios..", MsgBoxStyle.Exclamation, "Sistema") Else 'validardata() SQLGuardar = "insert into producto values('" & TextBox1.Text & "', '" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & (DateTimePicker1.Text) & "','" & TextBox5.Text & "','" & Label10.Text & "','" & Label12.Text & "','" & Label8.Text & "','" & usuario & "')" Dim cmd As New SqlCommand(SQLGuardar, cn) cn.Open() cmd.ExecuteNonQuery() cn.Close() MsgBox("Producyo guardado" & Chr(13) & "Codigo" & (TextBox1.Text), MsgBoxStyle.Information, "Sistema") LimpiaControles() End If Catch ex As Exception MessageBox.Show(ex.Message, "Error Controlado") Finally Actualizar() End Try End Sub Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged If ComboBox3.Focused = True Then Label12.Text = ComboBox3.SelectedItem.Row("cod_unidad") 'txtcodigo.Text = CBOCLIENTE.SelectedItem.row("cod_emp") End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim sql3 As String sql3 = "delete from producto where cod_pro=@Cod_pro" Dim objComando As New SqlCommand(sql3, cn) Try

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    15

    objComando.Parameters.Add(New SqlParameter("@Cod_pro", SqlDbType.VarChar)) objComando.Parameters("@Cod_pro").Value = InputBox("Ingrese el cdigo del Producto a eliminar: ") cn.Open() resultado = objComando.ExecuteNonQuery cn.Close() Call Actualizar() ' btnAnterior.PerformClick() ' Para que muestre el registro anterior luego de eliminar MessageBox.Show("Registros Eliminados: " & resultado, "", 0, MessageBoxIcon.Information) Catch exc As Exception MessageBox.Show(exc.Message) End Try End Sub Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter End Sub End Class

    RECUERDA LOS OTROS FORMULARIO SON PARECIDOS..CON MANTENIMIENTO DE PRODUCTOS

    AH TE VA LOS IMGENES

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    16

    ESTE ES LA PARTE MAS IMPORTANTE DEL SISTEMA..

    CODIGO FUENTE..

    CONTINUARA. ..

    RECUERDA

    Transcribirla o programarla requiere mucho tiempo

    Por lo tanto tu sabes muy bien que todo en esta vida no es gratis verdad..si deseas EL Sistema

    completo..en un archivo RAR ..y el archivo..en visual. Y base de datos.. solo te cuesta 100

    soles!..si deseas mandame un imbox a este mi pagina

    www.facebook.com/cpiprodesign

  • CODIGO FUENTE DE SISTEMA DE VENTAS

    17 de marzo de 2014

    CPIProdesign | www.facebook.com/cpiprodesign

    17