1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
|
ALTER PROCEDURE [dbo].[G_Edition_Etiquette]
@Type_Document VARCHAR(10),
@Parametres VARCHAR(255),
@Nombre_Copies INT,
@Identifiant_Imprimante VARCHAR(60),
@Dialogue VARCHAR(10),
@Operateur VARCHAR(12)
AS
-- SET @ParamEtiqTRSP = 'TRSC' + '¤' + E0045051
--exec G_Edition_Etiquette 'TRSP',@ParamEtiqTRSP , 1, @ImpETQ, @Dialogue, @Operateur
--exec G_Edition_Etiquette 'TRSP',TRSC¤E0045051 , 1, 8, ESCP, 49808
--Constantes
DECLARE @Prefixe_Id_Etiquette VARCHAR(50)
--Variables
DECLARE @No_Etiquette INT
DECLARE @TypeEtiquette VARCHAR(5)
DECLARE @Edition_Statut_Attente VARCHAR(3)
DECLARE @Idx INT
BEGIN
--Initialisation des constantes
SET @Prefixe_Id_Etiquette = 'ETIQ_'
-- Lancement de la demande d'édition
EXEC G_Format_Compteur 'ETIQUETTE', 'P', '0', 0, @Dialogue, @Operateur, @No_Etiquette OUTPUT
-- Sélection du N° d'étiquette
select @No_Etiquette
SET @Edition_Statut_Attente = '0'
IF (@Type_Document = 'TRSP') AND (@Dialogue <> 'REED')
BEGIN
--Récupération du type de transporteur : GLS par rapport au numéro de colis 'E0045051'
SELECT @TypeEtiquette = CNHPROP004 FROM SKCONTAINERHD WHERE CNHCONT = dbo.G_Decoupe_Chaine(@Parametres, 2, '¤')
-- @TypeEtiquette = GLS
-- Si transporteur = GLS
IF (@TypeEtiquette = 'GLS')
SET @Edition_Statut_Attente = '5'
END
SET @Idx = 1
WHILE (@Idx <= @Nombre_Copies)
BEGIN
INSERT INTO SOTRIGGERTAGHD(
TGTSYSTEMCOD, TGTDOCTYP, TGTPARAMVALUE, TGTCOPIESNB, TGTPRINTER,
TGTSHSTATUS, TGTUPDATEDDT, TGTPROG, TGTUSERCOD)
VALUES(
@Prefixe_Id_Etiquette + CAST(@No_Etiquette AS VARCHAR), @Type_Document, @Parametres, @Nombre_Copies, @Identifiant_Imprimante,
@Edition_Statut_Attente, GETDATE(), @Dialogue, @Operateur)
-- Lancement du dialogue d'édition par le SCAP COMMPC
INSERT INTO SOTRIGGERDIALOGHD(TGDIPADDR, TGDMESSAGE, TGDSHSTATUS)
VALUES('127.0.0.1', @Prefixe_Id_Etiquette + CAST(@No_Etiquette AS VARCHAR), @Edition_Statut_Attente)
SET @Idx = @Idx + 1
END
END |
Partager