Base de Datos: SQL 2005
Problema no se crean los Articulos Nuevos en todas las bodegas
Cada vez que se crea un articulo inserta estos valore en la tabla Cat_articulo
INSERT INTO CAT_ARTICULO (
CODARTICULO,
NOMBRE,
EXISMINIMA,
EXISACTUAL,
CODUNIDADVENTA,
COSTO,
PRECIO,
FACTOR,
CODUNIDADCOMPRA,
EXISMAXIMA,
DEVUELVE,
CODGRUPO,
CANTA,
PRECIOA,
CANTB,
PRECIOB,
CANTC,
PRECIOC,
CODBODEGA,
ESCOMBO
)
El problema que solo crea en las 3 Primeras Bodegas, ahorita veo el procedimeinto para copiarla en las otras.
BOD001 BODEGA TIENDA
BOD002 BODEGA PRINCIPAL
BOD003 BODEGA MAL ESTADO
BOD004 BODEGA PAPELERIA
BOD005 BODEGA MOVIMIENTOS SOYAPANGO
BOD006 BODEGA DE REACOMODO
BOD007 BODEGA DE PREMIOS
BOD008 BODEGA DE AJUSTES
BOD009 BODEGA MISCELANEOS
BOD010 Bodega Obsolescencia
BOD011 BODEGA DESTRUCCION
BOD012 BODEGA EQUIPOS NOMBRAMIENTOS
Este problema lo pongo para ir documentando y ver las soluciones posibles
OTRO PROBLEMA RESUELTO
Escribir en el Reporte de Facturas el TOTAL en letras .
Para eso busque en Internet como crear un Procedimiento Almacenado y me encontre con la funcion Num2Text ejecute el Query siguiente
USE [Nombre de Base de Datos]
GO
/****** Object: UserDefinedFunction [dbo].[Num2Text] Script Date: 05/17/2012 11:26:50 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER Function [dbo].[Num2Text](@valor money)
returns varchar(500)
as
begin
declare @textoValor varchar(500)
Select @textoValor = Case when @valor = 0 then 'CERO'
when @valor = 1 then 'UN'
when @valor = 2 then 'DOS'
when @valor = 3 then 'TRES'
when @valor = 4 then 'CUATRO'
when @valor = 5 then 'CINCO'
when @valor = 6 then 'SEIS'
when @valor = 7 then 'SIETE'
when @valor = 8 then 'OCHO'
when @valor = 9 then 'NUEVE'
when @valor = 10 then 'DIEZ'
when @valor = 11 then 'ONCE'
when @valor = 12 then 'DOCE'
when @valor = 13 then 'TRECE'
when @valor = 14 then 'CATORCE'
when @valor = 15 then 'QUINCE'
when @valor < 20 then 'DIECI' + dbo.Num2Text(@valor - 10)
when @valor = 20 then 'VEINTE'
when @valor < 30 then 'VEINTI' + dbo.Num2Text(@valor - 20)
when @valor = 30 then 'TREINTA'
when @valor = 40 then 'CUARENTA'
when @valor = 50 then 'CINCUENTA'
when @valor = 60 then 'SESENTA'
when @valor = 70 then 'SETENTA'
when @valor = 80 then 'OCHENTA'
when @valor = 90 then 'NOVENTA'
when @valor < 100 then dbo.Num2Text(floor(@valor / 10) * 10) + ' Y ' + dbo.Num2Text(@valor % 10)
when @valor = 100 then 'CIEN'
when @valor < 200 then 'CIENTO ' + dbo.Num2Text(@valor - 100)
when @valor in (200, 300, 400, 600, 800) then dbo.Num2Text(floor(@valor / 100)) + 'CIENTOS'
when @valor = 500 then 'QUINIENTOS'
when @valor = 700 then 'SETECIENTOS'
when @valor = 900 then 'NOVECIENTOS'
when @valor < 1000 then dbo.Num2Text(floor(@valor / 100) * 100) + ' ' + dbo.Num2Text(@valor % 100)
when @valor = 1000 then 'MIL'
when @valor < 2000 then 'MIL ' + dbo.Num2Text(@valor % 1000)
when @valor < 1000000 then case when @valor % 1000 > 0
then dbo.Num2Text(floor(@valor / 1000)) + ' MIL' + ' ' + dbo.Num2Text(@valor % 1000)
else dbo.Num2Text(floor(@valor / 1000)) + ' MIL'
end
when @valor = 1000000 then 'UN MILLON'
when @valor < 2000000 then 'UN MILLON ' + dbo.Num2Text(@valor % 1000000)
when @valor < 1000000000000.0 then case when (@valor - floor(@valor / 1000000) * 1000000) > 0
then dbo.Num2Text(floor(@valor / 1000000)) + ' MILLONES ' + dbo.Num2Text(@valor - floor(@valor / 1000000) * 1000000)
else dbo.Num2Text(floor(@valor / 1000000)) + ' MILLONES '
end
when @valor = 1000000000000.0 then 'UN BILLON'
when @valor < 2000000000000.0 then 'UN BILLON ' + dbo.Num2Text(@valor - floor(@valor / 1000000000000.0) * 1000000000000.0)
else case when (@valor - floor(@valor / 1000000000000.0) * 1000000000000.0) > 0
then dbo.Num2Text(floor(@valor / 1000000000000.0)) + ' BILLONES'
else dbo.Num2Text(floor(@valor / 1000000000000.0)) + ' BILLONES' + ' ' + dbo.Num2Text(@valor - floor(@valor / 1000000000000.0) * 1000000000000.0)
end
end
return(@textoValor)
end
Y depues en el CrystalReport le pasa la funcion la total
Aprovechando el contenido loque quiero crear, es un programa POS de una pequeña empresa, en la U solo esto manejabamos lastimosamente Visual Basic.NET y SQL Server, asi que ire poniendo para ver como avanza este programa y que se pueda utilizar en cualquier comercio minorista.