BEGIN

  DECLARE endloop INT DEFAULT 0;

  DECLARE tableName char(250);

  DECLARE rCursor CURSOR FOR SELECT `TABLE_NAME` FROM `information_schema`.`TABLES` WHERE `TABLE_SCHEMA`=DATABASE();

  DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' SET endloop=1;



  OPEN rCursor;

  FETCH rCursor INTO tableName;



  WHILE endloop = 0 DO

    SET @sql = CONCAT("REPAIR TABLE `", tableName, "` EXTENDED");

    PREPARE statement FROM @sql;

    EXECUTE statement;



    FETCH rCursor INTO tableName;

  END WHILE;



  CLOSE rCursor;

END

`InPkSucursal` CHAR(6)

BEGIN



declare fecha_ date;



declare fechaActual date;



select DATE_FORMAT(now(),'%Y-%m-%d') into fechaActual;



select fecha into fecha_ from cierrediario where pkSucursal=InPkSucursal;



if( fecha_ = fechaActual  )then

    update cierrediario set fecha= ADDDATE(DATE_FORMAT(now(),'%Y-%m-%d'), INTERVAL 1 DAY) where CONVERT(pkSucursal USING utf8) COLLATE utf8_spanish2_ci = CONVERT(InPkSucursal USING utf8) COLLATE utf8_spanish2_ci;

else

  update cierrediario set fecha= DATE_FORMAT(now(),'%Y-%m-%d') where CONVERT(pkSucursal USING utf8) COLLATE utf8_spanish2_ci = CONVERT(InPkSucursal USING utf8) COLLATE utf8_spanish2_ci;

end if;



END

IN `codigo` CHAR(20), IN `cantidad` INT, `InpkPromocion` VARCHAR(40)

BEGIN

  if(substring(codigo,1,2)='PL') then

    insert into detalle_producto values('',codigo,'',cantidad,InpkPromocion,0);

  else

    insert into detalle_producto values('','',codigo,cantidad,InpkPromocion,0);

  end if;

END

IN `idUser` INT, IN `ppkProducto` CHAR(6), IN `pcantidad` INT, IN `pcomentario` TEXT, IN `ppkSucursal` CHAR(5), `inTipo` INT, OUT `ppkEntradaProducto` CHAR(10)

BEGIN



declare codigo char(10);



SELECT concat(ppkSucursal,Lpad(ifnull(Max(SUBSTR(pkEntradaProducto,6,10)),0)+1,5,'0')) into codigo  FROM entradaproductos s where CONVERT(pkSucursal USING utf8) COLLATE utf8_spanish2_ci = CONVERT(ppkSucursal USING utf8) COLLATE utf8_spanish2_ci;



if(codigo is not null)then

  SET ppkEntradaProducto=codigo;

  insert into entradaproductos values(codigo,idUser,ppkProducto,pcantidad,upper(pcomentario),now(),now(),ppkSucursal,inTipo);



  if (inTipo=1)then

    update producto_sucursal set stock=stock+pcantidad where CONVERT(pkProducto USING utf8) COLLATE utf8_spanish2_ci = CONVERT(ppkProducto USING utf8) COLLATE utf8_spanish2_ci and CONVERT(pkSucursal USING utf8) COLLATE utf8_spanish2_ci =CONVERT(ppkSucursal USING utf8) COLLATE utf8_spanish2_ci;

  else

    update producto_sucursal set stock=stock-pcantidad where CONVERT(pkProducto USING utf8) COLLATE utf8_spanish2_ci = CONVERT(ppkProducto USING utf8) COLLATE utf8_spanish2_ci and CONVERT(pkSucursal USING utf8) COLLATE utf8_spanish2_ci = CONVERT(ppkSucursal USING utf8) COLLATE utf8_spanish2_ci;

  end if;

else

  set ppkEntradaProducto='false';

end if;



END

IN `InUser` VARCHAR(15), IN `InPassword` VARCHAR(30), IN `InTypeUser` CHAR(9)

BEGIN



declare codeUser int;



Select ifnull(Max(idUser),0)+1 into codeUser FROM user;

insert into user(idUser, userName, password, pkTrabajador) values(codeUser,InUser,InPassword,InTypeUser);



END

`InComprobante` BIGINT, `InDetalle_pedido` BIGINT

BEGIN



insert into detalle_comprobante2 values(InComprobante,InDetalle_pedido);

