67 lines
1.4 KiB
Plaintext
67 lines
1.4 KiB
Plaintext
|
|
IMPORT util
|
|
IMPORT os
|
|
IMPORT com
|
|
|
|
TYPE t_sync_cmd RECORD
|
|
oper STRING,
|
|
data STRING
|
|
END RECORD
|
|
FUNCTION reporte(url)
|
|
DEFINE url STRING
|
|
DEFINE credenciales RECORD
|
|
usuario VARCHAR(50),
|
|
clave VARCHAR(50),
|
|
orden INT
|
|
END RECORD
|
|
|
|
DEFINE o RECORD
|
|
|
|
orden_master RECORD
|
|
ventas char(1) ,
|
|
cotizacion_no INT ,
|
|
num_oc INT ,
|
|
tipo_cliente SMALLINT ,
|
|
sec_cliente SMALLINT ,
|
|
cliente VARCHAR(100)
|
|
END RECORD,
|
|
orden_detalle DYNAMIC ARRAY OF RECORD
|
|
num_oc int ,
|
|
secuencia smallint ,
|
|
area smallint ,
|
|
cod_n smallint ,
|
|
cod_grupo smallint ,
|
|
cod_tipo smallint ,
|
|
cod_sec smallint ,
|
|
precio DEC(10, 2) ,
|
|
cantiad_1 DEC(12,4),
|
|
cantidad DEC(12, 5) ,
|
|
descuento DEC(10, 2) ,
|
|
fecha_compromiso date ,
|
|
estado_produccion VARchar(20) ,
|
|
observacion VARchar(100) ,
|
|
id_kit int
|
|
|
|
END RECORD,
|
|
menajes RECORD
|
|
cod_msg INT,
|
|
descripcion STRING
|
|
END RECORD
|
|
END RECORD
|
|
,
|
|
r_cmd t_sync_cmd,
|
|
s STRING,
|
|
ret,res STRING
|
|
|
|
LET credenciales.usuario = 'jusoto'
|
|
LET credenciales.clave = 'lmmjvsd2014'
|
|
LET credenciales.orden = 205882
|
|
LET r_cmd.oper = 'orden_cliente'
|
|
LET r_cmd.data = util.JSON.stringify(credenciales)
|
|
LET s = util.JSON.stringify(r_cmd)
|
|
|
|
CALL sync_send_command(url, s) RETURNING ret, res
|
|
|
|
DISPLAY "ORDEN ",res
|
|
END FUNCTION
|