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