update detallepedido set estadoImpresion=1 where pkDetallePedido = InDetalle_pedido;



END

IN `nomplato` VARCHAR(200), IN `idtipo` INT, IN `idcategoria` INT, IN `precio` FLOAT, IN `ppkSucursal` CHAR(5), IN `stockMinimo_` INT, OUT `idplato` CHAR(6)

BEGIN



declare codigo char(6);

declare idplatoSucursal char(8);

declare idtipo_g int;



SELECT concat('PL',Lpad(ifnull(Max(SUBSTR(pkPlato,3)),0)+1,4,'0')) into codigo FROM plato;



if(codigo is not null)then

  SET idplato=codigo;

  insert into plato  (pkPlato,descripcion,estado,precio_venta,pkSucursal_,stockMinimo,pkTipo,pkCategoria) values(codigo,upper(nomplato),0,precio,ppkSucursal,stockMinimo_,idtipo,idcategoria);

  select  ifnull(Max(pkPlatoSucursal),0)+1 into idplatoSucursal from plato_sucursal;

  insert into plato_sucursal (pkPlatoSucursal, pkTipo, rutaImagen, precioVenta, pkPlato, pkSucursal) values(idplatoSucursal,idtipo,null,precio,codigo,ppkSucursal);

else

  set idplato='false';

end if;



END

IN `nomproducto` VARCHAR(100), IN `idtipo` INT, IN `precioventa` DECIMAL(10,2), IN `preciocompra` DECIMAL(10,2), IN `stock` INT, IN `ppkSucursal` CHAR(5), OUT `idproducto` CHAR(6)

BEGIN



declare codigo char(6);

declare idproductoSucursal int;



SELECT concat('P',Lpad(ifnull(Max(SUBSTR(pkProducto,4)),0)+1,5,'0')) into codigo FROM productos;

insert into productos values(codigo,nomproducto,0);

select Max(pkProductoSucursal)+1 into idproductoSucursal from producto_sucursal;

insert into producto_sucursal (pkProductoSucursal, pkSucursal,pkProducto, pkTipo, stock, precioVenta, precioCompra)

values(idproductoSucursal,ppkSucursal,codigo, idtipo, stock, precioventa, preciocompra);

SET idproducto=codigo;



END

IN `Documento_e` CHAR(8), IN `razonSocial_e` VARCHAR(300), IN `Nombres_e` VARCHAR(100), IN `Apellidos_e` VARCHAR(100), IN `DateBirth_e` DATE, IN `Direccion_e` VARCHAR(300), IN `Email_e` VARCHAR(50), IN `IdUbicacion_e` INT, IN `Sexo_e` VARCHAR(50), IN `ruc_e` VARCHAR(11), IN `pagWeb_e` VARCHAR(200), IN `alias_e` VARCHAR(100)

BEGIN



declare dni_ char(8);

declare idCliente int;

declare ruc_pj char(11);



select documento into dni_ from person where documento=Documento_e;



if (dni_ is null) then

  insert into person values(Documento_e,upper(Nombres_e), upper(Apellidos_e),DateBirth_e,upper(Direccion_e),Email_e, IdUbicacion_e,Sexo_e);

end if;



select ruc into ruc_pj from persona_juridica where ruc=ruc_e;



if (ruc_pj is null) then

  insert into persona_juridica values(ruc_e,upper(razonSocial_e), upper(Direccion_e),pagWeb_e,upper(alias_e));

end if;



select Max(pkCliente)+1 into idCliente from cliente;

insert into cliente (pkCliente,documento,ruc) values(idCliente,Documento_e,ruc_e);



END

IN `edescripcion` VARCHAR(2000)

BEGIN



declare cmensaje int;

Select ifnull(Max(pkMensaje),0)+1 into cmensaje from mensaje;

insert into mensaje(pkMensaje,descripcion) values (cmensaje,edescripcion);



END

`InPkPedido` BIGINT, `InMessage` VARCHAR(2000)

BEGIN



update detallePedido set mensaje=upper(InMessage) where pkDetallePedido = InPkPedido;



END

`nomSalon` VARCHAR(50), `IdSucursal` CHAR(5)

BEGIN



declare idSalon int(11);

select count(*)+1 into idSalon from salon;

IF(idSalon = 43 || idSalon = 44) THEN

  SET idSalon = 45;

END IF;



insert into salon (pkSalon, nombre, pkSucursal) values(idSalon,upper(nomSalon),IdSucursal);



END

