67 lines
2.0 KiB
Plaintext
67 lines
2.0 KiB
Plaintext
|
|
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 |