GLOBALS "ipprgb000.4gl" FUNCTION insertaUbicacion(moviD,num_doc_tmp) DEFINE moviD RECORD cod_n,cod_Grupo,cod_tipo,cod_sec, descripcion,observacion STRING, book varchar(50) ,tipos varchar(50) ,lado_1 decimal(12,5) ,lado_2 decimal(12,5) ,lado_3 decimal(12,5) ,id_bodega, id_seccion1 INT ,d_seccion1 VARCHAR(50) ,id_tramo1 INT ,d_tramo1 VARCHAR(50), id_producto VARCHAR(25), tipo_material VARCHAR(30) ,cantidad1,cantidad2,factor_conv DECIMAL(12,5), cod_mov INT, control_transferencia_ubicaciones VARCHAR(2), cod_mov_transferencia INT END RECORD, idz,num_doc_tmp,p_arr1,statusMov SMALLINT, tmp_cantidad2,tmp_cantidad DEC(12,5), producto,mensaje CHAR(50) DEFINE movi10 DYNAMIC ARRAY OF RECORD cod_n,cod_Grupo,cod_tipo,cod_sec INT, descripcion,observacion STRING, book varchar(50) ,tipos varchar(50) ,lado_1 decimal(12,5) ,lado_2 decimal(12,5) ,lado_3 decimal(12,5) ,id_bodega, id_seccion1 INT ,d_seccion1 VARCHAR(50) ,id_tramo1 INT ,d_tramo1 VARCHAR(50), id_producto VARCHAR(25), tipo_material VARCHAR(30), cantidad1,cantidad2,factor_conv DECIMAL(12,5), cod_mov INT, de_seccion,de_tramo INT END RECORD DEFINE movi4 DYNAMIC ARRAY OF RECORD seccion INT, tramo INT, disponible DECIMAL(12,5), cantidad_1,cantidad_2 DECIMAL(12,5), factor_conv DECIMAL(12,5) END RECORD OPEN WINDOW w1 WITH FORM "ipfmmt045" DIALOG ATTRIBUTE(UNBUFFERED) INPUT BY NAME descripcion BEFORE INPUT LET producto = moviD.cod_n USING "<<<&", "-",moviD.cod_grupo USING "<<<<&", "-",moviD.cod_tipo USING "<<<<&", "-",moviD.cod_sec USING "<<<<&" LET descripcion = moviD.descripcion CLIPPED,"-(",producto CLIPPED,")" CALL existenciaTramos(moviD.cod_n,moviD.cod_grupo,moviD.cod_tipo,moviD.cod_sec,moviD.id_bodega, num_doc_tmp) RETURNING movi4 IF movi4.getLength() IS NULL OR movi4.getLength() =1 THEN CALL fgl_winmessage("INFO","ESTE PRODUCTO NO TIENE EXISTENCIA EN EL ALMACEN ESPECIFICADO","INFO") LET tmp_cantidad=0 LET tmp_cantidad2=0 EXIT DIALOG END IF END INPUT INPUT ARRAY movi4 FROM recordd.* ATTRIBUTE(WITHOUT DEFAULTS) BEFORE INPUT CALL cseccion(moviD.id_bodega) BEFORE ROW LET p_arr1 = arr_curr() LET scr_l = scr_line() AFTER FIELD seccion IF movi4[p_arr1].tramo IS NOT NULL THEN CALL ctramo(moviD.id_bodega,movi4[p_arr1].seccion) END IF AFTER FIELD cantidad_1 DISPLAY "data ",movi4[p_arr1].factor_conv IF movi4[p_arr1].cantidad_1 > 0 AND movi4[p_arr1].tramo IS NOT NULL THEN LET movi4[p_arr1].cantidad_2 = movi4[p_arr1].cantidad_1 * movi4[p_arr1].factor_conv DISPLAY movi4[p_arr1].cantidad_2 TO recordd[scr_l].cantidad_2 IF movi4[p_arr1].cantidad_2 > movi4[p_arr1].disponible THEN CALL fgl_winmessage("EXISTENCIA","CANTIDAD A SOLICITAR ES MAYOR A LA DISPONIBLE EN EL TRAMO DE ORIGEN","INFO") NEXT FIELD cantidad_1 END IF END IF AFTER ROW FOR idx = 1 TO movi4.getLength() IF movi4[idx].cantidad_1 > 0 THEN LET tmp_cantidad2 = tmp_cantidad2 +movi4[idx].cantidad_2 CALL insertTemporal(moviD.cod_n,moviD.cod_grupo,moviD.cod_tipo,moviD.cod_sec,moviD.cod_mov, moviD.id_bodega,movi4[idx].cantidad_1,movi4[idx].cantidad_2, movi4[idx].seccion, movi4[idx].tramo, '0','0',movi4[idx].disponible,num_doc_tmp) COMMIT WORK END IF END FOR END INPUT ON ACTION solicitar ATTRIBUTE(TEXT="Guardar",IMAGE="save") LET tmp_cantidad = 0 LET tmp_cantidad2 =0 FOR idx = 1 TO movi4.getLength() IF movi4[idx].cantidad_2 >0 THEN LET tmp_cantidad = tmp_cantidad + movi4[idx].cantidad_1 LET tmp_cantidad2 = tmp_cantidad2 + movi4[idx].cantidad_2 LET movi4[idx].cantidad_2 = movi4[idx].cantidad_1 * movi4[idx].factor_conv IF movi4[idx].cantidad_2 > movi4[idx].disponible THEN CALL fgl_winmessage("EXISTENCIA","CANTIDAD A SOLICITAR ES MAYOR A LA DISPONIBLE EN EL TRAMO DE ORIGEN","INFO") NEXT FIELD cantidad_1 END IF END IF END FOR FOR idx =1 TO movi4.getLength() LET movi10[idx].cod_n = moviD.cod_n LET movi10[idx].cod_grupo = moviD.cod_grupo LET movi10[idx].cod_tipo = moviD.cod_tipo LET movi10[idx].cod_sec = moviD.cod_sec LET movi10[idx].id_bodega = moviD.id_bodega LET movi10[idx].cod_mov = moviD.cod_mov LET movi10[idx].id_seccion1 = movi4[idx].seccion LET movi10[idx].id_tramo1 = movi4[idx].tramo LET movi10[idx].de_seccion = 0 LET movi10[idx].de_tramo = 0 LET movi10[idx].cantidad1 = movi4[idx].cantidad_1 LET movi10[idx].cantidad2 = movi4[idx].cantidad_2 END FOR EXIT DIALOG ON ACTION CANCEL LET tmp_cantidad=0 LET tmp_cantidad2=0 DELETE FROM tmpubicacionTramos WHERE us_crea = suser_sname() AND num_Doc = num_doc_tmp EXIT DIALOG CLOSE WINDOW w1 END DIALOG CLOSE WINDOW w1 RETURN tmp_cantidad,tmp_cantidad2,num_doc_tmp,movi10 END FUNCTION FUNCTION existenciaTramos(pcodn,pcodgrupo,pcodtipo,pcodsec,xbodega,num_doc_tmp) DEFINE num_doc_tmp,pcodn,pcodgrupo,pcodtipo,pcodsec,xbodega INT DEFINE movi4 DYNAMIC ARRAY OF RECORD seccion INT, tramo INT, disponible DECIMAL(12,5), cantidad_1,cantidad_2 DECIMAL(12,5), factor_conv DECIMAL(12,5) END RECORD, i INT DECLARE busca_ex CURSOR FOR SELECT a.cod_seccion,a.cod_tramo,ISNULL(SUM(a.cantidad2),0),ISNULL(AVG(c.cantidad_1),0),ISNULL(AVG(c.cantidad_2),0),ISNULL(AVG(b.factor_conv),0) FROM iptb00050 a INNER JOIN iptb00001 b on (a.bodega = xbodega AND a.cod_n = pcodn AND a.cod_grupo = pcodgrupo AND a.cod_tipo = pcodtipo AND a.cod_sec = pcodsec AND 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 a.status_t IS NULL LEFT OUTER JOIN tmpubicacionTramos c ON ( c.cod_n = a.cod_n AND c.cod_grupo = a.cod_grupo AND c.cod_tipo = a.cod_tipo AND c.cod_sec = a.cod_sec) and (c.bodega = a.bodega AND c.num_doc = num_doc_tmp AND c.cod_mov =c.cod_mov) and c.seccion= a.cod_seccion and c.tramo =a.cod_tramo and c.us_crea = suser_sname() GROUP BY a.cod_seccion,a.cod_tramo LET i = 1 FOREACH busca_ex INTO movi4[i].seccion,movi4[i].tramo,movi4[i].disponible,movi4[i].cantidad_1,movi4[i].cantidad_2, movi4[i].factor_conv LET i = i + 1 END FOREACH RETURN movi4 END FUNCTION