SISTEMA DE VENTAS VISUAL ESTUDIO 2010.docx

Sistema de ventas en visual estudio 2010\ Ismael Véliz Vilca

-1-

VER como hacer con autenticacion https://www.youtube.com/user/jcarlosad7 SISE!" #E VE$"S VIS%"& ES%#I' ()1) Sistema de ventas pequeño de ventas 15 minutos 1* VI#E'S 1.+( ,I,"ES Juan Carlos Arcila iaz Carlos!Ad"#$%otmail"co Carlos!Ad"#$%otmail"com m


S& SERVER ())+ VIS&A' (S)&I* 2010 0 capas atos '+,ica -resentaci+n Sl ser2er ())+ (n recursos todos todos los arc%ivos arc%ivos .uentes (n sqlserver poner poner /local

ase de datos sisventas abla productos

Crear la tala producto

-(-


S& SERVER ())+ VIS&A' (S)&I* 2010 0 capas atos '+,ica -resentaci+n Sl ser2er ())+ (n recursos todos todos los arc%ivos arc%ivos .uentes (n sqlserver poner poner /local

ase de datos sisventas abla productos

Crear la tala producto

-(-


)ala clientes

)A'A )A'A ventas venta s

etalle de ventas

-0-


)ala usuario para el acceso de sistema

4ate5oria

# talas Creando dia,rama ne3 dataase dia,rama

-3-


-6-


VI#E' ( 1* minutos ,enerar el esuema del sistema &saremos carpetas

-resentaciones .ormularios 4esorces im,enes '+,ica las clases atos una ase para conectar los datos 6 la .unciones 4lase conei8n

-*-


4apa l85ica usaremos el pre9ijo b Aqu7 van a estar las vistas

'os reportes se,8n las necesidades de sistema 'a carpeta reosurces se ,enera por de.ecto R',R"!" E& SISE!" ;'R!%&"RI' SIS VE$"S

Con el nomre e datos *tra carpeta presentaci+n

-7-


)odos los procedimientos almacenados En la carpeta se crea nue2a clase 4lase conei8n se .uera en red poner el I- de la computadora pa, 9"5: 4apa datos Implementar la clase conei8n Imports S6stem"ata"SqlClient -ulic Class cone;ion -rotected cnn As /local@initial catalo,>dventas1@inte,rated securit6>true? cnn"*pen/ 4eturn )rue Catc% e; As (;ception

-+-


-<-

s,o;/e;"essa,e 4eturn =alse (nd )r6 (nd =unction

-rotected =unction desconectado/ As oolean )r6 I. cnn"State > ConnectionState"*pen )%en cnn"Close/ 4eturn )rue (lse 4eturn =alse (nd I. Catc% e; As (;ception s,o;/e;"essa,e 4eturn =alse (nd )r6 (nd =unction (nd Class 4rear todas las 9unciones para ese cliente 4lase cliente Imports S6stem"ata"SqlClient -ulic Class .cliente In%erits cone;ion im cmd As Command)6pe"Stored-rocedure cmd"Connection > cnn B tiene acceso a la cadena cone;ion por que %ereda I. cmd"(;ecute

4reacion de procedimientos Crear procedimiento mostrar cliente en el visual estudio 2012

create proc mostrarcliente As Select E .rom cliente order 6 idcliente desc Frae el procedimiento (l procedimiento se modi.ica a

- 1) -


- 11 -

(limine el procedimiento

VI#E' 0 (1.3( !I$%'S ;'R!%&"RI' ;R! 4&IE$E E$ &" 4"RE" RESE$"4I'$ C'IG (< CA4-()A presentaci+n 6 a,re,ar Hindo3s .orm =rm cliente -ropiedad te;t listado de cliente Color de .ondo > lanco Campos de 8squeda Al data a,re,ar nueva columna es%ailitar .unciones en data ,rid -ropiedadad selection mode .ullro3s select para que seleccione toda la .ila -ropiedad te;t de comoo; por dni (' lin= label se %ailita cuando el datalsit esta en lanco si esta en lanco el laellin no aparece Al data listado se a,re,a una nueva columna con la propiedad colum


A,re,ar como c%ec o;

)e;to de encaezado eliminar

- 1( -


Aparece

Arrancar pro6ecto con .ormulario cliente

- 10 -


- 13 -

-ro6ecto dee arrancar con .ormulario cliente

-ulic Class .rmCliente -rivate dt As .unc"mostrar B dt llama a la .uncion mostrar datalistado"Columns"Item/?(liminar?"Visile > =alse B ocultar la columna a eliminar I. dt"4o3s"Count MN 0 )%en B si la tala de de memoria dt


- 16 -

datalistado"ataSource > dt B rellenar con lo ten,a dt t;tuscar"(naled > )rue B %a6 datalistado"ColumnLeadersVisile > )rue B las caeceras del data listado se %acen visile ine;istente"Visile > =alse (lse B si no% datos datalistado"ataSource > =alse datalistado"ColumnLeadersVisile > =alse B columnas de data listado desapareces ine;istente"Visile > )rue B visile cuando no %a6 datos (nd I. Catc% e; As (;ception s,o;/e;"essa,e (nd )r6 tn )rue B aparece tn(ditar"Visile > =alse B desparece uscar/ (nd Su -rivate Su uscar/ )r6 im ds As coCampo")e;t O ? lie B? O t;tuscar")e;t O ?PB? B .iltrar por el camo eli,ido en el comoo; 6 .iltra por .ilas I. dv"Count MN 0 )%en ine;istente"Visile > =alse datalistado"ataSource > dv ocultarcolumnas/ (lse B no tiene datos ine;istente"Visile > )rue datalistado"ataSource > =alse Bocult el id cliente (nd Su (nd Class VI#E' 3 <-06 !I$%'S ot+n inserta 6 ot+n editar A,re,ar la clase  cliente &n oKeto para cada atriuto en la tala ase de datos *Keto son atriutos en la memoria El boton editar recibe y en2ia datos se implementa la clase "5re5ar 2cliente


-ulic Class vcliente im idcliente As Inte,er im nomres apellidos direccion tele.ono dni As Strin, B cada uno de los campos de la tala clientes Bseeter 6 ,etter -ulic -ropert6 ,idcliente Fet 4eturn idcliente (nd Fet Set/6Val value idcliente > value (nd Set (nd -ropert6 -ulic -ropert6 ,nomres Fet 4eturn nomres (nd Fet Set/6Val value nomres > value (nd Set (nd -ropert6 -ulic -ropert6 ,apellidos Fet 4eturn apellidos (nd Fet Set/6Val value apellidos > value (nd Set (nd -ropert6 -ulic -ropert6 ,direccion Fet 4eturn direccion (nd Fet Set/6Val value direccion > value (nd Set (nd -ropert6 -ulic -ropert6 ,tele.ono Fet 4eturn tele.ono (nd Fet Set/6Val value tele.ono > value (nd Set (nd -ropert6 -ulic -ropert6 ,dni Fet 4eturn dni

- 1* -


- 17 -

(nd Fet Set/6Val value dni > value (nd Set (nd -ropert6 Bconstructores -ulic Su idcliente ,nomres > nomres ,apellidos > apellidos ,direccion > direccion ,tele.ono > tele.ono ,dni > dni B para ,uardar los campos en los metodos (nd Su (nd Class

odos los datos de la tabla cliente -ulic Class vcliente im idcliente As Inte,er im nomres apellidos direccion tele.ono dni As Strin, Bseeter 6 ,etter -ulic -ropert6 ,idcliente Fet 4eturn idcliente (nd Fet Set/6Val value idcliente > value (nd Set (nd -ropert6 -ulic -ropert6 ,nomres Fet 4eturn nomres (nd Fet Set/6Val value nomres > value (nd Set (nd -ropert6 -ulic -ropert6 ,apellidos Fet


- 1+ -

4eturn apellidos (nd Fet Set/6Val value apellidos > value (nd Set (nd -ropert6 -ulic -ropert6 ,direccion Fet 4eturn direccion (nd Fet Set/6Val value direccion > value (nd Set (nd -ropert6 -ulic -ropert6 ,tele.ono Fet 4eturn tele.ono (nd Fet Set/6Val value tele.ono > value (nd Set (nd -ropert6 -ulic -ropert6 ,dni Fet 4eturn dni (nd Fet Set/6Val value dni > value (nd Set (nd -ropert6 Bconstructores -ulic Su idcliente ,nomres > nomres ,apellidos > apellidos ,direccion > direccion ,tele.ono > tele.ono ,dni > dni (nd Su (nd Class 4rear procedimientos almacenados en la base de datos ue permitan re5istrar los datos ue en2ie -rocedimiento almacenado insertar cliente A')(4 proc insertarcliente $nomre varc%ar /50 $apellidos varc%ar /50


- 1< -

$direccion varc%ar /100 $tele.ono varc%ar /10 $dni varc%ar /Q as insert into cliente /nomreapellidosdirecciontele.onodni values /$nomre$apellidos$direccion$tele.ono$dni VI#E' 6 (1 minutos Se are .cliente 6 a,re,ar Imports S6stem"ata"SqlClient -ulic Class .cliente In%erits cone;ion im cmd As Command)6pe"Stored-rocedure cmd"Connection > cnn B tiene acceso a la cadena cone;ion por que %ereda I. cmd"(;ecute Command)6pe"Stored-rocedure cmd"Connection > cnn B los 5 paramtros cmd"-arameters"AddHit%Value/?$nomre? dts",nomres cmd"-arameters"AddHit%Value/?$apellidos? dts",apellidos cmd"-arameters"AddHit%Value/?$direccion? dts",direccion cmd"-arameters"AddHit%Value/?$tele.ono? dts",tele.ono cmd"-arameters"AddHit%Value/?$dni? dts",dni I. cmd"(;ecute

- () -

(lse 4eturn =alse (nd I. Catc% e; As (;ception s,o;/e;"essa,e 4eturn =alse =inall6 desconectado/ (nd )r6 (nd =unction (nd Class Arir el .ormulario .cliente Lerrmienta que me permite captura al,unos errors error provider

Lace aparecer unicono in.ormatico al costado -ro,ramar caKa de te;to por caKa de te;to -ro,rmar el ot+n ,uardar -oner uno encima del otro e sale el icono en las caKas de te;to que se %a validado Insertar 6 enviar datos -ulic Class .rmCliente -rivate dt As .unc"mostrar B dt llama a la .uncion mostrar datalistado"Columns"Item/?(liminar?"Visile > =alse B ocultar la columna a eliminar I. dt"4o3s"Count MN 0 )%en B si la tala de de memoria dt datalistado"ataSource > dt B rellenar con lo ten,a dt t;tuscar"(naled > )rue B %a6 datalistado"ColumnLeadersVisile > )rue B las caeceras del data listado se %acen visile ine;istente"Visile > =alse (lse B si no% datos datalistado"ataSource > =alse datalistado"ColumnLeadersVisile > =alse B columnas de data listado desapareces ine;istente"Visile > )rue B visile cuando no %a6 datos (nd I. Catc% e; As (;ception s,o;/e;"essa,e (nd )r6 tn )rue B aparece


- (1 -

tn(ditar"Visile > =alse B desparece uscar/ (nd Su -rivate Su uscar/ )r6 im ds As coCampo")e;t O ? lie B? O t;tuscar")e;t O ?PB? B .iltrar por el camo eli,ido en el comoo; 6 .iltra por .ilas I. dv"Count MN 0 )%en ine;istente"Visile > =alse datalistado"ataSource > dv ocultarcolumnas/ (lse B no tiene datos ine;istente"Visile > )rue datalistado"ataSource > )rue tneditar"Visile > =alse t;tnomre")e;t > ?? t;tapellidos")e;t > ?? t;tdireccion")e;t > ?? t;ttele.ono")e;t > ?? t;tdni")e;t > ?? t;tidcliente")e;t > ?? (nd Su -rivate Su ocultarcolumnas/ datalistado"Columns/1"Visile > =alse Bocult el id cliente (nd Su -rivate Su .rmCliente'oad/sender As *Kect e As (ventAr,s Landles 6ase"'oad mostrar/ (nd Su -rivate Su t;tnomreValidatin,/6Val sender As *Kect 6Val e As S6stem"Componentodel"Cancel(ventAr,s Landles t;t

- (( -

I. irectCast/sender )e;to;")e;t"'en,t% N 0 )%en e"(rrorIcono"Set(rror/sender ?? (lse e"(rrorIcono"Set(rror/sender ?In,rese los apellidos del cliente por.avor este datos es oli,atorio? (nd I. (nd Su -rivate Su tn,uardarClic/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles tnFuardar"Clic I. e"ValidateC%ildren > )rue And t;tnomre")e;t MN ?? And t;tapellidos")e;t MN ?? And t;tdireccion")e;t MN ?? And t;ttele.ono")e;t MN ?? And t;tdni")e;t MN ?? )%en )r6 im dts As t;t t;tapellidos")e;t dts",direccion > t;tdireccion")e;t dts",tele.ono > t;ttele.ono")e;t dts",dni > t;tdireccion")e;t I. .unc"insertar/dts )%en essa,eo;"S%o3/?cliente re,istrado correctamente? ?Fuardando re,istros? essa,eo;uttons"*G essa,eo;Icon"In.ormation mostrar/ limpiar/ (lse essa,eo;"S%o3/?cliente no .ue re,istrado intente de nuevo? ?Fuardando re,istros? essa,eo;uttons"*G essa,eo;Icon"(rror mostrar/ limpiar/ (nd I. Catc% e; As (;ception s,o;/e;"essa,e (nd )r6 (lse essa,eo;"S%o3/?=alta in,resar al,unos datos? ?Fuardando re,istros? essa,eo;uttons"*G essa,eo;Icon"In.ormation (nd I. (nd Su -rivate Su tn

- (0 -

A')(4 proc editarcliente $idcliente inte,er  $nomre varc%ar /50 $apellidos varc%ar /50 $direccion varc%ar /100 $tele.ono varc%ar /R $dni varc%ar /Q as update cliente set nomre>$nomreapellidos>$apellidosdireccion>$direcciontele.ono>$tele.onodni >$dni 3%ere idcliente>$idcliente

pro,ramar cada vez que %a,a clic en un data ,rid C'ICG (< las caKas de te;to ese re,istro aparece en la caKa de te;to

A,re,ar la .unci+n editar en la clase .cliente ot+n editar parecido al ot+n ,uardar ('*)*< (I)A4 es parecido a ,uardar

1Q


- (3 -

VI#E' 7 1+ 3< E& ''$ eliminar -rocedimiento almacenado elimnar cliente en la ase de datos

C4(A)( proc eliminarcliente $idcliente inte,er as delete .rom cliente 3%ere idcliente>$idcliente  el codi,o del cliente que se envia del visual estudio !etodolo5ia Codi.icar la opci+n para eliminar varios a la vez Aceptar en la capa datos Crear .unci+n eliminar =unci+n en la capa clientes 6lue,o elarin el .ormulario (limnA4 VA4IS* 4(FIStros a la vez C%ec% conte; te te; Q"2:lta la columna eliminar Apar.ece 6 se oculta la columna eliminar -ulic Class .rmCliente -rivate dt As .unc"mostrar B dt llama a la .uncion mostrar datalistado"Columns"Item/?(liminar?"Visile > =alse B ocultar la columna a eliminar I. dt"4o3s"Count MN 0 )%en B si la tala de de memoria dt datalistado"ataSource > dt B rellenar con lo ten,a dt t;tuscar"(naled > )rue B %a6 datalistado"ColumnLeadersVisile > )rue B las caeceras del data listado se %acen visile ine;istente"Visile > =alse (lse B si no% datos datalistado"ataSource > =alse datalistado"ColumnLeadersVisile > =alse B columnas de data listado desapareces ine;istente"Visile > )rue B visile cuando no %a6 datos (nd I. Catc% e; As (;ception s,o;/e;"essa,e (nd )r6 tn )rue B aparece tn(ditar"Visile > =alse B desparece uscar/ (nd Su -rivate Su uscar/ )r6 im ds As

- (6 -

ds")ales"Add/dt"Cop6 B copiar los datos que ten,o a la variale ds im dv As coCampo")e;t O ? lie B? O t;tuscar")e;t O ?PB? B .iltrar por el camo eli,ido en el comoo; 6 .iltra por .ilas I. dv"Count MN 0 )%en ine;istente"Visile > =alse datalistado"ataSource > dv ocultarcolumnas/ (lse B no tiene datos ine;istente"Visile > )rue datalistado"ataSource > )rue tneditar"Visile > =alse t;tnomre")e;t > ?? t;tapellidos")e;t > ?? t;tdireccion")e;t > ?? t;ttele.ono")e;t > ?? t;tdni")e;t > ?? t;tidcliente")e;t > ?? (nd Su -rivate Su ocultarcolumnas/ datalistado"Columns/1"Visile > =alse Bocult el id cliente (nd Su -rivate Su .rmCliente'oad/sender As *Kect e As (ventAr,s Landles 6ase"'oad mostrar/ (nd Su -rivate Su t;tnomreValidatin,/6Val sender As *Kect 6Val e As S6stem"Componentodel"Cancel(ventAr,s Landles t;t C%ecState"C%eced )%en B compruea el estado datalistado"Columns"Item/?(liminar?"Visile > )rue (lse datalistado"Columns"Item/?(liminar?"Visile > =alse (nd I.


- (* -

(nd Su -rivate Su datalistadoCellContentClic/6Val sender As S6stem"*Kect 6Val e As S6stem"Hindo3s"=orms"ataFridVie3Cell(ventAr,s Landles datalistado"CellContentClic B e variale que reco,e el indice I. e"ColumnInde; > e"datalistado"Columns"Item/?(liminar?"Inde; )%en im c%cell As ataFridVie3C%eco;Cell > e"datalistado"4o3s/e"4o3Inde;"Cells/?(liminar? B e;trae la .ila d ela columna elimanr c%cell"Value > essa,eo;"S%o3/?4ealmente desea editar los datos del clienteT? ?*di.icando re,istros? essa,eo;uttons"*GCancel essa,eo;Icon"Duestion I. result > ialo,4esult"*G )%en I. e"ValidateC%ildren > )rue And t;tnomre")e;t MN ?? And t;tapellidos")e;t MN ?? And t;tdireccion")e;t MN ?? And t;ttele.ono")e;t MN ?? And t;tdni")e;t MN ?? And t;tidcliente")e;t MN ?? )%en )r6 im dts As t;tidcliente")e;t dts",nomres > t;tnomre")e;t dts",apellidos > t;tapellidos")e;t dts",direccion > t;tdireccion")e;t dts",tele.ono > t;ttele.ono")e;t dts",dni > t;tdireccion")e;t I. .unc"editar/dts )%en B envia los datos del cliente al oKeto vcliente essa,eo;"S%o3/?cliente correctamente? ?*di.icando re,istros? essa,eo;uttons"*G essa,eo;Icon"In.ormation mostrar/ limpiar/ (lse essa,eo;"S%o3/?cliente no .ue modi.cado intente de nuevo? ?*di.icando re,istros? essa,eo;uttons"*G essa,eo;Icon"(rror mostrar/ limpiar/ (nd I.


- (7 -

Catc% e; As (;ception s,o;/e;"essa,e (nd )r6 (lse essa,eo;"S%o3/?=alta in,resar al,unos datos? ?*di.icando re,istros? essa,eo;uttons"*G essa,eo;Icon"In.ormation (nd I. (nd I. (nd Su -rivate Su tn,uardarClic/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles tnFuardar"Clic I. e"ValidateC%ildren > )rue And t;tnomre")e;t MN ?? And t;tapellidos")e;t MN ?? And t;tdireccion")e;t MN ?? And t;ttele.ono")e;t MN ?? And t;tdni")e;t MN ?? )%en )r6 im dts As t;t t;tapellidos")e;t dts",direccion > t;tdireccion")e;t dts",tele.ono > t;ttele.ono")e;t dts",dni > t;tdireccion")e;t I. .unc"insertar/dts )%en essa,eo;"S%o3/?cliente re,istrado correctamente? ?Fuardando re,istros? essa,eo;uttons"*G essa,eo;Icon"In.ormation mostrar/ limpiar/ (lse essa,eo;"S%o3/?cliente no .ue re,istrado intente de nuevo? ?Fuardando re,istros? essa,eo;uttons"*G essa,eo;Icon"(rror mostrar/ limpiar/ (nd I. Catc% e; As (;ception s,o;/e;"essa,e (nd )r6 (lse essa,eo;"S%o3/?=alta in,resar al,unos datos? ?Fuardando re,istros? essa,eo;uttons"*G essa,eo;Icon"In.ormation (nd I. (nd Su -rivate Su datalistadoCellClic/6Val sender As *Kect 6Val e As S6stem"Hindo3s"=orms"ataFridVie3Cell(ventAr,s Landles datalistado"CellClic t;tidcliente")e;t > datalistado"SelectedCells"Item/1"Value t;tnomre")e;t > datalistado"SelectedCells"Item/2"Value t;tapellidos")e;t > datalistado"SelectedCells"Item/:"Value t;tdireccion")e;t > datalistado"SelectedCells"Item/U"Value t;ttele.ono")e;t > datalistado"SelectedCells"Item/5"Value t;tdni")e;t > datalistado"SelectedCells"Item/#"Value tn(ditar"Visile > )rue B oculta 6 muestra los otones tn,uardar"Visile > =alse (nd Su


- (+ -

-rivate Su tn essa,eo;"S%o3/?4ealmente desea eliminar los clientes seleccionadosT? ?(liminando re,istros? essa,eo;uttons"*GCancel essa,eo;Icon"Duestion I. result > ialo,4esult"*G )%en )r6 =or (ac% ro3 As ataFridVie34o3 In datalistado"4o3s im marcado As oolean > Convert")ooolean/ro3"Cells/?(liminar?"Value I. marcado )%en B ,uarda lo que se %a seleccionado el c%ec o; del data listado im onee6 As Inte,er > Convert")oInt:2/ro3"Cells/?idcliente?"Value im vd As onee6 I. .unc"eliminar/vd )%en (lse essa,eo;"S%o3/?Cliente no .ue eliminado? ?(liminando re,istros? essa,eo;uttons"*G essa,eo;Icon"In.ormation (nd I. (nd I.

+ RE"S' #E !"E$I!IE$' #E "&"S () 3* I!IE ara re5istrar un producto y re5istrar una 2enta $nomrecate,oria 3%ere idcate,oria>$idcate,oria

C4(A)( proc eliminarcate,oria $idcate,oria inte,er as delete .rom cate,oria 3%ere idcate,oria>$idcate,oria C4(A)( proc insertarcate,oria $nomrecate,oria varc%ar /50 as insert into cate,oria /nomrecate,oria values /$nomrecate,oria

create proc mostrarcate,oria as select E .rom cate,oria order 6 idcate,oria desc

- (< -


- 0) -

crear oKetos 6 metodos para la tale cate,oria $%EV" clase b 4ate5oria 9"11 Co
-ulic Class .rmCate,oria Bdeclaramos una variale que %a,a una instancia a la clase datatale Bdatatale me permite representar una tala en memoria ram -rivate dt As )rue tn(ditar"Visile > =alse t;t ?? t;tidcate,or7a")e;t > ?? (nd Su Bdeclaramos el ot+n mostrar -rivate Su mostrar/ )r6 im .unc As .unc"mostrar


- 01 -

datalistado"Columns"Item/?(liminar?"Visile > =alse I. dt"4o3s"Count MN 0 )%en datalistado"ataSource > dt t;tuscar"(naled > )rue datalistado"ColumnLeadersVisile > )rue ine;istente"Visile > =alse (lse datalistado"ataSource > =alse datalistado"ColumnLeadersVisile > =alse ine;istente"Visile > )rue (nd I. Catc% e; As (;ception s,o;/e;"essa,e (nd )r6 tn )rue tn(ditar"Visile > =alse uscar/ (nd Su -rivate Su uscar/ )r6 im ds As coCampo")e;t O ? lie B? O t;tuscar")e;t O ?PB? I. dv"Count MN 0 )%en ine;istente"Visile > =alse datalistado"ataSource > dv ocultarcolumnas/ (lse ine;istente"Visile > )rue datalistado"ataSource > =alse (nd Su -rivate Su t;tnomreValidatin,/6Val sender As *Kect 6Val e As S6stem"Componentodel"Cancel(ventAr,s Landles t;t

- 0( -

-rivate Su tnnuevoClic/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles tn )rue And t;t t;t datalistado"SelectedCells"Item/1"Value t;t datalistado"SelectedCells"Item/2"Value tn(ditar"Visile > )rue tnFuardar"Visile > =alse (nd Su -rivate Su datalistadoCellContentClic/6Val sender As S6stem"*Kect 6Val e As S6stem"Hindo3s"=orms"ataFridVie3Cell(ventAr,s Landles datalistado"CellContentClic I. e"ColumnInde; > e"datalistado"Columns"Item/?(liminar?"Inde; )%en im c%cell As ataFridVie3C%eco;Cell > e"datalistado"4o3s/e"4o3Inde;"Cells/?(liminar? c%cell"Value >

- 00 -

-rivate Su tneditarClic/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles tn(ditar"Clic im result As ialo,4esult result > essa,eo;"S%o3/?4ealmente desea editar los datos de la cate,or7aT? ?*di.icando re,istros? essa,eo;uttons"*GCancel essa,eo;Icon"Duestion I. result > ialo,4esult"*G )%en I. e"ValidateC%ildren > )rue And t;t t;tidcate,or7a")e;t dts",nomrecate,oria > t;t C%ecState"C%eced )%en datalistado"Columns"Item/?(liminar?"Visile > )rue (lse datalistado"Columns"Item/?(liminar?"Visile > =alse (nd I. (nd Su -rivate Su tneliminarClic/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles tn(liminar"Clic im result As ialo,4esult result > essa,eo;"S%o3/?4ealmente desea eliminar las cate,or7as seleccionadasT? ?(liminando re,istros? essa,eo;uttons"*GCancel essa,eo;Icon"Duestion I. result > ialo,4esult"*G )%en )r6 =or (ac% ro3 As ataFridVie34o3 In datalistado"4o3s


- 03 -

im marcado As oolean > Convert")ooolean/ro3"Cells/?(liminar?"Value I. marcado )%en im onee6 As Inte,er > Convert")oInt:2/ro3"Cells/?idcate,oria?"Value im vd As onee6 I. .unc"eliminar/vd )%en (lse essa,eo;"S%o3/?Cate,or7a no .ue eliminada? ?(liminando re,istros? essa,eo;uttons"*G essa,eo;Icon"In.ormation mostrar/ (nd I. (nd I. ar la tabla de 2entas detalle 0"UR llave primaria 6 llave .ornea Columnas se dee tener im,enes 'a tala productos esta relacionada Catalo,o de productos es con im,enes Añadir un nuevo campo llamado Ima,en (n modo diseño no se puede Sentencia sl para a5re5ar un campo Alter tale producto add ima,en ima,e rocedimiento almacenado para manenimiento de productos C4(A)( proc editarproducto $idproducto inte,er  $idcate,oria inte,er  $nomre varc%ar /50


- 06 -

$descripcion varc%ar /50 $stoc decimal /1Q2 $preciocompra decimal /1Q2 $precioventa decimal /1Q2 $.ec%avencimiento date $ima,en ima,e as update producto set idcate,oria>$idcate,orianomre>$nomredescripcion>$descripcion stoc>$stocpreciocompra>$preciocompraprecioventa>$precioventa.ec%av encimiento>$.ec%avencimiento ima,en>$ima,en 3%ere idproducto>$idproducto create proc eliminarproducto $idproducto inte,er as delete .rom producto 3%ere idproducto>$idproducto

C4(A)( proc insertarproducto $idcate,oria inte,er  $nomre varc%ar /50 $descripcion varc%ar /50 $stoc decimal /1Q2 $preciocompra decimal /1Q2 $precioventa decimal /1Q2 $.ec%avencimiento date $ima,en ima,e as insert into producto /idcate,orianomredescripcionstocpreciocompraprecioventa.ec%avencimientoi ma,en values /$idcate,oria$nomre$descripcion$stoc$preciocompra$precioventa$.ec %avencimiento$ima,en C4(A)( proc mostrarproducto as select producto"idproductoproducto"idcate,oriacate,oria"nomrecate,oriaproducto"nomre  producto"descripcionproducto"stocproducto"preciocompraproducto"precioventapro ducto".ec%avencimiento producto"ima,en .rom producto inner Koin cate,oria on producto"idcate,oria>cate,oria"idcate,oria order 6 producto"idproducto desc 4'#I,' #E& ;'R!%&"RI' 9rmproducto Imports S6stem"ata"SqlClient B parecido al .cliente


- 0* -

-ulic Class .producto In%erits cone;ion im cmd As Command)6pe"Stored-rocedure cmd"Connection > cnn I. cmd"(;ecute Command)6pe"Stored-rocedure cmd"Connection > cnn cmd"-arameters"AddHit%Value/?$idcate,oria? dts",idcate,oria cmd"-arameters"AddHit%Value/?$nomre? dts",nomre cmd"-arameters"AddHit%Value/?$descripcion? dts",descripcion cmd"-arameters"AddHit%Value/?$stoc? dts",stoc cmd"-arameters"AddHit%Value/?$preciocompra? dts",preciocompra cmd"-arameters"AddHit%Value/?$precioventa? dts",precioventa cmd"-arameters"AddHit%Value/?$.ec%avencimiento? dts",.ec%avencimiento cmd"-arameters"AddHit%Value/?$ima,en? dts",ima,en I. cmd"(;ecute

- 07 -

-ulic =unction editar/6Val dts As vproducto As oolean )r6 conectado/ cmd > Command)6pe"Stored-rocedure cmd"Connection > cnn cmd"-arameters"AddHit%Value/?$idproducto? dts",idproducto B llave primaria cmd"-arameters"AddHit%Value/?$idcate,oria? dts",idcate,oria cmd"-arameters"AddHit%Value/?$nomre? dts",nomre cmd"-arameters"AddHit%Value/?$descripcion? dts",descripcion cmd"-arameters"AddHit%Value/?$stoc? dts",stoc cmd"-arameters"AddHit%Value/?$preciocompra? dts",preciocompra cmd"-arameters"AddHit%Value/?$precioventa? dts",precioventa cmd"-arameters"AddHit%Value/?$.ec%avencimiento? dts",.ec%avencimiento cmd"-arameters"AddHit%Value/?$ima,en? dts",ima,en I. cmd"(;ecute Command)6pe"Stored-rocedure cmd"Connection > cnn cmd"-arameters"Add/?$idproducto? Sql)6pe" dts",idproducto I. cmd"(;ecute

'lave .ornea calculo de utilidad Inter.aza ,ra.ica picture o; A,e,ar Hindo3s rpodcuto 'istado de catalo,o de porductos Copiarlos los controles control c a control v copiar 6 pe,ar :.10 copiar Ima,e picture o; Ima,en transparente

tnuscar Cate,oria :":9  re.erencia a otro .ormulario date time picer #"29 R"20 ima,en trnsparente propiedad Varios pictureso; pequeños Im,enes que .uncionan como otones Clase itmaps ,uarda mapas de its tn car,ar Ima,en trnasparente .ile 1#02 *culto dos columnas 19"5R 20 :Q io " memor6 strin, crea una secuencia cu6o almcen de memoria 4a3.ormat 21"52 (ditar datos del producto 2:"U5 'lave primaria 2U ata listado 2U"5# -icture o; que se llama ima,ene Arra6 de tipo 6te 2Q"2Q ima,e demomr6 strin,

(liKo la cate,or7a en los tre puntitos VI#E' 11 01.1+

- 0+ -


- 0< -

)ala ventas 6 detalle de ventas etalle de ventas todas las ventas "U5 detalle de ventas capa datos 6 la capa l+,ica para la tala ventas 1"15 2"02 procedimientos almacenados para la tala ventas :"55 procedmiento alamcenado editar ventas -rocedimiento alamcenado eliminar 5"29

C4(A)( proc insertarventa $idcliente as inte,er  $.ec%aventa as date $tipodocumento as varc%ar /50 $numdocumento as varc%ar /50 as insert into venta /idcliente.ec%aventatipodocumentonumdocumento values /$idcliente$.ec%aventa$tipodocumento$numdocumento

C4(A)( proc WdoX"WmostrarventaX as S('(C) do"venta"idventa do"venta"idcliente do"cliente"apellidos do"cliente"dni do"venta".ec%aventa do"venta"tipodocumento do"venta"numdocumento =4* do"cliente I<<(4 J*I< do"venta *< do"cliente"idcliente > do"venta"idcliente order 6 do"venta"idventa desc

C4(A)( proc editarventa $idventa as inte,er  $idcliente as inte,er  $.ec%aventa as date $tipodocumento as varc%ar /50 $numdocumento as varc%ar /50 as


- 3) -

update venta set idcliente>$idcliente.ec%aventa>$.ec%aventatipodocumento>$tipodocumenton umdocumento>$numdocumento 3%ere idventa>$idventa

C4(A)( proc eliminarventa $idventa as inte,er as delete .rom venta 3%ere idventa>$idventa procedimiento almacenados para detalles de ventas C4(A)( proc insertardetalleventa $idventa as inte,er  $idproducto as inte,er  $cantidad as decimal /1Q2 $preciounitario as decimal /1Q2 as insert into detalleventa /idventaidproductocantidadpreciounitario values /$idventa$idproducto$cantidad$preciounitario

4RE"E proc editar?detalle?2enta $iddetalleventa as inte,er  $idventa as inte,er  $idproducto as inte,er  $cantidad as decimal /1Q2 $preciounitario as decimal /1Q2 as update detalleventa set idventa>$idventaidproducto>$idproductocantidad>$cantidadpreciounitario>$pre ciounitario 3%ere idddetalleventa>$iddetalleventa

4RE"E proc eliminar?detalle?2enta $iddetalleventa as inte,er as delete .rom detalleventa 3%ere idddetalleventa>$iddetalleventa

C4(A)( proc WdoX"WmostrardetalleventaX as S('(C) do"detalleventa"idddetalleventa do"detalleventa"idventa do"detalleventa"idproducto do"producto"nomre do"detalleventa"cantidad do"detalleventa"preciounitario =4* do"detalleventa I<<(4 J*I< do"producto *< do"detalleventa"idproducto > do"producto"idproducto order 6 do"detalleventa"idddetalleventa desc


12":Y aumentar stco de la tala productos C4(A)( proc aumentarstoc $idproducto as inte,er  $cantidad as decimal /1Q2 as update producto set stoc>stocZ$cantidad 3%ere idproducto>$idproducto

4RE"E proc disminuir?stoc= $idproducto as inte,er  $cantidad as decimal /1Q2 as update producto set stoc>stoc!$cantidad 3%ere idproducto>$idproducto

Capa l+,ica con todolos oKetos Clase venta Construtor en lanco Constructor con todos los campos 19U0 Clasedetalle de venta Capas de datos 2:":U dos clases =venta =detalleventas 2#"51 Sistema de ventas de ventas

-ulic Class vventa im idventa idcliente As Inte,er im .ec%aventa As ate im tipodocumento numdocumento As Strin, -ulic -ropert6 ,idventa Fet 4eturn idventa (nd Fet Set/6Val value idventa > value (nd Set (nd -ropert6 -ulic -ropert6 ,idcliente Fet 4eturn idcliente (nd Fet Set/6Val value idcliente > value (nd Set (nd -ropert6 -ulic -ropert6 ,.ec%aventa Fet 4eturn .ec%aventa (nd Fet Set/6Val value

- 31 -


- 3( -

.ec%aventa > value (nd Set (nd -ropert6 -ulic -ropert6 ,tipodocumento Fet 4eturn tipodocumento (nd Fet Set/6Val value tipodocumento > value (nd Set (nd -ropert6 -ulic -ropert6 ,numdocumento Fet 4eturn numdocumento (nd Fet Set/6Val value numdocumento > value (nd Set (nd -ropert6 -ulic Su idventa ,idcliente > idcliente ,.ec%aventa > .ec%aventa ,tipodocumento > tipodocumento ,numdocumento > numdocumento (nd Su (nd Class

4&"SE #E"&&E VE$" -ulic Class vdetalleventa im iddetalleventa idventa idproducto As Inte,er im cantidad preciounitario As oule -ulic -ropert6 ,iddetalleventa Fet 4eturn iddetalleventa (nd Fet Set/6Val value iddetalleventa > value (nd Set (nd -ropert6 -ulic -ropert6 ,idventa Fet


- 30 -

4eturn idventa (nd Fet Set/6Val value idventa > value (nd Set (nd -ropert6 -ulic -ropert6 ,idproducto Fet 4eturn idproducto (nd Fet Set/6Val value idproducto > value (nd Set (nd -ropert6 -ulic -ropert6 ,cantidad Fet 4eturn cantidad (nd Fet Set/6Val value cantidad > value (nd Set (nd -ropert6 -ulic -ropert6 ,preciounitario Fet 4eturn preciounitario (nd Fet Set/6Val value preciounitario > value (nd Set (nd -ropert6 -ulic Su iddetalleventa ,idventa > idventa ,idproducto > idproducto ,cantidad > cantidad ,preciounitario > preciounitario (nd Su (nd Class 4&"SE ;VE$" parecido a 9cliente Imports S6stem"ata"SqlClient -ulic Class .venta In%erits cone;ion im cmd As

- 33 -

cmd > Command)6pe"Stored-rocedure cmd"Connection > cnn I. cmd"(;ecute
-ulic =unction insertar/6Val dts As vventa As oolean )r6 conectado/ cmd > Command)6pe"Stored-rocedure cmd"Connection > cnn

cmd"-arameters"AddHit%Value/?$idcliente? dts",idcliente cmd"-arameters"AddHit%Value/?$.ec%aventa? dts",.ec%aventa cmd"-arameters"AddHit%Value/?$tipodocumento? dts",tipodocumento cmd"-arameters"AddHit%Value/?$numdocumento? dts",numdocumento I. cmd"(;ecute
Catc% e; As (;ception s,o;/e;"essa,e 4eturn =alse =inall6 desconectado/ (nd )r6 (nd =unction

-ulic =unction editar/6Val dts As vventa As oolean )r6


- 36 -

conectado/ cmd > Command)6pe"Stored-rocedure cmd"Connection > cnn

cmd"-arameters"AddHit%Value/?$idventa? dts",idventa cmd"-arameters"AddHit%Value/?$idcliente? dts",idcliente cmd"-arameters"AddHit%Value/?$.ec%aventa? dts",.ec%aventa cmd"-arameters"AddHit%Value/?$tipodocumento? dts",tipodocumento cmd"-arameters"AddHit%Value/?$numdocumento? dts",numdocumento I. cmd"(;ecute
Catc% e; As (;ception s,o;/e;"essa,e 4eturn =alse =inall6 desconectado/ (nd )r6 (nd =unction -ulic =unction eliminar/6Val dts As vventa As oolean )r6 conectado/ cmd > Command)6pe"Stored-rocedure cmd"Connection > cnn cmd"-arameters"Add/?$idventa? Sql)6pe" dts",idventa I. cmd"(;ecute

- 3* -

-ulic =unction mostrar/ As ata)ale )r6 conectado/ cmd > Command)6pe"Stored-rocedure cmd"Connection > cnn I. cmd"(;ecute Command)6pe"Stored-rocedure cmd"Connection > cnn cmd"-arameters"AddHit%Value/?$idventa? dts",idventa cmd"-arameters"AddHit%Value/?$idproducto? dts",idproducto cmd"-arameters"AddHit%Value/?$cantidad? dts",cantidad cmd"-arameters"AddHit%Value/?$preciounitario? dts",preciounitario I. cmd"(;ecute Command)6pe"Stored-rocedure cmd"Connection > cnn cmd"-arameters"AddHit%Value/?$iddetalleventa? dts",iddetalleventa cmd"-arameters"AddHit%Value/?$idventa? dts",idventa


- 37 -

cmd"-arameters"AddHit%Value/?$idproducto? dts",idproducto cmd"-arameters"AddHit%Value/?$cantidad? dts",cantidad cmd"-arameters"AddHit%Value/?$preciounitario? dts",preciounitario I. cmd"(;ecute Command)6pe"Stored-rocedure cmd"Connection > cnn cmd"-arameters"Add/?$iddetalleventa? Sql)6pe" dts",iddetalleventa I. cmd"(;ecute Command)6pe"Stored-rocedure cmd"Connection > cnn cmd"-arameters"AddHit%Value/?$idproducto? dts",idproducto cmd"-arameters"AddHit%Value/?$cantidad? dts",cantidad I. cmd"(;ecute

- 3+ -

(nd =unction -ulic =unction disminuirstoc/6Val dts As vdetalleventa As oolean )r6 conectado/ cmd > Command)6pe"Stored-rocedure cmd"Connection > cnn cmd"-arameters"AddHit%Value/?$idproducto? dts",idproducto cmd"-arameters"AddHit%Value/?$cantidad? dts",cantidad I. cmd"(;ecute
Video 1( 3*.6< minutos antenimiento a la tala venta 6 tala detalle de venta -arte ,ra.ica modi.icar proemiento r mostrar ventas ()A''( de venta =rm detalle venta 12"55 A,rema .rm venta Copiamos el diseño para .rmventa del .rm cliente Son talas relacionadas R"1U no se puede eliminar directamente una ventas primero %a6 que elimnar los detalles de la venta por lo tanto se suprime el oton eliminar


4'#I,' #E ;R!VE$" -ulic Class .rmventa -rivate dt As

-ulic Su limpiar/ tn,uardar"Visile > )rue tneditar"Visile > =alse t;tidventa")e;t > ?? t;tidcliente")e;t > ?? t;tnumdocumento")e;t > ?? t;tnumdocumento")e;t > ?? t;tidventa")e;t > ?? (nd Su -rivate Su mostrar/ )r6 im .unc As .unc"mostrar datalistado"Columns"Item/?(liminar?"Visile > =alse I. dt"4o3s"Count MN 0 )%en datalistado"ataSource > dt t;tuscar"(naled > )rue datalistado"ColumnLeadersVisile > )rue ine;istente"Visile > =alse (lse datalistado"ataSource > =alse datalistado"ColumnLeadersVisile > =alse ine;istente"Visile > )rue (nd I. Catc% e; As (;ception s,o;/e;"essa,e (nd )r6 tn )rue tn(ditar"Visile > =alse uscar/ (nd Su -rivate Su uscar/ )r6 im ds As coCampo")e;t O ? lie B? O t;tuscar")e;t O ?PB? I. dv"Count MN 0 )%en ine;istente"Visile > =alse datalistado"ataSource > dv ocultarcolumnas/ (lse

- 3< -


- 6) -

ine;istente"Visile > )rue datalistado"ataSource > =alse datalistado"Columns/2"Visile > =alse (nd Su -rivate Su tnnuevoClic/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles tn )rue And t;tidventa")e;t MN ?? And t;tidcliente")e;t MN ?? And t;t t;tidventa")e;t dts",.ec%aventa > t;t.ec%a")e;t dts",tipodocumento > ctipodocumento")e;t dts",numdocumento > t;t datalistado"SelectedCells"Item/1"Value


- 61 -

t;tidventa")e;t > datalistado"SelectedCells"Item/2"Value t;tidcliente")e;t > datalistado"SelectedCells"Item/:"Value t;t.ec%a")e;t > datalistado"SelectedCells"Item/5"Value ctipodocumento")e;t > datalistado"SelectedCells"Item/#"Value t;tnumdocumento")e;t > datalistado"SelectedCells"Item/9"Value tneditar"Visile > )rue tn,uardar"Visile > =alse (nd Su -rivate Su datalistadoCellContentClic/6Val sender As S6stem"*Kect 6Val e As S6stem"Hindo3s"=orms"ataFridVie3Cell(ventAr,s Landles datalistado"CellContentClic I. e"ColumnInde; > e"datalistado"Columns"Item/?(liminar?"Inde; )%en im c%cell As ataFridVie3C%eco;Cell > e"datalistado"4o3s/e"4o3Inde;"Cells/?(liminar? c%cell"Value > essa,eo;"S%o3/?4ealmente desea editar los datos de la ventaT? ?*di.icando re,istros? essa,eo;uttons"*GCancel essa,eo;Icon"Duestion I. result > ialo,4esult"*G )%en I. e"ValidateC%ildren > )rue And t;tidcliente")e;t MN ?? And t;t t;tidventa")e;t dts",idcliente > t;tidventa")e;t dts",.ec%aventa > t;t.ec%a")e;t dts",tipodocumento > ctipodocumento")e;t dts",numdocumento > t;t

- 6( -

essa,eo;"S%o3/?=alta in,resar al,unos datos? ?*di.icando re,istros? essa,eo;uttons"*G essa,eo;Icon"In.ormation (nd I. (nd I. (nd Su -rivate Su celiminarC%ecedC%an,ed/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles celiminar"C%ecedC%an,ed I. celiminar"C%ecState > C%ecState"C%eced )%en datalistado"Columns"Item/?(liminar?"Visile > )rue (lse datalistado"Columns"Item/?(liminar?"Visile > =alse (nd I. (nd Su -rivate Su t;tuscar)e;tC%an,ed/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles t;tuscar")e;tC%an,ed uscar/ (nd Su -rivate Su car,ardetalle/ .rmdetalleventa"t;tidventa")e;t > datalistado"SelectedCells"Item/1"Value .rmdetalleventa"t;tidcliente")e;t > datalistado"SelectedCells"Item/2"Value .rmdetalleventa"t;tidcliente")e;t > datalistado"SelectedCells"Item/:"Value .rmdetalleventa"t;t.ec%a")e;t > datalistado"SelectedCells"Item/5"Value .rmdetalleventa"ctipodocumento")e;t > datalistado"SelectedCells"Item/#"Value .rmdetalleventa"t;t datalistado"SelectedCells"Item/9"Value .rmdetalleventa"S%o3ialo,/ (nd Su -rivate Su datalistadoCellouleClic/6Val sender As *Kect 6Val e As S6stem"Hindo3s"=orms"ataFridVie3Cell(ventAr,s Landles datalistado"CellouleClic car,ardetalle/ (nd Su -rivate Su tnuscarclienteClic/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles tnuscarcliente"Clic .rmcliente"t;t.la,")e;t > ?1? .rmcliente"S%o3ialo,/ (nd Su -rivate Su t;tidclienteValidatin,/6Val sender As *Kect 6Val e As S6stem"Componentodel"Cancel(ventAr,s Landles t;tidventa"Validatin, I. irectCast/sender )e;to;")e;t"'en,t% N 0 )%en e"erroricono"Set(rror/sender ?? (lse e"erroricono"Set(rror/sender ?Seleccione el cliente de la venta este dato es oli,atorio? (nd I. (nd Su -rivate Su t;tnumdocumentoValidatin,/6Val sender As *Kect 6Val e As S6stem"Componentodel"Cancel(ventAr,s Landles t;tnumdocumento"Validatin, I. irectCast/sender )e;to;")e;t"'en,t% N 0 )%en


- 60 -

e"erroricono"Set(rror/sender ?? (lse e"erroricono"Set(rror/sender ?In,rese el n8mero de comproante este dato es oli,atorio? (nd I. (nd Su (nd Class ;'R!%&"RI' #E"&&E VE$"S

-ulic Class .rmdetalleventa -rivate dt As )rue t;tidproducto")e;t > ?? t;tnomreproducto")e;t > ?? t;tpreciounitario")e;t > ?? t;tcantidad"Value > 0 t;tstoc"Value > 1 (nd Su -rivate Su mostrar/ )r6 im .unc As .unc"mostrar datalistado"Columns"Item/?(liminar?"Visile > =alse I. dt"4o3s"Count MN 0 )%en datalistado"ataSource > dt datalistado"ColumnLeadersVisile > )rue ine;istente"Visile > =alse


- 63 -

(lse datalistado"ataSource > =alse ine;istente"Visile > )rue (nd I. Catc% e; As (;ception s,o;/e;"essa,e (nd )r6 tn )rue uscar/ (nd Su -rivate Su uscar/ )r6 im ds As ?idventa>B? O t;tidventa")e;t O ?B? I. dv"Count MN 0 )%en ine;istente"Visile > =alse datalistado"ataSource > dv ocultarcolumnas/ (lse ine;istente"Visile > )rue datalistado"ataSource > =alse datalistado"Columns/2"Visile > =alse datalistado"Columns/:"Visile > =alse (nd Su -rivate Su tnnuevoClic/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s limpiar/ mostrar/ (nd Su -rivate Su t;tuscar)e;tC%an,ed/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s uscar/ (nd Su -rivate Su utton1Clic/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles utton1"Clic im result As ialo,4esult result > essa,eo;"S%o3/?4ealmente desea quitar los art7culos de la ventaT? ?(liminando re,istros? essa,eo;uttons"*GCancel essa,eo;Icon"Duestion


- 66 -

I. result > ialo,4esult"*G )%en )r6 =or (ac% ro3 As ataFridVie34o3 In datalistado"4o3s im marcado As oolean > Convert")ooolean/ro3"Cells/?(liminar?"Value I. marcado )%en im onee6 As Inte,er > Convert")oInt:2/ro3"Cells/?idddetalleventa?"Value im vd As onee6 vd",idproducto > datalistado"SelectedCells"Item/:"Value vd",idventa > datalistado"SelectedCells"Item/2"Value vd",cantidad > datalistado"SelectedCells"Item/5"Value I. .unc"eliminar/vd )%en I. .unc"aumentarstoc/vd )%en (nd I. (lse essa,eo;"S%o3/?Art7culo .ue quitado de la venta? ?(liminando re,istros? essa,eo;uttons"*G essa,eo;Icon"In.ormation (nd I. (nd I. ?1? .rmproducto"S%o3ialo,/ (nd Su -rivate Su t;tcantidadValueC%an,ed/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles t;tcantidad"ValueC%an,ed im cant As oule cant > t;tcantidad"Value I. t;tcantidad"Value N t;tstoc"Value )%en essa,eo;"S%o3/?'a cantidad que intenta vender supera stoc? ?(rror al vender el producto? essa,eo;uttons"*G essa,eo;Icon"In.ormation tnFuardar"Visile > 0 t;tcantidad"Value > t;tstoc"Value (lse tnFuardar"Visile > 1


- 6* -

(nd I. I. t;tcantidad"Value > 0 )%en tnFuardar"Visile > 0 (lse tnFuardar"Visile > 1 (nd I. (nd Su -rivate Su tn,uardarClic1/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles tnFuardar"Clic I. e"ValidateC%ildren > )rue And t;tidproducto")e;t MN ?? And t;tcantidad")e;t MN ?? And t;tpreciounitario")e;t MN ?? )%en )r6 im dts As t;tidventa")e;t dts",idproducto > t;tidproducto")e;t dts",cantidad > t;tcantidad")e;t dts",preciounitario > t;tpreciounitario")e;t I. .unc"insertar/dts )%en I. .unc"disminuirstoc/dts )%en (nd I. essa,eo;"S%o3/?Art7culo .ue añadido correctamente a la venta? ?Fuardando re,istros? essa,eo;uttons"*G essa,eo;Icon"In.ormation mostrar/ limpiar/ (lse essa,eo;"S%o3/?Art7culo .ue añadido correctamente a la venta intente de nuevo? ?Fuardando re,istros? essa,eo;uttons"*G essa,eo;Icon"(rror mostrar/ limpiar/ (nd I. Catc% e; As (;ception s,o;/e;"essa,e (nd )r6 (lse essa,eo;"S%o3/?=alta in,resar al,unos datos? ?Fuardando re,istros? essa,eo;uttons"*G essa,eo;Icon"In.ormation (nd I. (nd Su -rivate Su celiminarC%ecedC%an,ed1/6Val sender As S6stem"*Kect 6Val e As S6stem"(ventAr,s Landles celiminar"C%ecedC%an,ed I. celiminar"C%ecState > C%ecState"C%eced )%en datalistado"Columns"Item/?(liminar?"Visile > )rue (lse datalistado"Columns"Item/?(liminar?"Visile > =alse (nd I. (nd Su


- 67 -

-rivate Su datalistadoCellContentClic/6Val sender As S6stem"*Kect 6Val e As S6stem"Hindo3s"=orms"ataFridVie3Cell(ventAr,s Landles datalistado"CellContentClic I. e"ColumnInde; > e"datalistado"Columns"Item/?(liminar?"Inde; )%en im c%cell As ataFridVie3C%eco;Cell > e"datalistado"4o3s/e"4o3Inde;"Cells/?(liminar? c%cell"Value > e"t;tidventa")e;t .rmreportecomproante"S%o3ialo,/ (nd Su (nd Class VI#E' 10 (* )3 Comproante de venta Fenerar nueva vista 0"U: Vista nueva vista 1 0.(( procedimiento almacenado 5enerar comprobante

C4(A)( -4*C ,enerarcomproante $idventa int as S('(C) do"venta"idventa do"cliente"nomre do"cliente"apellidos do"cliente"dni do"venta".ec%aventa do"venta"tipodocumento do"venta"numdocumento


- 6+ -

do"producto"nomre AS escripcion do"detalleventa"cantidad do"detalleventa"preciounitario do"detalleventa"cantidad E do"detalleventa"preciounitario AS )otal-arcial =4* do"venta I<<(4 J*I< do"detalleventa *< do"venta"idventa > do"detalleventa"idventa I<<(4 J*I< do"producto *< do"detalleventa"idproducto > do"producto"idproducto I<<(4 J*I< do"cliente *< do"venta"idcliente > do"cliente"idcliente 3%ere do"venta"idventa>$idventa AF4(FA4 un ot+n para ,enerar ese comproante U":U A,re,ar reporte Asistente para in.orme 5":9 5"2R a,re,ar nuevo elemento reporte (li,ir reporte Fenerar vista


Aparece el asistente para in.omes

- 6< -


- *) -


- *1 -


- *( -


Idventa va ser ,rupo primario 11 15 dos ventas &n .ormulario que llame a ese diseño *r,anizar campos

- *0 -


- *3 -


Suprimir para %acer nueva tala Id venta ,rupo primario

.rmComporante reporte productos

- *6 -


15"5# reporte comproante 4eport ne3ere

&< <&(V* in.orme para los productos 21":Q 4pt productos 4eport vie3er VI#E' 13 00.16

- ** -


- *7 -

-arte del men8 del sistema ;ormulario mI odi.icar men8 strip 4estrin,ir el acdeso so lo a los usarios -rocedimiento validar en sql server el usuario / para eso es necesario es sql server 9"1U validar usuario Clase para el oKeto usario Clase vusuario os constructores 1:"10 lanco [ otros que recia todos los valores Clase . usuario 1#!0R Importar lirer7a de sql server *Keto validadr usario prcediiento almacenado Crear usuario :120 VI#E' 16 bac=up de la base de datos 15"2U -rocedimietno almacendado para realizar el acup de la ase de datos (spacio de discon para que lo copie Arc%ivo "a 'a ruta del acup


Clase .acup

-rocedimiento almacenado acup de ase de datos

over al disco local C Hindo3s r note3ad ventas"ac (n %erramientas ,enerar acup

- *+ -


L(44Amientas
4esutaruar la se de datos 6 restaurarlo

acup completo escar,ar el sql sever 200Q 1RU# 4estaurar ":"U0 con sqlserver Camiar ase de datos con la nueva ase de datos #"2: instalador de sitema de ventas

- *< -


- 7) -


(m el directorio se muestra el acup

Restaurar la base de datos 0.00

- 71 -


- 7( -


- 70 -


- 73 -


'a ase de datos restaurada

Con.i,uraci+n para reportes Fenerar instalador de sistema de ventas Crear instalador

- 76 -


- 7* -


%ttps]]333"6outue"com]user]Kcarlosad9

- 77 -

SISTEMA DE VENTAS VISUAL ESTUDIO 2010.docx

Recommend Documents