DEFINE producto RECORD
           cod_cia SMALLINT ,
	       cod_n SMALLINT ,
	       cod_grupo SMALLINT ,
	       cod_tipo SMALLINT ,
	       cod_sec SMALLINT ,
	       descrip_esp varchar(180) ,
	       descrip_ing varchar(80) ,
	       unidad_med varchar(4) ,
	       nomenclatura char(50) ,
	       bodega SMALLINT ,
           existencia DEC(12,5),
           disponible DEC(12,5),
	       exist_max decimal(10, 2) ,
	       exist_min decimal(10, 2) ,
	       dia_llegada SMALLINT ,
	       control_existencia varchar(2) ,
	       control_itbis varchar(2) ,
	       codid INT  ,
	       foto_producto STRING,
   	       porc_desc decimal(12, 2) ,
	       fecha_desc DATE ,
           factor DEC(12,2),
           referencia VARCHAR(25)
    END RECORD,
    selec STRING
MAIN

 CONNECT TO "smarmotech" USER 'jsoto' USING "lmmjvsd2014"

 LET selec  =
         "SELECT  a.cod_cia ,
	             a.cod_n ,
	             a.cod_grupo  ,
	             a.cod_tipo  ,
	             a.cod_sec  ,
	             a.descrip_esp  ,
	             a.descrip_ing  ,
	             a.unidad_med  ,
	             a.nomenclatura  ,
	             a.bodega  ,
                 '0',
                 '0',
	             a.exist_max  ,
	             a.exist_min  ,
	             a.dia_llegada  ,
	             a.control_existencia ,
	             a.control_itbis  ,
	             a.codid   ,
	             a.foto_producto ,
   
	             a.porc_desc  ,
	             a.fecha_desc,
                 b.factor_conv   
       FROM iptb00002 a,iptb00001 b 
      WHERE a.cod_n=b.cod_n AND a.cod_grupo=b.cod_grupo AND
            a.cod_tipo=b.cod_tipo AND 
            a.cod_sec = b.cod_Sec AND 
             CAST(a.cod_n AS VARCHAR(10))+CAST(a.cod_grupo AS VARCHAR(10))+
             CAST(a.cod_tipo AS VARCHAR(10))+CAST(a.cod_sec AS VARCHAR(10)) = '196681781079' AND 
                  a.status_t IS NULL "
       PREPARE busca_prod FROM selec
       EXECUTE busca_prod INTO producto.* 

DISPLAY "DATOS ",producto.*
END MAIN