IN `usuario_e` VARCHAR(50), IN `clave_e` VARCHAR(100), IN `clave2` VARCHAR(100)

BEGIN



  if(clave_e = clave2) then

    update user set password = clave_e where CONVERT(password USING utf8) COLLATE utf8_spanish2_ci = CONVERT(usuario_e USING utf8) COLLATE utf8_spanish2_ci;

  else

    select 'las claves deben ser iguales' as mensaje;

  end if;



END

`InPkComprobante` BIGINT, `inPkPediido` BIGINT

BEGIN



declare _total decimal(10,2);

declare _totalFinal decimal(10,2);



select total into _total from pedido where pkPediido = inPkPediido;

insert into detallecomprobante (pkComprobante,pkPediido,total) values(InPkComprobante,inPkPediido,_total );

select sum(total) into _totalFinal from detallecomprobante where pkComprobante = InPkComprobante;

update comprobante set total =_totalFinal where pkComprobante = InPkComprobante;



END

`InCantidad` INT, `InPrecioUnitario` DECIMAL(5,2), `InSubTotal` DECIMAL(5,2), `InCantidadTotal` INT, `InValorUnidad` DECIMAL(5,2), `InPkProducto` CHAR(6), `InPkFactura` CHAR(10), `InPkSucursal` CHAR(5), OUT `codigo_g` CHAR(10)

BEGIN



declare codigo char(10);



SELECT concat(InPkSucursal,Lpad(ifnull(Max(SUBSTR(pkDetalleFacturaProvedor,6,10)),0)+1,4,'0')) into codigo FROM detalle_factura_provedor s;



if(codigo is not null)then

  SET codigo_g=codigo;

  insert into detalle_factura_provedor values(codigo,InCantidad,InPrecioUnitario,InSubTotal,InCantidadTotal,InValorUnidad,InPkProducto,InPkFactura);

  update producto_sucursal set stock =stock+InCantidadTotal where CONVERT(pkProducto USING utf8) COLLATE utf8_spanish2_ci = CONVERT(InPkProducto USING utf8) COLLATE utf8_spanish2_ci and CONVERT(pkSucursal USING utf8) COLLATE utf8_spanish2_ci = CONVERT(InPkSucursal USING utf8) COLLATE utf8_spanish2_ci;

else

  set codigo_g='false';

end if;



END

`InFecha` DATE, `inPkProvedor` CHAR(5), `InpkUser` INT, `InPkSucursal` CHAR(5), `InNroFactura` VARCHAR(12), OUT `message` VARCHAR(12)

BEGIN



declare codigo char(10);



SELECT concat(InPkSucursal ,Lpad(ifnull(Max(SUBSTR(pkFactura,6,10)),0)+1,5,'0')) into codigo  FROM factura_provedor s where pkSucursal=InPkSucursal;



if (codigo is not null) then

  insert into factura_provedor values(codigo,InFecha,0,now(),InNroFactura,InPkSucursal,InpkUser,inPkProvedor,0);

  set message=codigo;

else

  set message='false';

end if;



END

`InCantidad` FLOAT, `Inprecio` FLOAT, `InProducto` CHAR(6), `InpkPedido` BIGINT, `InTipo` VARCHAR(20), `InMozo` CHAR(9)

BEGIN



declare cantidad_ int;



SELECT count(*) into cantidad_ FROM detallepedido d where estado=0 and CONVERT(pkPlato USING utf8) COLLATE utf8_spanish2_ci = CONVERT(InProducto USING utf8) COLLATE utf8_spanish2_ci and pkPediido = InpkPedido;



if(cantidad_ <1)then

  insert into detallepedido (pkDetallePedido,cantidad,precio,pkPlato,horaPedido,estado,pkMozo,pkPediido) values(NULL,InCantidad,Inprecio,InProducto,now(),0,InMozo,InpkPedido);

else

  update detallepedido set cantidad=cantidad+InCantidad where estado=0 and CONVERT(pkPlato USING utf8) COLLATE utf8_spanish2_ci = CONVERT(InProducto USING utf8) COLLATE utf8_spanish2_ci and pkPediido = InpkPedido;

end if;



END

`InPkPedido` BIGINT

BEGIN



declare codigo_mesa int;



select pkMesa into codigo_mesa from pedido where pkPediido = InPkPedido;

update pedido set estado=3 where pkPediido = InPkPedido;

update mesas set estado=0 where pkMesa=codigo_mesa;



END

