91 lines
3.7 KiB
Plaintext
91 lines
3.7 KiB
Plaintext
|
|
MAIN
|
|
DEFINE usuarios,clave,nombre,nombre_v,uscrea,usmod VARCHAR(50),
|
|
impresor,ptipo SMALLINT,
|
|
pcotizacion,secCliente,psecvend INT,
|
|
porc_negocio DEC(8,2),
|
|
pneto,subtotal,descuento,itbis DEC(12,2),
|
|
pfecha DATE,
|
|
fechacrea,fechamod DATETIME YEAR TO MINUTE
|
|
|
|
DEFER INTERRUPT
|
|
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
CALL ARG_VAL(4) RETURNING impresor
|
|
CONNECT to "marmotech" AS "IFMX"
|
|
CONNECT TO "smarmotech" AS "MSSQL" USER usuarios USING clave
|
|
|
|
OPEN WINDOW vefmmt038 WITH FORM "vefmmt038"
|
|
INPUT BY NAME pcotizacion,porc_negocio WITHOUT DEFAULTS
|
|
AFTER FIELD pcotizacion
|
|
IF pcotizacion IS NOT NULL THEN
|
|
SET CONNECTION "MSSQL"
|
|
SELECT a.tipo_cliente,a.sec_cliente,a.nombre_cliente,
|
|
a.total_bruto,a.monto_desc,a.monto_itbi,a.total_neto,
|
|
a.sec_vend,CONVERT(CHAR(10), a.fecha,103),b.nom1_emp||' '||b.apell1_emp
|
|
INTO ptipo,seccliente,nombre,subtotal,descuento,itbis,pneto,
|
|
psecvend,pfecha,nombre_v
|
|
FROM vetb00050 a,adtb00003 b
|
|
WHERE a.cotizacion_no =pcotizacion AND
|
|
a.sec_vend = b.num_emp
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
CALL fgl_winmessage("ERROR","COTIZACION NO EXISTE","INFO")
|
|
NEXT FIELD pcotizacion
|
|
END IF
|
|
|
|
DISPLAY BY NAME ptipo,seccliente,nombre,subtotal,descuento,itbis,pneto,
|
|
psecvend,pfecha,nombre_v
|
|
LET porc_negocio = 0
|
|
LET uscrea = NULL
|
|
LET usmod = NULL
|
|
LET fechacrea = NULL
|
|
LET fechamod = NULL
|
|
SELECT a.porc_negocio,a.us_crea,a.fecha_crea,a.us_mod,a.fecha_mod
|
|
INTO porc_negocio,uscrea,fechacrea,usmod,fechamod
|
|
FROM vetb00086 a
|
|
WHERE a.cotizacion_no = pcotizacion
|
|
|
|
DISPLAY BY NAME porc_negocio,uscrea,fechacrea,usmod,fechamod
|
|
END IF
|
|
AFTER INPUT
|
|
IF INT_FLAG THEN
|
|
CALL fgl_winmessage("ERROR","OPERACION ABORTADA","INFO")
|
|
|
|
EXIT INPUT
|
|
ELSE
|
|
SELECT a.cotizacion_no FROM vetb00086 a WHERE a.cotizacion_no = pcotizacion
|
|
IF STATUS = NOTFOUND THEN
|
|
SET CONNECTION "MSSQL"
|
|
INSERT INTO vetb00086 (cotizacion_no,porc_negocio,us_crea,fecha_crea)
|
|
VALUES (pcotizacion,porc_negocio,usuarios,getdate())
|
|
|
|
SET CONNECTION "IFMX"
|
|
INSERT INTO vetb00086 (cotizacion_no,porc_negocio,us_crea,fecha_crea)
|
|
VALUES (pcotizacion,porc_negocio,usuarios,getdate())
|
|
|
|
|
|
ELSE
|
|
SET CONNECTION "MSSQL"
|
|
UPDATE vetb00086 SET vetb00086.porc_negocio =porc_negocio,
|
|
us_mod = usuarios,
|
|
fecha_mod = GETDATE()
|
|
WHERE cotizacion_no = pcotizacion
|
|
SET CONNECTION "IFMX"
|
|
UPDATE vetb00086 SET vetb00086.porc_negocio =porc_negocio,
|
|
us_mod = usuarios,
|
|
fecha_mod = getdate()
|
|
WHERE cotizacion_no = pcotizacion
|
|
|
|
END IF
|
|
CALL msg(13)
|
|
NEXT FIELD pcotizacion
|
|
END IF
|
|
END INPUT
|
|
LET INT_FLAG = FALSE
|
|
|
|
CLOSE WINDOW vefmmt038
|
|
|
|
|
|
END MAIN |