diff --git a/PROYECTO/PRDIR/prprmt011.4gl b/PROYECTO/PRDIR/prprmt011.4gl index 693b54c..ec806e4 100644 --- a/PROYECTO/PRDIR/prprmt011.4gl +++ b/PROYECTO/PRDIR/prprmt011.4gl @@ -140,6 +140,7 @@ FUNCTION prprmt011() --fechaSolDespacho OPEN WINDOW prfmmt011 AT 10,10 WITH FORM "prfmmt011" + CALL ui.Window.getCurrent().setText("Administracion Ordenes") #WHENEVER ERROR CONTINUE LET w = ui.Window.getCurrent() @@ -201,7 +202,7 @@ FUNCTION prprmt011() IF busqueda IS NULL THEN LET selec1 = " SELECT 'N', x.cerrada, x1.estado_produccion,x1.estado_producto,x1.departamento,x3.nom_dpto,RTRIM(CAST(x.sec_vend AS CHAR)) + ' ' + RTRIM(b.nom1_emp), b.apell1_emp, ", - " CONVERT(CHAR(10), x.fecha_oc,103) AS fecha_orden , CONVERT(char(10),x1.fecha_compromiso,103) ,x1.fecha_llegada, x1.fecha_disp_entrega, ", + " x.fecha_oc AS fecha_orden , x1.fecha_compromiso ,x1.fecha_llegada, x1.fecha_disp_entrega, ", " x1.fecha_solic_despacho, x1.fecha_instalacion, x.cotizacion_no, x.num_oc,x5.num_oc, x.observacion,g.descripcion, CAST(e.tipo_cliente AS CHAR(2)) ", " + '-' + CAST(e.sec_cliente AS CHAR(6)) + ' ' + RTRIM(e.nombre) ,x4.descripcion, CAST(x1.cod_n AS VARCHAR(4)) + '-' + CAST(x1.cod_grupo AS VARCHAR(4)) ", " + '-' + CAST(x1.cod_tipo AS VARCHAR(4)) + '-' + CAST(x1.cod_sec AS VARCHAR(7)) + ' ' + RTRIM(x2.descrip_esp), ", @@ -243,7 +244,7 @@ FUNCTION prprmt011() END IF LET selec1 = " SELECT 'N', x.cerrada, x1.estado_produccion,x1.estado_producto,x1.departamento,x3.nom_dpto,RTRIM(CAST(x.sec_vend AS CHAR)) + ' ' + RTRIM(b.nom1_emp), b.apell1_emp, ", - " CONVERT(CHAR(10), x.fecha_oc,103) AS fecha_orden , CONVERT(char(10),x1.fecha_compromiso,103) , + " x.fecha_oc AS fecha_orden , x1.fecha_compromiso , x1.fecha_llegada,x1.fecha_disp_entrega, ", " x1.fecha_solic_despacho, x1.fecha_instalacion, x.cotizacion_no, x.num_oc,x5.num_oc, x.observacion,g.descripcion, CAST(e.tipo_cliente AS CHAR(2)) ", " + '-' + CAST(e.sec_cliente AS CHAR(6)) + ' ' + RTRIM(e.nombre) ,x4.descripcion, CAST(x1.cod_n AS VARCHAR(4)) + '-' + CAST(x1.cod_grupo AS VARCHAR(4)) ", @@ -281,7 +282,7 @@ FUNCTION prprmt011() IF actualiza_log_produccion="SI" THEN LET selec1= " SELECT 'N', x.cerrada, x1.estado_produccion,x1.departamento,x3.nom_dpto,RTRIM(CAST(x.sec_vend AS CHAR)) + ' ' + RTRIM(b.nom1_emp), b.apell1_emp, ", - " CONVERT(CHAR(10), x.fecha_oc,103) AS fecha_orden , CONVERT(char(10),x1.fecha_compromiso,103) ,' ', x.cotizacion_no, x.num_oc, x.observacion,g.descripcion, CAST(e.tipo_cliente AS CHAR(2)) ", + " x.fecha_oc AS fecha_orden , x1.fecha_compromiso ,' ', x.cotizacion_no, x.num_oc, x.observacion,g.descripcion, CAST(e.tipo_cliente AS CHAR(2)) ", " + '-' + CAST(e.sec_cliente AS CHAR(6)) + ' ' + RTRIM(e.nombre) , CAST(x1.cod_n AS VARCHAR(4)) + '-' + CAST(x1.cod_grupo AS VARCHAR(4)) ", " + '-' + CAST(x1.cod_tipo AS VARCHAR(4)) + '-' + CAST(x1.cod_sec AS VARCHAR(4)) + ' ' + RTRIM(x2.descrip_esp), ", " SUM(x1.cantidad), '0' , '0' , '0' , x.sec_vend, x1.cod_n, x1.cod_grupo, x1.cod_tipo, x1.cod_Sec, e.tipo_cliente, e.sec_cliente, ", @@ -440,7 +441,7 @@ FUNCTION prprmt011() IF veces > 1 THEN LET att[idx].col7 = 'blue reverse' ELSE - SELECT CONVERT(CHAR(10),a.fecha_llegada,103) INTO arr_ordenes[idx].fecha_llegada + SELECT a.fecha_llegada INTO arr_ordenes[idx].fecha_llegada FROM cctb00026 a WHERE a.num_oc = arr_ordenes[idx].num_oc AND a.cod_n = arr_ordenes[idx].cod_n AND @@ -1091,7 +1092,7 @@ FUNCTION fparciales(xnum_oc,xcodn,xcodgrupo,xcodtipo,xcodsec,xfecha,xproducto) DECLARE busca_parcial CURSOR FOR - SELECT CONVERT(CHAR(10),a.fecha_compromiso,103),a.cantidad FROM prtb00028 a + SELECT a.fecha_compromiso,a.cantidad FROM prtb00028 a WHERE a.num_oc = xnum_oc AND a.cod_n = xcodn AND a.cod_grupo = xcodgrupo AND @@ -1313,7 +1314,7 @@ FUNCTION vepcmf008(num_cotizacion) LET SELEC = " SELECT DISTINCT a.cod_cia,a.ventas,a.cotizacion_no,a.tipo_cliente,a.sec_cliente,a.nombre_cliente, " || " a.rnc,a.nombre_proyecto,a.direccion_cliente,a.cod_provincia,a.direccion_proyecto, " || " a.telefono_r,a.telefono_o,a.email,a.tipo_precio,a.beeper,a.celular,a.prima,a.fax1,a.celular1, " || - " a.fax, CONVERT(CHAR(10),a.fecha,103),CONVERT(CHAR(10),a.fecha_entrega,103), " || + " a.fax, a.fecha,a.fecha_entrega, " || " a.plazo_entrega,a.comentario,a.contacto, a.cond_pago,a.sec_Vend,a.porc_itbi," || " a.total_bruto,a.sub_total,a.monto_Desc,a.monto_itbi,a.total_neto,a.monto_dolar,a.num_emp_inst, " || " a.codigo_dgii,a.tipo_ncf,a.cliente_generico,a.sec_vend_aux,a.codigo,a.cod_zona,a.sincronizado, "|| diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 90b8326..8c1a66f 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -913,11 +913,21 @@ + + + + + + + + + + - + @@ -929,6 +939,7 @@ + diff --git a/PROYECTO/otrodir/existenciaalmacenes.4fd b/PROYECTO/otrodir/existenciaalmacenes.4fd new file mode 100644 index 0000000..dbdc7f9 --- /dev/null +++ b/PROYECTO/otrodir/existenciaalmacenes.4fd @@ -0,0 +1,38 @@ + + + + + + + + + + + + + + + + +
+ + +
+ + + +
\ No newline at end of file diff --git a/PROYECTO/vedir/prfmwd014.per b/PROYECTO/vedir/prfmwd014.per index 5cfce84..294297e 100644 --- a/PROYECTO/vedir/prfmwd014.per +++ b/PROYECTO/vedir/prfmwd014.per @@ -20,7 +20,7 @@ X = formonly.fecha,FORMAT="dd/mm/yyyy"; x1 = formonly.num_req,TITLE="REQUISICION"; f1 = formonly.fecha_llegada,TITLE="FECHA LLEGADA"; instructions - screen record s_llegada[9] (fecha_llegada,num_req,fecha) + screen record s_llegada[5] (fecha_llegada,num_req,fecha) delimiters " " end