`InPkSucursal` CHAR(6)

BEGIN



update cierrediario set fecha= now() where CONVERT(pkSucursal USING utf8) COLLATE utf8_spanish2_ci = CONVERT(InPkSucursal USING utf8) COLLATE utf8_spanish2_ci;



END

`InPkWorkPeople` CHAR(10)

BEGIN



update trabajador set estado=1 where CONVERT(pkTrabajador USING utf8) COLLATE utf8_spanish2_ci = CONVERT(InPkWorkPeople USING utf8) COLLATE utf8_spanish2_ci ;



END

`InNombres` VARCHAR(250), `InApellidos` VARCHAR(250), `InDocumento` CHAR(8), `InEmail` VARCHAR(250), `InDireccion` VARCHAR(300), `InIdUbicacion` INT, `InSexo` VARCHAR(30), `InDateBirth` DATE, `InTipoTrabajador` INT, `InpkSucursal` CHAR(5)

BEGIN



declare dni_ char(10);

declare codigo char(10);



select documento into dni_ from person where documento=InDocumento;



if (dni_ is null) then

  insert into person values(InDocumento,upper(InNombres), upper(InApellidos),InDateBirth,upper(InDireccion),InEmail, InIdUbicacion,InSexo);

end if;





SELECT concat(InpkSucursal ,Lpad(ifnull(Max(SUBSTR(pkTrabajador,6,10)),0)+1,4,'0')) into codigo  FROM trabajador s where CONVERT(pkSucursal USING utf8) COLLATE utf8_spanish2_ci = CONVERT(InPkSucursal USING utf8) COLLATE utf8_spanish2_ci;



insert into trabajador values(codigo,InDocumento,InTipoTrabajador,InpkSucursal,0);



END

`idSalon` INT, `nomMesa` VARCHAR(45), `numeroMesas` INT, `IdSucursal` CHAR(5)

BEGIN



declare idMesa int(11);



if(numeroMesas>9) then

  SET @a = 0;



  REPEAT

    SET @a = @a + 1;

    select Max(pkMesa)+1  into idMesa from mesas;

    insert into mesas values (idMesa, CONCAT(UPPER(nomMesa),' ','0',@a),0,idSalon);

  UNTIL @a = 9 END REPEAT;



  set @b=@a;



  REPEAT

    SET @b = @b + 1;

    select Max(pkMesa)+1  into idMesa from mesas;

    insert into mesas values (idMesa, CONCAT(UPPER(nomMesa),' ',@b),0,idSalon);

  UNTIL @b = numeroMesas



  END REPEAT;

else



  if(numeroMesas<=9) then

    set @c=0;



    REPEAT

      SET @c = @c + 1;

      select Max(pkMesa)+1  into idMesa from mesas;

      insert into mesas values (idMesa, CONCAT(UPPER(nomMesa),' ','0',@c),0,idSalon);

    UNTIL @c = numeroMesas



    END REPEAT;



  end if;

end if;



END

`InPkProduct` CHAR(8), `InCantidad` INT, `InUser` INT

BEGIN



update productos set stock=stock+InCantidad where CONVERT(pkProducto USING utf8) COLLATE utf8_spanish2_ci = CONVERT(InPkProduct USING utf8) COLLATE utf8_spanish2_ci;



insert into cambiostablaproductos (Descripcion,fecha,pkUser) values(concat('Se añadio  ', InCantidad, ' unidades'), now(),InUser );



END

`InPkMesa` INT, `InIdUsuario` INT, `InPkSucursal` CHAR(6), OUT `codigo_e` BIGINT

BEGIN



declare fecha_ date;



update mesas set estado=1 where pkMesa=InPkMesa;

select fecha into fecha_ from cierrediario;



insert into pedido (pkPediido,pkMesa,fechaApertura,idUser,dateModify, fechaCierre) values(NULL,InPkMesa,now(),InIdUsuario,now(),fecha_);



SELECT LAST_INSERT_ID() into codigo_e;



END

IN `ruc_e` CHAR(11)

BEGIN



update persona_juridica set estado=0 where CONVERT(ruc USING utf8) COLLATE utf8_spanish2_ci = CONVERT(ruc_e USING utf8) COLLATE utf8_spanish2_ci;



update cliente set estado=0 where CONVERT(ruc USING utf8) COLLATE utf8_spanish2_ci = CONVERT(ruc_e USING utf8) COLLATE utf8_spanish2_ci;



END