Crear búsquedas formateadas en SAP Business One Parte 2

Hoy les traigo algo más avanzado sobre el uso de las búsquedas formateadas en SAP B1 a raíz de las preguntas en nuestra parte 1 Crear búsquedas formateadas en SAP Business One

Vamos a empezar creando una base de datos que llamaremos «Repositorio»

CREATE DATABASE RP_SBODemoCL
COLLATE SQL_Latin1_General_CP850_CI_AS
GO

Aquí guardaremos en tablas adicionales a SAP, el detalle de los documentos que se vayan creando. Ya que no es posible consultar con una BF por linea.

Haremos un caso práctico que implemente:
Si la entrada de mercaderías, tiene una cantidad mayor a la OC, debe pasar por un proceso de autorizacion.

Comenzamos creando una tabla donde guardaremos los datos de la linea de la entrada de mercadería que realiza el usuario.

USE RP_SBODemoCL
CREATE TABLE [dbo].[SBO_Temp_POR1](
	[DocEntry] [nvarchar](255) NULL,
	[LineNum] [nvarchar](255) NULL,
	[ItemCode] [nvarchar](255) NULL,
	[OC_Qty] [numeric](19, 6) NULL,
	[OC_OpenQty] [numeric](19, 6) NULL,
	[Quantity] [numeric](19, 6) NULL,
	[BaseEntry] [int] NULL,
	[CreateDate] [datetime] NULL,
	[CardCode] [nvarchar](20) NULL
) ON [PRIMARY]

GO

En esta tabla se insertarán las lineas del documento donde más tarde consultaremos el proceso de autorizacion.

Para insertar los datos, crearemos un procedimiento almacenado en la base de datos repositorio y lo llamaremos desde SAP.

USE RP_SBODemoCL 
CREATE proc [dbo].[Insert_POR1] 
	(
		@P1 nvarchar(255), 
		@P2 nvarchar(255), 
		@P3 nvarchar(255), 
		@P4 numeric(19,6), 
		@P5 numeric(19,6), 
		@P6 numeric(19,6), 
		@P7 int, 
		@P8 nvarchar(255)
	)

as
begin
	if exists(select 'A' from RP_SBODemoCL..SBO_Temp_POR1 T0 where T0.DocEntry=cast(@P1 as nvarchar(255)) and T0.LineNum=cast(@P2 as nvarchar(255)) and T0.CardCode=cast(@P8 as nvarchar(255)))
	begin
		update RP_SBODemoCL..SBO_Temp_POR1
		set
			DocEntry=cast(@P1 as nvarchar(255)),LineNum=cast(@P2 as nvarchar(255)),ItemCode=cast(@P3 as nvarchar(255)),OC_Qty=cast(@P4 as numeric(19,6)),OC_OpenQty=cast(@P5 as numeric(19,6)),Quantity=cast(@P6 as numeric(19,6)),BaseEntry=cast(@P7 as int), CardCode=cast(@P8 as nvarchar(255))
		where DocEntry=cast(@P1 as nvarchar(255)) and LineNum=cast(@P2 as nvarchar(255)) and CardCode=cast(@P8 as nvarchar(255))
	end
	else
		insert into RP_SBODemoCL..SBO_Temp_POR1
		values (cast(@P1 as nvarchar(255)),cast(@P2 as nvarchar(255)),cast(@P3 as nvarchar(255)),cast(@P4 as numeric(19,6)),cast(@P5 as numeric(19,6)),cast(@P6 as numeric(19,6)),cast(@P7 as int), cast(getdate() as datetime), cast(@P8 as nvarchar(255)))
end

GO

Con ese procedimiento que llamaremos desde una BF, insertaremos o actualizaremos un registro de la tabla SBO_Temp_POR1.

Ya hemos terminado la parte «externa», ahora debemos ir a SAP y crear una BF de la siguiente manera.

declare 
	@A1 numeric(19,6), 
	@A2 numeric(19,6), 
	@A3 numeric(19,6), 
	@A4 int

set @A1 = cast((select T0.Quantity from POR1 T0 where T0.DocEntry=$[$38.45.0] and T0.LineNum=$[$38.46.0] and T0.ItemCode=$[$38.1.0]) as numeric(19,6))
set @A2 = cast((select T0.OpenQty from POR1 T0 where T0.DocEntry=$[$38.45.0] and T0.LineNum=$[$38.46.0] and T0.ItemCode=$[$38.1.0]) as numeric(19,6))
set @A3 = cast($[$38.11.NUMBER] as numeric(19,6))
set @A4 = cast($[$38.45.0] as int)


EXEC RP_SBODemoCL..Insert_POR1
  $[OPDN.DocNum],
  $[$38.0.0],
  $[$38.1.0],
  @A1,
  @A2,
  @A3,
  @A4,
  $[OPDN.CardCode]

Luego de eso, la colocamos BF en un campo (el que ustedes quieran) y la configuramos de esta manera.

Y cada vez que el usuario modifique la cantidad, se actualizaran los datos en la tabla con el procedimiento y la BF que creamos.
Si tenemos la siguiente entrada de mercadería en SAP desde una OC cualquiera, veremos lo siguiente en SAP:

y en la tabla de SQL:

Como ven, los datos del detalle de la entrada y de la OC están insertados en la tabla, ahora viene la query del proceso de autorizacion.

————————————————————————
if (isnull((
select count(*)
from RP_SBODemoCL..SBO_Temp_POR1 T0
where T0.DocEntry=$[OPDN.DocNum]
and T0.CardCode=$[OPDN.CardCode]
and ((T0.Quantity>T0.OC_Qty and T0.Quantity>T0.OC_OpenQty)
or (T0.QuantityT0.OC_OpenQty))),0))>0

begin
select distinct ‘true’
end
————————————————————————

Con esto validamos que la entrada siempre tenga la misma cantidad que la OC o que la cantidad abierta de la OC.

Espero les haya gustado este pequeño tutorial más avanzado del uso de las BF.

Suscribanse a las RSS si desean enterarse de los nuevos post y comentarios de la página.

Saludos y gracias por su visita.