994 lines
29 KiB
Plaintext
994 lines
29 KiB
Plaintext
{
|
|
----------------------------------------------------------------------------
|
|
PROGRAMA : VEFUMT001
|
|
OBJETIVO : Esta Funcion Convierte Los Valores En numeros a letras
|
|
PROGRAMADOR : Ing. Juan Fco. Soto.
|
|
FECHA : Enero 22, 1993.
|
|
----------------------------------------------------------------------------
|
|
}
|
|
GLOBALS
|
|
"veprgb000.4gl"
|
|
|
|
DEFINE fecha_ant DATE
|
|
{FUNCTION convierte()
|
|
DEFINE consegui CHAR(1)
|
|
DEFINE p,miles,m,k,a,b,d,c,entero,unidades_mi,unidades_m,unidad,mil,millon,
|
|
unid_c,u INTEGER
|
|
DEFINE cheles DECIMAL (7,2)
|
|
|
|
CALL letras()
|
|
LET consegui = "N"
|
|
LET entero = valor_orig
|
|
LET cheles = (valor_orig - entero) * 100
|
|
LET unidad = entero / 100
|
|
LET unidad = entero - (unidad * 100)
|
|
LET a = entero / 1000
|
|
LET a = entero - (a * 1000)
|
|
LET d = entero - 19
|
|
|
|
IF d >= 82 THEN
|
|
|
|
LET c = entero / 100
|
|
|
|
# Para Controlar los miles y los cientos
|
|
|
|
IF c <= 9 THEN
|
|
LET valor_letras = valor_letras clipped," ",centenas[c] clipped
|
|
ELSE
|
|
LET c = entero / 1000
|
|
LET b = entero / 1000000
|
|
END IF
|
|
|
|
IF d > 19 THEN
|
|
LET d = unidad - 19
|
|
END IF
|
|
|
|
IF unidad > 0 and unidad < 20 THEN
|
|
LET d = unidad
|
|
LET valor_letras = valor_letras clipped," ",unidades1[d] clipped
|
|
LET consegui = "S"
|
|
END IF
|
|
|
|
ELSE
|
|
IF d > 0 AND d <= 81 THEN
|
|
LET valor_letras = valor_letras clipped," ",decenas[d] clipped
|
|
LET consegui = "S"
|
|
END IF
|
|
END IF
|
|
|
|
# Para controlar los miles
|
|
|
|
IF entero > 999 THEN
|
|
LET unidades_m = a / 100
|
|
LET unidades_m = a - (unidades_m * 100)
|
|
LET valor_letras = null
|
|
|
|
IF c = 1 THEN
|
|
LET valor_letras = "MIL"
|
|
END IF
|
|
|
|
IF c > 1 and c <= 19 THEN
|
|
LET valor_letras = valor_letras clipped," ",unidades1[c] clipped," ","MIL"
|
|
END IF
|
|
|
|
|
|
IF c >= 20 and c <= 999 THEN
|
|
IF c < 82 THEN
|
|
LET c = c - 19
|
|
LET valor_letras = valor_letras clipped," ",decenas[c] clipped
|
|
ELSE
|
|
LET k = c / 100
|
|
LET valor_letras = valor_letras clipped," ",centenas[k] clipped
|
|
LET unid_c = c - (k * 100)
|
|
IF unid_c >= 20 THEN
|
|
LET unid_c = unid_c - 19
|
|
LET valor_letras = valor_letras clipped," ",decenas[unid_c] clipped
|
|
END IF
|
|
END IF
|
|
LET valor_letras = valor_letras clipped," ","MIL"
|
|
END IF
|
|
|
|
LET c = a
|
|
IF c > 100 THEN
|
|
LET c = c / 100
|
|
LET valor_letras = valor_letras clipped," ",centenas[c] clipped
|
|
END IF
|
|
|
|
IF unidades_m > 0 and unidades_m < 19 THEN
|
|
LET a = unidades_m
|
|
LET valor_letras = valor_letras clipped, " ",unidades1[a] clipped
|
|
END IF
|
|
|
|
END IF
|
|
|
|
# Para Controlar cantidades en millones
|
|
|
|
IF entero > 999999 THEN
|
|
LET c = 0
|
|
LET miles = entero - 1000000
|
|
LET m = miles / 1000
|
|
LET p = miles - (m * 1000)
|
|
LET u = m / 100
|
|
LET u = m - (u * 100)
|
|
LET unidades_mi = p
|
|
LET unidades_mi = unidades_mi / 100
|
|
LET unidades_mi = p - (unidades_mi * 100)
|
|
LET valor_letras = null
|
|
|
|
IF b = 1 THEN
|
|
LET valor_letras = "UN MILLON"
|
|
END IF
|
|
|
|
IF b > 1 and b <= 19 THEN
|
|
LET valor_letras = valor_letras clipped," ",unidades1[b] clipped," ",
|
|
"MILLONES"
|
|
END IF
|
|
|
|
IF b >= 20 and b <= 999999 THEN
|
|
IF b < 82 THEN
|
|
LET b = b - 19
|
|
LET valor_letras = valor_letras clipped," ",decenas[b] clipped," ",
|
|
"MILLONES"
|
|
ELSE
|
|
LET k = b / 100
|
|
LET valor_letras = valor_letras clipped," ",centenas[k] clipped," ",
|
|
"MILLONES"
|
|
END IF
|
|
END IF
|
|
|
|
LET b = m
|
|
IF b > 100 THEN
|
|
LET b = b / 100
|
|
LET valor_letras = valor_letras clipped," ",centenas[b] clipped
|
|
|
|
IF u > 0 and u <= 19 THEN
|
|
|
|
IF u = 1 THEN
|
|
LET unidades1[1] = "UN"
|
|
END IF
|
|
|
|
LET valor_letras = valor_letras clipped," ",unidades1[u] clipped
|
|
END IF
|
|
LET valor_letras = valor_letras clipped," ","MIL"
|
|
END IF
|
|
|
|
IF p > 100 THEN
|
|
LET p = p / 100
|
|
LET valor_letras = valor_letras clipped," ",centenas[p] clipped
|
|
END IF
|
|
|
|
IF unidades_mi > 0 and unidades_mi < 19 THEN
|
|
LET m = unidades_mi
|
|
LET valor_letras = valor_letras clipped, " ",unidades1[m] clipped
|
|
END IF
|
|
|
|
END IF
|
|
|
|
IF unidad > 0 and unidad < 20 AND consegui = "N" THEN
|
|
LET d = unidad
|
|
LET valor_letras = valor_letras clipped," ",unidades1[d] clipped
|
|
END IF
|
|
|
|
IF unidad >= 20 AND d <= 81 AND consegui = "N" THEN
|
|
LET valor_letras = valor_letras clipped," ",decenas[d] clipped
|
|
END IF
|
|
LET valor_letras = valor_letras clipped," ","PESOS"
|
|
LET valor_letras = valor_letras clipped," ","CON"," ",cheles using "&&",
|
|
"/100"
|
|
END FUNCTION
|
|
}
|
|
{FUNCTION letras()
|
|
|
|
LET unidades1[1] = "UNO"
|
|
LET unidades1[2] = "DOS"
|
|
LET unidades1[3] = "TRES"
|
|
LET unidades1[4] = "CUATRO"
|
|
LET unidades1[5] = "CINCO"
|
|
LET unidades1[6] = "SEIS"
|
|
LET unidades1[7] = "SIETE"
|
|
LET unidades1[8] = "OCHO"
|
|
LET unidades1[9] = "NUEVE"
|
|
LET unidades1[10] = "DIEZ"
|
|
LET unidades1[11] = "ONCE"
|
|
LET unidades1[12] = "DOCE"
|
|
LET unidades1[13] = "TRECE"
|
|
LET unidades1[14] = "CATORCE"
|
|
LET unidades1[15] = "QUINCE"
|
|
LET unidades1[16] = "DIESISEIS"
|
|
LET unidades1[17] = "DIESISIETE"
|
|
LET unidades1[18] = "DIESIOCHO"
|
|
LET unidades1[19] = "DIESINUEVE"
|
|
|
|
|
|
LET decenas[1] = "VEINTE"
|
|
LET decenas[2] = "VEINTE Y UNO"
|
|
LET decenas[3] = "VEINTE Y DOS"
|
|
LET decenas[4] = "VEINTE Y TRES"
|
|
LET decenas[5] = "VEINTE Y CUATRO"
|
|
LET decenas[6] = "VEINTE Y CINCO"
|
|
LET decenas[7] = "VEINTE Y SEIS"
|
|
LET decenas[8] = "VEINTE Y SIETE"
|
|
LET decenas[9] = "VEINTE Y OCHO"
|
|
LET decenas[10] = "VEINTE Y NUEVE"
|
|
LET decenas[11] = "TREINTA"
|
|
LET decenas[12] = "TREINTA Y UNO"
|
|
LET decenas[13] = "TREINTA Y DOS"
|
|
LET decenas[14] = "TREINTA Y TRES"
|
|
LET decenas[15] = "TREINTA Y CUATRO"
|
|
LET decenas[16] = "TREINTA Y CINCO"
|
|
LET decenas[17] = "TREINTA Y SEIS"
|
|
LET decenas[18] = "TREINTA Y SIETE"
|
|
LET decenas[19] = "TREINTA Y OCHO"
|
|
LET decenas[20] = "TREINTA Y NUEVE"
|
|
LET decenas[21] = "CUARENTA"
|
|
LET decenas[22] = "CUARENTA Y UNO"
|
|
LET decenas[23] = "CUARENTA Y DOS"
|
|
LET decenas[24] = "CUARENTA Y TRES"
|
|
LET decenas[25] = "CUARENTA Y CUATRO"
|
|
LET decenas[26] = "CUARENTA Y CINCO"
|
|
LET decenas[27] = "CUARENTA Y SEIS"
|
|
LET decenas[28] = "CUARENTA Y SIETE"
|
|
LET decenas[29] = "CUARENTA Y OCHO"
|
|
LET decenas[30] = "CUARENTA Y NUEVE"
|
|
LET decenas[31] = "CINCUENTA"
|
|
LET decenas[32] = "CINCUENTA Y UNO"
|
|
LET decenas[33] = "CINCUENTA Y DOS"
|
|
LET decenas[34] = "CINCUENTA Y TRES"
|
|
LET decenas[35] = "CINCUENTA Y CUATRO"
|
|
LET decenas[36] = "CINCUENTA Y CINCO"
|
|
LET decenas[37] = "CINCUENTA Y SEIS"
|
|
LET decenas[38] = "CINCUENTA Y SIETE"
|
|
LET decenas[39] = "CINCUENTA Y OCHO"
|
|
LET decenas[40] = "CINCUENTA Y NUEVE"
|
|
LET decenas[41] = "SESENTA"
|
|
LET decenas[42] = "SESENTA Y UNO"
|
|
LET decenas[43] = "SESENTA Y DOS"
|
|
LET decenas[44] = "SESENTA Y TRES"
|
|
LET decenas[45] = "SESENTA Y CUATRO"
|
|
LET decenas[46] = "SESENTA Y CINCO"
|
|
LET decenas[47] = "SESENTA Y SEIS"
|
|
LET decenas[48] = "SESENTA Y SIETE"
|
|
LET decenas[49] = "SESENTA Y OCHO"
|
|
LET decenas[50] = "SESENTA Y NUEVE"
|
|
LET decenas[51] = "SETENTA"
|
|
LET decenas[52] = "SETENTA Y UNO"
|
|
LET decenas[53] = "SETENTA Y DOS"
|
|
LET decenas[54] = "SETENTA Y TRES"
|
|
LET decenas[55] = "SETENTA Y CUATRO"
|
|
LET decenas[56] = "SETENTA Y CINCO"
|
|
LET decenas[57] = "SETENTA Y SEIS"
|
|
LET decenas[58] = "SETENTA Y SIETE"
|
|
LET decenas[59] = "SETENTA Y OCHO"
|
|
LET decenas[60] = "SETENTA Y NUEVE"
|
|
LET decenas[61] = "OCHENTA"
|
|
LET decenas[62] = "OCHENTA Y UNO"
|
|
LET decenas[63] = "OCHENTA Y DOS"
|
|
LET decenas[64] = "OCHENTA Y TRES"
|
|
LET decenas[65] = "OCHENTA Y CUATRO"
|
|
LET decenas[66] = "OCHENTA Y CINCO"
|
|
LET decenas[67] = "OCHENTA Y SEIS"
|
|
LET decenas[68] = "OCHENTA Y SIETE"
|
|
LET decenas[69] = "OCHENTA Y OCHO"
|
|
LET decenas[70] = "OCHENTA Y NUEVE"
|
|
LET decenas[71] = "NOVENTA"
|
|
LET decenas[72] = "NOVENTA Y UNO"
|
|
LET decenas[73] = "NOVENTA Y DOS"
|
|
LET decenas[74] = "NOVENTA Y TRES"
|
|
LET decenas[75] = "NOVENTA Y CUATRO"
|
|
LET decenas[76] = "NOVENTA Y CINCO"
|
|
LET decenas[77] = "NOVENTA Y SEIS"
|
|
LET decenas[78] = "NOVENTA Y SIETE"
|
|
LET decenas[79] = "NOVENTA Y OCHO"
|
|
LET decenas[80] = "NOVENTA Y NUEVE"
|
|
LET decenas[81] = "CIEN"
|
|
|
|
LET centenas[1] = "CIENTO"
|
|
LET centenas[2] = "DOCIENTOS"
|
|
LET centenas[3] = "TRESCIENTOS"
|
|
LET centenas[4] = "CUATROCIENTOS"
|
|
LET centenas[5] = "QUINIENTOS"
|
|
LET centenas[6] = "SEISCIENTOS"
|
|
LET centenas[7] = "SETECIENTOS"
|
|
LET centenas[8] = "OCHOCIENTOS"
|
|
LET centenas[9] = "NOVECIENTOS"
|
|
|
|
END FUNCTION
|
|
}
|
|
FUNCTION busca_zona1(pais)
|
|
DEFINE pais VARCHAR(10)
|
|
OPEN WINDOW busqueda AT 10,10 WITH FORM "vefmwd301"
|
|
ATTRIBUTE (BORDER,FORM LINE FIRST + 1, comment line last)
|
|
|
|
CONSTRUCT criterio ON vetb00008.cod_zona,vetb00008.descrip
|
|
FROM vetb00008.cod_zona,vetb00008.descrip
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
|
|
LET selec = "SELECT a.cod_zona,a.descrip FROM vetb00008 a ",
|
|
"WHERE a.status_t is null AND ",criterio clipped,
|
|
" and a.codigo ='",pais CLIPPED,
|
|
" ORDER BY a.descrip "
|
|
|
|
PREPARE localiza FROM selec
|
|
DECLARE pagar CURSOR FOR localiza
|
|
|
|
LET idx = 1
|
|
FOREACH pagar INTO zona1_wd[idx].*
|
|
IF status = NOTFOUND THEN
|
|
LET existe = "N"
|
|
EXIT FOREACH
|
|
END IF
|
|
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
CALL set_count(idx-1)
|
|
DISPLAY ARRAY zona1_wd TO consart.*
|
|
LET curr1 = arr_curr()
|
|
|
|
LET fact_gral.zona = zona1_wd[curr1].cod_zona using "&&&"
|
|
LET nombre = zona1_wd[curr1].descrip
|
|
LET descrip1 = nombre
|
|
CLOSE WINDOW busqueda
|
|
END FUNCTION
|
|
|
|
FUNCTION busca_pais()
|
|
OPEN WINDOW busqueda1 AT 10,10 WITH FORM "vefmwd311"
|
|
ATTRIBUTE (BORDER,FORM LINE FIRST + 1, comment line last)
|
|
|
|
CONSTRUCT criterio ON cotb00018.cod_pais,cotb00018.nom_pais
|
|
FROM cotb00018.cod_pais,cotb00018.nom_pais
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
|
|
LET selec = "SELECT cod_pais,nom_pais FROM cotb00018 ",
|
|
"WHERE status_t is null AND ",criterio clipped,
|
|
"ORDER BY 1 "
|
|
|
|
PREPARE localiza1 FROM selec
|
|
DECLARE country CURSOR FOR localiza1
|
|
|
|
LET idx = 1
|
|
FOREACH country INTO pais_wd[idx].*
|
|
IF status = NOTFOUND THEN
|
|
LET existe = "N"
|
|
EXIT FOREACH
|
|
END IF
|
|
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
CALL set_count(idx-1)
|
|
DISPLAY ARRAY pais_wd TO consart.*
|
|
LET curr1 = arr_curr()
|
|
|
|
LET fact_gral.zona = pais_wd[curr1].cod_pais
|
|
LET nombre = pais_wd[curr1].nom_pais
|
|
LET descrip1 = nombre
|
|
CLOSE WINDOW busqueda1
|
|
END FUNCTION
|
|
|
|
FUNCTION repetir(xcodigo)
|
|
DEFINE xcodigo CHAR(15)
|
|
|
|
LET verdad = 'N'
|
|
SELECT a.codigo FROM repitecodigo a
|
|
WHERE a.codigo = xcodigo
|
|
IF STATUS <> NOTFOUND THEN
|
|
LET verdad = "S"
|
|
END IF
|
|
RETURN verdad
|
|
END FUNCTION
|
|
|
|
FUNCTION parciales(factura,fecha,dias,total_factura)
|
|
DEFINE dias,factura INTEGER,
|
|
diferencia,v_parcial,total_factura DECIMAL(12,2),
|
|
fecha DATE,
|
|
pdias SMALLINT,
|
|
ch_parcial CHAR(12)
|
|
|
|
OPEN WINDOW parcial AT 10,7 WITH FORM "vefmwd016"
|
|
ATTRIBUTE (BORDER,COMMENT LINE LAST,FORM LINE FIRST + 1)
|
|
|
|
LET veces = dias / 30
|
|
LET v_parcial = total_factura / veces
|
|
|
|
LET fecha_ant = fecha
|
|
FOR idx = 1 TO veces
|
|
LET parte[idx].valor = v_parcial
|
|
SELECT a.dias_prod INTO pdias
|
|
FROM mestable a
|
|
WHERE a.mes = MONTH(fecha_ant)
|
|
|
|
LET fecha_ant = fecha_ant + pdias
|
|
LET parte[idx].fecha_ven = fecha_ant
|
|
END FOR
|
|
LET total_valor = 0
|
|
LET diferencia = 0
|
|
FOR idx = 1 TO veces
|
|
IF parte[idx].valor IS NOT NULL THEN
|
|
LET total_valor = total_valor + parte[idx].valor
|
|
END IF
|
|
END FOR
|
|
LET diferencia = total_factura - total_valor
|
|
IF diferencia != 0 THEN
|
|
LET parte[veces].valor = v_parcial + diferencia
|
|
END IF
|
|
LABEL otra:
|
|
CALL set_count(veces)
|
|
INPUT ARRAY parte WITHOUT DEFAULTS FROM s_parte.*
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
GOTO salir
|
|
END IF
|
|
|
|
LET total_valor = 0
|
|
FOR idx = 1 TO arr_count()
|
|
IF parte[idx].valor IS NOT NULL THEN
|
|
LET total_valor = total_valor + parte[idx].valor
|
|
END IF
|
|
END FOR
|
|
IF total_valor != total_factura THEN
|
|
LET numero_msg = 213
|
|
CALL msg(numero_msg)
|
|
GOTO otra
|
|
END IF
|
|
FOR idx = 1 TO arr_count()
|
|
IF parte[idx].valor IS NOT NULL THEN
|
|
INSERT INTO vetbparcial VALUES
|
|
(factura,parte[idx].valor,parte[idx].fecha_ven)
|
|
LET ch_parcial = fact_gral.factura using "&&&&&&","-",idx using "&&",
|
|
"/",veces using "&&"
|
|
|
|
INSERT INTO cctb00001 VALUES
|
|
(NULL,fact_gral.cod_cia,"FT",ch_parcial,fact_gral.tipo_cliente,
|
|
fact_gral.sec_cliente,NULL,fact_gral.sec_vend,
|
|
fact_gral.fecha_factura,parte[idx].fecha_ven,ch_parcial, NULL,NULL,
|
|
parte[idx].valor,NULL,NULL,0,0, NULL, USER,CURRENT, NULL, NULL)
|
|
END IF
|
|
END FOR
|
|
LABEL salir:
|
|
CLOSE WINDOW parcial
|
|
END FUNCTION
|
|
FUNCTION busca_pt()
|
|
OPEN WINDOW busqueda AT 7,12 WITH FORM "vefmwd003"
|
|
ATTRIBUTE (BORDER,FORM LINE FIRST + 2,COMMENT LINE LAST,MESSAGE LINE LAST)
|
|
LET int_flag = false
|
|
CONSTRUCT criterio ON a.descrip_esp FROM descrip_esp
|
|
|
|
LET selec2 =
|
|
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp",
|
|
" FROM iptb00002 a ",
|
|
" WHERE ",
|
|
criterio clipped,
|
|
"ORDER BY a.descrip_esp "
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
GO TO sale9
|
|
END IF
|
|
|
|
PREPARE busca_pila FROM selec2
|
|
IF status >= 0 THEN
|
|
IF status = notfound THEN
|
|
LET numero_msg = 12
|
|
CALL msg(numero_msg)
|
|
END IF
|
|
|
|
END IF
|
|
|
|
DECLARE buscar_pila CURSOR FOR busca_pila
|
|
LET idx = 1
|
|
|
|
FOREACH buscar_pila INTO pilas[idx].*
|
|
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 Producto Terminado donde esta el cursor"
|
|
DISPLAY ARRAY pilas TO s_pilas.*
|
|
LET curr1 = arr_curr()
|
|
LET pterminado.cod_n = pilas[curr1].cod_n
|
|
LET pterminado.cod_grupo = pilas[curr1].cod_grupo
|
|
LET pterminado.cod_tipo = pilas[curr1].cod_tipo
|
|
LET pterminado.cod_sec = pilas[curr1].cod_sec
|
|
LET descuento.cod_n = pilas[curr1].cod_n
|
|
LET descuento.cod_grupo = pilas[curr1].cod_grupo
|
|
LET descuento.cod_tipo = pilas[curr1].cod_tipo
|
|
LET descuento.cod_sec = pilas[curr1].cod_sec
|
|
LET descrip1 = pilas[curr1].descrip_esp
|
|
|
|
LABEL sale9:
|
|
CLOSE WINDOW busqueda
|
|
RETURN pterminado.cod_n,pterminado.cod_grupo,pterminado.cod_tipo,pterminado.cod_sec,descrip1
|
|
END FUNCTION
|
|
|
|
FUNCTION consulta_zonas(pais)
|
|
DEFINE pais VARCHAR(10)
|
|
OPEN WINDOW busqueda AT 7,12 WITH FORM "vefmwd071"
|
|
ATTRIBUTE (BORDER,FORM LINE FIRST + 2,COMMENT LINE LAST,MESSAGE LINE LAST)
|
|
|
|
LET int_flag = false
|
|
CONSTRUCT criterio ON a.descrip FROM descrip
|
|
|
|
LET selec2 = "SELECT a.cod_zona, a.descrip ",
|
|
"FROM vetb00008 a ",
|
|
"WHERE a.status_t is null AND ",criterio clipped,
|
|
" AND a.codigo='",pais CLIPPED,"' ",
|
|
" ORDER BY a.descrip "
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
GO TO salir_consulta_z
|
|
END IF
|
|
|
|
PREPARE busca_zonas FROM selec2
|
|
|
|
DECLARE buscar_zonas CURSOR FOR busca_zonas
|
|
LET idx = 1
|
|
|
|
FOREACH buscar_zonas INTO zonas[idx].*
|
|
|
|
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
IF idx = 1 THEN
|
|
CLOSE WINDOW busqueda
|
|
|
|
RETURN
|
|
END IF
|
|
CALL set_count(idx-1)
|
|
MESSAGE " <Esc> Selecciona Zona donde esta el cursor"
|
|
DISPLAY ARRAY zonas TO s_zonas.*
|
|
LET curr1 = arr_curr()
|
|
|
|
LET zona.cod_zona = zonas[curr1].cod_zona
|
|
LET transportista.cod_zona = zonas[curr1].cod_zona
|
|
LET descrip1 = zonas[curr1].descrip
|
|
|
|
LABEL salir_consulta_z:
|
|
CLOSE WINDOW busqueda
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION consulta_provincias(xzona)
|
|
DEFINE xzona SMALLINT
|
|
OPEN WINDOW busqueda AT 7,12 WITH FORM "vefmwd072"
|
|
ATTRIBUTE (BORDER,FORM LINE FIRST + 2,COMMENT LINE LAST,MESSAGE LINE LAST)
|
|
|
|
LET int_flag = false
|
|
CONSTRUCT criterio ON b.nombre_provincia FROM nombre_provincia
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
GO TO salir_consulta_p
|
|
END IF
|
|
LET selec2 = "SELECT b.cod_provincia, b.nombre_provincia ",
|
|
"FROM vetb00009 a, vetb00020 b ",
|
|
"WHERE a.cod_zona=? AND a.cod_provincia=b.cod_provincia AND ",
|
|
" a.status_t is null AND b.status_t is null AND ",
|
|
criterio clipped," ORDER BY 1"
|
|
|
|
PREPARE buscar FROM selec2
|
|
DECLARE buscar_provincias CURSOR FOR buscar
|
|
OPEN buscar_provincias USING xzona
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
GO TO salir_consulta_p
|
|
END IF
|
|
|
|
IF status >= 0 THEN
|
|
IF status = notfound THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
END IF
|
|
END IF
|
|
LET idx = 1
|
|
|
|
WHILE status != NOTFOUND
|
|
FETCH buscar_provincias INTO provincias[idx].*
|
|
IF status = NOTFOUND THEN
|
|
EXIT WHILE
|
|
END IF
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
EXIT WHILE
|
|
END IF
|
|
|
|
LET idx = idx + 1
|
|
END WHILE
|
|
|
|
CALL set_count(idx-1)
|
|
MESSAGE " <Esc> Selecciona Provincia donde esta el cursor"
|
|
DISPLAY ARRAY provincias TO s_provincias.*
|
|
LET curr1 = arr_curr()
|
|
|
|
LET zonap.cod_provincia = provincias[curr1].cod_provincia
|
|
LET transportista.cod_provincia = provincias[curr1].cod_provincia
|
|
LET descrip1 = provincias[curr1].nombre_provincia
|
|
|
|
LABEL salir_consulta_p:
|
|
CLOSE WINDOW busqueda
|
|
|
|
END FUNCTION
|
|
FUNCTION ayuda()
|
|
MESSAGE "HACER AYUDA"
|
|
END FUNCTION
|
|
FUNCTION busca_nombre_zona()
|
|
SELECT descrip, status_t
|
|
INTO descrip1, status_reg FROM vetb00008
|
|
WHERE cod_zona = transportista.cod_zona
|
|
|
|
IF status >= 0 THEN
|
|
IF status != NOTFOUND THEN
|
|
IF status_reg = "E" THEN
|
|
LET numero_msg = 43
|
|
CALL msg(numero_msg)
|
|
RETURN
|
|
END IF
|
|
|
|
ELSE
|
|
LET numero_msg = 42
|
|
CALL msg(numero_msg)
|
|
RETURN
|
|
END IF
|
|
END IF
|
|
END FUNCTION
|
|
|
|
FUNCTION busca_provincia()
|
|
SELECT a.nombre_provincia, b.status_t INTO descrip1, status_reg
|
|
FROM vetb00020 a, vetb00009 b
|
|
WHERE b.cod_zona = transportista.cod_zona AND
|
|
b.cod_provincia = transportista.cod_provincia AND
|
|
b.cod_provincia = a.cod_provincia AND
|
|
b.status_t is null
|
|
|
|
IF status >= 0 THEN
|
|
IF status != NOTFOUND THEN
|
|
IF status_reg = "E" THEN
|
|
LET numero_msg = 66
|
|
CALL msg(numero_msg)
|
|
RETURN
|
|
END IF
|
|
|
|
ELSE
|
|
LET numero_msg = 65
|
|
CALL msg(numero_msg)
|
|
RETURN
|
|
END IF
|
|
END IF
|
|
END FUNCTION
|
|
|
|
FUNCTION cventas()
|
|
|
|
DEFINE kventas SMALLINT, dventas CHAR(30)
|
|
|
|
#LET pventas = ui.combobox.forname("formonly.ventas")
|
|
|
|
DECLARE bventas CURSOR FOR
|
|
SELECT a.ventas,a.descripcion FROM vetb00061 a
|
|
CALL pventas.clear()
|
|
|
|
FOREACH bventas INTO kventas,dventas
|
|
CALL pventas.additem(kventas,dventas)
|
|
END FOREACH
|
|
CALL pventas.additem(99,"TODAS")
|
|
END FUNCTION
|
|
|
|
|
|
FUNCTION ccondicion()
|
|
DEFINE kcondicion SMALLINT,kdescripcion CHAR(30)
|
|
|
|
|
|
LET pcondicion = ui.combobox.forname("formonly.cond_pago")
|
|
DECLARE busca_cond CURSOR FOR
|
|
SELECT a.cond_pago,a.descrip FROM vetb00012 a
|
|
WHERE a.status_t IS NULL
|
|
ORDER BY a.descrip
|
|
|
|
CALL pcondicion.clear()
|
|
|
|
FOREACH busca_cond INTO kcondicion,kdescripcion
|
|
CALL pcondicion.additem(kcondicion,kdescripcion)
|
|
END FOREACH
|
|
END FUNCTION
|
|
|
|
FUNCTION cvendedor()
|
|
DEFINE k1vendedor SMALLINT, dvendedor CHAR(60)
|
|
|
|
LET k2vendedor = ui.combobox.forname("formonly.kvendedor")
|
|
|
|
DECLARE bvendedor CURSOR FOR
|
|
SELECT UNIQUE b.num_emp,RTRIM(CAST(b.nom1_emp AS CHAR(30)))+" " +
|
|
RTRIM(CAST(b.apell1_emp AS CHAR(30)))+"("+LTRIM(CAST(b.num_emp AS VARCHAR(6)))+")" FROM vetb00028 a,
|
|
adtb00003 b
|
|
WHERE a.sec_vend = b.num_emp
|
|
order by 2
|
|
CALL k2vendedor.clear()
|
|
|
|
FOREACH bvendedor INTO k1vendedor,dvendedor
|
|
CALL k2vendedor.additem(k1vendedor,dvendedor)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
FUNCTION cvendedor1()
|
|
DEFINE k1vendedor SMALLINT, dvendedor CHAR(60)
|
|
|
|
LET k2vendedor = ui.combobox.forname("formonly.kvendedor")
|
|
|
|
DECLARE bvendedor1 CURSOR FOR
|
|
SELECT UNIQUE b.num_emp,RTRIM(CAST(b.nom1_emp AS CHAR(30)))+" " +
|
|
CAST(b.apell1_emp AS CHAR(30)) FROM vetb00028 a,
|
|
adtb00003 b,seg0007 c
|
|
WHERE a.sec_vend = b.num_emp and b.status_t is null and
|
|
a.sec_vend = c.sec_vend AND c.usuario = SUSER_SNAME()
|
|
order by 2
|
|
CALL k2vendedor.clear()
|
|
|
|
FOREACH bvendedor1 INTO k1vendedor,dvendedor
|
|
CALL k2vendedor.additem(k1vendedor,dvendedor)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
|
|
|
|
FUNCTION cvendedor_aux(ktipo,ksec)
|
|
DEFINE k1vendedor SMALLINT, dvendedor CHAR(60),
|
|
ktipo,ksec INT
|
|
|
|
LET k2vendedor = ui.combobox.forname("formonly.sec_vend_aux")
|
|
|
|
DECLARE bvendedor_a CURSOR FOR
|
|
SELECT UNIQUE b.num_emp,RTRIM(CAST(b.nom1_emp AS CHAR(30)))+" " +
|
|
RTRIM(CAST(b.apell1_emp AS CHAR(30)))+"("+LTRIM(CAST(b.num_emp AS VARCHAR(6)))+")"
|
|
FROM vetb00059 a,
|
|
adtb00003 b
|
|
WHERE a.sec_vend_aux = b.num_emp AND a.tipo_cliente = ktipo AND a.sec_cliente = ksec
|
|
order by 2
|
|
CALL k2vendedor.clear()
|
|
|
|
FOREACH bvendedor_a INTO k1vendedor,dvendedor
|
|
CALL k2vendedor.additem(k1vendedor,dvendedor)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
FUNCTION csoporte()
|
|
DEFINE k1vendedor SMALLINT, dvendedor CHAR(60)
|
|
|
|
LET k2vendedor = ui.combobox.forname("formonly.soporte")
|
|
|
|
DECLARE dsoporte CURSOR FOR
|
|
SELECT UNIQUE b.num_emp,RTRIM(CAST(b.nom1_emp AS CHAR(30)))+" " +
|
|
CAST(b.apell1_emp AS CHAR(30)) FROM vetb00076 a,
|
|
adtb00003 b
|
|
WHERE a.sec_vend = b.num_emp and b.status_t is null
|
|
|
|
order by 2
|
|
CALL k2vendedor.clear()
|
|
|
|
FOREACH dsoporte INTO k1vendedor,dvendedor
|
|
CALL k2vendedor.additem(k1vendedor,dvendedor)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
FUNCTION ctipoNegocio(campo)
|
|
DEFINE ktipoNegocio SMALLINT, dtipoNegocio CHAR(30),
|
|
campo VARCHAR(100)
|
|
|
|
|
|
|
|
# LET ptipoNegocio = ui.combobox.forname("formonly.tipo_negocio")
|
|
LET ptipoNegocio = ui.combobox.forname(campo)
|
|
CALL ptipoNegocio.clear()
|
|
|
|
DECLARE btipo_negocio CURSOR FOR
|
|
SELECT a.tipo_negocio,a.descripcion FROM cctb00013 a
|
|
|
|
|
|
FOREACH btipo_negocio INTO ktipoNegocio,dtipoNegocio
|
|
CALL ptipoNegocio.additem(ktipoNegocio,dtipoNegocio)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION ctipoNegocio1()
|
|
DEFINE ktipoNegocio SMALLINT, dtipoNegocio CHAR(30)
|
|
|
|
|
|
|
|
LET ptipoNegocio = ui.combobox.forname("formonly.tiponegocio")
|
|
CALL ptipoNegocio.clear()
|
|
|
|
DECLARE btipo_negocio1 CURSOR FOR
|
|
SELECT a.tipo_negocio,a.descripcion FROM cctb00013 a
|
|
|
|
|
|
FOREACH btipo_negocio1 INTO ktipoNegocio,dtipoNegocio
|
|
CALL ptipoNegocio.additem(ktipoNegocio,dtipoNegocio)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION cciudades()
|
|
DEFINE kciudad SMALLINT,kdescripcion CHAR(30)
|
|
|
|
|
|
|
|
DECLARE busca_ciudad CURSOR FOR
|
|
SELECT a.id_ciudad,a.descripcion FROM vetb00016 a
|
|
WHERE a.status_t IS NULL
|
|
ORDER BY a.descripcion
|
|
|
|
LET pciudad = ui.ComboBox.forName("formonly.id_ciudad")
|
|
CALL pciudad.clear()
|
|
|
|
FOREACH busca_ciudad INTO kciudad,kdescripcion
|
|
IF STATUS = NOTFOUND THEN
|
|
EXIT FOREACH
|
|
END IF
|
|
CALL pciudad.additem(kciudad,kdescripcion)
|
|
END FOREACH
|
|
END FUNCTION
|
|
|
|
FUNCTION ciudad_pais(pcodigo)
|
|
DEFINE kciudad SMALLINT,kdescripcion CHAR(30),
|
|
pcodigo smallint
|
|
|
|
DECLARE ciudad_pais CURSOR FOR
|
|
SELECT a.id_ciudad,a.descripcion FROM vetb00016 a,vetb00020 b
|
|
WHERE a.id_ciudad = b.id_ciudad AND b.cod_provincia = pcodigo
|
|
# WHERE a.status_t IS NULL AND a.cod_provincia = b.cod_provincia AND
|
|
# b.cod_provincia = pcodigo
|
|
ORDER BY a.descripcion
|
|
|
|
LET pciudad = ui.ComboBox.forName("formonly.id_ciudad")
|
|
CALL pciudad.clear()
|
|
|
|
FOREACH ciudad_pais INTO kciudad,kdescripcion
|
|
IF STATUS = NOTFOUND THEN
|
|
EXIT FOREACH
|
|
END IF
|
|
CALL pciudad.additem(kciudad,kdescripcion)
|
|
END FOREACH
|
|
END FUNCTION
|
|
|
|
FUNCTION busca_direcciones(ptipo_cliente,psec_cliente)
|
|
DEFINE ptipo_cliente,psec_cliente INT
|
|
|
|
INITIALIZE cliente_dir.* TO NULL
|
|
SELECT a.* INTO cliente_dir.* FROM vetb00005 a
|
|
WHERE a.tipo_cliente = ptipo_cliente AND
|
|
a.sec_cliente = psec_cliente
|
|
|
|
RETURN cliente_dir.*
|
|
|
|
END FUNCTION
|
|
{
|
|
FUNCTION existencia(pcodn,pcodgrupo,pcodtipo,pcodsec,cantidad,pid,xbodega)
|
|
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,pid,xbodega SMALLINT,
|
|
pexistencia,cantidad DEC(12,5)
|
|
|
|
|
|
LET verdad = FALSE
|
|
|
|
|
|
SELECT SUM(a.cantidad_2) INTO pexistencia
|
|
FROM iptb00006 a
|
|
WHERE a.cod_n=Pcodn and
|
|
a.cod_grupo=Pcodgrupo
|
|
and a.cod_tipo=Pcodtipo and
|
|
a.cod_sec=Pcodsec AND
|
|
a.bodega = xbodega
|
|
and a.status_t IS NULL
|
|
|
|
IF pexistencia IS NULL THEN
|
|
LET pexistencia = 0
|
|
END IF
|
|
|
|
|
|
RETURN pexistencia
|
|
END FUNCTION
|
|
}
|
|
FUNCTION busca_soporte(pcodn,pcodgrupo,pcodtipo,pcodsec)
|
|
|
|
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec INT,
|
|
sventas DYNAMIC ARRAY OF RECORD
|
|
sec_vend INT,
|
|
nombre VARCHAR(80),
|
|
elije VARCHAR(1)
|
|
END RECORD,
|
|
sventas1 DYNAMIC ARRAY OF RECORD
|
|
num_emp INT,
|
|
nombre_adicional VARCHAR(80)
|
|
END RECORD
|
|
|
|
|
|
OPEN WINDOW w1 WITH FORM "vefmwd076"
|
|
DECLARE busca_soporte CURSOR FOR
|
|
SELECT DISTINCT a.sec_vend,b.nom1_emp||' '||b.apell1_emp FROM cctb00008 a,adtb00003 b
|
|
WHERE a.sec_vend = b.num_emp AND
|
|
b.status_t IS NULL AND
|
|
a.cod_n = pcodn AND
|
|
a.cod_grupo = pcodgrupo AND
|
|
a.cod_tipo = pcodtipo AND
|
|
a.cod_sec = pcodsec
|
|
|
|
LET idx = 1
|
|
FOREACH busca_soporte INTO sventas[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
INPUT ARRAY sventas FROM sventas.* ATTRIBUTE(WITHOUT DEFAULTS)
|
|
AFTER INPUT
|
|
FOR idx = 1 TO sventas.getLength()
|
|
IF sventas[idx].elije = 'S' THEN
|
|
LET sventas1[idx].num_emp = sventas[idx].sec_vend
|
|
LET sventas1[idx].nombre_adicional =sventas[idx].nombre
|
|
END IF
|
|
END FOR
|
|
EXIT INPUT
|
|
END INPUT
|
|
|
|
CLOSE WINDOW w1
|
|
RETURN sventas1
|
|
END FUNCTION
|
|
FUNCTION cuenta_soporte(pcodn,pcodgrupo,pcodtipo,pcodsec)
|
|
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,cuenta INT,
|
|
vendedor INT
|
|
|
|
DECLARE numero_soporte CURSOR FOR
|
|
SELECT UNIQUE a.sec_vend FROM cctb00008 a
|
|
WHERE a.cod_n = pcodn AND
|
|
a.cod_grupo = pcodgrupo AND
|
|
a.cod_tipo = pcodtipo AND
|
|
a.cod_sec = pcodsec AND
|
|
a.status_t IS NULL
|
|
|
|
LET idx = 0
|
|
FOREACH numero_soporte INTO vendedor
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
LET cuenta = idx
|
|
RETURN cuenta
|
|
END FUNCTION
|
|
FUNCTION busca_duplicado(soporte1,xusuario)
|
|
DEFINE soporte1 DYNAMIC ARRAY OF RECORD
|
|
num_emp INT,
|
|
nombre_adicional VARCHAR(80)
|
|
END RECORD,
|
|
xusuario CHAR(50)
|
|
DELETE FROM ventas_Soporte WHERE usuario = xusuario
|
|
FOR idx = 1 TO soporte1.getLength()
|
|
INSERT INTO ventas_soporte VALUES (soporte1[idx].*,xusuario)
|
|
END FOR
|
|
DECLARE busca_s CURSOR FOR SELECT DISTINCT a.num_emp,a.nombre FROM ventas_soporte a WHERE a.usuario = xusuario
|
|
|
|
LET idx = 1
|
|
FOREACH busca_s INTO soporte1[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
RETURN soporte1
|
|
END FUNCTION |