1041 lines
35 KiB
Plaintext
1041 lines
35 KiB
Plaintext
{
|
|
==============================================================================
|
|
PROGRAMA : lqprrp009
|
|
SISTEMA : Sistema de Liquidacion Materiales
|
|
Objetivo : Liquidacion Mercancia Compras Exterior REPUESTSO
|
|
Nota: En los gastos y otros se segrega la entrada "ED.64"
|
|
PROGRAMADOR : Juan F. Soto
|
|
FECHA : Noviembre 26, 1996
|
|
MODIFICADO :
|
|
FECHA :
|
|
==============================================================================
|
|
}
|
|
GLOBALS
|
|
"lqprgb000.4gl"
|
|
###### Variables para busqueda de rango de fecha
|
|
DEFINE elije,imp,afecta CHAR(1)
|
|
DEFINE m_mes,mes SMALLINT
|
|
DEFINE chequea_ent,p_ano CHAR(4)
|
|
DEFINE detalla CHAR(30)
|
|
DEFINE no_entrada CHAR(14)
|
|
DEFINE fecha1, fecha2 DATE ,p_fecha char(10)
|
|
DEFINE entra CHAR(14)
|
|
DEFINE entra1 CHAR(5)
|
|
DEFINE t_costst,p_fob,valor,mano_obra,sueldo_ind,monto_banco,
|
|
interes,val_64 DECIMAL(12,2)
|
|
DEFINE orden CHAR(10)
|
|
DEFINE t_variacion DECIMAL(12,2)
|
|
|
|
###### Variables que la almacenan la informacion enviada al reporte
|
|
DEFINE diario1 RECORD
|
|
cuenta_no CHAR(8),
|
|
debito DECIMAL(10,2)
|
|
END RECORD
|
|
|
|
DEFINE i SMALLINT
|
|
DEFINE fecha_inicial,fecha_final DATE
|
|
DEFINE tasa DECIMAL(8,2)
|
|
DEFINE primera,imp_entrada CHAR(1), salida VARCHAR(4)
|
|
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
CALL ARG_VAL(3) RETURNING impresor
|
|
|
|
CONNECT to "smarmotech" USER usuarios USING clave
|
|
|
|
CALL lqprrp009()
|
|
END MAIN
|
|
|
|
FUNCTION lqprrp009()
|
|
|
|
DEFINE busca_datos RECORD
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descripcion CHAR(30),
|
|
unidad CHAR(3),
|
|
cod_sp SMALLINT,
|
|
cod_sp_sec SMALLINT,
|
|
entrada INTEGER,
|
|
num_doc INTEGER,
|
|
num_oc INTEGER,
|
|
tipo CHAR(2),
|
|
cantidad DECIMAL(12,2),
|
|
precio DECIMAL(12,2),
|
|
flete DECIMAL(12,2),
|
|
tasa DECIMAL(8,2),
|
|
mercado CHAR(1),
|
|
imp_colect DECIMAL(12,2),
|
|
imp_aduana DECIMAL(12,2),
|
|
cost_std DECIMAL(12,3),
|
|
clave CHAR(6)
|
|
END RECORD
|
|
|
|
LET int_flag = FALSE
|
|
|
|
OPTIONS
|
|
FORM LINE 8
|
|
|
|
OPEN FORM lqfmrp009 FROM "lqfmrp009"
|
|
DISPLAY FORM lqfmrp009
|
|
DISPLAY "lqprrp009" AT 4,3
|
|
DISPLAY "Liquidacion Partes y Repuestos" AT 6,24
|
|
|
|
LET tipo_papel = 2
|
|
CALL msgrp000(tipo_papel)
|
|
|
|
INPUT BY NAME p_ano,m_mes,elije,imp_entrada,imp,chstd
|
|
|
|
AFTER FIELD p_ano
|
|
IF p_ano is null THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD p_ano
|
|
END IF
|
|
AFTER FIELD m_mes
|
|
IF m_mes is null THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD m_mes
|
|
END IF
|
|
SELECT Convert(varchar(10),a.fecha_inicio,103),Convert(varchar(10),a.fecha_corte,103) INTO fecha_inicial,fecha_final
|
|
FROM prdtable a WHERE a.mes = m_mes and a.ano = p_ano
|
|
|
|
DISPLAY BY NAME fecha_inicial,fecha_final ATTRIBUTE(BOLD)
|
|
LET chequea_ent = m_mes using "&&",p_ano[3,4]
|
|
LET no_entrada = "ED.29-000/",chequea_ent
|
|
|
|
|
|
LET p_fechas = fecha_final using "ddmmyy"
|
|
CALL prd(p_fechas,usuarios) RETURNING bandera
|
|
IF bandera = 1 THEN
|
|
LET bandera = 0
|
|
NEXT FIELD p_ano
|
|
END IF
|
|
|
|
AFTER FIELD elije
|
|
IF elije = "E" THEN
|
|
SELECT unique a.ref FROM cgtb00004 a WHERE a.ref = no_entrada
|
|
|
|
IF status != notfound THEN
|
|
LET numero_msg = 222
|
|
CALL msg(numero_msg)
|
|
#NEXT FIELD p_ano
|
|
END IF
|
|
END IF
|
|
END INPUT
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
LET primera = "S"
|
|
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
|
|
doble_on,doble_off,comp_on,comp_off,
|
|
doce,normal,archivo,copia
|
|
|
|
|
|
LET r_filename = 'lqprrp009.4rp'
|
|
LET preview = 1
|
|
|
|
IF fgl_report_loadCurrentSettings(r_filename) THEN
|
|
|
|
CALL seleccionarsalida() RETURNING r_output -- load the .4rp file
|
|
CALL fgl_report_selectDevice(r_output) -- changing default
|
|
CALL fgl_report_selectPreview(preview) -- changing default
|
|
LET handler = fgl_report_commitCurrentSettings() -- commit changes
|
|
END IF
|
|
|
|
IF HANDLER IS NOT NULL THEN
|
|
START REPORT liquida7 TO XML HANDLER HANDLER
|
|
|
|
|
|
|
|
DISPLAY "<<<Reporte Generandose... Espere por Favor>>>" AT 19,14
|
|
ATTRIBUTE(YELLOW)
|
|
|
|
DELETE FROM cttb00032 WHERE mes = m_mes and ano = p_ano AND tipo = '3'
|
|
DELETE FROM cttb00013 WHERE fecha_lq = fecha_final and tipo_lq = elije AND tipo_orden =3
|
|
INSERT INTO cttb000log1 VALUES (GETDATE(),usuarios,'lqprrp009','ELIMINO')
|
|
|
|
|
|
DECLARE busca CURSOR FOR
|
|
SELECT UNIQUE a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,
|
|
a.descrip_esp,a.unidad_med,
|
|
d.cod_sp,d.cod_sp_sec,d.rep_entrada,c.rep_entrada,c.num_oc,c.tipo,
|
|
c.cantidad_oc,c.cantidad_oc*c.fob,c.costo_flete,d.prima_us,d.liquidada,c.impuesto,c.otros_g
|
|
FROM irtb00002 a,cgtb00018 c,cgtb00017 d
|
|
WHERE a.cod_n = c.cod_n and a.cod_grupo = c.cod_grupo and
|
|
a.cod_tipo = c.cod_tipo and a.cod_sec = c.cod_sec and
|
|
c.rep_entrada = d.rep_entrada and d.liquidada = elije and
|
|
d.fecha between fecha_inicial and fecha_final and c.status_t is null
|
|
AND c.num_oc = d.num_oc and c.tipo = d.tipo AND c.status_t IS NULL AND
|
|
c.tipo = 3 AND
|
|
d.status_t is null ORDER BY c.num_oc,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
|
|
|
|
FOREACH busca INTO busca_datos.*
|
|
LET orden = busca_datos.num_oc USING "<<<<<<"
|
|
IF elije != "L" THEN
|
|
{# Busca el monto pagado al colector
|
|
SELECT sum(a.debito-a.credito) INTO busca_datos.imp_colect FROM cgtb00004 a
|
|
WHERE (a.cuenta_no = "1161-01" and a.status_t is null and
|
|
a.fecha <= fecha_final and a.cod_sec = a.cod_sec and
|
|
a.num_doc = orden)
|
|
}
|
|
IF busca_datos.imp_colect is null THEN
|
|
LET busca_datos.imp_colect = 0
|
|
END IF
|
|
|
|
IF busca_datos.imp_colect < 0 THEN
|
|
LET busca_datos.imp_colect = busca_datos.imp_colect * -1
|
|
END IF
|
|
|
|
#Busca la entrada 64 del rango especificado
|
|
SELECT sum(a.debito-a.credito) INTO val_64 FROM cgtb00004 a
|
|
WHERE (a.fecha between fecha_inicial and fecha_final and
|
|
a.ref[1,5] = "ED.64") AND (a.cod_aux = a.cod_aux and a.cod_sec = a.cod_sec
|
|
and a.num_doc = orden and a.status_t is null)
|
|
|
|
IF val_64 is null THEN
|
|
LET val_64 = 0
|
|
END IF
|
|
|
|
{# Busca los gastos aduanales
|
|
SELECT sum(a.debito-a.credito) INTO busca_datos.imp_aduana FROM cgtb00004 a
|
|
WHERE (cuenta_no = "1161" and a.status_t is null and
|
|
a.fecha <= fecha_final and a.cod_sec = a.cod_sec and
|
|
a.num_doc = orden)
|
|
}
|
|
END IF
|
|
|
|
IF busca_datos.imp_aduana is null THEN
|
|
LET busca_datos.imp_aduana = 0
|
|
END IF
|
|
|
|
IF busca_datos.imp_aduana < 0 THEN
|
|
LET busca_datos.imp_aduana = busca_datos.imp_aduana * -1
|
|
END IF
|
|
|
|
IF busca_datos.imp_aduana != 0 THEN
|
|
LET busca_datos.imp_aduana = busca_datos.imp_aduana - val_64
|
|
END IF
|
|
# Busca el costos standard
|
|
LET busca_datos.cost_std = 0
|
|
SELECT a.costo_st INTO busca_datos.cost_std FROM irtb00013 a
|
|
WHERE a.ano = p_Ano and a.cod_n = busca_datos.cod_n and
|
|
a.cod_grupo=busca_datos.cod_grupo and a.cod_tipo=busca_datos.cod_tipo
|
|
AND a.mes_fin = 12
|
|
AND a.cod_sec = busca_datos.cod_sec and a.status_t is null
|
|
|
|
IF busca_datos.cost_std is null THEN
|
|
LET busca_datos.cost_std = 0
|
|
END IF
|
|
LET busca_datos.clave = busca_datos.num_oc using "<<<<",busca_datos.tipo
|
|
OUTPUT TO REPORT liquida7(busca_datos.*)
|
|
END FOREACH
|
|
|
|
FINISH REPORT liquida7
|
|
|
|
END IF
|
|
|
|
#IF imp = "S" THEN
|
|
# RUN imprime
|
|
#END IF
|
|
|
|
IF imp_entrada = "S" THEN
|
|
CALL entrada0271()
|
|
END IF
|
|
CLEAR SCREEN
|
|
END FUNCTION
|
|
|
|
REPORT liquida7(x)
|
|
DEFINE x RECORD
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descripcion varchar(100),
|
|
unidad CHAR(3),
|
|
cod_sp SMALLINT,
|
|
cod_sp_sec SMALLINT,
|
|
entrada INTEGER,
|
|
num_doc INTEGER,
|
|
num_oc INTEGER,
|
|
tipo CHAR(10),
|
|
cantidad DECIMAL(12,2),
|
|
precio DECIMAL(12,2),
|
|
flete DECIMAL(12,2),
|
|
tasa DECIMAL(8,2),
|
|
mercado CHAR(10),
|
|
imp_colect DECIMAL(12,2),
|
|
imp_aduana DECIMAL(12,2),
|
|
cost_std DECIMAL(12,3),
|
|
clave CHAR(10)
|
|
END RECORD
|
|
|
|
DEFINE n_reg SMALLINT
|
|
|
|
DEFINE fecha1,fecha2 DATE
|
|
DEFINE variacion,precio_std,fob,c_f,seguro,cost_pl,valor,t_fob,t_flete,
|
|
t_seguro,t_cf,t_impcol,t_impaduana,t_dollar,t_costopl,t_recibida,
|
|
t_precio,o_variacion,total_cf,o_impaduana,o_impcolect,o_dollar,o_cf,
|
|
balan_act,
|
|
ot_fob,
|
|
ot_flete,
|
|
ot_cf,
|
|
ot_seguro,
|
|
ot_impcol,
|
|
ot_impaduana,
|
|
ot_dollar,
|
|
ot_costopl,
|
|
ot_costo,
|
|
ot_precio,
|
|
ot_costst,
|
|
ot_variacion DECIMAL(12,2)
|
|
|
|
DEFINE descrip1 CHAR(30)
|
|
DEFINE t_costo, costo_unit DECIMAL(12,4)
|
|
DEFINE p_cuenta CHAR(8)
|
|
DEFINE otras_cta CHAR(8)
|
|
DEFINE tituloFecha, producto_codigo,proveedor,orden_tipo VARCHAR(250)
|
|
|
|
## DEFINICION DE LAS VARIABLES DE IMPRESION
|
|
DEFINE doble_on CHAR(2)
|
|
DEFINE doble_off CHAR(2)
|
|
DEFINE negrillas_on CHAR(2)
|
|
DEFINE negrillas_off CHAR(2)
|
|
DEFINE comp_on CHAR(2)
|
|
DEFINE comp_off CHAR(2)
|
|
DEFINE doce CHAR(2)
|
|
DEFINE normal CHAR(2)
|
|
DEFINE hora CHAR(5)
|
|
|
|
OUTPUT
|
|
## DEFINICION DE LOS MARGENES DE IMPRESION
|
|
TOP MARGIN 0
|
|
LEFT MARGIN 0
|
|
BOTTOM MARGIN 3
|
|
PAGE LENGTH 150
|
|
FORMAT
|
|
PAGE HEADER
|
|
LET hora = TIME
|
|
LET tituloFecha = "Del ",fecha_inicial USING "dd/mm/yy"," Al ",
|
|
fecha_final USING "dd/mm/yy"
|
|
|
|
FIRST PAGE HEADER
|
|
PRINTX p_compania.nombre, hora, tituloFecha
|
|
|
|
## AQUI SE INDICA LA IMPRESION DE LOS ENCABEZADOS
|
|
|
|
{ LET l = (210 - LENGTH(p_compania.nombre CLIPPED))/2
|
|
PRINT COLUMN 2, comp_on,"lqprrp007",
|
|
COLUMN l, p_compania.nombre CLIPPED,
|
|
COLUMN 210, "Pag. ",pageno using "###"
|
|
LET l = (210 - LENGTH("Sistema de Contabilidad de Costo"))/2
|
|
PRINT COLUMN l, "Sistema de Contabilidad de Costo",
|
|
COLUMN 210, today using "dd/mm/yy"
|
|
LET l = (210 - LENGTH("Liquidacion Mercancia Partes y Repuestos"))/2
|
|
PRINT COLUMN l, "Liquidacion Mercancia Partes y Repuestos",
|
|
COLUMN 210, hora
|
|
PRINT COLUMN 98, "Del ",fecha_inicial USING "dd/mm/yy"," Al ",
|
|
fecha_final USING "dd/mm/yy"
|
|
PRINT negrillas_on
|
|
PRINT COLUMN 1, "---------------------------------------------------",
|
|
"---------------------------------------------------",
|
|
"---------------------------------------------------",
|
|
"---------------------------------------------------",
|
|
"----------------------"
|
|
|
|
PRINT COLUMN 128,"GASTO"
|
|
|
|
PRINT COLUMN 50, "Reporte",
|
|
COLUMN 61, "Ordenes",
|
|
COLUMN 96, "COSTO &",
|
|
COLUMN 115, "IMPUESTO",
|
|
COLUMN 128, "ADUANAL",
|
|
COLUMN 141, "PRIMA ",
|
|
COLUMN 153, "COSTO EN",
|
|
COLUMN 166, "UNIDADES",
|
|
COLUMN 183, "COSTO",
|
|
COLUMN 194, "PRECIO",
|
|
COLUMN 206, "COSTO"
|
|
|
|
PRINT COLUMN 1, "Materiales",
|
|
COLUMN 50, "Entrada ",
|
|
COLUMN 61, "Compras",
|
|
COLUMN 76, "FOB",
|
|
COLUMN 83, "FLETE",
|
|
COLUMN 96, "FLETE",
|
|
COLUMN 104, "SEGURO",
|
|
COLUMN 115, "COLECTOR",
|
|
COLUMN 128, "Y OTROS",
|
|
COLUMN 141, "DOLLAR",
|
|
COLUMN 153, "PLANTA",
|
|
COLUMN 166, "RECIBIDA",
|
|
COLUMN 183, "UNIT.",
|
|
COLUMN 195, "STD",
|
|
COLUMN 206, "STD",
|
|
COLUMN 218, "VARIACION"
|
|
|
|
|
|
PRINT COLUMN 1, "----------------------------------------------------",
|
|
"----------------------------------------------------",
|
|
"----------------------------------------------------",
|
|
"----------------------------------------------------",
|
|
"------------------"}
|
|
|
|
IF primera = "S" THEN
|
|
LET t_fob = 0
|
|
LET t_flete = 0
|
|
LET t_seguro = 0
|
|
LET t_cf = 0
|
|
LET t_impcol = 0
|
|
LET t_impaduana = 0
|
|
LET t_dollar = 0
|
|
LET t_costopl = 0
|
|
LET t_recibida = 0
|
|
LET t_costo = 0
|
|
LET t_precio = 0
|
|
LET t_costst = 0
|
|
LET t_variacion = 0
|
|
LET o_variacion = 0
|
|
LET o_impaduana = 0
|
|
LET o_impcolect = 0
|
|
LET o_dollar = 0
|
|
LET o_cf = 0
|
|
LET idx = 1
|
|
LET primera = "N"
|
|
END IF
|
|
|
|
BEFORE GROUP OF x.clave
|
|
# Busca La suma del costo y flete
|
|
SELECT SUM(a.fob+a.costo_flete),count(*) INTO total_cf,n_reg
|
|
FROM cgtb00018 a,cgtb00017 b
|
|
WHERE (a.num_oc = x.num_oc) and (a.tipo = x.tipo) and
|
|
(b.fecha between fecha_inicial and fecha_final) and
|
|
(a.num_oc = b.num_oc and a.tipo = b.tipo) and
|
|
(a.status_t is null) and (a.rep_entrada = b.rep_entrada)
|
|
|
|
IF total_cf is null THEN
|
|
LET total_cf = 0
|
|
END IF
|
|
#PRINT negrillas_off
|
|
|
|
BEFORE GROUP OF x.num_oc
|
|
LET ot_fob =0
|
|
LET ot_flete =0
|
|
LET ot_cf =0
|
|
LET ot_seguro =0
|
|
LET ot_impcol =0
|
|
LET ot_impaduana =0
|
|
LET ot_dollar =0
|
|
LET ot_costopl =0
|
|
LET ot_costo =0
|
|
LET ot_precio =0
|
|
LET ot_costst =0
|
|
LET ot_variacion =0
|
|
ON EVERY ROW
|
|
# Busca la fecha del reporte de entrada para actualizar la tabla de
|
|
# liquidacion
|
|
LET selec =
|
|
"SELECT DISTINCT a.fecha FROM irtb00006 a ",
|
|
"WHERE a.num_doc = ? and ",
|
|
" a.cod_mov in (1,2) ",
|
|
" and a.status_t IS NULL"
|
|
|
|
PREPARE comando FROM selec
|
|
EXECUTE comando USING x.entrada INTO p_fecha
|
|
LET fob = x.precio
|
|
#-----------------------------------------------
|
|
LET seguro = 0
|
|
#-----------------------------------------------
|
|
|
|
LET c_f = fob + x.flete
|
|
# jhonny 10/4/99 LET seguro = (c_f * .10)
|
|
LET valor = c_f * x.tasa
|
|
#IF n_reg > 1 THEN
|
|
# LET x.imp_aduana = (x.imp_aduana / total_cf) * c_f
|
|
# LET x.imp_colect = (x.imp_colect / total_cf) * c_f
|
|
#END IF
|
|
IF x.mercado = "L" THEN
|
|
LET seguro = 0
|
|
LET x.imp_colect = 0
|
|
LET x.imp_aduana = 0
|
|
LET valor = 0
|
|
END IF
|
|
LET cost_pl = seguro + c_f + x.imp_colect + x.imp_aduana + valor
|
|
LET costo_unit = cost_pl / x.cantidad
|
|
LET precio_std = x.cantidad * x.cost_std
|
|
LET variacion = cost_pl - precio_std
|
|
|
|
LET producto_codigo = x.cod_n using "&&&&&","-",x.cod_grupo using "&&&&&","-",
|
|
x.cod_tipo using "&&&&&","-",x.cod_sec using "&&&&&",
|
|
" ",x.descripcion," ",x.unidad
|
|
|
|
LET proveedor = x.cod_sp using "&&","-",x.cod_sp_sec using "&&&&"
|
|
|
|
LET orden_tipo = x.num_oc using "&&&&&","-",x.tipo
|
|
|
|
DISPLAY producto_codigo,
|
|
proveedor,
|
|
orden_tipo,
|
|
x.entrada using "&&&&&&",
|
|
fob using "#,###,###.##",
|
|
x.flete using "##,###.##",
|
|
c_f using "#,###,###.##",
|
|
seguro using "##,###.##",
|
|
x.imp_colect using "#,###,###.##",
|
|
x.imp_aduana using "###,###.##",
|
|
valor using "####,###.##",
|
|
cost_pl using "####,###.##",
|
|
x.cantidad using "##,###,###.##",
|
|
costo_unit using "###,###.####",
|
|
x.cost_std using "####,###.####",
|
|
precio_std using "#####,###.##",
|
|
variacion using "--,---,---.##"
|
|
|
|
PRINTX producto_codigo,
|
|
proveedor,
|
|
orden_tipo,
|
|
x.entrada using "&&&&&&",
|
|
fob using "#,###,###.##",
|
|
x.flete using "##,###.##",
|
|
c_f using "#,###,###.##",
|
|
seguro using "##,###.##",
|
|
x.imp_colect using "#,###,###.##",
|
|
x.imp_aduana using "###,###.##",
|
|
valor using "####,###.##",
|
|
cost_pl using "####,###.##",
|
|
x.cantidad using "##,###,###.##",
|
|
costo_unit using "###,###.####",
|
|
x.cost_std using "####,###.####",
|
|
precio_std using "#####,###.##",
|
|
variacion using "--,---,---.##"
|
|
|
|
IF chstd = "S" THEN
|
|
SELECT a.cod_n FROM irtb00013 a
|
|
WHERE a.cod_n = x.cod_n AND a.cod_grupo = x.cod_grupo AND
|
|
a.cod_tipo = x.cod_tipo AND
|
|
a.cod_sec = x.cod_Sec AND a.mes_ini = "01" AND a.mes_fin = "12"
|
|
AND a.ano = p_ano
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
INSERT INTO irtb00013
|
|
VALUES ("01","12",p_ano,x.cod_n,x.cod_grupo,x.cod_tipo,x.cod_sec,
|
|
costo_unit,null, SUSER_SNAME(),GETDATE(),null,null)
|
|
|
|
END IF
|
|
END IF
|
|
INSERT INTO cttb00013
|
|
(fecha_lq ,fecha ,tipo_lq ,num_oc ,cod_n ,cod_grupo
|
|
,cod_tipo ,cod_sec ,cantidad ,costo_lq ,status_t,us_crea
|
|
,fech_crea ,us_mod ,fech_mod,tipo_orden)
|
|
|
|
|
|
VALUES (fecha_final,p_fecha,elije,x.num_oc,x.cod_n,x.cod_grupo,x.cod_tipo,
|
|
x.cod_sec,x.cantidad,costo_unit,null,SUSER_SNAME(),GETDATE(),null,null,x.tipo)
|
|
|
|
INSERT INTO cttb00032
|
|
VALUES (p_ano,m_mes,elije,x.cod_n,x.cod_grupo,x.cod_tipo,x.cod_sec,x.cod_sp,
|
|
x.cod_sp_sec,x.entrada,x.num_oc,x.tipo,fob,x.flete,c_f,seguro,
|
|
x.imp_colect,x.imp_aduana,valor,cost_pl,x.cantidad,costo_unit,
|
|
x.cost_std,precio_std,null,SUSER_SNAME(),GETDATE(),null,null)
|
|
|
|
INSERT INTO cttb000log2
|
|
(fecha_lq ,fecha ,tipo_lq ,num_oc ,cod_n ,cod_grupo
|
|
,cod_tipo ,cod_sec ,cantidad ,costo_lq ,status_t,us_crea
|
|
,fech_crea ,us_mod ,fech_mod,tipo_orden,programa)
|
|
|
|
|
|
VALUES (fecha_final,p_fecha,elije,x.num_oc,x.cod_n,x.cod_grupo,x.cod_tipo,
|
|
x.cod_sec,x.cantidad,costo_unit,null,SUSER_SNAME(),GETDATE(),null,null,x.tipo,'lqprrp007')
|
|
|
|
# Acumulacion de totales
|
|
LET t_fob = t_fob + fob
|
|
LET t_flete = t_flete + x.flete
|
|
LET t_seguro = t_seguro + seguro
|
|
LET t_cf = t_cf + c_f
|
|
LET t_impcol = t_impcol + x.imp_colect
|
|
LET t_impaduana = t_impaduana + x.imp_aduana
|
|
LET t_dollar = t_dollar + valor
|
|
LET t_costopl = t_costopl + cost_pl
|
|
LET t_costo = t_costo + costo_unit
|
|
LET t_precio = t_precio + x.cost_std
|
|
LET t_costst = t_costst + precio_std
|
|
LET t_variacion = t_variacion + variacion
|
|
LET o_variacion = o_variacion + cost_pl
|
|
LET o_impaduana = o_impaduana + x.imp_aduana + seguro
|
|
LET o_impcolect = o_impcolect + x.imp_colect
|
|
LET o_dollar = o_dollar + valor
|
|
LET o_cf = o_cf + c_f
|
|
|
|
LET ot_fob = ot_fob + fob
|
|
LET ot_flete = ot_flete + x.flete
|
|
LET ot_cf = ot_cf + c_f
|
|
LET ot_seguro = ot_seguro + seguro
|
|
LET ot_impcol = ot_impcol + x.imp_colect
|
|
LET ot_impaduana = ot_impaduana + x.imp_aduana
|
|
LET ot_dollar = ot_dollar + valor
|
|
LET ot_costopl = ot_costopl + cost_pl
|
|
LET ot_costo = ot_costo + costo_unit
|
|
LET ot_precio = ot_precio + x.cost_std
|
|
LET ot_costst = ot_costst + precio_std
|
|
LET ot_variacion = ot_variacion + variacion
|
|
|
|
|
|
AFTER GROUP OF x.num_oc
|
|
# Validacion del arreglo para imprimir la entrada 27
|
|
|
|
IF imp_entrada = "S" THEN
|
|
LET entrada27[idx].cuenta_no = "1161"
|
|
LET entrada27[idx].cod_aux = x.cod_sp
|
|
LET entrada27[idx].cod_sec = x.cod_sp_sec
|
|
LET entrada27[idx].num_doc = x.num_oc
|
|
LET entrada27[idx].valor = o_impaduana
|
|
LET o_impaduana = 0
|
|
LET idx = idx + 1
|
|
LET entrada27[idx].cuenta_no = "1161-01"
|
|
LET entrada27[idx].cod_aux = x.cod_sp
|
|
LET entrada27[idx].cod_sec = x.cod_sp_sec
|
|
LET entrada27[idx].num_doc = x.num_oc
|
|
LET entrada27[idx].valor = o_impcolect
|
|
LET o_impcolect = 0
|
|
LET idx = idx + 1
|
|
|
|
LET entrada27[idx].cuenta_no = "1161-02"
|
|
LET entrada27[idx].cod_aux = x.cod_sp
|
|
LET entrada27[idx].cod_sec = x.cod_sp_sec
|
|
LET entrada27[idx].num_doc = x.num_oc
|
|
LET entrada27[idx].valor = o_dollar
|
|
LET o_dollar = 0
|
|
LET idx = idx + 1
|
|
|
|
LET entrada27[idx].cuenta_no = "1161-03"
|
|
LET entrada27[idx].cod_aux = x.cod_sp
|
|
LET entrada27[idx].cod_sec = x.cod_sp_sec
|
|
LET entrada27[idx].num_doc = x.num_oc
|
|
LET entrada27[idx].valor = o_cf
|
|
LET o_cf = 0
|
|
LET idx = idx + 1
|
|
END IF
|
|
|
|
PRINTX ot_fob using "#,###,###.##",
|
|
ot_flete using "##,###.##",
|
|
ot_cf using "###,###.##",
|
|
ot_seguro using "##,###.##",
|
|
ot_impcol using "####,###.##",
|
|
ot_impaduana using "####,###.##",
|
|
ot_dollar using "##,###,###.##",
|
|
ot_costopl using "##,###,###.##",
|
|
ot_costo using "####,###.##",
|
|
ot_precio using "####,###.####",
|
|
ot_costst using "##,###,###.####",
|
|
ot_variacion using "--,---,---.##"
|
|
SKIP 1 LINE
|
|
#-------------------------------------------------------------------------
|
|
ON LAST ROW
|
|
|
|
|
|
PRINTX t_fob using "#,###,###.##",
|
|
t_flete using "##,###.##",
|
|
t_cf using "###,###.##",
|
|
t_seguro using "##,###.##",
|
|
t_impcol using "####,###.##",
|
|
t_impaduana using "####,###.##",
|
|
t_dollar using "##,###,###.##",
|
|
t_costopl using "##,###,###.##",
|
|
t_costo using "####,###.##",
|
|
t_precio using "####,###.####",
|
|
t_costst using "##,###,###.####",
|
|
t_variacion using "--,---,---.##"
|
|
END REPORT
|
|
|
|
{
|
|
-------------------------------------------------------------------------------
|
|
PROGRAMA : EDPRRP027
|
|
OBJETIVO : Listar las Entrada de Diario Partes y Repuestos
|
|
PROGRAMADOR : Juan F. Soto
|
|
FECHA REALIZACION : Noviembre 27, 1996.
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
FUNCTION entrada0271()
|
|
DEFINE longitud,u_mes,ultimo,numero_ent SMALLINT,
|
|
ch_ano,tiempo CHAR(4)
|
|
|
|
|
|
# WHENEVER ERROR CONTINUE
|
|
|
|
OPTIONS
|
|
FORM LINE 8,
|
|
ERROR LINE 23,
|
|
COMMENT LINE 21
|
|
|
|
##### Abriendo y desplegando el formulario de captura de datos
|
|
|
|
OPEN FORM entrada27 FROM "lqfmfu002"
|
|
DISPLAY FORM entrada27
|
|
DISPLAY "entrada029" AT 4,3
|
|
DISPLAY "Entrada de Diario Partes y Repuestos" AT 6,16
|
|
|
|
LET tipo_papel = 1
|
|
CALL msgrp000(tipo_papel)
|
|
|
|
###### Aceptando los valores para el rango de fecha
|
|
|
|
INPUT BY NAME entra,fecha1,fecha2,afecta,detalla
|
|
BEFORE INPUT
|
|
LET numero_ent = 29
|
|
LET fecha1 =fecha_inicial
|
|
LET fecha2 =fecha_final
|
|
DISPLAY BY NAME fecha1,fecha2
|
|
|
|
LET entra = 'ED.',numero_ent USING "&&"
|
|
LET ch_ano = YEAR(fecha1) USING "&&&&"
|
|
|
|
SELECT MAX(mes) INTO u_mes FROM prdtable
|
|
WHERE @ano = p_ano and fecha_inicio >= fecha1 AND
|
|
fecha_corte <= fecha2
|
|
|
|
LET tiempo = u_mes USING "&&",ch_ano[3,4]
|
|
# SELECT MAX(a.ref[7,9]) INTO ultimo FROM cgtb00004 a
|
|
# WHERE a.ref[4,5] = numero_ent and a.ref[11,14] = tiempo
|
|
|
|
# IF ultimo is null THEN
|
|
# LET ultimo = 0
|
|
# END IF
|
|
# LET ultimo = ultimo + 1
|
|
LET entra = entra CLIPPED,'-',ultimo using "&&&","/",
|
|
tiempo
|
|
DISPLAY BY NAME entra
|
|
|
|
AFTER FIELD entra
|
|
LET longitud = LENGTH(entra)
|
|
IF longitud != 14 THEN
|
|
LET numero_msg = 77
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD entra
|
|
END IF
|
|
SELECT unique a.ref FROM cgtb00004 a WHERE a.ref=entra AND a.status_t IS NULL
|
|
|
|
IF STATUS != NOTFOUND THEN
|
|
ERROR "(12) REGISTRO EXISTE"
|
|
NEXT FIELD entra
|
|
END IF
|
|
|
|
LET entra1 = entra
|
|
|
|
BEFORE FIELD fecha1
|
|
SELECT MAX (Convert(varchar(10),(a.fecha),103)) INTO p_fecha FROM cgtb00004 a
|
|
WHERE a.ref[1,5] = entra1 AND a.status_t IS NULL
|
|
LET fecha1 = p_fecha + 1
|
|
|
|
DISPLAY BY NAME fecha1
|
|
|
|
AFTER FIELD fecha1
|
|
IF fecha1 IS NULL THEN
|
|
ERROR "(16) CAMPO EN BLANCO"
|
|
NEXT FIELD fecha1
|
|
END IF
|
|
|
|
IF fecha1 <= p_fecha THEN
|
|
LET existe = "S"
|
|
END IF
|
|
|
|
AFTER FIELD fecha2
|
|
IF fecha2 is null THEN
|
|
ERROR "(16) CAMPO EN BLANCO"
|
|
NEXT FIELD fecha2
|
|
END IF
|
|
|
|
IF fecha1 > fecha2 THEN
|
|
ERROR "(149) FECHA NO PUEDE SER MAYOR QUE LA ANTERIOR"
|
|
NEXT FIELD fecha1
|
|
END IF
|
|
|
|
###### Selecionando en rango de fecha de la tabla de periodo para el fecha2
|
|
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
ERROR "(2) OPERACION CANCELADA"
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
END INPUT
|
|
##### Creando la facilidad para cancelar proceso con SUPR
|
|
|
|
LET idx = idx - 1
|
|
# Busca la informacion requerida
|
|
|
|
DISPLAY "<< Buscando Informacion ... Espere Por Favor. >>" AT 19,14
|
|
ATTRIBUTE (REVERSE,BOLD)
|
|
|
|
|
|
|
|
|
|
CALL seleccionarsalida() RETURNING salida
|
|
CALL configureoutput(salida) RETURNING HANDLER
|
|
START REPORT entrada641 TO XML HANDLER handler
|
|
|
|
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
|
|
AT 19,14 ATTRIBUTE (REVERSE)
|
|
|
|
##### Loop para enviar informacion al reporte
|
|
DECLARE buscar CURSOR FOR
|
|
SELECT '1135-01',SUM(c.cantidad_oc*b.costo_st)
|
|
FROM irtb00013 b,cgtb00018 c,cgtb00017 d
|
|
WHERE b.status_t IS NULL and (b.cod_n = c.cod_n and
|
|
b.cod_grupo = c.cod_grupo and b.cod_tipo = c.cod_tipo and
|
|
b.cod_sec = c.cod_sec) and (c.num_oc = d.num_oc) and
|
|
d.fecha BETWEEN fecha1 AND fecha2 AND d.status_t IS NULL
|
|
|
|
OPEN buscar
|
|
WHILE STATUS != NOTFOUND
|
|
FETCH buscar INTO diario1.*
|
|
|
|
IF status = NOTFOUND THEN
|
|
EXIT WHILE
|
|
END IF
|
|
|
|
IF int_flag THEN
|
|
ERROR "(2) OPERACION CANCELADA"
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
LET diario1.debito = t_costst
|
|
OUTPUT TO REPORT entrada641(diario1.*,fecha1,fecha2,detalla,entra)
|
|
END WHILE
|
|
FINISH REPORT entrada641
|
|
|
|
END FUNCTION
|
|
|
|
#### Funcion para dar salida ordenada a la informacion requerida de
|
|
#### una entrada de diario de nominas local
|
|
|
|
REPORT entrada641(x,fecha1,fecha2,detalle1,entrada)
|
|
|
|
DEFINE x RECORD
|
|
cuenta_no CHAR(8),
|
|
debito DECIMAL(10,2)
|
|
END RECORD
|
|
|
|
### Acumula los valores de las diferentes cuentas para entrada diario de nomina
|
|
DEFINE debito,credito DECIMAL(12,2)
|
|
DEFINE detalle1 CHAR(30)
|
|
DEFINE mano_obra,sueldo_ind,monto_banco DECIMAL(12,2)
|
|
DEFINE total1,total2,total3,total4,total5,total6 DECIMAL(12,2)
|
|
DEFINE total7,total8 DECIMAL(12,2) ## Acumula los totales DEBITO Y CREDITO
|
|
DEFINE tasa1 DECIMAL(5,2) ## Almacena la tasa de la tasa de cambio
|
|
DEFINE fecha1,fecha2 DATE #### Almacena las fecha del rango de busqueda
|
|
DEFINE nomina CHAR(1)
|
|
DEFINE doble_on CHAR(2)
|
|
DEFINE doble_off CHAR(2)
|
|
DEFINE negrillas_on CHAR(6)
|
|
DEFINE negrillas_off CHAR(6)
|
|
DEFINE comp_on CHAR(2)
|
|
DEFINE comp_off CHAR(2)
|
|
DEFINE doce CHAR(2)
|
|
DEFINE normal CHAR(2)
|
|
DEFINE normall CHAR(3)
|
|
DEFINE comprimido CHAR(3)
|
|
DEFINE hora CHAR(5)
|
|
DEFINE dpto INTEGER
|
|
DEFINE nomina1 CHAR(24)
|
|
DEFINE entrada CHAR(14)
|
|
|
|
OUTPUT
|
|
TOP MARGIN 0
|
|
LEFT MARGIN 0
|
|
BOTTOM MARGIN 2
|
|
PAGE LENGTH 150
|
|
|
|
FORMAT
|
|
PAGE HEADER
|
|
{ LET doble_on = ASCII 14
|
|
LET negrillas_on = ASCII 27, ASCII 69
|
|
LET negrillas_off = ASCII 27, ASCII 70
|
|
LET comp_on = ASCII 15
|
|
LET comp_off = ASCII 18
|
|
LET doce = ASCII 27,ASCII 77
|
|
LET normal = ASCII 27, ASCII 80}
|
|
LET hora = time
|
|
|
|
##### Selecionado la descripcion del fecha2
|
|
|
|
LET l = (100 - LENGTH(p_compania.nombre CLIPPED))/2
|
|
PRINT COLUMN 2, normal,doce,comp_off,comp_on,"lqprrp009",
|
|
COLUMN l, p_compania.nombre CLIPPED,
|
|
COLUMN 90, "Pag. ",pageno using "###"
|
|
LET l = (100 - LENGTH("Sistema de Contabilidad de Costo"))/2
|
|
PRINT COLUMN l, "Sistema de Contabilidad de Costo",
|
|
COLUMN 90, today using "dd/mm/yy"
|
|
LET l = (100 - LENGTH("Entrada de Diario Liquidacion Partes Y Repuestos"))/2
|
|
PRINT COLUMN l, "Entrada de Diario Liquidacion Partes Y Repuestos",
|
|
COLUMN 90, hora
|
|
PRINT COLUMN 1, "Del ",fecha_inicial USING "dd/mm/yy"," Al ",
|
|
fecha_final USING "dd/mm/yy"
|
|
# , negrillas_off
|
|
|
|
SKIP 1 LINE
|
|
|
|
PRINT COLUMN 01,"Entrada de Diario No.",
|
|
doble_on,entrada
|
|
|
|
PRINT COLUMN 1,"Observaciones: _____________________________________"
|
|
PRINT COLUMN 1," _____________________________________"
|
|
|
|
PRINT doce
|
|
PRINT COLUMN 1,
|
|
"--------------------------------------------------",
|
|
"--------------------------------------------------",
|
|
negrillas_on
|
|
|
|
PRINT COLUMN 2, "Cuenta ",
|
|
COLUMN 11, "Dpto",
|
|
COLUMN 17, "Catalogo",
|
|
COLUMN 26, "Refe",
|
|
COLUMN 41, "Concepto",
|
|
COLUMN 75, "Debe",
|
|
COLUMN 93, "Haber",negrillas_off
|
|
|
|
PRINT COLUMN 1,
|
|
"--------------------------------------------------",
|
|
"--------------------------------------------------",
|
|
negrillas_off
|
|
SKIP 1 LINE
|
|
|
|
IF debito is null THEN
|
|
LET debito = 0
|
|
END IF
|
|
ON EVERY ROW
|
|
PRINT COLUMN 4, x.cuenta_no,
|
|
COLUMN 35, "INVENTARIO REPUESTOS",
|
|
COLUMN 66, x.debito using "###,###,##&.&&"
|
|
LET debito = debito + x.debito
|
|
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004
|
|
(fecha
|
|
,tipo
|
|
,ref
|
|
,cuenta_no
|
|
,detalle_1
|
|
,debito
|
|
,credito
|
|
,us_crea
|
|
,fech_crea
|
|
|
|
)
|
|
VALUES(fecha2,1,entrada,x.cuenta_no,detalle1,x.debito,0,SUSER_SNAME(),GETDATE()
|
|
)
|
|
|
|
END IF
|
|
|
|
ON LAST ROW
|
|
IF credito is null THEN
|
|
LET credito = 0
|
|
END IF
|
|
###### Acumulando totales por columna
|
|
PRINT COLUMN 4, "5501",
|
|
COLUMN 35, "VARIACION COSTO INDIRECTO";
|
|
|
|
IF t_variacion > 0 THEN
|
|
PRINT COLUMN 66, t_variacion USING "###,###,##&.&&"
|
|
LET debito = debito + t_variacion
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004
|
|
(fecha
|
|
,tipo
|
|
,ref
|
|
,cuenta_no
|
|
,detalle_1
|
|
,debito
|
|
,credito
|
|
,us_crea
|
|
,fech_crea
|
|
|
|
)
|
|
VALUES (fecha2,1,entrada,"5501",detalle1,
|
|
t_variacion,0,SUSER_SNAME(),GETDATE())
|
|
END IF
|
|
ELSE
|
|
PRINT COLUMN 84, t_variacion using "###,###,##&.&&"
|
|
LET t_variacion = t_variacion * -1
|
|
LET credito = credito + t_variacion
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004
|
|
(fecha
|
|
,tipo
|
|
,ref
|
|
,cuenta_no
|
|
,detalle_1
|
|
,debito
|
|
,credito
|
|
,us_crea
|
|
,fech_crea
|
|
|
|
)
|
|
VALUES (fecha2,1,entrada,"5501",detalle1,
|
|
0,t_variacion,SUSER_SNAME(),GETDATE())
|
|
END IF
|
|
END IF
|
|
# Impresion detalle de la entrada con ordenes de compras
|
|
FOR i = 1 TO idx
|
|
IF entrada27[i].cod_aux is not null THEN
|
|
|
|
IF entrada27[i].valor < 0 THEN
|
|
LET entrada27[i].valor = entrada27[i].valor * -1
|
|
END IF
|
|
|
|
PRINT COLUMN 4, entrada27[i].cuenta_no,
|
|
COLUMN 17, entrada27[i].cod_aux using "&&","-",
|
|
entrada27[i].cod_sec using "&&&&",
|
|
COLUMN 26, entrada27[i].num_doc using "&&&&&&",
|
|
COLUMN 84, entrada27[i].valor using "###,###,##&.&&"
|
|
IF entrada27[i].valor is not null THEN
|
|
LET credito = credito + entrada27[i].valor
|
|
END IF
|
|
END IF
|
|
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004
|
|
(fecha
|
|
,tipo
|
|
,ref
|
|
,cuenta_no
|
|
,num_doc
|
|
,cod_aux
|
|
,cod_sec
|
|
,detalle_1
|
|
,debito
|
|
,credito
|
|
,us_crea
|
|
,fech_crea
|
|
|
|
)
|
|
VALUES (fecha2,1,entrada,entrada27[i].cuenta_no,
|
|
entrada27[i].num_doc,entrada27[i].cod_aux,
|
|
entrada27[i].cod_sec,detalle1,0,entrada27[i].valor,SUSER_SNAME(),GETDATE())
|
|
END IF
|
|
END FOR
|
|
|
|
###### Imprime total DEBITO y total CREDITO
|
|
SKIP 1 LINE
|
|
PRINT COLUMN 1,negrillas_on
|
|
PRINT COLUMN 66,"--------------",
|
|
COLUMN 84,"--------------"
|
|
PRINT COLUMN 35,"Totales-->",
|
|
COLUMN 66,debito USING "###,###,##&.&&",
|
|
COLUMN 84,credito USING "###,###,##&.&&",negrillas_off
|
|
LET debito = 0
|
|
LET credito = 0
|
|
SKIP 2 LINE
|
|
PRINT COLUMN 1, detalle1
|
|
PRINT COLUMN 1,comp_off,negrillas_off
|
|
SKIP 4 LINE
|
|
END REPORT
|