102 lines
3.5 KiB
Plaintext
102 lines
3.5 KiB
Plaintext
{
|
|
==============================================================================
|
|
PROGRAMA : ccprmt016.4gl
|
|
PROGRAMADOR : Ing. Juan Soto
|
|
OBSERVACION : ANULAR AVANCES
|
|
FECHA : 1/1/2014
|
|
==============================================================================
|
|
}
|
|
|
|
GLOBALS
|
|
"ccprgb000.4gl"
|
|
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
CALL ARG_VAL(3) RETURNING impresor
|
|
|
|
CONNECT to "decomarmol" AS "MSSQL" USER usuarios USING clave
|
|
|
|
CALL ccprmt016()
|
|
|
|
END MAIN
|
|
|
|
FUNCTION ccprmt016()
|
|
DEFINE monto1 DEC(12,2),
|
|
ptipodoc CHAR(2),
|
|
pnumDoc,pnumoc,xcotizacion_no,xtipo,xsec INT,
|
|
cliente CHAR(60),
|
|
estado CHAR(30)
|
|
|
|
|
|
OPEN WINDOW ccfmmt016 WITH FORM "ccfmmt016"
|
|
|
|
INPUT BY NAME ptipoDoc,pnumDoc
|
|
AFTER FIELD pnumdoc
|
|
IF pnumdoc IS NOT NULL THEN
|
|
SELECT UNIQUE a.nombre,CASE b.status_t
|
|
WHEN 'E' THEN "NULO"
|
|
ELSE "ACTIVO"
|
|
END,
|
|
b.num_cheque,
|
|
a.tipo_cliente,a.sec_cliente
|
|
INTO cliente,estado,xcotizacion_no,xtipo,xsec FROM vetb00004 a,cctb00001 b
|
|
WHERE a.tipo_cliente = b.tipo_cliente AND
|
|
a.sec_cliente = b.sec_cliente AND
|
|
b.tipo_doc = ptipoDoc AND
|
|
b.num_doc = pnumDoc AND
|
|
b.status_t IS NULL
|
|
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
CALL msg(3)
|
|
NEXT FIELD ptipoDoc
|
|
END IF
|
|
|
|
DISPLAY BY NAME cliente,estado
|
|
|
|
SELECT SUM(a.valor+a.monto_desc) INTO monto1 FROM cctb00001 a
|
|
WHERE a.status_t IS NULL AND a.num_doc = Pnumdoc AND
|
|
a.num_doc != a.aplica_a AND a.tipo_doc = "AV"
|
|
|
|
IF monto1 IS NULL THEN
|
|
LET monto1 = 0
|
|
END IF
|
|
|
|
IF monto1 <> 0 THEN
|
|
CALL fgl_winmessage("ERROR","Documento Tiene Aplicaciones... No Puede Ser Eliminado","info")
|
|
NEXT FIELD ptipoDoc
|
|
END IF
|
|
# BUSCA DESPACHOS
|
|
{
|
|
SELECT a.num_oc INTO pnumoc FROM prtb00012 a
|
|
WHERE a.cotizacion_no = xcotizacion_no AND a.status_t IS NULL
|
|
|
|
SELECT DISTINCT a.num_oc FROM iptb00006 a,iptb00005 b
|
|
WHERE a.num_oc = pnumoc AND a.status_t IS NULL AND
|
|
a.cod_mov = b.cod_mov AND b.control_despacho = 'SI'
|
|
AND a.cod_sp = xtipo AND a.cod_sp_Sec = xsec
|
|
IF STATUS <> NOTFOUND THEN
|
|
CALL fgl_winmessage("ERROR","ORDEN TIENE CONDUCE DESPACHO, NO PUEDE ANULAR AVANCE","INFO")
|
|
NEXT FIELD pnumdoc
|
|
END IF
|
|
}
|
|
|
|
END IF
|
|
AFTER INPUT
|
|
IF INT_FLAG THEN
|
|
CALL msg(2)
|
|
EXIT INPUT
|
|
END IF
|
|
LET respuesta = fgl_winquestion("INFO","ESTA SEGURO DE QUERER ANULAR ESTE DOCUMENTO?","NO","NO|YES","question",0)
|
|
IF UPSHIFT(respuesta) = "YES" THEN
|
|
UPDATE cctb00001 SET status_t = 'E',
|
|
us_mod = usuarios,
|
|
fech_mod = getdate()
|
|
WHERE cctb00001.num_doc = pnumDoc AND
|
|
cctb00001.tipo_doc = ptipoDoc
|
|
CALL fgl_winmessage("INFO","REGISTRO ANULADO","INFO")
|
|
END IF
|
|
END input
|
|
END FUNCTION |