jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
d536ad58bbae90ba8cae5a5f72cc2198bfe87823
MBS/PROYECTO/PRDIR/prprmt008b.4gl
T

1378 lines
49 KiB
Plaintext
Raw Blame History

{
------------------------------------------------------------------
PROGRAMA : PRPRMT008
OBJETIVO : Ordenes de Pedidos
PROGRAMADOR : Oscar Castillo
FECHA REALIZACION : Sábado 12 de Agosto de 2000
MODIFICADO POR : Victor Gomez C
FECHA MODIFICACION: Wednesday, 10 January, 2001
MODIFICADO POR : Victor Gomez C
FECHA MODIFICACION: Tuesday, January 16, 2001
Crear campos observacion y fecha de cierre de la
orden de produccion.
------------------------------------------------------------------
}
GLOBALS "prprgb000.4gl"
DEFINE nombre LIKE vetb00004.nombre,
descrip_esp_c,descrip_esp LIKE iptb00002.descrip_esp,
unidad LIKE iptb00002.unidad_med,
unidad_c LIKE intb00001.unidad_med,
descrip CHAR(20),
esta,opt4 CHAR(1),
nombre_vend,nombres,apellidos CHAR(40),fcalle CHAR(25),
fcasa_num CHAR(5), fbarrio,furbanizacion CHAR(15),
nombmp CHAR(120),
monto_desc,total1,p_costos1,total_i,total_mo DECIMAL(12,2),
ult_numero INTEGER,
vetb05 RECORD LIKE vetb00005.*
DEFINE archivo,filename,sysos CHAR(120),
cels CHAR(20),
cnt SMALLINT
DEFINE primera,imprime_ana,imprime_cliente CHAR(1),
cliente CHAR(70),
codigo_g,codigo_ant,codigo_act CHAR(6),
ret CHAR(30),
ejecuta,localiza CHAR(80),
documento CHAR(9)
DEFINE numero_oc INTEGER,
f_itbis DEC(3,2)
DEFINE total_v,sub_total,sub_total1,sub_total2,balance DECIMAL(10,2),
descrip_p CHAR(30)
DEFINE prtb08 RECORD LIKE prtb00012.*,
prtb09 RECORD LIKE prtb00009.*
DEFINE p_totales RECORD
sub_total DEC(8,2), #-> Sub-Total de los Productos menos descuento
unidad_med CHAR(4), #-> Unidad de medida del producto
total_v DEC(10,2) #-> Total de la venta
END RECORD
DEFINE arr_prtb08 ARRAY[200] OF RECORD
fila SMALLINT,
cod_n LIKE prtb00013.cod_n,
cod_grupo LIKE prtb00013.cod_grupo,
cod_tipo LIKE prtb00013.cod_tipo,
cod_sec LIKE prtb00013.cod_sec,
altura_zocalo LIKE prtb00013.altura_zocalo,
terminacion CHAR(1),
bisel LIKE prtb00013.bisel,
cantidad LIKE prtb00013.cantidad,
precio LIKE prtb00013.precio,
descuento LIKE prtb00013.descuento,
total_p DECIMAL(10,2)
END RECORD
FUNCTION prprmt008()
# WHENEVER ERROR CONTINUE
CLEAR SCREEN
OPTIONS
FORM LINE 8,
ERROR LINE 23,
COMMENT LINE 23
CALL pantalla()
OPEN FORM ctfmmt008 FROM "prfmmt008"
DISPLAY FORM ctfmmt008
CALL pantalla()
DISPLAY "prprmt008" AT 4,3
DISPLAY "Orden De Pedido" AT 6,32
MENU "OPCIONES"
COMMAND "Adicionar" "<Esc> Adiciona Registro <Supr> Cancela Operacion"
LET INT_FLAG = FALSE
CLEAR FORM
CALL prpcad008()
COMMAND "Consultar"
LET INT_FLAG = FALSE
CLEAR FORM
CALL prpcmf008()
COMMAND "Salir" "Retorna Menu Anterior"
EXIT MENU
END MENU
END FUNCTION
FUNCTION prpcad008()
## Captura los datos que va a contener el registro
LET INT_FLAG = false
{ SELECT MAX(num_oc) INTO ult_numero
FROM prtb00012
IF ult_numero IS NULL THEN
LET ult_numero = 0
END IF
LET ult_numero = ult_numero + 1 }
LET prtb08.num_oc = 0
LET prtb08.fecha_entrega = TODAY + 15
LABEL vuelve:
INPUT BY NAME prtb08.num_oc,prtb08.fecha_oc,prtb08.tipo_cliente,
prtb08.sec_cliente,prtb08.sec_vend,prtb08.fecha_entrega,
prtb08.cond_pago,prtb08.ubicacion WITHOUT DEFAULTS
ON KEY(CONTROL-W)
CASE
WHEN INFIELD(sec_vend)
CALL vendedor8es()
DISPLAY BY NAME prtb07.sec_vend,nombre_vend ATTRIBUTE(BLUE)
EXIT CASE
WHEN INFIELD (tipo_cliente)
CALL busca_cliente8()
DISPLAY BY NAME prtb08.tipo_cliente,prtb08.sec_cliente,nombre ATTRIBUTE(BLUE)
EXIT CASE
WHEN INFIELD (sec_cliente)
CALL busca_cliente8()
DISPLAY BY NAME prtb08.tipo_cliente,prtb08.sec_cliente,nombre ATTRIBUTE(BLUE)
EXIT CASE
END CASE
AFTER FIELD sec_cliente
IF prtb08.sec_cliente IS NOT NULL THEN
SELECT a.telefono, a.fax INTO prtb08.telefono, prtb08.fax
FROM vetb00004 a
WHERE a.tipo_cliente = prtb08.tipo_cliente
AND a.sec_cliente = prtb08.sec_cliente
SELECT b.calle,b.casa_num,b.barrio,b.urbanizacion
INTO fcalle,fcasa_num,fbarrio,furbanizacion
FROM vetb00005 b
WHERE b.tipo_cliente = prtb08.tipo_cliente
AND b.sec_cliente = prtb08.sec_cliente
LET prtb08.direccion = fcalle CLIPPED,",",fcasa_num CLIPPED,",",
fbarrio CLIPPED,",",furbanizacion CLIPPED
DISPLAY BY NAME prtb08.telefono, prtb08.fax, prtb08.direccion
END IF
AFTER FIELD fecha_entrega
IF prtb08.fecha_entrega IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD fecha_entrega
END IF
IF prtb08.fecha_entrega < prtb08.fecha_oc THEN
LET numero_msg =51
CALL msg(numero_msg)
NEXT FIELD fecha_entrega
END IF
{
AFTER FIELD nombre_file
LET nombmp = FGL_GETENV("FGLBMP")
LET nombmp = nombmp CLIPPED,prtb08.nombre_file CLIPPED,".bmp"
DISPLAY nombmp TO bmpfld
}
AFTER FIELD sec_vend
IF prtb08.sec_vend IS NOT NULL THEN
SELECT a.nom1_emp,a.apell1_emp INTO nombres,apellidos
FROM adtb00003 a
WHERE a.num_emp = prtb08.sec_vend
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD sec_vend
END IF
LET nombre_vend = nombres CLIPPED," ",apellidos CLIPPED
DISPLAY BY NAME nombre_vend ATTRIBUTE(BLUE)
END IF
BEFORE FIELD fecha_oc
LET prtb08.fecha_oc = TODAY
DISPLAY BY NAME prtb08.fecha_oc ATTRIBUTE(BLUE)
AFTER FIELD fecha_oc
IF prtb08.fecha_oc > TODAY THEN
LET numero_msg = 189
CALL msg(numero_msg)
NEXT FIELD fecha_oc
END IF
AFTER FIELD cond_pago
IF prtb08.cond_pago IS NULL THEN
LET numero_msg = 12
CALL msg(numero_msg)
NEXT FIELD cond_pago
END IF
SELECT a.descrip INTO descrip_p
FROM vetb00012 a
WHERE a.cond_pago = prtb08.cond_pago AND
a.status_t IS NULL
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cond_pago
END IF
DISPLAY BY NAME descrip_p ATTRIBUTE(BLUE)
AFTER FIELD sec_cliente
SELECT a.nombre,a.telefono,a.fax
INTO nombre,prtb08.telefono,prtb08.fax
FROM vetb00004 a
WHERE a.tipo_cliente = prtb08.tipo_cliente AND
a.sec_cliente = prtb08.sec_cliente AND
a.status_t IS NULL
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD tipo_cliente
END IF
SELECT a.* INTO vetb05.*
FROM vetb00005 a
WHERE a.tipo_cliente = prtb08.tipo_cliente AND
a.sec_cliente = prtb08.sec_cliente
LET prtb08.direccion = vetb05.calle CLIPPED," ",vetb05.casa_num CLIPPED,vetb05.barrio CLIPPED
DISPLAY BY NAME prtb08.direccion,prtb08.telefono,nombre ATTRIBUTE(BLUE)
SELECT SUM(a.valor) INTO balance
FROM cctb00001 a
WHERE a.tipo_cliente = prtb08.tipo_cliente
AND a.sec_cliente = prtb08.sec_cliente
AND a.status_t IS NULL
IF balance IS NULL THEN
LET balance = 0
END IF
DISPLAY BY NAME balance
AFTER INPUT
IF INT_FLAG THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET INT_FLAG = FALSE
RETURN
END IF
END INPUT
LET p_totales.sub_total = 0
LET prtb08.cantidad_i = 0
LET prtb08.precio_i = 0
LET prtb08.cantidad_mo = 0
LET prtb08.precio_mo = 0
LET prtb08.transporte = 0
LET prtb08.itbis = 0
LET p_totales.total_v = 0
INPUT ARRAY arr_prtb08 FROM s_pedido.*
BEFORE ROW
LET curr = arr_curr()
LET scr_l = scr_line()
LET sub_total = 0
BEFORE FIELD cod_n
LET arr_prtb08[curr].fila = arr_curr()
DISPLAY arr_prtb08[curr].fila TO s_pedido[scr_l].fila
AFTER FIELD cod_sec
LET descrip_esp = NULL
LET p_totales.unidad_med = NULL
IF arr_prtb08[curr].cod_sec IS NOT NULL THEN
SELECT a.descrip_esp, a.unidad_med INTO descrip_esp,p_totales.unidad_med
FROM iptb00002 a
WHERE a.cod_n = arr_prtb08[curr].cod_n AND
a.cod_tipo = arr_prtb08[curr].cod_tipo AND
a.cod_grupo = arr_prtb08[curr].cod_grupo AND
a.cod_sec = arr_prtb08[curr].cod_sec AND
a.status_t IS NULL
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
DISPLAY BY NAME descrip_esp,p_totales.unidad_med
LET p_costos1 = 0
SELECT MAX(precio) INTO p_costos1 FROM vetb00025 a
WHERE a.tipo_cliente = prtb08.tipo_cliente AND
a.sec_cliente = prtb08.sec_cliente AND
a.cod_n = arr_prtb08[curr].cod_n AND
a.cod_grupo = arr_prtb08[curr].cod_grupo AND
a.cod_tipo = arr_prtb08[curr].cod_tipo AND
a.cod_sec = arr_prtb08[curr].cod_sec AND
a.status_t IS NULL
IF STATUS = NOTFOUND THEN
SELECT MAX(precio) INTO p_costos1 FROM vetb00025 a
WHERE a.tipo_cliente IS NULL AND
a.cod_n = arr_prtb08[curr].cod_n AND
a.cod_tipo = arr_prtb08[curr].cod_tipo AND
a.cod_grupo = arr_prtb08[curr].cod_grupo AND
a.cod_sec = arr_prtb08[curr].cod_sec AND
a.status_t IS NULL
IF STATUS = NOTFOUND THEN
LET numero_msg = 85
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
END IF
LET arr_prtb08[curr].precio = p_costos1
DISPLAY arr_prtb08[curr].precio TO s_pedido[scr_l].precio
END IF
AFTER FIELD terminacion
IF arr_prtb08[curr].terminacion IS NOT NULL THEN
IF arr_prtb08[curr].terminacion <> "R" AND
arr_prtb08[curr].terminacion <> "P" THEN
NEXT FIELD terminacion
END IF
END IF
DISPLAY arr_prtb08[curr].terminacion TO s_pedido[scr_l].terminacion ATTRIBUTE(BLUE)
AFTER FIELD bisel
{ IF arr_prtb08[curr].bisel IS NOT NULL THEN
IF arr_prtb08[curr].bisel <> "DBN" AND
arr_prtb08[curr].bisel <> "SDN" THEN
NEXT FIELD bisel
END IF
END IF }
DISPLAY arr_prtb08[curr].bisel TO s_pedido[scr_l].bisel ATTRIBUTE(BLUE)
AFTER FIELD cantidad
IF arr_prtb08[curr].cantidad IS NULL OR
arr_prtb08[curr].cantidad < 0 THEN
LET arr_prtb08[curr].descuento = 0
END IF
AFTER FIELD precio
IF arr_prtb08[curr].precio IS NULL OR
arr_prtb08[curr].precio < 0 THEN
LET arr_prtb08[curr].descuento = 0
END IF
BEFORE FIELD descuento
LET monto_desc = 0
LET total1 = 0
AFTER FIELD descuento
IF arr_prtb08[curr].descuento IS NULL THEN
LET arr_prtb08[curr].descuento = 0
END IF
LET monto_desc = (arr_prtb08[curr].precio * arr_prtb08[curr].cantidad) *
(arr_prtb08[curr].descuento /100)
LET total1 = (arr_prtb08[curr].precio * arr_prtb08[curr].cantidad) - monto_desc
LET arr_prtb08[curr].total_p = total1
LET p_totales.sub_total = p_totales.sub_total + arr_prtb08[curr].total_p
DISPLAY arr_prtb08[curr].total_p TO s_pedido[scr_l].total_p
DISPLAY BY NAME p_totales.sub_total
AFTER ROW
LET p_totales.sub_total = 0
FOR idx = 1 TO arr_count()
IF arr_prtb08[idx].total_p IS NOT NULL THEN
LET p_totales.sub_total = p_totales.sub_total + arr_prtb08[idx].total_p
END IF
END FOR
DISPLAY BY NAME p_totales.sub_total
AFTER INPUT
IF INT_FLAG THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET INT_FLAG = FALSE
RETURN
END IF
LET p_totales.sub_total = 0
FOR idx = 1 TO arr_count()
IF arr_prtb08[idx].total_p IS NOT NULL THEN
LET p_totales.sub_total = p_totales.sub_total + arr_prtb08[idx].total_p
END IF
END FOR
EXIT INPUT
END INPUT
DISPLAY BY NAME p_totales.sub_total
INPUT BY NAME prtb08.cantidad_i,prtb08.precio_i,prtb08.cantidad_mo,
prtb08.precio_mo,prtb08.transporte,prtb08.itbis WITHOUT DEFAULTS
AFTER FIELD cantidad_i
IF prtb08.cantidad_i IS NULL THEN
LET prtb08.cantidad_i = 0
END IF
AFTER FIELD precio_i
IF prtb08.precio_i IS NULL THEN
LET prtb08.precio_i = 0
END IF
LET total_i = (prtb08.cantidad_i * prtb08.precio_i)
AFTER FIELD cantidad_mo
IF prtb08.cantidad_mo IS NULL THEN
LET prtb08.cantidad_mo = 0
END IF
AFTER FIELD precio_mo
IF prtb08.precio_mo IS NULL THEN
LET prtb08.precio_mo = 0
END IF
LET total_mo = (prtb08.cantidad_mo * prtb08.precio_mo)
AFTER FIELD transporte
LET sub_total = (total_i + total_mo)+ p_totales.sub_total
LET sub_total1 = sub_total + prtb08.transporte
#-> Bsuca el itbis disponible para la fecha actual vg
IF prtb08.tipo_cliente <> 13 THEN
SELECT i.itbi/100 INTO f_itbis FROM vetb00019 i
WHERE i.disponible = "S"
LET prtb08.itbis = (sub_total1 * f_itbis)
ELSE
LET prtb08.itbis = 0
END IF
DISPLAY BY NAME prtb08.itbis
LET p_totales.total_v = sub_total1 + prtb08.itbis
DISPLAY BY NAME p_totales.total_v
AFTER INPUT
IF INT_FLAG THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET INT_FLAG = FALSE
RETURN
END IF
EXIT INPUT
END INPUT
PROMPT "TODA LA INFORMACION ESTA CORRECTA? " FOR opt4
LET opt4 = upshift(opt4)
IF opt4 = "S" THEN
SELECT MAX(num_oc) INTO ult_numero FROM prtb00012
IF ult_numero IS NULL THEN
LET ult_numero = 0
END IF
LET ult_numero = ult_numero + 1
LET prtb08.num_oc = ult_numero
DISPLAY BY NAME prtb08.num_oc SLEEP 2
START REPORT o_pedido TO "c:\\ordenp"
#->LET prtb08.nombre_file = prtb08.nombre_file CLIPPED, ".BMP"
LET prtb08.fecha_cierre = NULL
#-> Actualiza archivo para el monitoreo de las ordenes vg Wednesday, 14 February, 2001
LET prtb09.num_oc = prtb08.num_oc
LET prtb09.fecha = prtb08.fecha_oc
LET prtb09.pendiente = "S"
LET prtb09.detalle = "SE GENERO LA ORDEN DE PEDIDO"
LET prtb09.status_t = NULL
INSERT INTO prtb00012 VALUES (prtb08.*)
INSERT INTO prtb00009 VALUES (prtb09.*)
UPDATE prtb00012 SET us_crea = USER,
fech_crea = CURRENT
WHERE @num_oc = prtb08.num_oc
UPDATE prtb00009 SET us_crea = USER,
fech_crea = CURRENT
WHERE @num_oc = prtb09.num_oc
# SE ESTA VALIDANDO EL PRODUCTO TERMINADO EN EL CODIGO DE LA MATERIA PRIMA
# PARA CUANDO LA ORDEN SEA PARA PRODUCTOS IMPORTADOS QUE NO TIENEN COMPOSICION
FOR idx = 1 TO arr_count()
IF arr_prtb08[idx].total_p IS NOT NULL THEN
INSERT INTO prtb00013 VALUES (prtb08.num_oc,
arr_prtb08[idx].cod_n,
arr_prtb08[idx].cod_grupo,
arr_prtb08[idx].cod_tipo,
arr_prtb08[idx].cod_sec,
arr_prtb08[idx].altura_zocalo,
arr_prtb08[idx].terminacion,
arr_prtb08[idx].bisel,
arr_prtb08[idx].precio,
arr_prtb08[idx].cantidad,
arr_prtb08[idx].descuento,
null,user,current,null,null)
OUTPUT TO REPORT o_pedido(prtb08.num_oc,arr_prtb08[idx].*)
END IF
END FOR
FINISH REPORT o_pedido
RUN "TYPE c:\\ordenp > LPT4"
RUN "TYPE c:\\ordenp > LPT5"
LET numero_msg = 1
CALL msg(numero_msg)
ELSE
GOTO vuelve
END IF
CLEAR FORM
END FUNCTION
FUNCTION prpcmf008()
## Aqui se prepara para la captura del criterio de seleccion
CONSTRUCT BY NAME criterio ON a.num_oc
IF INT_FLAG THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET INT_FLAG = FALSE
RETURN
END IF
LET SELEC = " SELECT UNIQUE a.* FROM prtb00012 a ",
" WHERE ",criterio CLIPPED, " AND a.status_t IS NULL "
PREPARE busca FROM selec
DECLARE datos SCROLL CURSOR FOR busca
OPEN datos
FETCH FIRST datos INTO prtb08.*
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
RETURN
END IF
SELECT SUM(a.valor) INTO balance
FROM cctb00001 a
WHERE a.tipo_cliente = prtb08.tipo_cliente
AND a.sec_cliente = prtb08.sec_cliente
AND a.status_t IS NULL
IF balance IS NULL THEN
LET balance = 0
END IF
SELECT a.telefono, a.fax INTO prtb08.telefono, prtb08.fax
FROM vetb00004 a
WHERE a.tipo_cliente = prtb08.tipo_cliente
AND a.sec_cliente = prtb08.sec_cliente
SELECT b.calle,b.casa_num,b.barrio,b.urbanizacion
INTO fcalle,fcasa_num,fbarrio,furbanizacion
FROM vetb00005 b
WHERE b.tipo_cliente = prtb08.tipo_cliente
AND b.sec_cliente = prtb08.sec_cliente
LET prtb08.direccion = fcalle CLIPPED,",",fcasa_num CLIPPED,",",
fbarrio CLIPPED,",",furbanizacion CLIPPED
DISPLAY BY NAME prtb08.num_oc,prtb08.fecha_oc,prtb08.tipo_cliente,
prtb08.sec_cliente,prtb08.direccion,prtb08.telefono,
prtb08.fax,prtb08.fecha_entrega,prtb08.cond_pago,
balance,prtb08.cantidad_i,prtb08.precio_i,prtb08.cantidad_mo,
prtb08.precio_mo,prtb08.transporte,prtb08.itbis,prtb08.sec_vend ATTRIBUTE(BLUE)
CALL busca_cliente8m()
CALL busca_vendm8()
#CALL limpia8()
CALL busca_detalle8()
LET sub_total1 = sub_total + (prtb08.cantidad_i * prtb08.precio_i) + (prtb08.cantidad_mo * prtb08.precio_mo) +
prtb08.transporte
LET p_totales.total_v = sub_total1 + prtb08.itbis
DISPLAY BY NAME p_totales.total_v
MENU "OPCIONES "
COMMAND "Siguiente"
"Presenta en pantalla el proprtb08.mo registro encontrado"
FETCH NEXT datos INTO prtb08.*
IF STATUS = NOTFOUND THEN
LET numero_msg = 4
CALL msg(numero_msg)
NEXT OPTION "anterior"
END IF
SELECT SUM(a.valor) INTO balance
FROM cctb00001 a
WHERE a.tipo_cliente = prtb08.tipo_cliente
AND a.sec_cliente = prtb08.sec_cliente
AND a.status_t IS NULL
IF balance IS NULL THEN
LET balance = 0
END IF
SELECT a.telefono, a.fax INTO prtb08.telefono, prtb08.fax
FROM vetb00004 a
WHERE a.tipo_cliente = prtb08.tipo_cliente
AND a.sec_cliente = prtb08.sec_cliente
SELECT b.calle,b.casa_num,b.barrio,b.urbanizacion
INTO fcalle,fcasa_num,fbarrio,furbanizacion
FROM vetb00005 b
WHERE b.tipo_cliente = prtb08.tipo_cliente
AND b.sec_cliente = prtb08.sec_cliente
LET prtb08.direccion = fcalle CLIPPED,",",fcasa_num CLIPPED,",",
fbarrio CLIPPED,",",furbanizacion CLIPPED
DISPLAY BY NAME prtb08.num_oc,prtb08.fecha_oc,prtb08.tipo_cliente,
prtb08.sec_cliente,prtb08.direccion,prtb08.telefono,
prtb08.fax,prtb08.fecha_entrega,prtb08.cond_pago,
balance,prtb08.cantidad_i,prtb08.precio_i,prtb08.cantidad_mo,
prtb08.precio_mo,prtb08.transporte,prtb08.itbis,prtb08.sec_vend ATTRIBUTE(BLUE)
CALL busca_cliente8m()
CALL busca_vendm8()
#CALL limpia8()
CALL busca_detalle8()
LET sub_total1 = sub_total + (prtb08.cantidad_i * prtb08.precio_i) + (prtb08.cantidad_mo * prtb08.precio_mo) +
prtb08.transporte
LET p_totales.total_v = sub_total1 + prtb08.itbis
DISPLAY BY NAME p_totales.total_v
COMMAND "Anterior"
"Presenta en pantalla el registro anterior encontrado"
FETCH PREVIOUS datos INTO prtb08.*
IF STATUS = NOTFOUND THEN
LET numero_msg = 5
CALL msg(numero_msg)
NEXT OPTION "siguiente"
END IF
SELECT SUM(a.valor) INTO balance
FROM cctb00001 a
WHERE a.tipo_cliente = prtb08.tipo_cliente
AND a.sec_cliente = prtb08.sec_cliente
AND a.status_t IS NULL
IF balance IS NULL THEN
LET balance = 0
END IF
SELECT a.telefono, a.fax INTO prtb08.telefono, prtb08.fax
FROM vetb00004 a
WHERE a.tipo_cliente = prtb08.tipo_cliente
AND a.sec_cliente = prtb08.sec_cliente
SELECT b.calle,b.casa_num,b.barrio,b.urbanizacion
INTO fcalle,fcasa_num,fbarrio,furbanizacion
FROM vetb00005 b
WHERE b.tipo_cliente = prtb08.tipo_cliente
AND b.sec_cliente = prtb08.sec_cliente
LET prtb08.direccion = fcalle CLIPPED,",",fcasa_num CLIPPED,",",
fbarrio CLIPPED,",",furbanizacion CLIPPED
DISPLAY BY NAME prtb08.num_oc,prtb08.fecha_oc,prtb08.tipo_cliente,
prtb08.sec_cliente,prtb08.direccion,prtb08.telefono,
prtb08.fax,prtb08.fecha_entrega,prtb08.cond_pago,
balance,prtb08.cantidad_i,prtb08.precio_i,prtb08.cantidad_mo,
prtb08.precio_mo,prtb08.transporte,prtb08.itbis,prtb08.sec_vend ATTRIBUTE(BLUE)
CALL busca_cliente8m()
CALL busca_vendm8()
#CALL limpia8()
CALL busca_detalle8()
LET sub_total1 = sub_total + (prtb08.cantidad_i * prtb08.precio_i) + (prtb08.cantidad_mo * prtb08.precio_mo) +
prtb08.transporte
LET p_totales.total_v = sub_total1 + prtb08.itbis
DISPLAY BY NAME p_totales.total_v
COMMAND "Primero"
"Presenta en pantalla el primer registro encontrado"
FETCH FIRST datos INTO prtb08.*
SELECT SUM(a.valor) INTO balance
FROM cctb00001 a
WHERE a.tipo_cliente = prtb08.tipo_cliente
AND a.sec_cliente = prtb08.sec_cliente
AND a.status_t IS NULL
IF balance IS NULL THEN
LET balance = 0
END IF
SELECT a.telefono, a.fax INTO prtb08.telefono, prtb08.fax
FROM vetb00004 a
WHERE a.tipo_cliente = prtb08.tipo_cliente
AND a.sec_cliente = prtb08.sec_cliente
SELECT b.calle,b.casa_num,b.barrio,b.urbanizacion
INTO fcalle,fcasa_num,fbarrio,furbanizacion
FROM vetb00005 b
WHERE b.tipo_cliente = prtb08.tipo_cliente
AND b.sec_cliente = prtb08.sec_cliente
LET prtb08.direccion = fcalle CLIPPED,",",fcasa_num CLIPPED,",",
fbarrio CLIPPED,",",furbanizacion CLIPPED
DISPLAY BY NAME prtb08.num_oc,prtb08.fecha_oc,prtb08.tipo_cliente,
prtb08.sec_cliente,prtb08.direccion,prtb08.telefono,
prtb08.fax,prtb08.fecha_entrega,prtb08.cond_pago,
balance,prtb08.cantidad_i,prtb08.precio_i,prtb08.cantidad_mo,
prtb08.precio_mo,prtb08.transporte,prtb08.itbis,prtb08.sec_vend ATTRIBUTE(BLUE)
CALL busca_cliente8m()
CALL busca_vendm8()
#CALL limpia8()
CALL busca_detalle8()
LET sub_total1 = sub_total + (prtb08.cantidad_i * prtb08.precio_i) + (prtb08.cantidad_mo * prtb08.precio_mo) +
prtb08.transporte
LET p_totales.total_v = sub_total1 + prtb08.itbis
DISPLAY BY NAME p_totales.total_v
NEXT OPTION "primero"
COMMAND "Ultimo"
"Presenta en pantalla el ultimo registro encontrado"
FETCH LAST datos INTO prtb08.*
SELECT SUM(a.valor) INTO balance
FROM cctb00001 a
WHERE a.tipo_cliente = prtb08.tipo_cliente
AND a.sec_cliente = prtb08.sec_cliente
AND a.status_t IS NULL
IF balance IS NULL THEN
LET balance = 0
END IF
SELECT a.telefono, a.fax INTO prtb08.telefono, prtb08.fax
FROM vetb00004 a
WHERE a.tipo_cliente = prtb08.tipo_cliente
AND a.sec_cliente = prtb08.sec_cliente
SELECT b.calle,b.casa_num,b.barrio,b.urbanizacion
INTO fcalle,fcasa_num,fbarrio,furbanizacion
FROM vetb00005 b
WHERE b.tipo_cliente = prtb08.tipo_cliente
AND b.sec_cliente = prtb08.sec_cliente
LET prtb08.direccion = fcalle CLIPPED,",",fcasa_num CLIPPED,",",
fbarrio CLIPPED,",",furbanizacion CLIPPED
DISPLAY BY NAME prtb08.num_oc,prtb08.fecha_oc,prtb08.tipo_cliente,
prtb08.sec_cliente,prtb08.direccion,prtb08.telefono,
prtb08.fax,prtb08.fecha_entrega,prtb08.cond_pago,
balance,prtb08.cantidad_i,prtb08.precio_i,prtb08.cantidad_mo,
prtb08.precio_mo,prtb08.transporte,prtb08.itbis,prtb08.sec_vend ATTRIBUTE(BLUE)
CALL busca_cliente8m()
CALL busca_vendm8()
#CALL limpia8()
CALL busca_detalle8()
NEXT OPTION "anterior"
COMMAND KEY ("N") "aNular"
PROMPT "Esta seguro?" FOR esta
LET esta = UPSHIFT(esta)
IF esta = "S" THEN
LET prtb09.num_oc = prtb08.num_oc
LET prtb09.fecha = prtb08.fecha_oc
LET prtb09.pendiente = "S"
LET prtb09.detalle = "SE CANCELO LA ORDEN DE PEDIDO"
LET prtb09.status_t = "E"
INSERT INTO prtb00009 VALUES (prtb09.*)
UPDATE prtb00012 set status_t = "E",
us_mod = user,
fech_mod = current
WHERE num_oc = prtb08.num_oc
UPDATE prtb00009 SET us_crea = user,
fech_crea = current
WHERE num_oc = prtb08.num_oc
AND us_crea IS NULL
LET numero_msg = 39
CALL msg(numero_msg)
END IF
COMMAND "Retornar"
"Retorna al menu anterior"
EXIT MENU
END MENU
END FUNCTION
FUNCTION limpia8()
FOR idx = 1 TO 10
LET arr_prtb08[idx].fila = NULL
LET arr_prtb08[idx].cod_n = NULL
LET arr_prtb08[idx].cod_grupo = NULL
LET arr_prtb08[idx].cod_tipo = NULL
LET arr_prtb08[idx].cod_sec = NULL
LET arr_prtb08[idx].bisel = NULL
LET arr_prtb08[idx].cantidad = NULL
LET arr_prtb08[idx].precio = NULL
LET arr_prtb08[idx].descuento = NULL
LET arr_prtb08[idx].total_p = NULL
END FOR
FOR idx = 1 TO 10
DISPLAY arr_prtb08[idx].fila TO s_pedido[idx].fila
DISPLAY arr_prtb08[idx].cod_n TO s_pedido[idx].cod_n
DISPLAY arr_prtb08[idx].cod_grupo TO s_pedido[idx].cod_grupo
DISPLAY arr_prtb08[idx].cod_tipo TO s_pedido[idx].cod_tipo
DISPLAY arr_prtb08[idx].cod_sec TO s_pedido[idx].cod_sec
DISPLAY arr_prtb08[idx].bisel TO s_pedido[idx].bisel
DISPLAY arr_prtb08[idx].cantidad TO s_pedido[idx].cantidad
DISPLAY arr_prtb08[idx].precio TO s_pedido[idx].precio
DISPLAY arr_prtb08[idx].descuento TO s_pedido[idx].descuento
DISPLAY arr_prtb08[idx].total_p TO s_pedido[idx].total_p
END FOR
END FUNCTION
FUNCTION busca_detalle8()
DECLARE busca_d CURSOR FOR
SELECT 1,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec," ",a.terminacion,
a.bisel,a.cantidad,a.precio,a.descuento
FROM prtb00013 a
WHERE a.num_oc = prtb08.num_oc
LET idx = 1
LET p_totales.sub_total = 0
LET p_totales.total_v = 0
FOREACH busca_d INTO arr_prtb08[idx].*
IF arr_prtb08[idx].cod_n IS NOT NULL THEN
SELECT a.descrip_esp,a.unidad_med INTO descrip_esp,p_totales.unidad_med
FROM iptb00002 a
WHERE a.cod_n = arr_prtb08[idx].cod_n AND
a.cod_grupo = arr_prtb08[idx].cod_grupo AND
a.cod_tipo = arr_prtb08[idx].cod_tipo AND
a.cod_sec = arr_prtb08[idx].cod_sec AND
a.status_t IS NULL
LET monto_desc = 0
LET total1 = 0
LET monto_desc = (arr_prtb08[idx].precio * arr_prtb08[idx].cantidad) * (arr_prtb08[idx].descuento /100)
LET total1 = (arr_prtb08[idx].precio * arr_prtb08[idx].cantidad) - monto_desc
LET arr_prtb08[idx].total_p = total1
LET arr_prtb08[idx].fila = idx
LET p_totales.sub_total = p_totales.sub_total + arr_prtb08[idx].total_p
LET idx = idx + 1
END IF
END FOREACH
LET total_i = (prtb08.cantidad_i * prtb08.precio_i)
LET total_mo = (prtb08.cantidad_mo * prtb08.precio_mo)
LET sub_total = (total_i + total_mo)+ p_totales.sub_total
LET sub_total1 = sub_total + prtb08.transporte
LET p_totales.total_v = sub_total1 + prtb08.itbis
DISPLAY ARRAY arr_prtb08 TO s_pedido.*
LET idx = arr_curr()
LET scr_l = scr_line()
DISPLAY arr_prtb08[idx].fila TO s_pedido[scr_l].fila ATTRIBUTE(BLUE)
DISPLAY arr_prtb08[idx].cod_n TO s_pedido[scr_l].cod_n
DISPLAY arr_prtb08[idx].cod_grupo TO s_pedido[scr_l].cod_grupo
DISPLAY arr_prtb08[idx].cod_tipo TO s_pedido[scr_l].cod_tipo
DISPLAY arr_prtb08[idx].cod_sec TO s_pedido[scr_l].cod_sec
DISPLAY BY NAME descrip_esp ATTRIBUTE(BLUE)
DISPLAY arr_prtb08[idx].terminacion TO s_pedido[scr_l].terminacion ATTRIBUTE(BLUE)
DISPLAY arr_prtb08[idx].bisel TO s_pedido[scr_l].bisel ATTRIBUTE(BLUE)
DISPLAY arr_prtb08[idx].cantidad TO s_pedido[scr_l].cantidad
DISPLAY arr_prtb08[idx].precio TO s_pedido[scr_l].precio ATTRIBUTE(BLUE)
DISPLAY arr_prtb08[idx].descuento TO s_pedido[scr_l].descuento
DISPLAY arr_prtb08[idx].total_p TO s_pedido[scr_l].total_p
LET p_totales.sub_total = p_totales.sub_total + arr_prtb08[idx].total_p
DISPLAY BY NAME p_totales.sub_total,p_totales.unidad_med
DISPLAY BY NAME prtb08.itbis
DISPLAY BY NAME p_totales.total_v
END FUNCTION
REPORT o_pedido(xnumero,z)
DEFINE z RECORD
fila SMALLINT,
cod_n LIKE prtb00013.cod_n,
cod_grupo LIKE prtb00013.cod_grupo,
cod_tipo LIKE prtb00013.cod_tipo,
cod_sec LIKE prtb00013.cod_sec,
altura_zocalo LIKE prtb00013.altura_zocalo,
terminacion LIKE prtb00013.terminacion,
bisel LIKE prtb00013.bisel,
cantidad LIKE prtb00013.cantidad,
precio LIKE prtb00013.precio,
descuento LIKE prtb00013.descuento,
total_p DECIMAL(10,2)
END RECORD,
i,xnumero INTEGER,
normal,comp_on,comp_off,doce,negrillas_on,negrillas_off,
doble_on,doble_off CHAR(2),raya CHAR(100),rayita CHAR(35),
total_inst,subtotal DEC(8,2)
OUTPUT
LEFT MARGIN 0
ORDER BY xnumero
FORMAT
PAGE HEADER
LET normal = ASCII 27, ASCII 80
LET comp_on = ASCII 15
LET comp_off = ASCII 18
LET doce = ASCII 27, ascii 77
LET negrillas_on = ASCII 27, ASCII 69
LET negrillas_off = ASCII 27, ASCII 70
LET doble_on = ASCII 14
LET doble_off = ASCII 20
LET l = (90 - LENGTH(p_compania.nombre CLIPPED))/2
PRINT COLUMN l, p_compania.nombre CLIPPED,
COLUMN 72, TODAY USING "DD/MM/YYYY"
LET l = (90 - LENGTH("Ordenes de Pedido Corte a la Medida"))/2
PRINT COLUMN l, "ORDENES DE PEDIDOS CORTE A LA MEDIDA",
COLUMN 72, TIME
PRINT COLUMN 001, "ORDEN NO.: ",doble_on,xnumero USING "<<<<<<",doble_off
SKIP 1 LINE
PRINT COLUMN 001, "Fecha de la Orden : ",prtb08.fecha_oc USING "DD/MMM/YYYY",
COLUMN 052, "Fecha de Entrega : ",prtb08.fecha_entrega USING "DD/MM/YYYY"
PRINT COLUMN 001, "CLIENTE : ",nombre CLIPPED,
COLUMN 052, "PAGO : "
PRINT COLUMN 001, "CODIGO CLIENTE : ",prtb08.tipo_cliente USING "<<","-",
prtb08.sec_cliente USING "<<<<"
PRINT COLUMN 001, "Direccion : ",prtb08.direccion CLIPPED,
COLUMN 062, "Recibo No. : "
PRINT COLUMN 001, "Telefono : ",prtb08.telefono CLIPPED,
COLUMN 052, "Fax : ",prtb08.fax CLIPPED
PRINT COLUMN 001, "Condiciones : ", descrip_p CLIPPED,
COLUMN 042, "Vendedor : ", prtb08.sec_vend USING "<<<<"," ",
nombres CLIPPED," ",apellidos CLIPPED
PRINT COLUMN 001, prtb08.ubicacion CLIPPED
FOR i = 1 TO 99
LET raya[i] = "-"
END FOR
FOR i = 1 TO 35
LET rayita[i] = "-"
END FOR
PRINT doce
PRINT raya
PRINT COLUMN 033, "|ALTURA",
COLUMN 040, "|TERMINACION"
PRINT COLUMN 001, " CODIGO ",
COLUMN 012, "|DESCRIPCION",
COLUMN 033, "|ZOCALO|",
# COLUMN 047, "|TERMINACION",
COLUMN 048, "|BISEL",
COLUMN 055, "|UNID.",
COLUMN 062, "|CANTIDAD",
COLUMN 072, "|PRECIO",
COLUMN 082, "|DESC.",
COLUMN 090, "|TOTAL "
PRINT raya
ON EVERY ROW
SELECT a.descrip_esp,a.unidad_med INTO descrip_esp,p_totales.unidad_med
FROM iptb00002 a
WHERE a.cod_n = z.cod_n AND
a.cod_grupo = z.cod_grupo AND
a.cod_tipo = z.cod_tipo AND
a.cod_sec = z.cod_sec
PRINT COLUMN 001, z.cod_n USING "&","-",z.cod_grupo USING "&","-",
z.cod_tipo USING "&&","-",z.cod_sec USING "&&&",
COLUMN 012, descrip_esp wordwrap right margin 30,
COLUMN 036, z.altura_zocalo USING "&.&&",
COLUMN 046, z.terminacion,
COLUMN 050, z.bisel CLIPPED,
COLUMN 057, p_totales.unidad_med clipped,
COLUMN 063, z.cantidad USING "#,###.#&",
COLUMN 073, z.precio USING "#,###.#&",
COLUMN 084, z.descuento USING "##.&&",
COLUMN 090, z.total_p USING "###,###.&&"
ON LAST ROW
PRINT raya
PRINT COLUMN 060, "Total Material",
COLUMN 088, p_totales.sub_total USING "#,###,###.&&"
SKIP 1 LINE
PRINT COLUMN 075, "INSTALACION"
PRINT COLUMN 065, rayita
PRINT COLUMN 065,"|"," Cantidad |",
COLUMN 075, " Precio |",
COLUMN 085," Total "
#-> PRINT COLUMN 060, rayita
PRINT COLUMN 045, "Instalacion Tope",
COLUMN 068, prtb08.cantidad_i USING "####.#&",
COLUMN 078, prtb08.precio_i USING "#,###.#&",
COLUMN 088,(prtb08.cantidad_i * prtb08.precio_i) USING "#,###,###.#&"
#-> PRINT COLUMN 060, rayita
PRINT COLUMN 045, "Mano de Obra",
COLUMN 068, prtb08.cantidad_mo USING "####.#&",
COLUMN 078, prtb08.precio_mo USING "#,###.#&",
COLUMN 088,(prtb08.cantidad_mo * prtb08.precio_mo) USING "#,###,###.#&"
PRINT COLUMN 065, rayita
LET total_inst = (prtb08.cantidad_i * prtb08.precio_i) +
(prtb08.cantidad_mo * prtb08.precio_mo)
PRINT COLUMN 065, "Total Instalacion",
COLUMN 088, total_inst USING "#,###,###.#&"
PRINT COLUMN 060, "Transporte",
COLUMN 088, prtb08.transporte USING "#,###,###.#&"
PRINT COLUMN 060, "Sub-Total",
COLUMN 088, p_totales.sub_total + total_inst USING "#,###,###.#&"
PRINT COLUMN 060, "Itbis",
COLUMN 088, prtb08.itbis USING "#,###,###.#&"
PRINT COLUMN 060, "Total Ventas",
COLUMN 088, p_totales.total_v USING "#,###,###.#&"
PRINT normal
PAGE TRAILER
PRINT COLUMN 10, "-------------------",
COLUMN 35, "-------------------",
COLUMN 57, "-------------------"
PRINT COLUMN 13, "VENDEDOR",
COLUMN 39, "CLIENTE",
COLUMN 61, "APROBADO POR"
END REPORT
FUNCTION busca_cliente8()
OPEN WINDOW busqueda AT 7,12 WITH FORM "vefmwd002"
ATTRIBUTE (BORDER,FORM LINE FIRST + 2,COMMENT LINE LAST,MESSAGE LINE LAST)
LET INT_FLAG = false
CONSTRUCT criterio ON a.nombre FROM nombre
LET selec2 = "SELECT a.tipo_cliente, a.sec_cliente, a.nombre ",
" FROM vetb00004 a",
" WHERE ",
"a.status_t is NULL AND ",
criterio clipped,
"ORDER BY 1,2 "
IF INT_FLAG THEN
LET numero_msg = 2
CALL msg(numero_msg)
GO TO salir_consulta_c
END IF
PREPARE busca_cliente8s FROM selec2
IF status >= 0 THEN
IF status = notfound THEN
LET numero_msg = 3
CALL msg(numero_msg)
END IF
ELSE
CALL integridad()
IF bandera = 1 THEN
LET bandera = 0
END IF
END IF
DECLARE buscar_clientes CURSOR FOR busca_cliente8s
LET idx = 1
FOREACH buscar_clientes INTO arr_clientes[idx].*
IF status = NOTFOUND THEN
EXIT FOREACH
END IF
IF INT_FLAG THEN
LET numero_msg = 2
CALL msg(numero_msg)
EXIT FOREACH
END IF
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
MESSAGE " <Esc> Selecciona Cliente donde esta el cursor"
DISPLAY ARRAY arr_clientes TO s_clientes.*
LET curr1 = arr_curr()
LET prtb08.tipo_cliente = arr_clientes[curr1].tipo_cliente
LET prtb08.sec_cliente = arr_clientes[curr1].sec_cliente
LET nombre = arr_clientes[curr1].nombre
LABEL salir_consulta_c:
CLOSE WINDOW busqueda
END FUNCTION
FUNCTION busca_cliente8m()
SELECT a.nombre INTO nombre
FROM vetb00004 a
WHERE a.tipo_cliente = prtb08.tipo_cliente AND
a.sec_cliente = prtb08.sec_cliente AND
a.status_t IS NULL
SELECT a.descrip INTO descrip_p
FROM vetb00012 a
WHERE a.cond_pago = prtb08.cond_pago AND
a.status_t IS NULL
DISPLAY BY NAME nombre,descrip_p ATTRIBUTE(BLUE)
END FUNCTION
FUNCTION busca_product8()
SELECT a.descrip_esp,a.unidad_med INTO descrip_esp,unidad
FROM iptb00002 a
WHERE a.cod_n = prtb08.cod_n AND
a.cod_grupo = prtb08.cod_grupo AND
a.cod_tipo = prtb08.cod_tipo AND
a.cod_sec = prtb08.cod_sec
DISPLAY BY NAME unidad,descrip_esp ATTRIBUTE(BLUE)
END FUNCTION
FUNCTION vendedor8es()
DEFINE descrip6 LIKE adtb00003.nom1_emp
OPEN WINDOW busqueda2 AT 7,12 WITH FORM "vefmwd001"
ATTRIBUTE (BORDER,FORM LINE FIRST + 2,COMMENT LINE LAST,MESSAGE LINE LAST)
LET INT_FLAG = false
CONSTRUCT criterio ON a.nom1_emp FROM descrip6
LET selec2 = "SELECT UNIQUE a.num_emp,a.nom1_emp,a.apell1_emp ",
" FROM adtb00003 a,vetb00028 b",
" WHERE a.num_emp = b.sec_vend AND ",
"a.status_t is NULL AND ",
criterio clipped,
"ORDER BY 1 "
IF INT_FLAG THEN
LET numero_msg = 2
CALL msg(numero_msg)
GO TO salir_consulta_e
END IF
PREPARE busca_empleados FROM selec2
IF status >= 0 THEN
IF status = notfound THEN
LET numero_msg = 3
CALL msg(numero_msg)
END IF
ELSE
CALL integridad()
IF bandera = 1 THEN
LET bandera = 0
END IF
END IF
DECLARE buscar_empleados CURSOR FOR busca_empleados
LET idx = 1
FOREACH buscar_empleados INTO arr_empleados[idx].*
IF status = NOTFOUND THEN
EXIT FOREACH
END IF
IF INT_FLAG THEN
LET numero_msg = 2
CALL msg(numero_msg)
EXIT FOREACH
END IF
LET empleados[idx].cod_emp_sec = arr_empleados[idx].num_emp
LET empleados[idx].descrip6 =
arr_empleados[idx].nom1_emp clipped," ",arr_empleados[idx].apell1_emp clipped
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
MESSAGE " <Esc> Selecciona Empleado donde esta el cursor"
DISPLAY ARRAY empleados TO s_empleados.*
LET curr1 = scr_line()
LET prtb08.sec_vend = empleados[curr1].cod_emp_sec
LET nombre_vend = empleados[curr1].descrip6
LABEL salir_consulta_e:
CLOSE WINDOW busqueda2
END FUNCTION
FUNCTION busca_vendm8()
IF prtb08.sec_vend IS NOT NULL THEN
SELECT a.nom1_emp,a.apell1_emp INTO nombres,apellidos
FROM adtb00003 a
WHERE a.num_emp = prtb08.sec_vend
LET nombre_vend = nombres CLIPPED," ",apellidos CLIPPED
DISPLAY BY NAME nombre_vend ATTRIBUTE(BLUE)
END IF
END FUNCTION
FUNCTION imprime()
DEFINE codigo CHAR(7),
pcodigo CHAR(10)
--# CALL fgl_init4js()
--# LET archivo = NULL
--# LET filename = NULL
--# LET filename = FGL_GETENV("USPROGRAM")
--# LET archivo = "G:\\\\orden.xls"
--# LET sysos = FGL_GETENV("OS")
--# IF sysos = "Windows_NT" THEN
--# LET filename = filename CLIPPED," G:\\\\orden.xls"
--# ELSE
--# LET filename = "C:\\\\ARCHIV~1\\\\MICROS~1\\\\OFFICE\\\\EXCEL.EXE G:\\\\orden.xls"
--# LET localiza = "G:\\"
--# LET archivo = "G:\\\\orden.xls"
--# END IF
--# IF winexec(filename) THEN
--# IF DDEconnect("EXCEL",archivo) THEN
--# LET cels = "R",1 USING "<<","C3"
--# IF DDEpoke("EXCEL",archivo,cels,prtb08.num_oc) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
--# LET cels = "R",2 USING "<<","C3"
--# IF DDEpoke("EXCEL",archivo,cels,prtb08.fecha_oc) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
--# LET cels = "R",3 USING "<<","C3"
--# IF DDEpoke("EXCEL",archivo,cels,nombre) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
LET codigo = prtb08.tipo_cliente USING "<<","-",
prtb08.sec_cliente USING "<<<<"
--# LET cels = "R",4 USING "<<","C3"
--# IF DDEpoke("EXCEL",archivo,cels,codigo) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
--# LET cels = "R",5 USING "<<","C3"
--# IF DDEpoke("EXCEL",archivo,cels,prtb08.direccion) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
--# LET cels = "R",6 USING "<<","C3"
--# IF DDEpoke("EXCEL",archivo,cels,prtb08.telefono) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
SELECT a.descrip_esp, a.unidad_med
INTO descrip_esp,p_totales.unidad_med
FROM iptb00002 a
WHERE a.cod_n = arr_prtb08[idx].cod_n AND
a.cod_tipo = arr_prtb08[idx].cod_tipo AND
a.cod_grupo = arr_prtb08[idx].cod_grupo AND
a.cod_sec = arr_prtb08[idx].cod_sec AND
a.status_t IS NULL
--# LET cels = "R",7 USING "<<","C3"
--# IF DDEpoke("EXCEL",archivo,cels,descrip_p) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
--# LET cels = "R",8 USING "<<","C3"
--# IF DDEpoke("EXCEL",archivo,cels,prtb08.fecha_entrega) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
--# LET cels = "R",13 USING "<<","C3"
--# IF DDEpoke("EXCEL",archivo,cels,prtb08.fax) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
LET cnt = 16
FOR idx = 1 TO arr_count()
IF arr_prtb08[idx].cod_n IS NOT NULL THEN
--# LET cels = "R",cnt USING "<<<","C1"
LET pcodigo = arr_prtb08[idx].cod_n USING "&","-",
arr_prtb08[idx].cod_grupo USING "&","-",
arr_prtb08[idx].cod_tipo USING "&&","-",
arr_prtb08[idx].cod_sec USING "&&&"
--# IF DDEpoke("EXCEL",archivo,cels,pcodigo) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
--# LET cels = "R",cnt USING "<<<","C2"
--# IF DDEpoke("EXCEL",archivo,cels,descrip_esp) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
--# LET cels = "R",cnt USING "<<<","C5"
--# IF DDEpoke("EXCEL",archivo,cels,arr_prtb08[idx].cantidad) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
--# LET cels = "R",cnt USING "<<<","C6"
--# IF DDEpoke("EXCEL",archivo,cels,arr_prtb08[idx].bisel) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
--# LET cels = "R",cnt USING "<<<","C8"
--# IF DDEpoke("EXCEL",archivo,cels,arr_prtb08[idx].precio) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
--# LET cels = "R",cnt USING "<<<","C9"
--# IF DDEpoke("EXCEL",archivo,cels,arr_prtb08[idx].descuento) THEN
--# ELSE
--# LET numero_msg =391
--# CALL msg(numero_msg)
--# END IF
END IF
END FOR
--# END IF
--# END IF
END FUNCTION
Reference in New Issue View Git Blame Copy Permalink