jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lsoto prueba de programas

Browse Source
This commit is contained in:
Luis
2026-10-20 21:53:39 -04:00
parent 16ef05828e 9bc9170788
commit 93a4eb40f5
65 changed files with 2286 additions and 2295 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.gitignore
+25
View File
@@ -49,3 +49,28 @@ desktop.ini
# NOTA: se CONSERVAN en el repo -> *.4gl *.per *.4fd *.4pw *.4st *.4ad
# *.sch *.4db (esquema), imagenes (*.png *.jpg), README, docs.
# -- Paquetes GAR: se generan en el build (gsmake -t mbs mbsERP.4pw), no van al repo --
*.gar
# -- bin/IMAGENES: solo las imagenes que usan los programas/reportes --
# (lo demas son fotos, temporales y archivos subidos en ejecucion, p.ej. comprobantes)
PROYECTO/bin/IMAGENES/**
!PROYECTO/bin/IMAGENES/Logo.png
!PROYECTO/bin/IMAGENES/Logo_DCM.png
!PROYECTO/bin/IMAGENES/genero_logo.png
!PROYECTO/bin/IMAGENES/LOGO.JPG
!PROYECTO/bin/IMAGENES/logo1.png
!PROYECTO/bin/IMAGENES/EMPLEADOS/
PROYECTO/bin/IMAGENES/EMPLEADOS/*
!PROYECTO/bin/IMAGENES/EMPLEADOS/.gitkeep
# -- Llaves y certificados: NUNCA en el repo (se entregan aparte a quien los necesite) --
*.jks
*.keystore
*.p12
*.pfx
*.pem
*.key
*.crt
*.cer
MOVIL401/MBSinventario/distbin/gma/project/app/keystore.jks
BIN
View File
Binary file not shown.
PROYECTO/PRDIR/prprmt006.4gl
+67 -56
View File
@@ -7,6 +7,16 @@
------------------------------------------------------------------
}
GLOBALS "prprgb000.4gl"
DEFINE arrprtb08 DYNAMIC ARRAY OF RECORD
cod_n_c LIKE prtb00008.cod_n,
cod_grupo_c LIKE prtb00008.cod_grupo,
cod_tipo_c LIKE prtb00008.cod_tipo,
cod_sec_c LIKE prtb00008.cod_sec,
cantidad_c LIKE prtb00008.cantidad,
descrip_esp_c LIKE intb00001.descrip_esp,
unidad_c LIKE intb00001.unidad_med
END RECORD
DEFINE nombre LIKE vetb00004.nombre,
descrip_esp_c,descrip_esp LIKE iptb00002.descrip_esp,
unidad LIKE iptb00002.unidad_med,
@@ -41,10 +51,11 @@ END MAIN
FORM LINE 9,
ERROR LINE 23,
COMMENT LINE 21
CALL pantalla()
# (pantalla() es el encabezado de la pantalla de texto antigua; no aplica en GUI)
OPEN FORM ctfmmt006 FROM "prfmmt006"
DISPLAY FORM ctfmmt006
CALL pantalla()
CALL ui.Window.getCurrent().setText("Ordenes de Produccion")
# (pantalla() es el encabezado de la pantalla de texto antigua; no aplica en GUI)
DISPLAY "prprmt006" AT 4,3
DISPLAY "Ordenes De Produccion" AT 6,32
@@ -280,13 +291,13 @@ FUNCTION prpcad006()
b.cod_sec = prtb07.cod_sec AND
a.num_oc = b.num_oc
LET idx = 1
FOREACH buscame INTO prtb08[idx].*
FOREACH buscame INTO arrprtb08[idx].*
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
}
INPUT ARRAY prtb08 FROM s_orden.*
INPUT ARRAY arrprtb08 FROM s_orden.*
ON KEY(CONTROL-W)
CALL busca_material()
@@ -295,13 +306,13 @@ FUNCTION prpcad006()
LET scr_l = scr_line()
AFTER FIELD cod_sec_c
LET descrip_esp_c = NULL
IF prtb08[curr].cod_sec_c IS NOT NULL THEN
IF arrprtb08[curr].cod_sec_c IS NOT NULL THEN
SELECT a.descrip_esp,a.unidad_med INTO descrip_esp_c,unidad_c
FROM intb00001 a
WHERE a.cod_n = prtb08[curr].cod_n_c AND
a.cod_grupo = prtb08[curr].cod_grupo_c AND
a.cod_tipo = prtb08[curr].cod_tipo_c AND
a.cod_sec = prtb08[curr].cod_sec_c AND
WHERE a.cod_n = arrprtb08[curr].cod_n_c AND
a.cod_grupo = arrprtb08[curr].cod_grupo_c AND
a.cod_tipo = arrprtb08[curr].cod_tipo_c AND
a.cod_sec = arrprtb08[curr].cod_sec_c AND
a.status_t IS NULL
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
@@ -309,15 +320,15 @@ FUNCTION prpcad006()
NEXT FIELD cod_n_c
END IF
END IF
LET prtb08[curr].descrip_esp_c = descrip_esp_c
LET prtb08[curr].unidad_c = unidad_c
DISPLAY prtb08[curr].descrip_esp_c TO s_orden[scr_l].descrip_esp_c
LET arrprtb08[curr].descrip_esp_c = descrip_esp_c
LET arrprtb08[curr].unidad_c = unidad_c
DISPLAY arrprtb08[curr].descrip_esp_c TO s_orden[scr_l].descrip_esp_c
ATTRIBUTE(BLUE)
DISPLAY prtb08[curr].unidad_c TO s_orden[scr_l].unidad_c
DISPLAY arrprtb08[curr].unidad_c TO s_orden[scr_l].unidad_c
ATTRIBUTE(BLUE)
AFTER FIELD cantidad_c
IF prtb08[curr].cod_n_c IS NOT NULL THEN
IF prtb08[curr].cantidad_c IS NULL THEN
IF arrprtb08[curr].cod_n_c IS NOT NULL THEN
IF arrprtb08[curr].cantidad_c IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cantidad_c
@@ -347,23 +358,23 @@ FUNCTION prpcad006()
# 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
IF prtb08[1].cod_n_c IS NULL THEN
LET prtb08[1].cod_n_c = prtb07.cod_n
LET prtb08[1].cod_grupo_c = prtb07.cod_grupo
LET prtb08[1].cod_tipo_c = prtb07.cod_tipo
LET prtb08[1].cod_sec_c = prtb07.cod_Sec
OUTPUT TO REPORT ordenes(prtb07.num_oc,prtb08[idx].*)
IF arrprtb08[1].cod_n_c IS NULL THEN
LET arrprtb08[1].cod_n_c = prtb07.cod_n
LET arrprtb08[1].cod_grupo_c = prtb07.cod_grupo
LET arrprtb08[1].cod_tipo_c = prtb07.cod_tipo
LET arrprtb08[1].cod_sec_c = prtb07.cod_Sec
OUTPUT TO REPORT ordenes(prtb07.num_oc,arrprtb08[idx].*)
END IF
FOR idx = 1 TO arr_count()
IF prtb08[idx].cod_n_c IS NOT NULL THEN
IF arrprtb08[idx].cod_n_c IS NOT NULL THEN
INSERT INTO prtb00008 VALUES (prtb07.num_oc,
prtb08[idx].cod_n_c,
prtb08[idx].cod_grupo_c,
prtb08[idx].cod_tipo_c,
prtb08[idx].cod_sec_c,
prtb08[idx].cantidad_c,
arrprtb08[idx].cod_n_c,
arrprtb08[idx].cod_grupo_c,
arrprtb08[idx].cod_tipo_c,
arrprtb08[idx].cod_sec_c,
arrprtb08[idx].cantidad_c,
SUSER_SNAME(),current,null,null)
OUTPUT TO REPORT ordenes(prtb07.num_oc,prtb08[idx].*)
OUTPUT TO REPORT ordenes(prtb07.num_oc,arrprtb08[idx].*)
END IF
END FOR
FINISH REPORT ordenes
@@ -534,24 +545,24 @@ LABEL sale9:
END FUNCTION
FUNCTION limpia()
FOR idx = 1 TO 10
LET prtb08[idx].cod_n_c = null
LET prtb08[idx].cod_grupo_c = null
LET prtb08[idx].cod_tipo_c = null
LET prtb08[idx].cod_sec_c = null
LET prtb08[idx].unidad_c = null
LET prtb08[idx].cantidad_c = null
LET prtb08[idx].descrip_esp_c = null
LET arrprtb08[idx].cod_n_c = null
LET arrprtb08[idx].cod_grupo_c = null
LET arrprtb08[idx].cod_tipo_c = null
LET arrprtb08[idx].cod_sec_c = null
LET arrprtb08[idx].unidad_c = null
LET arrprtb08[idx].cantidad_c = null
LET arrprtb08[idx].descrip_esp_c = null
END FOR
FOR idx = 1 TO 5
DISPLAY prtb08[idx].cod_n_c TO s_orden[idx].cod_n_c
DISPLAY prtb08[idx].cod_grupo_c TO s_orden[idx].cod_grupo_c
DISPLAY prtb08[idx].cod_tipo_c TO s_orden[idx].cod_tipo_c
DISPLAY prtb08[idx].cod_sec_c TO s_orden[idx].cod_sec_c
DISPLAY prtb08[idx].cantidad_c TO s_orden[idx].cantidad_c
DISPLAY arrprtb08[idx].cod_n_c TO s_orden[idx].cod_n_c
DISPLAY arrprtb08[idx].cod_grupo_c TO s_orden[idx].cod_grupo_c
DISPLAY arrprtb08[idx].cod_tipo_c TO s_orden[idx].cod_tipo_c
DISPLAY arrprtb08[idx].cod_sec_c TO s_orden[idx].cod_sec_c
DISPLAY arrprtb08[idx].cantidad_c TO s_orden[idx].cantidad_c
DISPLAY prtb08[idx].descrip_esp_c TO s_orden[idx].descrip_esp_c
DISPLAY arrprtb08[idx].descrip_esp_c TO s_orden[idx].descrip_esp_c
ATTRIBUTE(BLUE)
DISPLAY prtb08[idx].unidad_c TO s_orden[idx].unidad_c
DISPLAY arrprtb08[idx].unidad_c TO s_orden[idx].unidad_c
ATTRIBUTE(BLUE)
END FOR
@@ -565,28 +576,28 @@ FUNCTION busca_detalle()
WHERE a.num_oc = numero_oc
LET idx = 1
FOREACH busca_d INTO prtb08[idx].*
FOREACH busca_d INTO arrprtb08[idx].*
SELECT a.descrip_esp,a.unidad_med INTO descrip_esp_c,unidad_c
FROM intb00001 a
WHERE a.cod_n = prtb08[idx].cod_n_c AND
a.cod_grupo = prtb08[idx].cod_grupo_c AND
a.cod_tipo = prtb08[idx].cod_tipo_c AND
a.cod_sec = prtb08[idx].cod_sec_c AND
WHERE a.cod_n = arrprtb08[idx].cod_n_c AND
a.cod_grupo = arrprtb08[idx].cod_grupo_c AND
a.cod_tipo = arrprtb08[idx].cod_tipo_c AND
a.cod_sec = arrprtb08[idx].cod_sec_c AND
a.status_t IS NULL
IF idx > 5 THEN
EXIT FOREACH
END IF
LET prtb08[idx].descrip_esp_c = descrip_esp_c
LET prtb08[idx].unidad_c = unidad_c
DISPLAY prtb08[idx].cod_n_c TO s_orden[idx].cod_n_c
DISPLAY prtb08[idx].cod_grupo_c TO s_orden[idx].cod_grupo_c
DISPLAY prtb08[idx].cod_tipo_c TO s_orden[idx].cod_tipo_c
DISPLAY prtb08[idx].cod_sec_c TO s_orden[idx].cod_sec_c
DISPLAY prtb08[idx].cantidad_c TO s_orden[idx].cantidad_c
LET arrprtb08[idx].descrip_esp_c = descrip_esp_c
LET arrprtb08[idx].unidad_c = unidad_c
DISPLAY arrprtb08[idx].cod_n_c TO s_orden[idx].cod_n_c
DISPLAY arrprtb08[idx].cod_grupo_c TO s_orden[idx].cod_grupo_c
DISPLAY arrprtb08[idx].cod_tipo_c TO s_orden[idx].cod_tipo_c
DISPLAY arrprtb08[idx].cod_sec_c TO s_orden[idx].cod_sec_c
DISPLAY arrprtb08[idx].cantidad_c TO s_orden[idx].cantidad_c
DISPLAY prtb08[idx].descrip_esp_c TO s_orden[idx].descrip_esp_c
DISPLAY arrprtb08[idx].descrip_esp_c TO s_orden[idx].descrip_esp_c
ATTRIBUTE(BLUE)
DISPLAY prtb08[idx].unidad_c TO s_orden[idx].unidad_c
DISPLAY arrprtb08[idx].unidad_c TO s_orden[idx].unidad_c
ATTRIBUTE(BLUE)
LET idx = idx + 1
END FOREACH
PROYECTO/acdir/acprmt001.4gl
+18 -6
View File
@@ -442,6 +442,11 @@ FUNCTION acpcad001() --Consultar Datos Activo
LET i = i + 1
END FOREACH
-- el FOREACH deja un elemento vacio al final; al seleccionarlo getdata armaba
-- "WHERE a.codigo = " sin valor (-201) y el programa se caia
IF DisArray.getLength() >= i THEN
CALL DisArray.deleteElement(i)
END IF
END FUNCTION
@@ -470,12 +475,12 @@ FUNCTION getdata(idx INT)
,a.id_MaintainX
,a.id_codigo
,b.nombre
FROM actb00001 a left join irtb00009 b on a.id_codigo = b.codigo
WHERE a.codigo = " || DisArray[idx].codigo1 || "
AND a.status_t is null and b.status_t is null
FROM actb00001 a left join irtb00009 b on a.id_codigo = b.codigo AND b.status_t is null
WHERE a.codigo = ?
AND a.status_t is null
ORDER BY a.codigo"
EXECUTE query INTO infoArray.*
EXECUTE query USING DisArray[idx].codigo1 INTO infoArray.*
SELECT a.descripcion
INTO des.descripcion2
@@ -568,6 +573,9 @@ FUNCTION insertData()
IF infoArray.id_MaintainX IS NULL THEN
ROLLBACK WORK
-- antes seguia grabando fuera de la transaccion (el COMMIT caia -255)
CALL fgl_winmessage("MaintainX", "NO SE PUDO REGISTRAR EN MAINTAINX, OPERACION CANCELADA", "stop")
RETURN
END IF
END IF
@@ -701,6 +709,8 @@ INITIALIZE checking TO NULL
IF answer IS NULL THEN
ROLLBACK WORK
CALL fgl_winmessage("MaintainX", "NO SE PUDO ACTUALIZAR MAINTAINX, OPERACION CANCELADA", "stop")
RETURN
END IF
END IF
@@ -811,11 +821,13 @@ INITIALIZE checking TO NULL
END IF
IF infoArray.id_MaintainX IS NOT NULL THEN
CALL ApiMaintainX('DELETE',infoArray.id_MaintainX,maquinaria.*, infoArray.*,extraCampos.*,NULL)
CALL ApiMaintainX('DELETE',infoArray.id_MaintainX,infoArray.*,maquinaria.*,extraCampos.*,NULL) -- antes maquinaria/infoArray invertidos
RETURNING answer
IF answer != 1 THEN
IF answer != 1 OR answer IS NULL THEN
ROLLBACK WORK
CALL fgl_winmessage("MaintainX", "NO SE PUDO ELIMINAR EN MAINTAINX, OPERACION CANCELADA", "stop")
RETURN
END IF
END IF
PROYECTO/acdir/acprmt001_alter_actb00001.sql
+17
View File
@@ -0,0 +1,17 @@
-- acprmt001 (version ene-2025, integracion MaintainX) usa 4 columnas que nunca se
-- crearon en actb00001: proveedor del activo, tipo de activo y activo padre.
-- Todas NULL: no afectan filas existentes ni a los programas que no las usan.
-- Ejecutar primero en la .250 (QA G6); en produccion (.40.8) solo cuando se apruebe.
USE marmotech;
GO
IF COL_LENGTH('dbo.actb00001','cod_sp') IS NULL
ALTER TABLE dbo.actb00001 ADD cod_sp INT NULL; -- cotb00001.cod_sp (proveedor)
IF COL_LENGTH('dbo.actb00001','cod_sp_sec') IS NULL
ALTER TABLE dbo.actb00001 ADD cod_sp_sec INT NULL; -- cotb00001.cod_sp_sec
IF COL_LENGTH('dbo.actb00001','tipo_activo') IS NULL
ALTER TABLE dbo.actb00001 ADD tipo_activo VARCHAR(30) NULL; -- CAMIONES, IT HARDWARE, MAQUINARIAS, MONTACARGAS, EDIFICIOS
IF COL_LENGTH('dbo.actb00001','activo_padre') IS NULL
ALTER TABLE dbo.actb00001 ADD activo_padre INT NULL; -- actb00001.codigo del activo padre
GO
SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('dbo.actb00001')
AND name IN ('cod_sp','cod_sp_sec','tipo_activo','activo_padre');
PROYECTO/addir/adfmwd008.per
+1 -1
View File
@@ -7,7 +7,7 @@
FECHA REALIZACION : Junio 24, 1993
------------------------------------------------------------------------
}
DATABASE rayovac
DATABASE smarmotech
SCREEN SIZE 24 by 80
{
Busqueda de los Niveles de Empleados
PROYECTO/addir/adprmt001.4gl
+11 -11
View File
@@ -55,7 +55,8 @@ FUNCTION adpcad001()
{WHENEVER ERROR CONTINUE}
## CAPTURA LOS DATOS QUE VA A CONTENER EL REGISTRO
INPUT BY NAME depto.* #,m_estado_a,m_estado_m
INPUT BY NAME depto.departamento, depto.nom_dpto, depto.status_t, depto.us_crea,
depto.fech_crea, depto.us_mod, depto.fech_mod #,m_estado_a,m_estado_m
## VERIFICA QUE EL CODIGO NO EXISTA EN EL CATALOGO DE DEPARTAMENTO. SI EXISTE,
## ENTONCES DESPLEGA LOS DATOS DEL REGISTRO EXISTENTE.
@@ -77,7 +78,8 @@ FUNCTION adpcad001()
NEXT FIELD departamento
END IF
DISPLAY BY NAME depto.*
DISPLAY BY NAME depto.departamento, depto.nom_dpto, depto.status_t, depto.us_crea,
depto.fech_crea, depto.us_mod, depto.fech_mod
LET numero_msg = 12
CALL msg(numero_msg)
LET depto.nom_dpto = NULL
@@ -113,10 +115,12 @@ FUNCTION adpcad001()
CALL msg(numero_msg)
NEXT FIELD nom_dpto
ELSE
INSERT INTO adtb00001 VALUES (depto.departamento,depto.nom_dpto,
INSERT INTO adtb00001 (departamento,nom_dpto,status_t,us_crea,fech_crea,us_mod,fech_mod)
VALUES (depto.departamento,depto.nom_dpto,
null, SUSER_SNAME (), GETDATE (), null, null)
INSERT INTO adtb00029 VALUES (depto.departamento,m_estado_a,m_estado_m,
INSERT INTO adtb00029 (departamento,estado_a,estado_m,depto_ant,estatus_t,us_crea,fech_crea,us_mod,fech_mod)
VALUES (depto.departamento,m_estado_a,m_estado_m,
depto.departamento,null,SUSER_SNAME(), GETDATE (),null,null)
LET m_depto = depto.departamento
@@ -159,7 +163,7 @@ FUNCTION adpcmf001()
RETURN
END IF
LET SELEC = " SELECT UNIQUE * FROM adtb00001 where ",
LET SELEC = " SELECT DISTINCT * FROM adtb00001 where ",
" status_t is null and ",
criterio clipped,
" ORDER BY 1"
@@ -246,9 +250,7 @@ FUNCTION adpcmf001()
END IF
## SE SELECCIONAN LOS CAMPOS QUE SON MODIFICABLES
INPUT BY NAME depto.nom_dpto,
m_estado_a,
m_estado_m WITHOUT DEFAULTS
INPUT BY NAME depto.nom_dpto WITHOUT DEFAULTS
AFTER FIELD nom_dpto
IF depto.nom_dpto IS NULL THEN
@@ -283,9 +285,7 @@ FUNCTION adpcmf001()
UPDATE chequeo SET nom_dpto = depto.nom_dpto
WHERE departamento = depto.departamento
UPDATE adtb00029 SET estado_a = m_estado_a,
estado_m = m_estado_m,
us_mod = SUSER_NAME(),
UPDATE adtb00029 SET us_mod = SUSER_NAME(),
fech_mod = GETDATE()
WHERE departamento = depto.departamento
PROYECTO/addir/adprmt017.4gl
+18 -18
View File
@@ -289,7 +289,7 @@ FUNCTION adpcad017()
## SELECCIONA LA FECHA DE INGRESO Y EL SUELDO DE LA TABLA DE CONTRATACION
## Y SELECCION DE EMPLEADOS
SELECT UNIQUE convert(char(10),a.fech_efec,101),a.sueldo,b.cod_sol
SELECT UNIQUE a.fech_efec,a.sueldo,b.cod_sol
INTO contra.fech_efec,contra.sueldo,parece.cod_sol
FROM adtb00019 a,adtb00018 b
WHERE a.cod_sol = b.cod_sol and b.cod_sol = acc_per.cod_sol and
@@ -301,7 +301,7 @@ FUNCTION adpcad017()
END IF
IF xtipo <> 'INGRESO' THEN
IF xtipo IS NULL OR xtipo <> 'INGRESO' THEN
LET acc_per.cod_sol = NULL
NEXT FIELD fecha
END IF
@@ -309,9 +309,9 @@ FUNCTION adpcad017()
## VERIFICA QUE EL SOLICITANTE EXISTE EN LA TABLA DE SOLICITANTES. SI EXISTE
## LO PRESENTA EN PANTALLA.
SELECT cod_sol,convert(char(10),fecha,101),nom1_sol,nom2_sol,apell1_sol,
SELECT cod_sol,fecha,nom1_sol,nom2_sol,apell1_sol,
apell2_sol,calle,casa_num,barrio,urbanizacion,telefono,
cod_provincia,convert(char(10),fech_nac,101),cod_nac,estado_civil,estatura,
cod_provincia,fech_nac,cod_nac,estado_civil,estatura,
peso,cedula,licencia,tipo_sangre,cod_puesto,
cod_prof,sexo,status_t,us_crea,fech_crea,us_mod,fech_mod,
serie
@@ -372,12 +372,12 @@ FUNCTION adpcad017()
## CHEQUEA QUE EL EMPLEADO EXISTA EN LA TABLA DE EMPLEADOS. SI EXISTE
## DESPLEGA TODA LA INFORMACION REFERENTE AL EMPLEADO.
IF xtipo <> 'INGRESO' THEN
IF xtipo IS NULL OR xtipo <> 'INGRESO' THEN
SELECT b.departamento,b.nivel_emp,b.cod_puesto,b.nom1_emp,
b.nom2_emp,b.apell1_emp,b.apell2_emp,b.sueldo_ac,
b.nomina,b.estado_civil,b.tipo_sangre,
b.cedula,b.cuenta_no,CONVERT(char(10),b.fech_efec,103),b.tipo_sueldo
b.cedula,b.cuenta_no,b.fech_efec,b.tipo_sueldo
INTO acc_per.departamento,acc_per.nivel_emp,acc_per.cod_puesto,
nombre9,nombre10,apellido9,apellido10,acc_per.sueldo_ac,
acc_per.nomina,acc_per.estado_civil,acc_per.tipo_sangre,
@@ -402,8 +402,8 @@ FUNCTION adpcad017()
WHERE k.cod_puesto = acc_per.cod_puesto and k.status_t is null
SELECT UNIQUE a.sexo INTO acc_per.sexo FROM adtb00021 a
WHERE a.num_emp = acc_per.num_emp AND a.cod_par = 0 AND
a.sec_par = 0
WHERE a.num_emp = acc_per.num_emp AND ISNULL(a.cod_par,0) = 0 AND
ISNULL(a.sec_par,0) = 0
SELECT a.nis INTO pnis FROM adtb00030 a
WHERE a.num_emp = acc_per.num_emp
@@ -905,7 +905,7 @@ FUNCTION adpcad017()
personal.serie USING "<<<"
SELECT UNIQUE num_emp FROM adtb00021
WHERE num_emp = acc_per.num_emp AND cod_par = 0 AND sec_par = 0
WHERE num_emp = acc_per.num_emp AND ISNULL(cod_par,0) = 0 AND ISNULL(sec_par,0) = 0
IF STATUS = NOTFOUND THEN
@@ -1001,14 +1001,14 @@ FUNCTION adpcmf017()
END IF
LET selec =
"SELECT UNIQUE a.num_trx,a.cod_mto,a.cod_sol,convert(char(10),a.fecha,103), ",
" CONVERT(CHAR(10),a.fech_efec,103),a.num_emp,a.departamento,a.nivel_emp,a.cod_puesto, ",
"SELECT UNIQUE a.num_trx,a.cod_mto,a.cod_sol,a.fecha, ",
" a.fech_efec,a.num_emp,a.departamento,a.nivel_emp,a.cod_puesto, ",
" a.sueldo_ac,a.nomina,a.estado_civil,b.sexo,a.tipo_sangre, ",
" a.sueldo_lq,a.observacion,a.num1_emp,a.departamento1, ",
" a.nivel1_emp,a.cod1_puesto,a.num2_emp,a.departamento2, ",
" a.nivel2_emp,a.cod2_puesto,a.num3_emp,a.departamento3, ",
" a.nivel3_emp,a.cod3_puesto,c.cedula,a.us_crea,a.fech_crea,a.us_mod, ",
" a.fech_mod,CASE a.status_t WHEN 'E' THEN 'ANULADO' ELSE 'ACTIVO' END, CONVERT(CHAR(10),c.fech_nac,103) ",
" a.fech_mod,CASE a.status_t WHEN 'E' THEN 'ANULADO' ELSE 'ACTIVO' END, c.fech_nac ",
"FROM adtb00020 a,adtb00003 c LEFT OUTER JOIN adtb00021 b ON b.num_emp = c.num_emp ",
"WHERE a.num_emp = c.num_emp AND ",criterio clipped,
" ORDER BY a.num_emp"
@@ -1580,7 +1580,7 @@ FUNCTION adpcmf017()
END IF
UPDATE adtb00021 SET sexo = acc_per.sexo WHERE num_emp = acc_per.num_emp
AND cod_par = 0 AND sec_par=0
AND ISNULL(cod_par,0) = 0 AND ISNULL(sec_par,0) = 0
UPDATE adtb00017 SET departamento = acc_per.departamento,
nivel_emp = acc_per.nivel_emp,
cod_puesto = acc_per.cod_puesto,
@@ -1668,7 +1668,7 @@ FUNCTION desplegar()
SELECT b.departamento,b.nivel_emp,b.cod_puesto,b.nom1_emp,
b.nom2_emp,b.apell1_emp,b.apell2_emp,b.sueldo_ac,
b.nomina,b.estado_civil,b.tipo_sangre,
b.cedula,b.cuenta_no,CONVERT(char(10),b.fech_efec,103),
b.cedula,b.cuenta_no,b.fech_efec,
b.sueldo_ac
INTO acc_per.departamento,acc_per.nivel_emp,acc_per.cod_puesto,
nombre9,nombre10,apellido9,apellido10,acc_per.sueldo_ac,
@@ -1764,7 +1764,7 @@ nombre5 clipped," ",nombre6 clipped," ",apellido5 clipped," ",apellido6 clipped
## DATOS VACACIONES
IF xtipo = 'VACACIONES' THEN
INITIALIZE vacacion.* TO NULL
SELECT a.cod_mov,a.cod_mov2,a.num_dias_disfrute,CONVERT(CHAR(10),a.fecha_sal,103),CONVERT(CHAR(10),a.fecha_ent,103),
SELECT a.cod_mov,a.cod_mov2,a.num_dias_disfrute,a.fecha_sal,a.fecha_ent,
a.num_nomi,
a.num_dias_disfrute,a.periodo,a.valor_vacaciones,a.num_dias_pagados,a.proporcion_vacaciones
INTO vacacion.cod_mov1,vacacion.cod_mov2,vacacion.dias_vac,vacacion.fecha_sal,vacacion.fecha_ent,
@@ -1930,7 +1930,7 @@ FUNCTION vacaciones(operacion)
LET salario_acumulado = 0
IF vacacion.cod_mov1 = 36 THEN
LET salario = 0
SELECT CONVERT(CHAR(10),a.fech_efec,103),a.sueldo_ac INTO fecha_entrada_emp,salario
SELECT a.fech_efec,a.sueldo_ac INTO fecha_entrada_emp,salario
FROM adtb00003 a
WHERE a.num_emp = acc_per.num_emp
@@ -2011,7 +2011,7 @@ FUNCTION vacaciones(operacion)
END INPUT
ELSE
LET salario = 0
SELECT CONVERT(CHAR(10),a.fech_efec,103),a.sueldo_ac INTO fecha_entrada_emp,salario
SELECT a.fech_efec,a.sueldo_ac INTO fecha_entrada_emp,salario
FROM adtb00003 a
WHERE a.num_emp = acc_per.num_emp
LET salario_quincenal = salario /2
@@ -2733,7 +2733,7 @@ ON EVERY ROW
SELECT COUNT(*) INTO depende FROM adtb00013
WHERE cod_sol = codigo_s AND cod_par = 4
SELECT a.cod_provincia,CONVERT(CHAR(10),a.fech_nac,103),a.cod_nac
SELECT a.cod_provincia,a.fech_nac,a.cod_nac
INTO cod_provincia,fecha_nac,codigo_n
FROM adtb00012 a
WHERE a.cod_sol = codigo_s
PROYECTO/addir/adprmt027.4gl
+2 -4
View File
@@ -30,8 +30,6 @@ MAIN
CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave
CALL ARG_VAL(3) RETURNING impresor
let usuarios = "kpolanco"
let clave = "RevolutionX3"
CONNECT to "smarmotech" USER usuarios USING clave
SELECT a.* INTO p_companias.* FROM companias a
CALL adprmt027()
@@ -183,8 +181,8 @@ DEFINE elimina CHAR(3)
LET SELEC = " SELECT a.ano,a.num_emp,a.cod_puesto,a.nom1_emp,a.nom2_emp, ",
" a.apell1_emp,a.apell2_emp, ",
" a.cedula,a.serie,a.nomina,CONVERT(CHAR(10),a.fecha_ing,103), ",
" a.nom_puesto,CONVERT(CHAR(10),a.fech_vac,103) ",
" a.cedula,a.serie,a.nomina,a.fecha_ing, ",
" a.nom_puesto,a.fech_vac ",
" FROM vacaciones a ",
" WHERE ",
criterio clipped,
PROYECTO/bin/4307810_identity.p12
BIN
View File
Binary file not shown.
PROYECTO/bin/IMAGENES/Logo_DCM.bmp
BIN
View File
Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 280 KiB

PROYECTO/bin/IMAGENES/files.txt
-1107
View File
File diff suppressed because it is too large Load Diff
PROYECTO/bin/IMAGENES/imagenessistema/cliente/15.jpg
BIN
View File
Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 179 KiB

PROYECTO/bin/IMAGENES/imagenessistema/clientes
BIN
View File
Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 179 KiB

PROYECTO/bin/IMAGENES/imagenessistema/cobros/PG-55333.jpg
BIN
View File
Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 12 KiB

PROYECTO/bin/IMAGENES/imagenessistema/cobros/PG-55334.jpg
BIN
View File
Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 272 KiB

PROYECTO/bin/IMAGENES/imagenessistema/cobros/PG-55336.jpg
BIN
View File
Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 12 KiB

PROYECTO/bin/IMAGENES/jhonnydis.jpg
BIN
View File
Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 272 KiB

PROYECTO/bin/IMAGENES/lana - copia.PNG
BIN
View File
Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 171 KiB

PROYECTO/bin/IMAGENES/ricardo1.png
BIN
View File
Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 93 KiB

PROYECTO/bin/IMAGENES/tmpfile.jpg
BIN
View File
Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 128 KiB

PROYECTO/bin/cert/marmotech/4302645_identity.p12
BIN
View File
Binary file not shown.
PROYECTO/bin/cert/marmotech/onlyCert.pem
-57
View File
@@ -1,57 +0,0 @@
Bag Attributes
localKeyID: 15 71 37 CA B9 91 AF C3 2B F7 1C 93 77 95 22 F8
subject=street=CALLE CENTRAL MADREVIEJA NORTE,09010,San Cristobal, CN=JORGE RICARDO SUBERO ISA, serialNumber=IDCDO-01300048665, GN=JORGE RICARDO, SN=SUBERO ISA, C=DO
issuer=organizationIdentifier=VATDO-40102368, CN=digifirma CA Subordinada 1, OU=digifirma, O=Cámara de Comercio y Producción de Santo Domingo, L=Distrito Nacional, C=DO
-----BEGIN CERTIFICATE-----
MIIJgDCCB2igAwIBAgIILvImiGW0S1gwDQYJKoZIhvcNAQELBQAwgbgxFzAVBgNV
BGEMDlZBVERPLTQwMTAyMzY4MSMwIQYDVQQDDBpkaWdpZmlybWEgQ0EgU3Vib3Jk
aW5hZGEgMTESMBAGA1UECwwJZGlnaWZpcm1hMTswOQYDVQQKDDJDw6FtYXJhIGRl
IENvbWVyY2lvIHkgUHJvZHVjY2nDs24gZGUgU2FudG8gRG9taW5nbzEaMBgGA1UE
BwwRRGlzdHJpdG8gTmFjaW9uYWwxCzAJBgNVBAYTAkRPMB4XDTI1MDkwMzE1MDcw
MFoXDTI3MDkwMzE1MDcwMFowgbYxOzA5BgNVBAkMMkNBTExFIENFTlRSQUwgTUFE
UkVWSUVKQSBOT1JURSwwOTAxMCxTYW4gQ3Jpc3RvYmFsMSEwHwYDVQQDDBhKT1JH
RSBSSUNBUkRPIFNVQkVSTyBJU0ExGjAYBgNVBAUTEUlEQ0RPLTAxMzAwMDQ4NjY1
MRYwFAYDVQQqDA1KT1JHRSBSSUNBUkRPMRMwEQYDVQQEDApTVUJFUk8gSVNBMQsw
CQYDVQQGEwJETzCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAJDFW87A
Vh9FknnJSlXpHVzRnuS5hzcQlpXVweQvVxEAXksq6i2bX7UCrS6RFOyR1fm59daQ
uxyk3Ralk4StBMUXg1fpVe1WWi4+rDccIHtRf+SvC7bhCAITk6kUnWGLs03ZrAIx
WmQQtQCF8KMIVhSqIGnKRR3UzKq0s9Mi/yBSkvLobuSUDJFpV80cdt17eww9BiHE
MnyoedHJ+Dd/11UAFehnhNhzNvIJwdWu2TZO2SAKPmAHc2oZwHkCz0laQAbWwrq2
vEXQ55Hw8mclhE3c/zqUjn/KDlmfXaTK2gilvGPnFjQqIR7PeXD9WfKMQZDDcJr9
w59o+lGL7NNbHJkCAwEAAaOCBIwwggSIMHoGCCsGAQUFBwEDBG4wbDAIBgYEAI5G
AQEwCwYGBACORgEDAgEUMAgGBgQAjkYBBDA0BgYEAI5GAQUwKjAoFiJodHRwczov
L2Rwcy5jYW1hcmFzYW50b2RvbWluZ28uZG8vEwJFTjATBgYEAI5GAQYwCQYHBACO
RgEGATCB3AYIKwYBBQUHAQEEgc8wgcwwSAYIKwYBBQUHMAKGPGh0dHBzOi8vd3d3
LmNhbWFyYXNhbnRvZG9taW5nby5kby9kaWdpZmlybWEvQ0NQU0RfY2FkZW5hLmNy
dDA/BggrBgEFBQcwAYYzaHR0cDovL29jc3AxLmNhbWFyYXNhbnRvZG9taW5nby5k
by9wdWJsaWMvcGtpL29jc3AvMD8GCCsGAQUFBzABhjNodHRwOi8vb2NzcDIuY2Ft
YXJhc2FudG9kb21pbmdvLmRvL3B1YmxpYy9wa2kvb2NzcC8wHQYDVR0OBBYEFFdr
vC9iM4+tPDIWPR+/gnqvDeTdMB8GA1UdIwQYMBaAFM7rpVkdIemjmSWnCkqsx5WQ
BhELMCoGA1UdEgQjMCGBH2RpZ2lmaXJtYUBjYW1hcmFzYW50b2RvbWluZ28uZG8w
ggHZBgNVHSAEggHQMIIBzDAJBgcEAIvsQAEAMIIBvQYLKwYBBAGBzHwBAwEwggGs
MC4GCCsGAQUFBwIBFiJodHRwczovL2Nwcy5jYW1hcmFzYW50b2RvbWluZ28uZG8v
MIIBeAYIKwYBBQUHAgIwggFqHoIBZgBDAGUAcgB0AGkAZgBpAGMAYQBkAG8AIABw
AGEAcgBhACAAcAByAG8AYwBlAGQAaQBtAGkAZQBuAHQAbwBzACAAdAByAGkAYgB1
AHQAYQByAGkAbwBzACAAZQBuACAAcAAxADIAIABlAG0AaQB0AGkAZABvACAAcABv
AHIAIABDAEMAUABTAEQALAAgAHUAYgBpAGMAYQBkAG8AIABBAHYAZQAuACAAMgA3
ACAAZABlACAAZgBlAGIAcgBlAHIAbwAgAGUAcwBxACAAdABpAHIAYQBkAGUAbgB0
AGUAcwAgADIAMgA4ACAAdABvAHIAcgBlACAAZgByAGkAdQBzAGEALAAgAEwAYQAg
AEUAcwBwAGUAcgBpAGwAbABhACwAIABTAGEAbgB0AG8AIABEAG8AbQBpAG4AZwBv
ACwAIABSAGUAcAD6AGIAbABpAGMAYQAgAEQAbwBtAGkAbgBpAGMAYQBuAGEwgY8G
A1UdHwSBhzCBhDBAoD6gPIY6aHR0cDovL2NybDEuY2FtYXJhc2FudG9kb21pbmdv
LmRvL3B1YmxpYy9wa2kvY3JsL0NDUFNELmNybDBAoD6gPIY6aHR0cDovL2NybDIu
Y2FtYXJhc2FudG9kb21pbmdvLmRvL3B1YmxpYy9wa2kvY3JsL0NDUFNELmNybDAO
BgNVHQ8BAf8EBAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMCEG
A1UdEQQaMBiBFmpzb3RvQG1hcm1vdGVjaC5jb20uZG8wDQYJKoZIhvcNAQELBQAD
ggIBAIiGfGfXGgO5zHP5BkVKAUHMkKrUP7G3ohexFPp53Io1WbdL3L7oE8EtArLQ
yySdWr+0Yxb/6VE74krBUb+RhpghKlIhOTqsJvOL8Bdo3prI23hZWi2A4wHZn99W
3pISBU2PE8QTodoaR0yOpIgqyYCIZmgHGSExFymDHp8iwfqxSS3HWnXgK5eI5iU/
Zisl9bPBhHrFR1j9WjnZTx7IxocGmvd/efn26dJ3MgTP/TUx0P7jatukcTUazl6N
9Ht/rHFBSan9vzG+rgSPRvT/flIRhSJyUvVuBGv1+NJWy5R1HoazlVO0cR4QB+U3
nvg6E1j0ceccybWjIowA38pU/YpI81UVXSl0dbtwrFPrRmMzfnvMATX8H1NrOb98
cLlIss9U1yWQxdyTes4mItBTYjA0K0ESUFGKL3ZputaM7KDW85kWkjXQj/TJP4DC
lyzO4SjVx9ZFqSkz+yFzlvbfTU7clVshJHYxlmuO+nou19+2l7SPHz2UaikU4JAm
dn9bNIypte31BF30rahUywK6ePT1nQ5xL1tSIe2m9BtyG/45yiHobm7kljEeBl4E
zkY2mFEp84cH4s28BbRF/S2p8xkGFqNtDKa+DwcWd97IG+62en+/2vE75a9KRUxn
eW8Ipl6P/e5moXyLYLZS0lMGShBom8cTYdLFFRAPbksXIa5U
-----END CERTIFICATE-----
PROYECTO/bin/cert/marmotech/onlyPK.pem
-31
View File
@@ -1,31 +0,0 @@
Bag Attributes
localKeyID: 15 71 37 CA B9 91 AF C3 2B F7 1C 93 77 95 22 F8
Key Attributes: <No Attributes>
-----BEGIN PRIVATE KEY-----
MIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQCQxVvOwFYfRZJ5
yUpV6R1c0Z7kuYc3EJaV1cHkL1cRAF5LKuotm1+1Aq0ukRTskdX5ufXWkLscpN0W
pZOErQTFF4NX6VXtVlouPqw3HCB7UX/krwu24QgCE5OpFJ1hi7NN2awCMVpkELUA
hfCjCFYUqiBpykUd1MyqtLPTIv8gUpLy6G7klAyRaVfNHHbde3sMPQYhxDJ8qHnR
yfg3f9dVABXoZ4TYczbyCcHVrtk2TtkgCj5gB3NqGcB5As9JWkAG1sK6trxF0OeR
8PJnJYRN3P86lI5/yg5Zn12kytoIpbxj5xY0KiEez3lw/VnyjEGQw3Ca/cOfaPpR
i+zTWxyZAgMBAAECggEAY5w4CDEU0N2I5F0Y1bXZKzVcU9pH7B5wzlXO3Beqm5sa
RjQX/xtqJdzaljDjKcdKaFKIkYLyC8pwCRYSQ3bc0lPUXpfBNNV2pV0gF6c1vkQc
cJf0wndhkDQyJGN3yldaHxXHoZadsD5CnEKMiVDCEePg+4leNyFlVYuSM5Nf4beE
u9qH6goOzjX5be7+ZWey1csntfTsoKa2rkpObdKz/l3W/tER0cEjdfPy/ksHqPDK
S4Y6w3tJTw1rMD7Gnd8hjLSR6Zr8zo67Q/Jb0QhoEJfSCYRrWSbiN2lkuwEdcT6y
SGXbQc2VEkvCn2B8QbxXYEBZQAsSekGGsbNRSKJENQKBgQDWxyRz3H2ubOTUIAya
UOoNBW1K2IlH7LwwxmufCkVwOhwKOnTBdch1nv1tCUhgHKCvb6J1EFCbWR42O8X5
hiqV+26nSPslxn96oMvkAIDINRBmHjVbzYQN7lCPAD3YelHi/qxCUfD8wmyIgZPe
zxBiyVivjNXVi5X0Mzc57T4E2wKBgQCsjoG/HJUCSliEuJzRWIZqLLk661ONQrNL
0JlEeKpaBNAzsDgCcsGdqPVPiMp4gpMXw7dTzqe4pC/mJ36Mgxkj/DDzO2LLeTTW
Hmktg+WIg6TZRx5GW9q9tIopOxwf6OCcfYhszMDMY2vjiU1V87ULUwIsIUH9qMxt
ZWFhtcxEmwKBgQCJ0prCup/v+TLSKIrNz9SRbIUYvWFCxVhyGDHhic7LWI67xY08
w99SEyde+9D01AoM6h8e7cw8E/D+Llc5au4S9pioQn3fXMRbJaoQ8n2xe9O9I+9r
rLLr2ZzaVvZY3w2DE5foqvpwyDarVjNUjB1gtwHxDPf/I6ajYOY0htgAdwKBgE6r
nf26kzj7GkZQQLa1DHslrsFs/qe9jC75iJcOCGSII0AdjDuZhCpUGJtNOzocFeHU
yiU8Z30n5eqhgPGg53pfhRWvsogf13XzYXJt2t0VX7fr06KySBULVZ4co+LsclMG
bIdmBlRo04xmUcrpFFZ4Xtotw39ZUPJjMTWyA9IXAoGBANX8VzucIKR0Sdy2ZeG4
R7XwBmHSIwLe5hOfO7Sl5ONGSC7Xj1P1iur8u8r13qI1d4o4i+pxMSjZuxz1ssdT
3wgzv5ZcjVK5mtA5DjwKUDGO4I+BvGZ/EfbUvPdZ4voDjCsEiYVkyGaftqgImuZq
/JMU8IoWP0sj4dMKbqK5V27A
-----END PRIVATE KEY-----
PROYECTO/bin/cert/marmotech/onlyRSA.pem
-28
View File
@@ -1,28 +0,0 @@
-----BEGIN PRIVATE KEY-----
MIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQCQxVvOwFYfRZJ5
yUpV6R1c0Z7kuYc3EJaV1cHkL1cRAF5LKuotm1+1Aq0ukRTskdX5ufXWkLscpN0W
pZOErQTFF4NX6VXtVlouPqw3HCB7UX/krwu24QgCE5OpFJ1hi7NN2awCMVpkELUA
hfCjCFYUqiBpykUd1MyqtLPTIv8gUpLy6G7klAyRaVfNHHbde3sMPQYhxDJ8qHnR
yfg3f9dVABXoZ4TYczbyCcHVrtk2TtkgCj5gB3NqGcB5As9JWkAG1sK6trxF0OeR
8PJnJYRN3P86lI5/yg5Zn12kytoIpbxj5xY0KiEez3lw/VnyjEGQw3Ca/cOfaPpR
i+zTWxyZAgMBAAECggEAY5w4CDEU0N2I5F0Y1bXZKzVcU9pH7B5wzlXO3Beqm5sa
RjQX/xtqJdzaljDjKcdKaFKIkYLyC8pwCRYSQ3bc0lPUXpfBNNV2pV0gF6c1vkQc
cJf0wndhkDQyJGN3yldaHxXHoZadsD5CnEKMiVDCEePg+4leNyFlVYuSM5Nf4beE
u9qH6goOzjX5be7+ZWey1csntfTsoKa2rkpObdKz/l3W/tER0cEjdfPy/ksHqPDK
S4Y6w3tJTw1rMD7Gnd8hjLSR6Zr8zo67Q/Jb0QhoEJfSCYRrWSbiN2lkuwEdcT6y
SGXbQc2VEkvCn2B8QbxXYEBZQAsSekGGsbNRSKJENQKBgQDWxyRz3H2ubOTUIAya
UOoNBW1K2IlH7LwwxmufCkVwOhwKOnTBdch1nv1tCUhgHKCvb6J1EFCbWR42O8X5
hiqV+26nSPslxn96oMvkAIDINRBmHjVbzYQN7lCPAD3YelHi/qxCUfD8wmyIgZPe
zxBiyVivjNXVi5X0Mzc57T4E2wKBgQCsjoG/HJUCSliEuJzRWIZqLLk661ONQrNL
0JlEeKpaBNAzsDgCcsGdqPVPiMp4gpMXw7dTzqe4pC/mJ36Mgxkj/DDzO2LLeTTW
Hmktg+WIg6TZRx5GW9q9tIopOxwf6OCcfYhszMDMY2vjiU1V87ULUwIsIUH9qMxt
ZWFhtcxEmwKBgQCJ0prCup/v+TLSKIrNz9SRbIUYvWFCxVhyGDHhic7LWI67xY08
w99SEyde+9D01AoM6h8e7cw8E/D+Llc5au4S9pioQn3fXMRbJaoQ8n2xe9O9I+9r
rLLr2ZzaVvZY3w2DE5foqvpwyDarVjNUjB1gtwHxDPf/I6ajYOY0htgAdwKBgE6r
nf26kzj7GkZQQLa1DHslrsFs/qe9jC75iJcOCGSII0AdjDuZhCpUGJtNOzocFeHU
yiU8Z30n5eqhgPGg53pfhRWvsogf13XzYXJt2t0VX7fr06KySBULVZ4co+LsclMG
bIdmBlRo04xmUcrpFFZ4Xtotw39ZUPJjMTWyA9IXAoGBANX8VzucIKR0Sdy2ZeG4
R7XwBmHSIwLe5hOfO7Sl5ONGSC7Xj1P1iur8u8r13qI1d4o4i+pxMSjZuxz1ssdT
3wgzv5ZcjVK5mtA5DjwKUDGO4I+BvGZ/EfbUvPdZ4voDjCsEiYVkyGaftqgImuZq
/JMU8IoWP0sj4dMKbqK5V27A
-----END PRIVATE KEY-----
PROYECTO/bin/milanese/cert/onlyCert.pem
-59
View File
@@ -1,59 +0,0 @@
Bag Attributes
localKeyID: FA 1C BA BE C1 98 09 0F 9E 58 2F C0 D0 45 2E 4C 32 C8 4D 26
subject=street = "C/Areito No. 40,72000,San Juan de la Maguana", CN = ANGEL DANELI MILANESE HERRERA, serialNumber = IDCDO-01200494621, GN = ANGEL DANELI, SN = MILANESE HERRERA, C = DO
issuer=organizationIdentifier = VATDO-40102368, CN = digifirma CA Subordinada 1, OU = digifirma, O = C\C3\A1mara de Comercio y Producci\C3\B3n de Santo Domingo, L = Distrito Nacional, C = DO
-----BEGIN CERTIFICATE-----
MIIJiDCCB3CgAwIBAgIIeE2n2FFyYl8wDQYJKoZIhvcNAQELBQAwgbgxFzAVBgNV
BGEMDlZBVERPLTQwMTAyMzY4MSMwIQYDVQQDDBpkaWdpZmlybWEgQ0EgU3Vib3Jk
aW5hZGEgMTESMBAGA1UECwwJZGlnaWZpcm1hMTswOQYDVQQKDDJDw6FtYXJhIGRl
IENvbWVyY2lvIHkgUHJvZHVjY2nDs24gZGUgU2FudG8gRG9taW5nbzEaMBgGA1UE
BwwRRGlzdHJpdG8gTmFjaW9uYWwxCzAJBgNVBAYTAkRPMB4XDTI1MDUyMzE3Mjkw
MFoXDTI3MDUyMzE3MjkwMFowgboxNTAzBgNVBAkMLEMvQXJlaXRvIE5vLiA0MCw3
MjAwMCxTYW4gSnVhbiBkZSBsYSBNYWd1YW5hMSYwJAYDVQQDDB1BTkdFTCBEQU5F
TEkgTUlMQU5FU0UgSEVSUkVSQTEaMBgGA1UEBRMRSURDRE8tMDEyMDA0OTQ2MjEx
FTATBgNVBCoMDEFOR0VMIERBTkVMSTEZMBcGA1UEBAwQTUlMQU5FU0UgSEVSUkVS
QTELMAkGA1UEBhMCRE8wggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQCJ
oKCfc9VarFHh1IKbkHiMntP+1d2ie48dzUCQ0kb81MloW/EImlEEWqn2p91kynhx
iBt3hgU+neRtKsP/3SDc4ywvpMMZn16B5RRBi4kcaomBoLSBcQk8n5ywsbNlruyz
1yXpfRhJgwNqPnrKGnpT8IOJ+0cNYs7BG3yqVnWoJ0ADZlJWJAz87AuqyBXrSi3J
sW2wcjFSyuO4Y+2WWkb7Z9nZgi7+ReU4ATrB9UEpjuNwztq9VoFJbPjUd3cLcnK3
C6ZYTlcdTxtVp1fcxHww8W2CzojMT+b0hCsO0pKY69TPwB8uJhRutXcK9dfi4amW
XxTwMMIXo4c9dbrbadqvAgMBAAGjggSQMIIEjDB6BggrBgEFBQcBAwRuMGwwCAYG
BACORgEBMAsGBgQAjkYBAwIBFDAIBgYEAI5GAQQwNAYGBACORgEFMCowKBYiaHR0
cHM6Ly9kcHMuY2FtYXJhc2FudG9kb21pbmdvLmRvLxMCRU4wEwYGBACORgEGMAkG
BwQAjkYBBgEwgdwGCCsGAQUFBwEBBIHPMIHMMEgGCCsGAQUFBzAChjxodHRwczov
L3d3dy5jYW1hcmFzYW50b2RvbWluZ28uZG8vZGlnaWZpcm1hL0NDUFNEX2NhZGVu
YS5jcnQwPwYIKwYBBQUHMAGGM2h0dHA6Ly9vY3NwMS5jYW1hcmFzYW50b2RvbWlu
Z28uZG8vcHVibGljL3BraS9vY3NwLzA/BggrBgEFBQcwAYYzaHR0cDovL29jc3Ay
LmNhbWFyYXNhbnRvZG9taW5nby5kby9wdWJsaWMvcGtpL29jc3AvMB0GA1UdDgQW
BBSKy3OLV/y971rsMqBBOGt3Xgt5ojAfBgNVHSMEGDAWgBTO66VZHSHpo5klpwpK
rMeVkAYRCzAqBgNVHRIEIzAhgR9kaWdpZmlybWFAY2FtYXJhc2FudG9kb21pbmdv
LmRvMIIB2QYDVR0gBIIB0DCCAcwwCQYHBACL7EABADCCAb0GCysGAQQBgcx8AQMB
MIIBrDAuBggrBgEFBQcCARYiaHR0cHM6Ly9jcHMuY2FtYXJhc2FudG9kb21pbmdv
LmRvLzCCAXgGCCsGAQUFBwICMIIBah6CAWYAQwBlAHIAdABpAGYAaQBjAGEAZABv
ACAAcABhAHIAYQAgAHAAcgBvAGMAZQBkAGkAbQBpAGUAbgB0AG8AcwAgAHQAcgBp
AGIAdQB0AGEAcgBpAG8AcwAgAGUAbgAgAHAAMQAyACAAZQBtAGkAdABpAGQAbwAg
AHAAbwByACAAQwBDAFAAUwBEACwAIAB1AGIAaQBjAGEAZABvACAAQQB2AGUALgAg
ADIANwAgAGQAZQAgAGYAZQBiAHIAZQByAG8AIABlAHMAcQAgAHQAaQByAGEAZABl
AG4AdABlAHMAIAAyADIAOAAgAHQAbwByAHIAZQAgAGYAcgBpAHUAcwBhACwAIABM
AGEAIABFAHMAcABlAHIAaQBsAGwAYQAsACAAUwBhAG4AdABvACAARABvAG0AaQBu
AGcAbwAsACAAUgBlAHAA+gBiAGwAaQBjAGEAIABEAG8AbQBpAG4AaQBjAGEAbgBh
MIGPBgNVHR8EgYcwgYQwQKA+oDyGOmh0dHA6Ly9jcmwxLmNhbWFyYXNhbnRvZG9t
aW5nby5kby9wdWJsaWMvcGtpL2NybC9DQ1BTRC5jcmwwQKA+oDyGOmh0dHA6Ly9j
cmwyLmNhbWFyYXNhbnRvZG9taW5nby5kby9wdWJsaWMvcGtpL2NybC9DQ1BTRC5j
cmwwDgYDVR0PAQH/BAQDAgXgMB0GA1UdJQQWMBQGCCsGAQUFBwMCBggrBgEFBQcD
BDAlBgNVHREEHjAcgRplbXByZXNhc21pbGFuZXNlQGdtYWlsLmNvbTANBgkqhkiG
9w0BAQsFAAOCAgEAD8PqW47IpwnPvDWk9npB6nCMdRGTna00vccpjh2ZQStXw9Yz
RjCjL9DwzZhgtsK2BRnx9g8jaw6lulKaCbuDILO/SkzS/wngwEYaP+yC7LrikRf8
fUTvF4Di0pLIeQbBL9+/Z1u7gLAWL3UX6q6vKPlzQfY09U/sTatJGRQVrJ0HrveN
cJWZtVu5GqgNAqhiKV4NaQFcrddV/RVkERmItCIOESyhWsm/nwJ6BsD0f1Gx5aI1
F+jfWnbuFzsL/syQaWTvG8ckYQd2lYwiWg90751cN+86nLMrIYrkSoYj8wZAilak
tKYEcf7DYsMjruvf5o2NPWIPRTftpQxAffK2evMe0GT04SogbR67uVVzVbnTwlMR
9PbR8qkef0mj2x4STPgaUUsmTrJsGwToG13YR5xHu5H3nlExp7svI6pfimNGyEuI
iu4N091bWZ8/p8jnPo6n1JazB+NPF6YM8LvSaOFn27yExLoNvCTsUgWCf9sE1HZz
37AEgrJt4u0mu1TmCwED0xqmJAu4SnatB6AnXPZpBdsIFPqTYzM9WzcenuXuG8zn
mw9mV3HkWnGcsVpjI1VHfO7uhdtUpIz1pw1tI5i5ZhkJ8KP9/WU9kdoS+Lr7kAdh
d9vrE6FrkkwYlfpiTf/xA8Mr+149DsFARc+QWQw7loyEkitbTDXP44WO9LY=
-----END CERTIFICATE-----
PROYECTO/bin/milanese/cert/onlyPK.pem
-31
View File
@@ -1,31 +0,0 @@
Bag Attributes
localKeyID: FA 1C BA BE C1 98 09 0F 9E 58 2F C0 D0 45 2E 4C 32 C8 4D 26
Key Attributes: <No Attributes>
-----BEGIN PRIVATE KEY-----
MIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQCJoKCfc9VarFHh
1IKbkHiMntP+1d2ie48dzUCQ0kb81MloW/EImlEEWqn2p91kynhxiBt3hgU+neRt
KsP/3SDc4ywvpMMZn16B5RRBi4kcaomBoLSBcQk8n5ywsbNlruyz1yXpfRhJgwNq
PnrKGnpT8IOJ+0cNYs7BG3yqVnWoJ0ADZlJWJAz87AuqyBXrSi3JsW2wcjFSyuO4
Y+2WWkb7Z9nZgi7+ReU4ATrB9UEpjuNwztq9VoFJbPjUd3cLcnK3C6ZYTlcdTxtV
p1fcxHww8W2CzojMT+b0hCsO0pKY69TPwB8uJhRutXcK9dfi4amWXxTwMMIXo4c9
dbrbadqvAgMBAAECggEBAIJlIuoQaGvRan8pxlk3509sSHVhEe2ZXb6hsnPEFygD
P5RV0CgTdYFHmVMuNpABWV5P055J53wtQri/1RX9394IitvVIliLa5JsheWYG99F
fWTI61zcySCcJWwv4UYNFw1JYg03zaQQslKeQd5secw/y5EW93nSTQwfS91jr3QR
3pIWbR7z5BBWCjaUI6/sQiGwwbRcIP1n2u6L9rhmQ6dh+jLQXVfqpW26E4kzxm5p
YAMZlhHf0LVeSoJF3XpmkHCKKMglbiH8x86cbh0ZrhQH22fXieZVeDnUPT/jGqCb
jA98xNXiWvNNr8ZBw9jtaj+p1Ud1MJY8xZ9NJ0e/UXkCgYEAz5foTc2/q4+sWsR7
t9KZp7ci0VRsj3UFI8JFp7GI+1iclvgEtsL0XXzeoX2ReKoDS25uBkcjOC0qTUvg
DdX5oo1QNXGPCz857Czx7TwHoXInWhe99luTP8V++tT726Nfj95Ui3GkfWwaPZyb
WkxPp8nMMD/v7Xgq8Zj1wvleTrsCgYEAqbgrQ1a0GIRyl/Mff10K3yBPtPS1Tzz0
AsyidF10zrC6A1LoR5XHJkYJM2xkejNQi2uXQlJEHNanhg8E/TKJSef6gcREWhTU
lYtRZbk/t5DymxPhDI0plasoRPWPDJmkA5/navmlss7N48M8j/kkdlTCZrBd42GH
I4alsr02lp0CgYBSDLl9nvfF6Gh4C7bWhf/DYUf6ssKhxN++LXf4etwoc/KYXPkH
/3A0TzlzXL0VkyTwOHp2MsHB32Ab4wRwk4UycWYlaXffOyM6rN0GJjbh4cuZ+U5U
xAckKnwwyeOuARmxNG/4GXepNwP8HBzvCMBnEgSJgYvkMR3QFeP1JzjWJwKBgHjr
a3+FtbjGHPMf2DAhNU61sbRmqQs0jVG1RIWN1Fwy08Tse+wMzZ/6RDHsJ0ZdayR6
WoF5JWg6k47TAqX3LJOIgRWVpXFc5/1IDo1gSAJcdk2BA1Wy+Y7WLFG9dtbuXEns
0q+IAMN9znlZL7wQMSdRylPpkmsfoG3yT/oiD1ONAoGBAM2moUyJ5fBOEVvwRO2m
W5cKQMyVQphH0vOjE3lVYMi7n2r/a9zY4STBD7FGrGh+T0HrCTlrQzCNkZFXVTvA
8N6jLcUbNknF83uGsGftnMY2upishh+8BsiUXxZe996q0dmx50yV+OjIdk+TuDx1
qXdF8Qojrmoj/ylZap3ikQ2F
-----END PRIVATE KEY-----
PROYECTO/bin/milanese/cert/onlyRSA.pem
-27
View File
@@ -1,27 +0,0 @@
-----BEGIN RSA PRIVATE KEY-----
MIIEpAIBAAKCAQEAiaCgn3PVWqxR4dSCm5B4jJ7T/tXdonuPHc1AkNJG/NTJaFvx
CJpRBFqp9qfdZMp4cYgbd4YFPp3kbSrD/90g3OMsL6TDGZ9egeUUQYuJHGqJgaC0
gXEJPJ+csLGzZa7ss9cl6X0YSYMDaj56yhp6U/CDiftHDWLOwRt8qlZ1qCdAA2ZS
ViQM/OwLqsgV60otybFtsHIxUsrjuGPtllpG+2fZ2YIu/kXlOAE6wfVBKY7jcM7a
vVaBSWz41Hd3C3JytwumWE5XHU8bVadX3MR8MPFtgs6IzE/m9IQrDtKSmOvUz8Af
LiYUbrV3CvXX4uGpll8U8DDCF6OHPXW622narwIDAQABAoIBAQCCZSLqEGhr0Wp/
KcZZN+dPbEh1YRHtmV2+obJzxBcoAz+UVdAoE3WBR5lTLjaQAVleT9OeSed8LUK4
v9UV/d/eCIrb1SJYi2uSbIXlmBvfRX1kyOtc3MkgnCVsL+FGDRcNSWINN82kELJS
nkHebHnMP8uRFvd50k0MH0vdY690Ed6SFm0e8+QQVgo2lCOv7EIhsMG0XCD9Z9ru
i/a4ZkOnYfoy0F1X6qVtuhOJM8ZuaWADGZYR39C1XkqCRd16ZpBwiijIJW4h/MfO
nG4dGa4UB9tn14nmVXg51D0/4xqgm4wPfMTV4lrzTa/GQcPY7Wo/qdVHdTCWPMWf
TSdHv1F5AoGBAM+X6E3Nv6uPrFrEe7fSmae3ItFUbI91BSPCRaexiPtYnJb4BLbC
9F183qF9kXiqA0tubgZHIzgtKk1L4A3V+aKNUDVxjws/Oews8e08B6FyJ1oXvfZb
kz/FfvrU+9ujX4/eVItxpH1sGj2cm1pMT6fJzDA/7+14KvGY9cL5Xk67AoGBAKm4
K0NWtBiEcpfzH39dCt8gT7T0tU889ALMonRddM6wugNS6EeVxyZGCTNsZHozUItr
l0JSRBzWp4YPBP0yiUnn+oHERFoU1JWLUWW5P7eQ8psT4QyNKZWrKET1jwyZpAOf
52r5pbLOzePDPI/5JHZUwmawXeNhhyOGpbK9NpadAoGAUgy5fZ73xehoeAu21oX/
w2FH+rLCocTfvi13+HrcKHPymFz5B/9wNE85c1y9FZMk8Dh6djLBwd9gG+MEcJOF
MnFmJWl33zsjOqzdBiY24eHLmflOVMQHJCp8MMnjrgEZsTRv+Bl3qTcD/Bwc7wjA
ZxIEiYGL5DEd0BXj9Sc41icCgYB462t/hbW4xhzzH9gwITVOtbG0ZqkLNI1RtUSF
jdRcMtPE7HvsDM2f+kQx7CdGXWskelqBeSVoOpOO0wKl9yyTiIEVlaVxXOf9SA6N
YEgCXHZNgQNVsvmO1ixRvXbW7lxJ7NKviADDfc55WS+8EDEnUcpT6ZJrH6Bt8k/6
Ig9TjQKBgQDNpqFMieXwThFb8ETtpluXCkDMlUKYR9LzoxN5VWDIu59q/2vc2OEk
wQ+xRqxofk9B6wk5a0MwjZGRV1U7wPDeoy3FGzZJxfN7hrBn7ZzGNrqYrIYfvAbI
lF8WXvfeqtHZsedMlfjoyHZPk7g8dal3RfEKI65qI/8pWWqd4pENhQ==
-----END RSA PRIVATE KEY-----
PROYECTO/bin/nace-key.pfx
BIN
View File
Binary file not shown.
PROYECTO/bin/nacecertkey.key
-31
View File
@@ -1,31 +0,0 @@
Bag Attributes
localKeyID: DD 61 51 0C 4E 4F C7 E5 71 0A 84 78 94 FC 2D C6 E0 A1 E3 74
Key Attributes: <No Attributes>
-----BEGIN PRIVATE KEY-----
MIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQDAuMWJOZ7fUArX
qtdmS4Re6kmUta0n9ABnFEOaJh2cSHy/mNtwSE2efUJ2cHI6Cg29zZbs7wd8mwlT
FgtaAecgZznfw1a5o0p2jgHaK+jUKpApz04UbFR1UDSaKNaPQESXY9TMHvVwEN+9
BzyNkZzTreP0bA2DI2ywLNhjUnFYPyHadvi8A70MtxY8nxRAVqbhZ2u5f18w6suJ
i7HzVQqhbBTBYmWEi/mQ3g+ofTkBMwuvlgUV+8NZDIbhLhauD/Cew3o6ossP8T6t
zPHpKKcXWYmqKR5oFvC306J5MkKj/BSGIcUfWRCLebnhCsSb0gCW7liINW3w2/ht
/bAF10PFAgMBAAECggEARQ1vad3FeQo6+E90YmjIgyG7P5dg9aHNyyFNn5vsnCS0
3gmtBqxBc3o6KCneI8GabtmNLFPxAMqkKqsJYjSwVcHm0LAzEMzbT2NOcpetEug1
Q2XN+i9ei7IzRtE/H5DNgtj4VDL7ii3hnN9M6QS1hnsV5Gwa41P8C5vl5KCTkCRe
LGEtVXONbwjmu0S9nV78oyklMjrdTNYdzCJAaLSJrJTIsHdPqsfMnzKYVbpoOAGA
UWOlKyj9n+iY99p/adKR0ogLNSAjtwpJv50gL2xS5EBwws+Y3v/pCFy7/VQ6Kws9
jEv+FcosCaR2akusA9W5jIHN1QNWJB+Hcl8q+FvFAQKBgQD9xTr1dfnGgyutaDBT
q1wCrsPHUydW8CA5y1Jq/XuwTLb9JmSm9OnLOmDTSeJwN+COAUeDu6KQOicgKN3h
WPSEMZj1orNDj9FSZtOImMZetdl04GwwwhlMRg9HTXyRhm61yNv9E7x2EDGLNWF/
2cLAbtrWF3BggL5nFP5ps7AIIQKBgQDCaju17Z1CwedySnaMZ2b8LNHn/7C2xmmD
WYhaqSHphuUiXOpWYYCQ2+TrKw1SKyNClR+e6QgaMGFkAukP2RYmnrpW7F4cFNls
F82Fsl2BFizNChlskAaU5S2DPuUTyUPA59xVW+mupvi6Z1k5E5ZawTvuKjMQBEbe
fbVSqsc3JQKBgQC5voAOJCEDhQUWMrmUtEtvhz2zipCz2KStyL11pD3BaBVUK6Lm
dUMexocSf/Tm0G9jYVpX+KHfUUFMD71/8N1gWPEtcb4miIDdAHh6deBUeGRHYPCv
q5Jaurj6JqQz3CLymaczkRuTivzIePT5YIlk0n8IzzUo3XL//mTNN4F0IQKBgC+F
8FqkXtC2vXC+qwPfMtlpy1W+tt+22Iv3EtG2jkebZd9kfxPmeZrvZaHmwDbZvKDF
+xjJNeXQ9b2QyI/LLRL7sekVllue7RbzKpYH57tqREFKurRC8Jjs/JcchLq1dA5v
nvhuo0zCHALUyIafNx2wJootXpYHtZsld3FhtZjRAoGBAMViQhaIUNaPQAQE/JgS
TQsIe/L/+LNw377rdP1dhziyLXoXHuR+wu4lnNlGUO6M4tnP1EbcrmrtfSwVcm2o
1zwfLytI+1x6NbsaSCzUvLa0ftJuE3+RbBTKg4uz7IF3bqU1egaXiwebtc+h77mZ
BvoJbdy9DHJ+JLmkXsbcMEIW
-----END PRIVATE KEY-----
PROYECTO/bin/net6.0/4307810_identity.p12
BIN
View File
Binary file not shown.
PROYECTO/bin/net6.0/4307810_identity.p12.p12
BIN
View File
Binary file not shown.
PROYECTO/bin/oldpem/RSAKey.pem
-27
View File
@@ -1,27 +0,0 @@
-----BEGIN RSA PRIVATE KEY-----
MIIEowIBAAKCAQEAwQ45nza/N/KUT6Ot/RxywYG6mME8KVRelZey4tX2nvIXeJrx
uwcXu+aXvUVHZXj6yhYIV/l8XeJNNhjGESA3UGnCfHMFL6R2QHayZSZlqB5mOf+q
JkEKG+CqZkJ0BLEbk+3JAuKPiLavklaiqPpBNsd4k7qVgmcHrzDK1FEXrac7AjVG
GTfF+2QFzUQfbpooUz35cNt5ZLQb8ANbdEMYyf3/NbisJObUmOF4gcGd1clClqUa
RyX2o4nzS+nJycNFxSy0aG5oyNPSa0KpAafDvJ/85Deqd7qbreapincyiKbbudV5
NiPY2HC8zg8WLfC4kUjRagj7Sz19Rf1Ib4g5SwIDAQABAoIBABCXKFyGV+h28Efn
yQv3ZeU7QM3fzUu/9GDmqHjV6lu+ckXrCtsHwQJkzqV1Tq1puCOlwRHOXuGykPAV
MPBH1HkUnaIUQF3XxFHF4Y7Pvey0sBRL5FNlQ3kh1YL0MwQ0NCqCRMP6tFsLWAs7
Zr8ewnvyqGoJns+WCxMDHmsgjOhfUFwap0qG8v//fOiI0RhhSkTCPINNEJZO622S
LuilW5RMJFMEJFBcS1V/Jp+bZIM+TPcrdHILErWLQIDD7IIXpLk8Y0P2X2bCrYgc
zJv3wDiY0taEXnbGv4w9N8llXhAMETyneuSSIAJpvOSdQLX2mfGC8qDkdtdc3r4g
rybvEAECgYEA8VzQ76vYY3KzS8l3br2P1N6EvVC/8sSOlsAmVDHIYm9a8A1XmKnt
p9fK4N85hnwaQA1Z+ThOsDiHZbFCOSbMQgGiVX7eD0Tsr1ofW+m8PI4kbHvmt25J
m7XO1mMxH0b7KAjX63Yx/2WUffSgJBH0R6YBwSDjKTP0ioJHDgRaCD8CgYEAzMNv
0dP/f08faaZyzEYF14ttimtO/EpZzhLhjVAahTAaqtUV1XUgpKw/fvbNuN3rXTJd
gqBRPaml6iYW9i5pnS2r+/zDGxmgZXxN/uBy+Vj7C1i3RLZLnxsmL/GVvHcHR6iY
HqgUjOD2dXg+tCUbt9KxDqgZGwIGfSx3FEEUa/UCgYAtr4jo5Nk3sb1YahEOSBlS
jLAJeaBrnmLzC/n1U9r/Lt7Cs3PSNNAERidjuz0TRKhfWWefcdYLKxgN2qiTUtG0
6MRGdJYpw70dT+zBpBN6Ttl8I1O/gsOyEo7NK8dfiTr/D/V230+FbT/XO5eYXEGl
0jlgyg3Vfb0a/p/eelpkVwKBgQDGQijfsnN88cBJjFc0wEvhwmdikbodf2Pqqs9n
AvtaoBQB+mW0kz7zErA8H31bFMxSJXTzCIUAvmUeDJlI7fFmtZUDXF4QvERYXv4p
3WqVUXlpKBHy3srjl+bmnvRLUbhjwrLfZADZ0uvvG2kjBZcL6l1zAoGka9aallYJ
72V1jQKBgEAf7ntbcNYhJgbwZbmAB0+4MEM8qHZd2oVXT3x/JTYBNiKMd+2MV15z
y/21SdTzDgMXcA5NaxDDNSCv3zwtf3BeHHI8cz2pfv9xtzqmHKWubLR3rRo1WrbO
q3k5WYadbZrrFSZ0UCJfo2oEF8/yzkmg6Z9+gwkx0g6AFoxqkHN2
-----END RSA PRIVATE KEY-----
PROYECTO/bin/oldpem/apns-cert.pem
-60
View File
@@ -1,60 +0,0 @@
Bag Attributes
localKeyID: DD 61 51 0C 4E 4F C7 E5 71 0A 84 78 94 FC 2D C6 E0 A1 E3 74
subject=street = "Calle Primera Res Sol Creciente no.14, Arroyo Hondo Viejo,00000,Santo Domingo", CN = JUAN FRANCISCO SOTO CONCEPCION, serialNumber = ICDDO-00104581939, GN = JUAN FRANCISCO, SN = SOTO CONCEPCION, C = DO
issuer=organizationIdentifier = VATDO-40102368, CN = digifirma CA Subordinada 1, OU = digifirma, O = C\C3\A1mara de Comercio y Producci\C3\B3n de Santo Domingo, L = Distrito Nacional, C = DO
-----BEGIN CERTIFICATE-----
MIIJpzCCB4+gAwIBAgIIE3iFdHfYkzcwDQYJKoZIhvcNAQELBQAwgbgxFzAVBgNV
BGEMDlZBVERPLTQwMTAyMzY4MSMwIQYDVQQDDBpkaWdpZmlybWEgQ0EgU3Vib3Jk
aW5hZGEgMTESMBAGA1UECwwJZGlnaWZpcm1hMTswOQYDVQQKDDJDw6FtYXJhIGRl
IENvbWVyY2lvIHkgUHJvZHVjY2nDs24gZGUgU2FudG8gRG9taW5nbzEaMBgGA1UE
BwwRRGlzdHJpdG8gTmFjaW9uYWwxCzAJBgNVBAYTAkRPMB4XDTIzMDYxNTIyNDUw
MFoXDTI0MDYxNDIyNDUwMFowgd0xVjBUBgNVBAkMTUNhbGxlIFByaW1lcmEgUmVz
IFNvbCBDcmVjaWVudGUgbm8uMTQsIEFycm95byBIb25kbyBWaWVqbywwMDAwMCxT
YW50byBEb21pbmdvMScwJQYDVQQDDB5KVUFOIEZSQU5DSVNDTyBTT1RPIENPTkNF
UENJT04xGjAYBgNVBAUTEUlDRERPLTAwMTA0NTgxOTM5MRcwFQYDVQQqDA5KVUFO
IEZSQU5DSVNDTzEYMBYGA1UEBAwPU09UTyBDT05DRVBDSU9OMQswCQYDVQQGEwJE
TzCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMC4xYk5nt9QCteq12ZL
hF7qSZS1rSf0AGcUQ5omHZxIfL+Y23BITZ59QnZwcjoKDb3NluzvB3ybCVMWC1oB
5yBnOd/DVrmjSnaOAdor6NQqkCnPThRsVHVQNJoo1o9ARJdj1Mwe9XAQ370HPI2R
nNOt4/RsDYMjbLAs2GNScVg/Idp2+LwDvQy3FjyfFEBWpuFna7l/XzDqy4mLsfNV
CqFsFMFiZYSL+ZDeD6h9OQEzC6+WBRX7w1kMhuEuFq4P8J7Dejqiyw/xPq3M8eko
pxdZiaopHmgW8LfTonkyQqP8FIYhxR9ZEIt5ueEKxJvSAJbuWIg1bfDb+G39sAXX
Q8UCAwEAAaOCBIwwggSIMHoGCCsGAQUFBwEDBG4wbDAIBgYEAI5GAQEwCwYGBACO
RgEDAgEUMAgGBgQAjkYBBDA0BgYEAI5GAQUwKjAoFiJodHRwczovL2Rwcy5jYW1h
cmFzYW50b2RvbWluZ28uZG8vEwJFTjATBgYEAI5GAQYwCQYHBACORgEGATCB3AYI
KwYBBQUHAQEEgc8wgcwwSAYIKwYBBQUHMAKGPGh0dHBzOi8vd3d3LmNhbWFyYXNh
bnRvZG9taW5nby5kby9kaWdpZmlybWEvQ0NQU0RfY2FkZW5hLmNydDA/BggrBgEF
BQcwAYYzaHR0cDovL29jc3AxLmNhbWFyYXNhbnRvZG9taW5nby5kby9wdWJsaWMv
cGtpL29jc3AvMD8GCCsGAQUFBzABhjNodHRwOi8vb2NzcDIuY2FtYXJhc2FudG9k
b21pbmdvLmRvL3B1YmxpYy9wa2kvb2NzcC8wHQYDVR0OBBYEFIjeAk+muKu6AKX6
gMOqQ1EWnXu5MB8GA1UdIwQYMBaAFM7rpVkdIemjmSWnCkqsx5WQBhELMCoGA1Ud
EgQjMCGBH2RpZ2lmaXJtYUBjYW1hcmFzYW50b2RvbWluZ28uZG8wggHZBgNVHSAE
ggHQMIIBzDAJBgcEAIvsQAEAMIIBvQYLKwYBBAGBzHwBAwEwggGsMC4GCCsGAQUF
BwIBFiJodHRwczovL2Nwcy5jYW1hcmFzYW50b2RvbWluZ28uZG8vMIIBeAYIKwYB
BQUHAgIwggFqHoIBZgBDAGUAcgB0AGkAZgBpAGMAYQBkAG8AIABwAGEAcgBhACAA
cAByAG8AYwBlAGQAaQBtAGkAZQBuAHQAbwBzACAAdAByAGkAYgB1AHQAYQByAGkA
bwBzACAAZQBuACAAcAAxADIAIABlAG0AaQB0AGkAZABvACAAcABvAHIAIABDAEMA
UABTAEQALAAgAHUAYgBpAGMAYQBkAG8AIABBAHYAZQAuACAAMgA3ACAAZABlACAA
ZgBlAGIAcgBlAHIAbwAgAGUAcwBxACAAdABpAHIAYQBkAGUAbgB0AGUAcwAgADIA
MgA4ACAAdABvAHIAcgBlACAAZgByAGkAdQBzAGEALAAgAEwAYQAgAEUAcwBwAGUA
cgBpAGwAbABhACwAIABTAGEAbgB0AG8AIABEAG8AbQBpAG4AZwBvACwAIABSAGUA
cAD6AGIAbABpAGMAYQAgAEQAbwBtAGkAbgBpAGMAYQBuAGEwgY8GA1UdHwSBhzCB
hDBAoD6gPIY6aHR0cDovL2NybDEuY2FtYXJhc2FudG9kb21pbmdvLmRvL3B1Ymxp
Yy9wa2kvY3JsL0NDUFNELmNybDBAoD6gPIY6aHR0cDovL2NybDIuY2FtYXJhc2Fu
dG9kb21pbmdvLmRvL3B1YmxpYy9wa2kvY3JsL0NDUFNELmNybDAOBgNVHQ8BAf8E
BAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMCEGA1UdEQQaMBiB
Fmp1YW4uZi5zb3RvY0BnbWFpbC5jb20wDQYJKoZIhvcNAQELBQADggIBAIOdH28n
Yh8tjWQ2o1VUkDSudH5yJqLfKtlmPgBtRn68B/kSkhUpHYKUUJnNEnMUvwOy4dTK
RM7R0WW5uLvAOpkm+mlRD7QiumogUfphI0k53ihA/0ScxXjQPDbPzcqBn9LPWbum
lK1+4eKzIh3i+Sb/4Ip6wDx0g/oGva62EFy2oXkzdSuhb073Tpf/Z1uMxjlt7Ovy
7vs9KeQjleYUpD2qh2eSjGFkg5kl9rdpxnRG0eM/L9SZyt9IWiV4rcbxWDCI8GNb
G2ywTxUrg1hBwQsJ0RZl/YCT7RKkGtnXWPIaXqBTrXlRVNZwxSOj4y5a2vPXzP0q
48ZHM/zApoOAjyPkVE5XlZAeZ2eXMjG96AJKU479Jt3gv7qjFqkVNnxGezD2C1Hz
tAX1y/CSQis9UyOSAH1ryyjj8yzkj4KVC0zjCWgnr6aeW9qYEcrRi/C7/MNyMbPG
OhjQCzAMf5kDQZet/T9La5DABne5nfnJ3PHuosKLea/56vy5gAXKuytJ4LcsK7TZ
f50cNaEMrH0wVFvRUbYac6NYc7GNBMLa/1hZ2xaFRsjm08Lgn2jO8Z2tPixSYosV
J1987Ut4P8BA8oJlSyWFMWfR1JhG6HHLo+/ve5/6qZBFziW88cswre3fdtJUfUWo
Wv4IsWUzY37WB1Xp8yDedr1xnj0Ui5UrOI91
-----END CERTIFICATE-----
PROYECTO/bin/oldpem/apns-key-noenc.pem
-27
View File
@@ -1,27 +0,0 @@
-----BEGIN RSA PRIVATE KEY-----
MIIEpAIBAAKCAQEAwLjFiTme31AK16rXZkuEXupJlLWtJ/QAZxRDmiYdnEh8v5jb
cEhNnn1CdnByOgoNvc2W7O8HfJsJUxYLWgHnIGc538NWuaNKdo4B2ivo1CqQKc9O
FGxUdVA0mijWj0BEl2PUzB71cBDfvQc8jZGc063j9GwNgyNssCzYY1JxWD8h2nb4
vAO9DLcWPJ8UQFam4WdruX9fMOrLiYux81UKoWwUwWJlhIv5kN4PqH05ATMLr5YF
FfvDWQyG4S4Wrg/wnsN6OqLLD/E+rczx6SinF1mJqikeaBbwt9OieTJCo/wUhiHF
H1kQi3m54QrEm9IAlu5YiDVt8Nv4bf2wBddDxQIDAQABAoIBAEUNb2ndxXkKOvhP
dGJoyIMhuz+XYPWhzcshTZ+b7JwktN4JrQasQXN6Oigp3iPBmm7ZjSxT8QDKpCqr
CWI0sFXB5tCwMxDM209jTnKXrRLoNUNlzfovXouyM0bRPx+QzYLY+FQy+4ot4Zzf
TOkEtYZ7FeRsGuNT/Aub5eSgk5AkXixhLVVzjW8I5rtEvZ1e/KMpJTI63UzWHcwi
QGi0iayUyLB3T6rHzJ8ymFW6aDgBgFFjpSso/Z/omPfaf2nSkdKICzUgI7cKSb+d
IC9sUuRAcMLPmN7/6Qhcu/1UOisLPYxL/hXKLAmkdmpLrAPVuYyBzdUDViQfh3Jf
KvhbxQECgYEA/cU69XX5xoMrrWgwU6tcAq7Dx1MnVvAgOctSav17sEy2/SZkpvTp
yzpg00nicDfgjgFHg7uikDonICjd4Vj0hDGY9aKzQ4/RUmbTiJjGXrXZdOBsMMIZ
TEYPR018kYZutcjb/RO8dhAxizVhf9nCwG7a1hdwYIC+ZxT+abOwCCECgYEAwmo7
te2dQsHnckp2jGdm/CzR5/+wtsZpg1mIWqkh6YblIlzqVmGAkNvk6ysNUisjQpUf
nukIGjBhZALpD9kWJp66VuxeHBTZbBfNhbJdgRYszQoZbJAGlOUtgz7lE8lDwOfc
VVvprqb4umdZOROWWsE77iozEARG3n21UqrHNyUCgYEAub6ADiQhA4UFFjK5lLRL
b4c9s4qQs9ikrci9daQ9wWgVVCui5nVDHsaHEn/05tBvY2FaV/ih31FBTA+9f/Dd
YFjxLXG+JoiA3QB4enXgVHhkR2Dwr6uSWrq4+iakM9wi8pmnM5Ebk4r8yHj0+WCJ
ZNJ/CM81KN1y//5kzTeBdCECgYAvhfBapF7Qtr1wvqsD3zLZactVvrbfttiL9xLR
to5Hm2XfZH8T5nma72Wh5sA22bygxfsYyTXl0PW9kMiPyy0S+7HpFZZbnu0W8yqW
B+e7akRBSrq0QvCY7PyXHIS6tXQOb574bqNMwhwC1MiGnzcdsCaKLV6WB7WbJXdx
YbWY0QKBgQDFYkIWiFDWj0AEBPyYEk0LCHvy//izcN++63T9XYc4si16Fx7kfsLu
JZzZRlDujOLZz9RG3K5q7X0sFXJtqNc8Hy8rSPtcejW7Gkgs1Ly2tH7SbhN/kWwU
yoOLs+yBd26lNXoGl4sHm7XPoe+5mQb6CW3cvQxyfiS5pF7G3DBCFg==
-----END RSA PRIVATE KEY-----
PROYECTO/bin/oldpem/apns-key.pem
-33
View File
@@ -1,33 +0,0 @@
Bag Attributes
localKeyID: DD 61 51 0C 4E 4F C7 E5 71 0A 84 78 94 FC 2D C6 E0 A1 E3 74
Key Attributes: <No Attributes>
-----BEGIN ENCRYPTED PRIVATE KEY-----
MIIFHDBOBgkqhkiG9w0BBQ0wQTApBgkqhkiG9w0BBQwwHAQIBCKXJDrlx3UCAggA
MAwGCCqGSIb3DQIJBQAwFAYIKoZIhvcNAwcECLJxsXmMJt0rBIIEyHK6pSLPkESi
uztfGr7/EfA+Lnq7MvI1A50rIj5lRsGBuyweajpJ6+0lvL99w4V5/G0ae0insiNT
/oVQJ47EiA6NA6HLovh1Ekza0odjcY6F5D3Q8ylK0Gn6Ja6pmanU+/ewtiVZTO4s
Pmxl7aTrHP5ok5LuWTL7Bx+UZxKh+/TGULjFHY3lpOKQsYrj/p8JVlV6cLFJaSZb
+hFMA6bi9jSjCSA8Ifa2P5UzwPUPNCo4bP5cufQ58hDaJf3JywcAV+FbUVSkSG3I
PleF8ARPBk6UZE7u7G2l1R/a50COrh7v4lOkzVetwXKgtLY1fYVuLXuBPZ0ih4f0
jwYRudQ/jqm/XOjwwRjmQa4eZnvXsQaJuwShUqhraJ63Y0L6xLeUjQ/BEyk1Z1NE
53ZsOO0leHfita4v+QO0gb+XQ8+jQO90bZx4olXW01Nl+LcCJotXo0t/pcPJPOn6
D/Agl9n2qBrsJaxWnEB3hntluPynuqtszgs1OHb1VaSNs86MCA6FOT+ahaoQ1nn3
nDoAY4vczYkHqTMxaMFLW00+upNGjWpLscTWEnkfE3mRitR3OtJC4h61OWqViYuj
q1gngAC9RmljsL/NHu7qYfuto01iGtZI31tnRvPoIYgLu8g+3uS7KcoVh8mTmVdh
Zt+x57cdjUnAKk42q1L+OKZObmq6ju0j7YloH7TSktASCGMYuoIN1Qv11LR6dZUC
rgLAF6zfsPwvonFHq3FVTm6B16iDBo6lSpnIMfgqqpUo2paKFDhDPi6T6Sp2gfNc
hOkn9KnIA2ik37MghAh1vhyVqNtJACBsOO6E01CrriLSgnMSDnGQm/a0uwGtaaEF
yrG/9vxZ+0rTrY8CEX4Ex1LX5oa077uj8ZdTOpV0w0MS3T2VdeMSgQ5GYDWmHCdr
C4XAOJ6jpgH2PK3wQM/SD9+QrfqLCpODMm2mQBNOiBp8W0sJLv+bYa+xC/uamQ2l
uzgJVM29uOkGx4GKMgM3fHFhWMdqiA1HVL885MS1BG5Z7RiaTWB26XVoX6r6gNL+
AXvYb8sYrFP9kA3hyTiQhLQR9JkE7jF/elsDkiOgEc178ov8QMF1X+BmOtAkBk/E
G/Nbm3LJUoK83NCLIBiWHNvg/hgkecQqQ1OVBO4AlVARWloRZQu4dSDfgP360ksK
Fc4gvQZsNd//4joms7KhgTW7DWk9VP+SBzHzJz8rOiHap5Ad+fVpEbI9iR0S4uTa
kb3cLw3qGu49XGhTdwGAD9uovthLDVRTSIV45ZDTyLT6r24GKzDoxgaRjTYPSBQS
1BmYEnwVVTnlsgKgVv022Zf7HAbHXfaMD4EQo7lNnfVop0/+QKMXFEgknM9ZvHvn
PAGrrAle0M6bnayrc5e/zr1QoyIAfb1WNVF5IaiX5WsWAQ4J57ZuDAfHN+RWEU3R
K0z24ww73PvMvilrfsVxslxBATcRl5fmVn7cwHheArkIg3ofF+n1B1E0yrdEnFwU
30acKzTgPRJZrSFxOeAu+mcin6x9F346vMnOp5QIHiL/WJamvvvwaaCAzRifxr8D
vknj8z0+gbUM1qOg7LZuY/ToR+164e6szkhLGnCNgPYi32J6D+c0JLQPLg9sqlGP
1qX5teldCi+FQVvq3mLtLg==
-----END ENCRYPTED PRIVATE KEY-----
PROYECTO/bin/oldpem/apns.pem
-87
View File
@@ -1,87 +0,0 @@
Bag Attributes
localKeyID: DD 61 51 0C 4E 4F C7 E5 71 0A 84 78 94 FC 2D C6 E0 A1 E3 74
subject=street = "Calle Primera Res Sol Creciente no.14, Arroyo Hondo Viejo,00000,Santo Domingo", CN = JUAN FRANCISCO SOTO CONCEPCION, serialNumber = ICDDO-00104581939, GN = JUAN FRANCISCO, SN = SOTO CONCEPCION, C = DO
issuer=organizationIdentifier = VATDO-40102368, CN = digifirma CA Subordinada 1, OU = digifirma, O = C\C3\A1mara de Comercio y Producci\C3\B3n de Santo Domingo, L = Distrito Nacional, C = DO
-----BEGIN CERTIFICATE-----
MIIJpzCCB4+gAwIBAgIIE3iFdHfYkzcwDQYJKoZIhvcNAQELBQAwgbgxFzAVBgNV
BGEMDlZBVERPLTQwMTAyMzY4MSMwIQYDVQQDDBpkaWdpZmlybWEgQ0EgU3Vib3Jk
aW5hZGEgMTESMBAGA1UECwwJZGlnaWZpcm1hMTswOQYDVQQKDDJDw6FtYXJhIGRl
IENvbWVyY2lvIHkgUHJvZHVjY2nDs24gZGUgU2FudG8gRG9taW5nbzEaMBgGA1UE
BwwRRGlzdHJpdG8gTmFjaW9uYWwxCzAJBgNVBAYTAkRPMB4XDTIzMDYxNTIyNDUw
MFoXDTI0MDYxNDIyNDUwMFowgd0xVjBUBgNVBAkMTUNhbGxlIFByaW1lcmEgUmVz
IFNvbCBDcmVjaWVudGUgbm8uMTQsIEFycm95byBIb25kbyBWaWVqbywwMDAwMCxT
YW50byBEb21pbmdvMScwJQYDVQQDDB5KVUFOIEZSQU5DSVNDTyBTT1RPIENPTkNF
UENJT04xGjAYBgNVBAUTEUlDRERPLTAwMTA0NTgxOTM5MRcwFQYDVQQqDA5KVUFO
IEZSQU5DSVNDTzEYMBYGA1UEBAwPU09UTyBDT05DRVBDSU9OMQswCQYDVQQGEwJE
TzCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMC4xYk5nt9QCteq12ZL
hF7qSZS1rSf0AGcUQ5omHZxIfL+Y23BITZ59QnZwcjoKDb3NluzvB3ybCVMWC1oB
5yBnOd/DVrmjSnaOAdor6NQqkCnPThRsVHVQNJoo1o9ARJdj1Mwe9XAQ370HPI2R
nNOt4/RsDYMjbLAs2GNScVg/Idp2+LwDvQy3FjyfFEBWpuFna7l/XzDqy4mLsfNV
CqFsFMFiZYSL+ZDeD6h9OQEzC6+WBRX7w1kMhuEuFq4P8J7Dejqiyw/xPq3M8eko
pxdZiaopHmgW8LfTonkyQqP8FIYhxR9ZEIt5ueEKxJvSAJbuWIg1bfDb+G39sAXX
Q8UCAwEAAaOCBIwwggSIMHoGCCsGAQUFBwEDBG4wbDAIBgYEAI5GAQEwCwYGBACO
RgEDAgEUMAgGBgQAjkYBBDA0BgYEAI5GAQUwKjAoFiJodHRwczovL2Rwcy5jYW1h
cmFzYW50b2RvbWluZ28uZG8vEwJFTjATBgYEAI5GAQYwCQYHBACORgEGATCB3AYI
KwYBBQUHAQEEgc8wgcwwSAYIKwYBBQUHMAKGPGh0dHBzOi8vd3d3LmNhbWFyYXNh
bnRvZG9taW5nby5kby9kaWdpZmlybWEvQ0NQU0RfY2FkZW5hLmNydDA/BggrBgEF
BQcwAYYzaHR0cDovL29jc3AxLmNhbWFyYXNhbnRvZG9taW5nby5kby9wdWJsaWMv
cGtpL29jc3AvMD8GCCsGAQUFBzABhjNodHRwOi8vb2NzcDIuY2FtYXJhc2FudG9k
b21pbmdvLmRvL3B1YmxpYy9wa2kvb2NzcC8wHQYDVR0OBBYEFIjeAk+muKu6AKX6
gMOqQ1EWnXu5MB8GA1UdIwQYMBaAFM7rpVkdIemjmSWnCkqsx5WQBhELMCoGA1Ud
EgQjMCGBH2RpZ2lmaXJtYUBjYW1hcmFzYW50b2RvbWluZ28uZG8wggHZBgNVHSAE
ggHQMIIBzDAJBgcEAIvsQAEAMIIBvQYLKwYBBAGBzHwBAwEwggGsMC4GCCsGAQUF
BwIBFiJodHRwczovL2Nwcy5jYW1hcmFzYW50b2RvbWluZ28uZG8vMIIBeAYIKwYB
BQUHAgIwggFqHoIBZgBDAGUAcgB0AGkAZgBpAGMAYQBkAG8AIABwAGEAcgBhACAA
cAByAG8AYwBlAGQAaQBtAGkAZQBuAHQAbwBzACAAdAByAGkAYgB1AHQAYQByAGkA
bwBzACAAZQBuACAAcAAxADIAIABlAG0AaQB0AGkAZABvACAAcABvAHIAIABDAEMA
UABTAEQALAAgAHUAYgBpAGMAYQBkAG8AIABBAHYAZQAuACAAMgA3ACAAZABlACAA
ZgBlAGIAcgBlAHIAbwAgAGUAcwBxACAAdABpAHIAYQBkAGUAbgB0AGUAcwAgADIA
MgA4ACAAdABvAHIAcgBlACAAZgByAGkAdQBzAGEALAAgAEwAYQAgAEUAcwBwAGUA
cgBpAGwAbABhACwAIABTAGEAbgB0AG8AIABEAG8AbQBpAG4AZwBvACwAIABSAGUA
cAD6AGIAbABpAGMAYQAgAEQAbwBtAGkAbgBpAGMAYQBuAGEwgY8GA1UdHwSBhzCB
hDBAoD6gPIY6aHR0cDovL2NybDEuY2FtYXJhc2FudG9kb21pbmdvLmRvL3B1Ymxp
Yy9wa2kvY3JsL0NDUFNELmNybDBAoD6gPIY6aHR0cDovL2NybDIuY2FtYXJhc2Fu
dG9kb21pbmdvLmRvL3B1YmxpYy9wa2kvY3JsL0NDUFNELmNybDAOBgNVHQ8BAf8E
BAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMCEGA1UdEQQaMBiB
Fmp1YW4uZi5zb3RvY0BnbWFpbC5jb20wDQYJKoZIhvcNAQELBQADggIBAIOdH28n
Yh8tjWQ2o1VUkDSudH5yJqLfKtlmPgBtRn68B/kSkhUpHYKUUJnNEnMUvwOy4dTK
RM7R0WW5uLvAOpkm+mlRD7QiumogUfphI0k53ihA/0ScxXjQPDbPzcqBn9LPWbum
lK1+4eKzIh3i+Sb/4Ip6wDx0g/oGva62EFy2oXkzdSuhb073Tpf/Z1uMxjlt7Ovy
7vs9KeQjleYUpD2qh2eSjGFkg5kl9rdpxnRG0eM/L9SZyt9IWiV4rcbxWDCI8GNb
G2ywTxUrg1hBwQsJ0RZl/YCT7RKkGtnXWPIaXqBTrXlRVNZwxSOj4y5a2vPXzP0q
48ZHM/zApoOAjyPkVE5XlZAeZ2eXMjG96AJKU479Jt3gv7qjFqkVNnxGezD2C1Hz
tAX1y/CSQis9UyOSAH1ryyjj8yzkj4KVC0zjCWgnr6aeW9qYEcrRi/C7/MNyMbPG
OhjQCzAMf5kDQZet/T9La5DABne5nfnJ3PHuosKLea/56vy5gAXKuytJ4LcsK7TZ
f50cNaEMrH0wVFvRUbYac6NYc7GNBMLa/1hZ2xaFRsjm08Lgn2jO8Z2tPixSYosV
J1987Ut4P8BA8oJlSyWFMWfR1JhG6HHLo+/ve5/6qZBFziW88cswre3fdtJUfUWo
Wv4IsWUzY37WB1Xp8yDedr1xnj0Ui5UrOI91
-----END CERTIFICATE-----
-----BEGIN RSA PRIVATE KEY-----
MIIEpAIBAAKCAQEAwLjFiTme31AK16rXZkuEXupJlLWtJ/QAZxRDmiYdnEh8v5jb
cEhNnn1CdnByOgoNvc2W7O8HfJsJUxYLWgHnIGc538NWuaNKdo4B2ivo1CqQKc9O
FGxUdVA0mijWj0BEl2PUzB71cBDfvQc8jZGc063j9GwNgyNssCzYY1JxWD8h2nb4
vAO9DLcWPJ8UQFam4WdruX9fMOrLiYux81UKoWwUwWJlhIv5kN4PqH05ATMLr5YF
FfvDWQyG4S4Wrg/wnsN6OqLLD/E+rczx6SinF1mJqikeaBbwt9OieTJCo/wUhiHF
H1kQi3m54QrEm9IAlu5YiDVt8Nv4bf2wBddDxQIDAQABAoIBAEUNb2ndxXkKOvhP
dGJoyIMhuz+XYPWhzcshTZ+b7JwktN4JrQasQXN6Oigp3iPBmm7ZjSxT8QDKpCqr
CWI0sFXB5tCwMxDM209jTnKXrRLoNUNlzfovXouyM0bRPx+QzYLY+FQy+4ot4Zzf
TOkEtYZ7FeRsGuNT/Aub5eSgk5AkXixhLVVzjW8I5rtEvZ1e/KMpJTI63UzWHcwi
QGi0iayUyLB3T6rHzJ8ymFW6aDgBgFFjpSso/Z/omPfaf2nSkdKICzUgI7cKSb+d
IC9sUuRAcMLPmN7/6Qhcu/1UOisLPYxL/hXKLAmkdmpLrAPVuYyBzdUDViQfh3Jf
KvhbxQECgYEA/cU69XX5xoMrrWgwU6tcAq7Dx1MnVvAgOctSav17sEy2/SZkpvTp
yzpg00nicDfgjgFHg7uikDonICjd4Vj0hDGY9aKzQ4/RUmbTiJjGXrXZdOBsMMIZ
TEYPR018kYZutcjb/RO8dhAxizVhf9nCwG7a1hdwYIC+ZxT+abOwCCECgYEAwmo7
te2dQsHnckp2jGdm/CzR5/+wtsZpg1mIWqkh6YblIlzqVmGAkNvk6ysNUisjQpUf
nukIGjBhZALpD9kWJp66VuxeHBTZbBfNhbJdgRYszQoZbJAGlOUtgz7lE8lDwOfc
VVvprqb4umdZOROWWsE77iozEARG3n21UqrHNyUCgYEAub6ADiQhA4UFFjK5lLRL
b4c9s4qQs9ikrci9daQ9wWgVVCui5nVDHsaHEn/05tBvY2FaV/ih31FBTA+9f/Dd
YFjxLXG+JoiA3QB4enXgVHhkR2Dwr6uSWrq4+iakM9wi8pmnM5Ebk4r8yHj0+WCJ
ZNJ/CM81KN1y//5kzTeBdCECgYAvhfBapF7Qtr1wvqsD3zLZactVvrbfttiL9xLR
to5Hm2XfZH8T5nma72Wh5sA22bygxfsYyTXl0PW9kMiPyy0S+7HpFZZbnu0W8yqW
B+e7akRBSrq0QvCY7PyXHIS6tXQOb574bqNMwhwC1MiGnzcdsCaKLV6WB7WbJXdx
YbWY0QKBgQDFYkIWiFDWj0AEBPyYEk0LCHvy//izcN++63T9XYc4si16Fx7kfsLu
JZzZRlDujOLZz9RG3K5q7X0sFXJtqNc8Hy8rSPtcejW7Gkgs1Ly2tH7SbhN/kWwU
yoOLs+yBd26lNXoGl4sHm7XPoe+5mQb6CW3cvQxyfiS5pF7G3DBCFg==
-----END RSA PRIVATE KEY-----
PROYECTO/bin/onlyCert.pem
-60
View File
@@ -1,60 +0,0 @@
Bag Attributes
localKeyID: DD 61 51 0C 4E 4F C7 E5 71 0A 84 78 94 FC 2D C6 E0 A1 E3 74
subject=street = "Calle Primera Res Sol Creciente no.14, Arroyo Hondo Viejo,00000,Santo Domingo", CN = JUAN FRANCISCO SOTO CONCEPCION, serialNumber = ICDDO-00104581939, GN = JUAN FRANCISCO, SN = SOTO CONCEPCION, C = DO
issuer=organizationIdentifier = VATDO-40102368, CN = digifirma CA Subordinada 1, OU = digifirma, O = C\C3\A1mara de Comercio y Producci\C3\B3n de Santo Domingo, L = Distrito Nacional, C = DO
-----BEGIN CERTIFICATE-----
MIIJpzCCB4+gAwIBAgIIE3iFdHfYkzcwDQYJKoZIhvcNAQELBQAwgbgxFzAVBgNV
BGEMDlZBVERPLTQwMTAyMzY4MSMwIQYDVQQDDBpkaWdpZmlybWEgQ0EgU3Vib3Jk
aW5hZGEgMTESMBAGA1UECwwJZGlnaWZpcm1hMTswOQYDVQQKDDJDw6FtYXJhIGRl
IENvbWVyY2lvIHkgUHJvZHVjY2nDs24gZGUgU2FudG8gRG9taW5nbzEaMBgGA1UE
BwwRRGlzdHJpdG8gTmFjaW9uYWwxCzAJBgNVBAYTAkRPMB4XDTIzMDYxNTIyNDUw
MFoXDTI0MDYxNDIyNDUwMFowgd0xVjBUBgNVBAkMTUNhbGxlIFByaW1lcmEgUmVz
IFNvbCBDcmVjaWVudGUgbm8uMTQsIEFycm95byBIb25kbyBWaWVqbywwMDAwMCxT
YW50byBEb21pbmdvMScwJQYDVQQDDB5KVUFOIEZSQU5DSVNDTyBTT1RPIENPTkNF
UENJT04xGjAYBgNVBAUTEUlDRERPLTAwMTA0NTgxOTM5MRcwFQYDVQQqDA5KVUFO
IEZSQU5DSVNDTzEYMBYGA1UEBAwPU09UTyBDT05DRVBDSU9OMQswCQYDVQQGEwJE
TzCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMC4xYk5nt9QCteq12ZL
hF7qSZS1rSf0AGcUQ5omHZxIfL+Y23BITZ59QnZwcjoKDb3NluzvB3ybCVMWC1oB
5yBnOd/DVrmjSnaOAdor6NQqkCnPThRsVHVQNJoo1o9ARJdj1Mwe9XAQ370HPI2R
nNOt4/RsDYMjbLAs2GNScVg/Idp2+LwDvQy3FjyfFEBWpuFna7l/XzDqy4mLsfNV
CqFsFMFiZYSL+ZDeD6h9OQEzC6+WBRX7w1kMhuEuFq4P8J7Dejqiyw/xPq3M8eko
pxdZiaopHmgW8LfTonkyQqP8FIYhxR9ZEIt5ueEKxJvSAJbuWIg1bfDb+G39sAXX
Q8UCAwEAAaOCBIwwggSIMHoGCCsGAQUFBwEDBG4wbDAIBgYEAI5GAQEwCwYGBACO
RgEDAgEUMAgGBgQAjkYBBDA0BgYEAI5GAQUwKjAoFiJodHRwczovL2Rwcy5jYW1h
cmFzYW50b2RvbWluZ28uZG8vEwJFTjATBgYEAI5GAQYwCQYHBACORgEGATCB3AYI
KwYBBQUHAQEEgc8wgcwwSAYIKwYBBQUHMAKGPGh0dHBzOi8vd3d3LmNhbWFyYXNh
bnRvZG9taW5nby5kby9kaWdpZmlybWEvQ0NQU0RfY2FkZW5hLmNydDA/BggrBgEF
BQcwAYYzaHR0cDovL29jc3AxLmNhbWFyYXNhbnRvZG9taW5nby5kby9wdWJsaWMv
cGtpL29jc3AvMD8GCCsGAQUFBzABhjNodHRwOi8vb2NzcDIuY2FtYXJhc2FudG9k
b21pbmdvLmRvL3B1YmxpYy9wa2kvb2NzcC8wHQYDVR0OBBYEFIjeAk+muKu6AKX6
gMOqQ1EWnXu5MB8GA1UdIwQYMBaAFM7rpVkdIemjmSWnCkqsx5WQBhELMCoGA1Ud
EgQjMCGBH2RpZ2lmaXJtYUBjYW1hcmFzYW50b2RvbWluZ28uZG8wggHZBgNVHSAE
ggHQMIIBzDAJBgcEAIvsQAEAMIIBvQYLKwYBBAGBzHwBAwEwggGsMC4GCCsGAQUF
BwIBFiJodHRwczovL2Nwcy5jYW1hcmFzYW50b2RvbWluZ28uZG8vMIIBeAYIKwYB
BQUHAgIwggFqHoIBZgBDAGUAcgB0AGkAZgBpAGMAYQBkAG8AIABwAGEAcgBhACAA
cAByAG8AYwBlAGQAaQBtAGkAZQBuAHQAbwBzACAAdAByAGkAYgB1AHQAYQByAGkA
bwBzACAAZQBuACAAcAAxADIAIABlAG0AaQB0AGkAZABvACAAcABvAHIAIABDAEMA
UABTAEQALAAgAHUAYgBpAGMAYQBkAG8AIABBAHYAZQAuACAAMgA3ACAAZABlACAA
ZgBlAGIAcgBlAHIAbwAgAGUAcwBxACAAdABpAHIAYQBkAGUAbgB0AGUAcwAgADIA
MgA4ACAAdABvAHIAcgBlACAAZgByAGkAdQBzAGEALAAgAEwAYQAgAEUAcwBwAGUA
cgBpAGwAbABhACwAIABTAGEAbgB0AG8AIABEAG8AbQBpAG4AZwBvACwAIABSAGUA
cAD6AGIAbABpAGMAYQAgAEQAbwBtAGkAbgBpAGMAYQBuAGEwgY8GA1UdHwSBhzCB
hDBAoD6gPIY6aHR0cDovL2NybDEuY2FtYXJhc2FudG9kb21pbmdvLmRvL3B1Ymxp
Yy9wa2kvY3JsL0NDUFNELmNybDBAoD6gPIY6aHR0cDovL2NybDIuY2FtYXJhc2Fu
dG9kb21pbmdvLmRvL3B1YmxpYy9wa2kvY3JsL0NDUFNELmNybDAOBgNVHQ8BAf8E
BAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMCEGA1UdEQQaMBiB
Fmp1YW4uZi5zb3RvY0BnbWFpbC5jb20wDQYJKoZIhvcNAQELBQADggIBAIOdH28n
Yh8tjWQ2o1VUkDSudH5yJqLfKtlmPgBtRn68B/kSkhUpHYKUUJnNEnMUvwOy4dTK
RM7R0WW5uLvAOpkm+mlRD7QiumogUfphI0k53ihA/0ScxXjQPDbPzcqBn9LPWbum
lK1+4eKzIh3i+Sb/4Ip6wDx0g/oGva62EFy2oXkzdSuhb073Tpf/Z1uMxjlt7Ovy
7vs9KeQjleYUpD2qh2eSjGFkg5kl9rdpxnRG0eM/L9SZyt9IWiV4rcbxWDCI8GNb
G2ywTxUrg1hBwQsJ0RZl/YCT7RKkGtnXWPIaXqBTrXlRVNZwxSOj4y5a2vPXzP0q
48ZHM/zApoOAjyPkVE5XlZAeZ2eXMjG96AJKU479Jt3gv7qjFqkVNnxGezD2C1Hz
tAX1y/CSQis9UyOSAH1ryyjj8yzkj4KVC0zjCWgnr6aeW9qYEcrRi/C7/MNyMbPG
OhjQCzAMf5kDQZet/T9La5DABne5nfnJ3PHuosKLea/56vy5gAXKuytJ4LcsK7TZ
f50cNaEMrH0wVFvRUbYac6NYc7GNBMLa/1hZ2xaFRsjm08Lgn2jO8Z2tPixSYosV
J1987Ut4P8BA8oJlSyWFMWfR1JhG6HHLo+/ve5/6qZBFziW88cswre3fdtJUfUWo
Wv4IsWUzY37WB1Xp8yDedr1xnj0Ui5UrOI91
-----END CERTIFICATE-----
PROYECTO/bin/onlyPK.pem
-31
View File
@@ -1,31 +0,0 @@
Bag Attributes
localKeyID: DD 61 51 0C 4E 4F C7 E5 71 0A 84 78 94 FC 2D C6 E0 A1 E3 74
Key Attributes: <No Attributes>
-----BEGIN PRIVATE KEY-----
MIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQDAuMWJOZ7fUArX
qtdmS4Re6kmUta0n9ABnFEOaJh2cSHy/mNtwSE2efUJ2cHI6Cg29zZbs7wd8mwlT
FgtaAecgZznfw1a5o0p2jgHaK+jUKpApz04UbFR1UDSaKNaPQESXY9TMHvVwEN+9
BzyNkZzTreP0bA2DI2ywLNhjUnFYPyHadvi8A70MtxY8nxRAVqbhZ2u5f18w6suJ
i7HzVQqhbBTBYmWEi/mQ3g+ofTkBMwuvlgUV+8NZDIbhLhauD/Cew3o6ossP8T6t
zPHpKKcXWYmqKR5oFvC306J5MkKj/BSGIcUfWRCLebnhCsSb0gCW7liINW3w2/ht
/bAF10PFAgMBAAECggEARQ1vad3FeQo6+E90YmjIgyG7P5dg9aHNyyFNn5vsnCS0
3gmtBqxBc3o6KCneI8GabtmNLFPxAMqkKqsJYjSwVcHm0LAzEMzbT2NOcpetEug1
Q2XN+i9ei7IzRtE/H5DNgtj4VDL7ii3hnN9M6QS1hnsV5Gwa41P8C5vl5KCTkCRe
LGEtVXONbwjmu0S9nV78oyklMjrdTNYdzCJAaLSJrJTIsHdPqsfMnzKYVbpoOAGA
UWOlKyj9n+iY99p/adKR0ogLNSAjtwpJv50gL2xS5EBwws+Y3v/pCFy7/VQ6Kws9
jEv+FcosCaR2akusA9W5jIHN1QNWJB+Hcl8q+FvFAQKBgQD9xTr1dfnGgyutaDBT
q1wCrsPHUydW8CA5y1Jq/XuwTLb9JmSm9OnLOmDTSeJwN+COAUeDu6KQOicgKN3h
WPSEMZj1orNDj9FSZtOImMZetdl04GwwwhlMRg9HTXyRhm61yNv9E7x2EDGLNWF/
2cLAbtrWF3BggL5nFP5ps7AIIQKBgQDCaju17Z1CwedySnaMZ2b8LNHn/7C2xmmD
WYhaqSHphuUiXOpWYYCQ2+TrKw1SKyNClR+e6QgaMGFkAukP2RYmnrpW7F4cFNls
F82Fsl2BFizNChlskAaU5S2DPuUTyUPA59xVW+mupvi6Z1k5E5ZawTvuKjMQBEbe
fbVSqsc3JQKBgQC5voAOJCEDhQUWMrmUtEtvhz2zipCz2KStyL11pD3BaBVUK6Lm
dUMexocSf/Tm0G9jYVpX+KHfUUFMD71/8N1gWPEtcb4miIDdAHh6deBUeGRHYPCv
q5Jaurj6JqQz3CLymaczkRuTivzIePT5YIlk0n8IzzUo3XL//mTNN4F0IQKBgC+F
8FqkXtC2vXC+qwPfMtlpy1W+tt+22Iv3EtG2jkebZd9kfxPmeZrvZaHmwDbZvKDF
+xjJNeXQ9b2QyI/LLRL7sekVllue7RbzKpYH57tqREFKurRC8Jjs/JcchLq1dA5v
nvhuo0zCHALUyIafNx2wJootXpYHtZsld3FhtZjRAoGBAMViQhaIUNaPQAQE/JgS
TQsIe/L/+LNw377rdP1dhziyLXoXHuR+wu4lnNlGUO6M4tnP1EbcrmrtfSwVcm2o
1zwfLytI+1x6NbsaSCzUvLa0ftJuE3+RbBTKg4uz7IF3bqU1egaXiwebtc+h77mZ
BvoJbdy9DHJ+JLmkXsbcMEIW
-----END PRIVATE KEY-----
PROYECTO/bin/onlyRSA.pem
-27
View File
@@ -1,27 +0,0 @@
-----BEGIN RSA PRIVATE KEY-----
MIIEpAIBAAKCAQEAwLjFiTme31AK16rXZkuEXupJlLWtJ/QAZxRDmiYdnEh8v5jb
cEhNnn1CdnByOgoNvc2W7O8HfJsJUxYLWgHnIGc538NWuaNKdo4B2ivo1CqQKc9O
FGxUdVA0mijWj0BEl2PUzB71cBDfvQc8jZGc063j9GwNgyNssCzYY1JxWD8h2nb4
vAO9DLcWPJ8UQFam4WdruX9fMOrLiYux81UKoWwUwWJlhIv5kN4PqH05ATMLr5YF
FfvDWQyG4S4Wrg/wnsN6OqLLD/E+rczx6SinF1mJqikeaBbwt9OieTJCo/wUhiHF
H1kQi3m54QrEm9IAlu5YiDVt8Nv4bf2wBddDxQIDAQABAoIBAEUNb2ndxXkKOvhP
dGJoyIMhuz+XYPWhzcshTZ+b7JwktN4JrQasQXN6Oigp3iPBmm7ZjSxT8QDKpCqr
CWI0sFXB5tCwMxDM209jTnKXrRLoNUNlzfovXouyM0bRPx+QzYLY+FQy+4ot4Zzf
TOkEtYZ7FeRsGuNT/Aub5eSgk5AkXixhLVVzjW8I5rtEvZ1e/KMpJTI63UzWHcwi
QGi0iayUyLB3T6rHzJ8ymFW6aDgBgFFjpSso/Z/omPfaf2nSkdKICzUgI7cKSb+d
IC9sUuRAcMLPmN7/6Qhcu/1UOisLPYxL/hXKLAmkdmpLrAPVuYyBzdUDViQfh3Jf
KvhbxQECgYEA/cU69XX5xoMrrWgwU6tcAq7Dx1MnVvAgOctSav17sEy2/SZkpvTp
yzpg00nicDfgjgFHg7uikDonICjd4Vj0hDGY9aKzQ4/RUmbTiJjGXrXZdOBsMMIZ
TEYPR018kYZutcjb/RO8dhAxizVhf9nCwG7a1hdwYIC+ZxT+abOwCCECgYEAwmo7
te2dQsHnckp2jGdm/CzR5/+wtsZpg1mIWqkh6YblIlzqVmGAkNvk6ysNUisjQpUf
nukIGjBhZALpD9kWJp66VuxeHBTZbBfNhbJdgRYszQoZbJAGlOUtgz7lE8lDwOfc
VVvprqb4umdZOROWWsE77iozEARG3n21UqrHNyUCgYEAub6ADiQhA4UFFjK5lLRL
b4c9s4qQs9ikrci9daQ9wWgVVCui5nVDHsaHEn/05tBvY2FaV/ih31FBTA+9f/Dd
YFjxLXG+JoiA3QB4enXgVHhkR2Dwr6uSWrq4+iakM9wi8pmnM5Ebk4r8yHj0+WCJ
ZNJ/CM81KN1y//5kzTeBdCECgYAvhfBapF7Qtr1wvqsD3zLZactVvrbfttiL9xLR
to5Hm2XfZH8T5nma72Wh5sA22bygxfsYyTXl0PW9kMiPyy0S+7HpFZZbnu0W8yqW
B+e7akRBSrq0QvCY7PyXHIS6tXQOb574bqNMwhwC1MiGnzcdsCaKLV6WB7WbJXdx
YbWY0QKBgQDFYkIWiFDWj0AEBPyYEk0LCHvy//izcN++63T9XYc4si16Fx7kfsLu
JZzZRlDujOLZz9RG3K5q7X0sFXJtqNc8Hy8rSPtcejW7Gkgs1Ly2tH7SbhN/kWwU
yoOLs+yBd26lNXoGl4sHm7XPoe+5mQb6CW3cvQxyfiS5pF7G3DBCFg==
-----END RSA PRIVATE KEY-----
PROYECTO/ccdir/ccprmt003.4gl
+5 -5
View File
@@ -2758,11 +2758,11 @@ REPORT cctb01b(
END REPORT
FUNCTION verifica_orden()
LET tieneorden = TRUE
SELECT a.num_oc
DEFINE cuantas INT
# COUNT(*) en vez de SELECT num_oc: con ordenes duplicadas daba -284
LET cuantas = 0
SELECT COUNT(*) INTO cuantas
FROM prtb00012 a
WHERE a.cotizacion_no = recibo_nc.num_orden AND a.status_T IS NULL
IF STATUS = NOTFOUND THEN
LET tieneorden = FALSE
END IF
LET tieneorden = (cuantas > 0)
END FUNCTION
PROYECTO/cpdir/cpfmrp002.4fd
-9
View File
@@ -10,7 +10,6 @@
<RecordField colName="total4" fieldIdRef="5" name="total4" sqlTabName="formonly" sqlType="DECIMAL" table_alias_name="" uid="{7b3e519a-5aa7-41c8-97d1-ed500eb68b10}"/>
<RecordField colName="total6" fieldIdRef="7" name="total6" sqlTabName="formonly" sqlType="DECIMAL" table_alias_name="" uid="{32d2bde6-9b8d-48b3-8a40-8ccd93a5ca6b}"/>
<RecordField colName="total5" fieldIdRef="6" name="total5" sqlTabName="formonly" sqlType="DECIMAL" table_alias_name="" uid="{27b7fa06-6d88-4eba-afeb-c2ab80a2cd40}"/>
<RecordField colName="" defaultValue="MA" fieldIdRef="8" name="r_output" sqlTabName="" table_alias_name="" uid="{07894f4f-beae-4e6a-baa2-edd6bd6233b7}"/>
</Record>
<Form gridHeight="24" gridWidth="80" name="cpfmrp002">
<Grid gridHeight="24" gridWidth="80" name="Grid1" posX="0" posY="0">
@@ -28,14 +27,6 @@
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="total4" columnCount="" fieldId="5" gridHeight="1" gridWidth="14" name="total4" noEntry="true" posX="50" posY="4" rowCount="" sqlTabName="formonly" sqlType="DECIMAL" stepX="" stepY="" tabIndex="6" table_alias_name="" widget="Edit"/>
<Label posX="34" posY="5" text="Total Mas 120"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="total6" columnCount="" fieldId="7" gridHeight="1" gridWidth="14" name="total6" noEntry="true" posX="50" posY="5" rowCount="" sqlTabName="formonly" sqlType="DECIMAL" stepX="" stepY="" tabIndex="7" table_alias_name="" widget="Edit"/>
<Group gridHeight="10" gridWidth="28" name="Group1" posX="5" posY="6" text="Opciones Salidas">
<RadioGroup aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" defaultValue="MA" fieldId="8" gridHeight="6" gridWidth="21" items="MATRICIAL, SCREEN, ACROBAT READER, EXCEL" name="r_output" posX="3" posY="2" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="9" table_alias_name="" title="RadioGroup1" widget="RadioGroup">
<Item lstrtext="false" name="MA" text="MATRICIAL"/>
<Item lstrtext="false" name="SVG" text="SCREEN"/>
<Item lstrtext="false" name="PDF" text="ACROBAT READER"/>
<Item lstrtext="false" name="XLS" text="EXCEL"/>
</RadioGroup>
</Group>
<Label posX="34" posY="6" text="Total Saldo"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="total5" columnCount="" fieldId="6" gridHeight="1" gridWidth="14" name="total5" noEntry="true" posX="50" posY="6" rowCount="" sqlTabName="formonly" sqlType="DECIMAL" stepX="" stepY="" tabIndex="8" table_alias_name="" widget="Edit"/>
</Grid>
PROYECTO/cpdir/cpprrp002.4gl
+4 -7
View File
@@ -11,7 +11,6 @@ GLOBALS "cpprgb000.4gl"
DEFINE fecha_corte DATE
DEFINE cod_sp1 SMALLINT
DEFINE idx_1, idx_2 SMALLINT
DEFINE p_reportfile STRING
DEFINE doccli9 RECORD
cod_sp SMALLINT,
cod_sp_sec SMALLINT,
@@ -62,7 +61,7 @@ DEFINE valor1,valor2,valor3 DECIMAL(12,2)
CALL msgrp000(tipo_papel)
INPUT BY NAME fecha_corte,cod_sp1,r_output
INPUT BY NAME fecha_corte,cod_sp1
BEFORE FIELD fecha_corte
LET fecha_corte = today
@@ -88,6 +87,7 @@ DEFINE valor1,valor2,valor3 DECIMAL(12,2)
LET int_flag = false
RETURN
END IF
CALL seleccionarsalida() RETURNING r_output
# Busca valor de las facturas cuyas fechas de vencimiento son menores
# a la fecha de corte
@@ -125,11 +125,7 @@ DEFINE valor1,valor2,valor3 DECIMAL(12,2)
START REPORT reporte31 TO archivo
ELSE
-- La API de configuracion de reportes (fgl_report_*) no esta
-- disponible en este FGL; se escribe el XML directo a un archivo
-- en FGLSPOOL en lugar de la vista previa/exportacion nativa.
LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/cpprrp002_saldos.xml"
LET handler = om.XmlWriter.createFileWriter(p_reportfile)
CALL configureoutput(r_output) RETURNING handler
START REPORT reporte31 TO XML HANDLER handler
END IF
END IF
@@ -191,6 +187,7 @@ END FUNCTION
DEFINE dias INTEGER
OUTPUT
RIGHT MARGIN 145
TOP MARGIN 0
LEFT MARGIN 0
BOTTOM MARGIN 2
PROYECTO/distbin/gma/project/app/keystore.jks
BIN
View File
Binary file not shown.
PROYECTO/distbin/mbs.gar
BIN
View File
Binary file not shown.
PROYECTO/ipdir/ipautorizareq.4gl
+1
View File
@@ -4,6 +4,7 @@
FECHA : Mayo 9, 2022
}
IMPORT FGL greruntime
GLOBALS "ipprgb000.4gl"
DEFINE r INT,
arr_busqueda1 DYNAMIC ARRAY OF RECORD
PROYECTO/lqdir/lqprrp009.4gl
+21 -13
View File
@@ -14,6 +14,7 @@ GLOBALS
"lqprgb000.4gl"
###### Variables para busqueda de rango de fecha
DEFINE elije,imp,afecta CHAR(1)
DEFINE hay_filas SMALLINT
DEFINE m_mes,mes SMALLINT
DEFINE chequea_ent,p_ano CHAR(4)
DEFINE detalla CHAR(30)
@@ -81,6 +82,7 @@ END MAIN
OPEN FORM lqfmrp009 FROM "lqfmrp009"
DISPLAY FORM lqfmrp009
CALL ui.Window.getCurrent().setText("Liquidacion Repuestos")
DISPLAY "lqprrp009" AT 4,3
DISPLAY "Liquidacion Partes y Repuestos" AT 6,24
@@ -101,7 +103,7 @@ END MAIN
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
SELECT a.fecha_inicio,a.fecha_corte 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)
@@ -143,16 +145,7 @@ END MAIN
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
LET hay_filas = FALSE
@@ -179,6 +172,19 @@ END MAIN
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.*
IF NOT hay_filas THEN
IF fgl_report_loadCurrentSettings(r_filename) THEN
CALL seleccionarsalida() RETURNING r_output
CALL fgl_report_selectDevice(r_output)
CALL fgl_report_selectPreview(preview)
LET handler = fgl_report_commitCurrentSettings()
END IF
IF handler IS NULL THEN
EXIT FOREACH
END IF
START REPORT liquida7 TO XML HANDLER HANDLER
LET hay_filas = TRUE
END IF
LET orden = busca_datos.num_oc USING "<<<<<<"
IF elije != "L" THEN
{# Busca el monto pagado al colector
@@ -239,8 +245,10 @@ END MAIN
OUTPUT TO REPORT liquida7(busca_datos.*)
END FOREACH
IF hay_filas THEN
FINISH REPORT liquida7
ELSE
CALL fgl_winmessage("INFO","NO EXISTEN REGISTROS PARA ESTOS PARAMETROS","INFO")
END IF
#IF imp = "S" THEN
@@ -730,7 +738,7 @@ FUNCTION entrada0271()
LET entra1 = entra
BEFORE FIELD fecha1
SELECT MAX (Convert(varchar(10),(a.fecha),103)) INTO p_fecha FROM cgtb00004 a
SELECT Convert(varchar(10),MAX(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
PROYECTO/mbsERP.4pw
+1540
View File
File diff suppressed because it is too large Load Diff
PROYECTO/otrodir/MainMenu.4gl
+18 -2
View File
@@ -96,6 +96,7 @@ END MAIN
FUNCTION show_mbs(d)
DEFINE d ui.Dialog
DEFINE rdir, rmbs INTEGER
DEFINE runtime STRING
DEFINE cmd STRING,file_path VARCHAR(100),
strconect VARCHAR(20)
@@ -116,9 +117,24 @@ FUNCTION show_mbs(d)
a.programa = pprograma
# LET file_path = 'E:\\MARMOTECHC\\BIN320'
DISPLAY BY NAME file_path,pperfil
DISPLAY "mainmenu credenciales: ",usuario clipped," ",clave clipped," ",file_path clipped
LET cmd = "fglrun ",file_path CLIPPED, "\\",mbs[rmbs].prog, ".42r " ,usuario CLIPPED," ",clave CLIPPED,
-- (antes imprimia usuario y CLAVE en texto claro en la consola/log)
DISPLAY "mainmenu ejecuta: ",mbs[rmbs].prog CLIPPED," desde ",file_path CLIPPED
-- Mismo runtime que el menu (no el primer "fglrun" del PATH del servidor)
LET runtime = fgl_getenv("FGLDIR")
IF runtime IS NULL OR runtime.getLength() = 0 THEN
LET runtime = "fglrun"
ELSE
LET runtime = '"', runtime, '\\bin\\fglrun"'
END IF
LET cmd = runtime," ",file_path CLIPPED, "\\",mbs[rmbs].prog, ".42r " ,usuario CLIPPED," ",clave CLIPPED,
" ",pprinter1 ," ",pprinter2, " ",ckprinter," ",file_path," ",strconect
-- El programa arranca parado en su ruta de seg0005 (como en 3.20): ahi estan
-- cert\, filesXML\, net6.0\, tmp\... que la factura electronica busca con rutas
-- relativas, y sus .42m. Sin esto heredaba como directorio de trabajo la carpeta
-- del despliegue del GAR (que cambia en cada deploy y llego a tener .42m de 3.20).
IF file_path IS NOT NULL AND LENGTH(file_path CLIPPED) > 0 THEN
LET cmd = 'cd /d "', file_path CLIPPED, '" && ', cmd
END IF
RUN cmd WITHOUT WAITING
UPDATE seg0001 SET ultimo_programa_ejecutado = pprograma WHERE seg0001.usuario = usuario
PROYECTO/otrodir/fotos.4gl
+514
View File
@@ -0,0 +1,514 @@
{
==============================================================
MODULO : fotos.4gl
FECHA : 09/02/2017
DESARROLLADO POR : ING. JUAN SOTO
}
IMPORT os
DEFINE xusername,xsmtphost,xsmtpport, xpassword STRING
FUNCTION fotos(xcodn,xcodgrupo,xcodtipo,xcodsec,producto,xusuario,habilitar,xcantidadorden,
xtmpnumero,xcodmov,xbodega,xestado)
DEFINE xcodn,xcodgrupo,xcodtipo,xcodsec,xbodega SMALLINT,
producto VARCHAR(100),
xestado VARCHAR(1),
xcantidadorden,unidadorden DEC(12,5),
habilitar,noexistencia BOOLEAN
DEFINE areageneral RECORD
xtipo_material,xcantidad_minima VARCHAR(30),
bookmatch VARCHAR(50),
tipos VARCHAR(50),
bodega SMALLINT,
descrip_bodega VARCHAR(100)
END RECORD
DEFINE kdatos DYNAMIC ARRAY OF RECORD
kimagen VARCHAR(200),
lado_2 DEC(8,5),
lado_1 DEC(8,5),
lado_3 DEC(8,5),
solicitado SMALLINT,
# cantidadIni SMALLINT,
cantidad FLOAT,
cantidad2 FLOAT,
tono VARCHAR(100),
calidad VARCHAR(100),
disponible SMALLINT,
xobservacion VARCHAR(200),
id_producto CHAR(25),
seccion INT,
tramo INT,
--codid INT,
borrar CHAR(2) ,
nombre_file VARCHAR(100)
END RECORD,
kimagen_dest,kimagen_dest2 STRING,
xusuario VARCHAR(50),
i,xcodmov SMALLINT,
xtmpnumero INT,
TOemail,cuerpo_correo,
subject, procedimiento VARCHAR(200),
totalMedida DEC(12,5)
DEFINE s_tipo,d_tipos,mensaje,f_tipos,filepath,dir_file,opcion STRING
LET producto = xcodn USING "&&&&","-",xcodgrupo USING "&&&&","-",
xcodtipo USING "&&&&","-",xcodsec USING "&&&&&&"," ",producto CLIPPED
OPEN WINDOW w1 WITH FORM "ipfmwd015"
DISPLAY BY NAME producto
DECLARE busca_imagen CURSOR FOR
SELECT a.imagen, SUM(a.lado_1),SUM(a.lado_2),SUM(isnull(a.lado_3,0)),SUM(a.cantidad),
SUM(a.cantidad2),a.observacion,a.id_producto, a.cod_seccion,a.cod_tramo,
a.nombre_file,a.solicitados,a.tono,a.calidad
FROM iptb00050 a
WHERE a.cod_n = xcodn AND
a.cod_grupo = xcodgrupo AND
a.cod_tipo =xcodtipo AND
a.cod_sec = xcodsec AND
a.num_doc = xtmpnumero AND
a.cod_mov = xcodmov
GROUP BY a.imagen, a.observacion,a.id_producto, a.cod_bodega,a.cod_seccion,a.cod_tramo,
a.nombre_file,a.solicitados,a.tono,a.calidad
UNION
SELECT a.imagen, SUM(a.lado_1),SUM(a.lado_2),SUM(isnull(a.lado_3,0)),SUM(a.cantidad),
SUM(a.cantidad2),a.observacion,a.id_producto, a.cod_seccion,a.cod_tramo,
a.nombre_file,a.solicitados,a.tono,a.calidad
FROM tmpdesglose a
WHERE a.cod_n = xcodn AND
a.cod_grupo = xcodgrupo AND
a.cod_tipo =xcodtipo AND
a.cod_sec = xcodsec AND
a.num_doc = xtmpnumero AND
a.cod_mov = xcodmov
GROUP BY a.imagen, a.observacion,a.id_producto, a.cod_seccion,a.cod_tramo,
a.nombre_file,a.solicitados,a.tono,a.calidad
LET kimagen_dest = "tmpfile.jpg"
LET kimagen_dest2="tmpfile2.jpg"
LET i=1
LET d_tipos="jpeg"
LET f_tipos="*.jpg *.png *.jpeg"
LET mensaje=%"Elige Documento"
LET totalMedida = 0
FOREACH busca_imagen INTO kdatos[i].kimagen,kdatos[i].lado_1,
kdatos[i].lado_2,kdatos[i].lado_3,kdatos[i].cantidad,kdatos[i].cantidad2,
kdatos[i].xobservacion,kdatos[i].id_producto,
kdatos[i].seccion,kdatos[i].tramo,kdatos[i].nombre_file,
kdatos[i].tono,kdatos[i].calidad,
#,kdatos[i].solicitado,
kdatos[i].tono,kdatos[i].calidad
LET kdatos[i].borrar='NO'
# LET kdatos[i].cantidadIni = kdatos[i].cantidad
LET totalMedida = totalMedida + kdatos[i].cantidad2
LET i = i+1
END FOREACH
DISPLAY BY NAME totalMedida
CALL kdatos.deleteElement(i)
SELECT a.usuario FROM seg0003 a
WHERE a.usuario = xusuario AND
a.fotos_adicionales_inventario = "SI"
IF STATUS <> NOTFOUND THEN
LET habilitar = TRUE
DIALOG
INPUT BY NAME areageneral.*
BEFORE INPUT
DISPLAY BY NAME xcantidadOrden
IF habilitar = TRUE THEN
--CALL DIALOG.setActionHidden("xtipo_material",FALSE)
--CALL DIALOG.setActionHidden("xcantidad_minima",FALSE)
--CALL DIALOG.setActionHidden("foto",FALSE)
END IF
SELECT DISTINCT a.tipo_material,a.cantidad_minima,a.bookmatch,a.tipos
INTO areageneral.xtipo_material,areageneral.xcantidad_minima,areageneral.bookmatch,areageneral.tipos
FROM iptb00052 a
WHERE a.cod_n =xcodn AND a.cod_grupo = xcodgrupo AND
a.cod_tipo = xcodtipo AND a.cod_sec = xcodsec AND
a.num_doc = xtmpnumero AND a.cod_mov = xcodmov
UNION
SELECT DISTINCT a.tipo_material,a.cantidad_minima,a.bookmatch,a.tipos
INTO areageneral.xtipo_material,areageneral.xcantidad_minima,areageneral.bookmatch,areageneral.tipos
FROM tmpdesglose_master a
WHERE a.cod_n =xcodn AND a.cod_grupo = xcodgrupo AND
a.cod_tipo = xcodtipo AND a.cod_sec = xcodsec AND
a.num_doc = xtmpnumero AND a.cod_mov = xcodmov
SELECT a.tipo_material,a.bookmatch,a.tipos
INTO areageneral.xtipo_material,areageneral.bookmatch,areageneral.tipos
FROM iptb00002 a
WHERE a.cod_n =xcodn AND a.cod_grupo = xcodgrupo AND
a.cod_tipo = xcodtipo AND a.cod_sec = xcodsec
LET areageneral.bodega = xbodega
SELECT a.descripcion INTO areageneral.descrip_bodega FROM
intb00009 a WHERE a.cod_bodega = xbodega
DISPLAY BY NAME areageneral.xtipo_material,areageneral.xcantidad_minima,
areageneral.bookmatch,areageneral.tipos,
areageneral.descrip_bodega,
areageneral.bodega
END INPUT
INPUT ARRAY kdatos FROM sdatos.* ATTRIBUTE(WITHOUT DEFAULTS)
BEFORE INPUT
IF habilitar = TRUE THEN
CALL DIALOG.setFieldActive("lado_1",TRUE)
CALL DIALOG.setFieldActive("lado_2",TRUE)
CALL DIALOG.setFieldActive("lado_3",TRUE)
CALL DIALOG.setFieldActive("cantidad",TRUE)
CALL DIALOG.setFieldActive("cantidad2",TRUE)
CALL DIALOG.setFieldActive("disponible",TRUE)
CALL DIALOG.setFieldActive("xobservacion",TRUE)
CALL DIALOG.setFieldActive("id_producto",TRUE)
CALL DIALOG.setFieldActive("seccion",TRUE)
CALL DIALOG.setFieldActive("tramo",TRUE)
CALL DIALOG.setFieldActive("borrar",TRUE)
CALL DIALOG.setFieldActive("solicitado",FALSE)
END IF
IF xestado = '2' THEN
CALL DIALOG.setFieldActive("lado_1",FALSE)
CALL DIALOG.setFieldActive("lado_2",FALSE)
CALL DIALOG.setFieldActive("lado_3",FALSE)
CALL DIALOG.setFieldActive("cantidad",FALSE)
CALL DIALOG.setFieldActive("cantidad2",FALSE)
CALL DIALOG.setFieldActive("disponible",FALSE)
NEXT FIELD id_producto
END IF
BEFORE ROW
LET i=arr_curr()
# LET kdatos[i].bodega = xbodega
CALL cseccion(xbodega)
IF kdatos[i].kimagen IS NOT NULL THEN
LET kimagen_dest = kdatos[i].kimagen
DISPLAY kimagen_dest TO presenta
END IF
IF kdatos[i].cantidad2 < 0 THEN
LET kdatos[i].cantidad2 = kdatos[i].cantidad2 * -1
END IF
DISPLAY kdatos[i].cantidad TO sdatos[scr_line()].cantidad
AFTER FIELD seccion
CALL ctramo(xbodega, kdatos[i].seccion)
ON ACTION foto_down
IF kdatos[i].kimagen IS NOT NULL THEN
LET dir_file = "tmp\\",xusuario CLIPPED,
kimagen_dest CLIPPED
LET s_tipo = '*jpg *.png'
LET opcion = 'Archivo Imagen'
LET kimagen_dest = dir_file
DISPLAY kimagen_dest TO presenta
LET mensaje = 'Guardar archivo'
CALL ui.Interface.frontCall("standard","getenv", ["TEMP"], [filepath] )
LET filepath = filepath CLIPPED,"\\",kdatos[i].nombre_file CLIPPED
CALL ui.Interface.frontCall("standard","savefile", [dir_file,opcion,
s_tipo,mensaje], [filepath] )
CALL fgl_putfile(dir_file,filepath)
CALL ui.Interface.frontCall("standard","shellexec", [filepath],[opcion])
END IF
ON ACTION foto
LET i = arr_curr()
CALL ui.Interface.frontCall("standard","openfile", [dir_file,d_tipos,f_tipos,mensaje], [filepath] )
IF filepath IS NOT NULL THEN
IF downshift(os.Path.extension(filepath)) = "jpg" OR
downshift(os.Path.extension(filepath)) = "jpeg" OR
downshift(os.Path.extension(filepath)) = "png" THEN
LET dir_file = os.Path.basename(filepath)
LET dir_file = "tmp\\",dir_file CLIPPED
# CALL fgl_getfile(filepath,kimagen_dest2)
CALL fgl_getfile(filepath,dir_file)
CALL comprimeImagen(dir_file,' -resize 500x500 ')
LET kdatos[i].nombre_file = os.Path.basename(dir_file)
DISPLAY dir_file TO presenta
LET kdatos[i].kimagen = dir_file
ELSE
CALL fgl_winmessage("ERROR","EL FILE DEBE SER JPG, JPEG, PNG","INFO")
END IF
END IF
{
AFTER FIELD solicitado
LET i = arr_curr()
IF kdatos[i].solicitado IS NULL THEN
CALL fgl_winmessage("ERROR","DEBE ESPECIFICAR lA CANTIDAD SOLICITADA","INFO")
NEXT FIELD solicitado
END IF
IF kdatos[i].solicitado > kdatos[i].cantidad THEN
CALL fgl_winmessage("ERROR","lA CANTIDAD SOLICITADA SUPERA LA DISPONIBLE","INFO")
NEXT FIELD solicitado
ELSE
DISPLAY "kdatos[i].cantidadIni: ",kdatos[i].cantidadIni
DISPLAY "kdatos[i].solicitado: ",kdatos[i].solicitado
LET kdatos[i].cantidad = kdatos[i].cantidadIni - kdatos[i].solicitado
LET kdatos[i].cantidad2= kdatos[i].lado_1 * kdatos[i].lado_2 * kdatos[i].cantidad
DISPLAY kdatos[i].cantidad TO sdatos[scr_line()].cantidad
DISPLAY kdatos[i].cantidad2 TO sdatos[scr_line()].cantidad2
END IF
}
AFTER FIELD cantidad
LET i = arr_curr()
LET kdatos[i].cantidad2= kdatos[i].lado_1 * kdatos[i].lado_2 * kdatos[i].cantidad
DISPLAY kdatos[i].cantidad2 TO sdatos[scr_line()].cantidad2
AFTER FIELD id_producto
IF xestado = '2' THEN
SELECT DISTINCT a.lado_1,a.lado_2,a.lado_3,a.tono,a.calidad
INTO kdatos[i].lado_1,kdatos[i].lado_2,kdatos[i].lado_3,
kdatos[i].tono,kdatos[i].calidad
FROM iptb00050 a WHERE a.id_producto = kdatos[i].id_producto
IF STATUS = NOTFOUND THEN
CALL msg(3)
NEXT FIELD id_producto
END IF
DISPLAY kdatos[i].lado_1 TO sdatos[scr_line()].lado_1
DISPLAY kdatos[i].lado_2 TO sdatos[scr_line()].lado_2
DISPLAY kdatos[i].lado_3 TO sdatos[scr_line()].lado_3
DISPLAY kdatos[i].tono TO sdatos[scr_line()].tono
DISPLAY kdatos[i].calidad TO sdatos[scr_line()].calidad
END IF
ON ACTION guardar ATTRIBUTE(TEXT="Salvar",IMAGE="save")
BEGIN WORK
SELECT a.num_doc FROM tmpdesglose_master a
WHERE a.num_doc = xtmpnumero AND a.cod_mov = xcodmov AND a.us_crea = xusuario
IF STATUS = NOTFOUND THEN
INSERT INTO tmpdesglose_master (cod_n,cod_grupo,cod_tipo,cod_Sec,tipo_material,cantidad_minima,us_crea,fech_crea,cantidadorden,num_doc,cod_mov,fecha,bookmatch,tipos,bodega)
VALUES (xcodn,xcodgrupo,xcodtipo,xcodsec,areageneral.xtipo_material,areageneral.xcantidad_minima,xusuario,getdate(),xcantidadorden,xtmpnumero,xcodmov,getdate(),areageneral.bookmatch,areageneral.tipos,
xbodega)
END IF
DELETE FROM tmpdesglose WHERE num_doc = xtmpnumero AND cod_mov = xcodmov AND
cod_n = xcodn AND cod_grupo = xcodgrupo AND
cod_tipo = xcodtipo AND cod_sec = xcodsec AND
us_crea = xusuario
LET xcantidadorden = 0
LET unidadorden =0
FOR i =1 TO kdatos.getLength()
IF kdatos[i].calidad IS NOT NULL THEN
IF kdatos[i].id_producto IS NULL THEN
ROLLBACK WORK
CALL msg(16)
NEXT FIELD id_producto
END IF
IF xestado = '2' THEN
SELECT DISTINCT id_producto FROM iptb00050 WHERE id_producto = kdatos[i].id_producto
IF STATUS = NOTFOUND THEN
CALL msg(3)
NEXT FIELD id_producto
END IF
IF kdatos[i].cantidad2 < 0 THEN
LET kdatos[i].cantidad2 = kdatos[i].cantidad2 * -1
END IF
CALL idexistencia(kdatos[i].id_producto,kdatos[i].cantidad2,xbodega,
kdatos[i].seccion,kdatos[i].tramo) RETURNING noexistencia
IF noexistencia THEN
ROLLBACK WORK
CALL msg(30)
NEXT FIELD cantidad2
END IF
END IF
LET kdatos[i].id_producto=kdatos[i].id_producto CLIPPED
LET xcantidadorden = xcantidadorden + kdatos[i].cantidad2
LET unidadorden = unidadorden + kdatos[i].cantidad
IF xestado = '2' THEN
LET kdatos[i].cantidad2 = kdatos[i].cantidad2 * -1
END IF
INSERT INTO tmpdesglose (cod_n,cod_grupo,cod_tipo,cod_Sec,imagen,observacion,
lado_1,lado_2,lado_3,cantidad,
nombre_file,us_crea,fech_crea,id_producto,
cantidad2,cod_bodega,cod_seccion,cod_tramo,tono,calidad,num_doc,cod_mov
)
VALUES (xcodn,xcodgrupo,xcodtipo,xcodsec,kdatos[I].kimagen,kdatos[i].xobservacion,
kdatos[i].lado_1,kdatos[i].lado_2,kdatos[i].lado_3,
kdatos[i].cantidad, kdatos[i].nombre_file,xusuario,getdate(),kdatos[i].id_producto,
kdatos[i].cantidad2,xbodega,kdatos[i].seccion,kdatos[i].tramo,kdatos[i].tono,
kdatos[i].calidad,xtmpnumero,xcodmov)
END IF
END FOR
COMMIT WORK
CALL msg(1)
LET subject="ACTUALIZACION IMAGEN PRODUCTO"
LET cuerpo_correo = "EL ARTICULO ",producto CLIPPED, " FUE ACTUALIZADO CON UNA IMAGEN"
# LET toemail ='vendedores@marmotech.com.do;jsoto@marmotech.com.do'
LET toemail ='jsoto@marmotech.com.do'
# LET procedimiento = "{ call cc_avisadespacho(?,?,?,?) }" CLIPPED
# CALL envia_correo(TOemail,CCEmail,cuerpo_correo,
# subject, procedimiento )
LET xusername ='notificacion@marmotech.com.do'
LET xsmtphost ='smtp.office365.com'
LET xsmtpport = '587'
LET xpassword = 'Lmmjvsd2020'
# CALL enviaemail(Toemail,subject,cuerpo_correo,NULL,xusername,xsmtphost,xsmtpport,xpassword)
# RETURNING retorne
LET procedimiento = "{ call cc_avisadespacho(?,?,?,?) }" CLIPPED
END INPUT
ON ACTION retornar ATTRIBUTE(TEXT="Retornar",IMAGE="fa-long-arrow-left")
IF xcantidadorden IS NULL THEN
LET xcantidadorden=0
END IF
IF unidadorden IS NULL THEN
LET unidadorden = 0
END IF
EXIT DIALOG
END DIALOG
ELSE
DISPLAY ARRAY kdatos TO sdatos.*
BEFORE ROW
LET i=arr_curr()
IF kdatos[i].kimagen IS NOT NULL THEN
LET kimagen_dest =kdatos[i].kimagen
DISPLAY kimagen_dest TO presenta
END IF
ON ACTION foto_down
IF kdatos[i].kimagen IS NOT NULL THEN
LET dir_file = "tmp\\",xusuario CLIPPED,
kimagen_dest CLIPPED
LET s_tipo = '*jpg *.png'
LET opcion = 'Archivo Imagen'
LET mensaje = 'Guardar archivo'
CALL ui.Interface.frontCall("standard","getenv", ["TEMP"], [filepath] )
LET filepath = filepath CLIPPED,"\\",kdatos[i].nombre_file CLIPPED
CALL ui.Interface.frontCall("standard","savefile", [dir_file,opcion,
s_tipo,mensaje], [filepath] )
CALL fgl_putfile(dir_file,filepath)
CALL comprimeImagen(filepath,' -resize 500x500 ')
CALL ui.Interface.frontCall("standard","shellexec", [filepath],[opcion])
END IF
AFTER DISPLAY
EXIT DISPLAY
END DISPLAY
END IF
CLOSE WINDOW w1
RETURN xcantidadorden,unidadorden
END FUNCTION
FUNCTION idexistencia(id,cantidad,pbodega, secc,fila)
DEFINE id VARCHAR(25),
existencia,cantidad DEC(12,5),
secc,fila,pbodega INT
SELECT ISNULL(SUM(a.cantidad2),0) INTO existencia FROM iptb00050 a
WHERE a.id_producto = id AND
a.cod_bodega = pbodega AND
a.cod_seccion = secc AND
a.cod_tramo = fila AND
a.status_t IS NULL
IF cantidad > existencia THEN
RETURN TRUE
ELSE
RETURN FALSE
END IF
END FUNCTION
FUNCTION cseccion(almacen)
DEFINE kcod_seccion,almacen SMALLINT,
kdescripcion CHAR(30),
pseccion ui.ComboBox
LET pseccion = ui.combobox.forname("formonly.seccion")
DECLARE busca_sec CURSOR FOR
SELECT a.cod_seccion,a.descripcion FROM Intb00010 a
WHERE a.cod_bodega = almacen
CALL pseccion.clear()
FOREACH busca_sec INTO kcod_seccion,kdescripcion
CALL pseccion.additem(kcod_seccion,kdescripcion)
END FOREACH
CALL pseccion.additem(99,"TODAS")
END FUNCTION
FUNCTION ctramo(almacen,seccion)
DEFINE kcod_tramo,almacen,seccion SMALLINT,kdescripcion CHAR(30),
ptramo ui.ComboBox
LET ptramo = ui.combobox.forname("formonly.tramo")
DECLARE busca_tramo CURSOR FOR
SELECT a.cod_tramo,a.descripcion FROM Intb00043 a
WHERE a.cod_bodega = almacen and a.cod_Seccion = seccion
CALL ptramo.clear()
FOREACH busca_tramo INTO kcod_tramo,kdescripcion
DISPLAY "tramos ",kcod_tramo,kdescripcion," ",almacen," ",seccion
CALL ptramo.additem(kcod_tramo,kdescripcion)
END FOREACH
CALL ptramo.additem(99,"TODOS")
END FUNCTION
PROYECTO/seguridad2.0/distbin/Application_GAR.gar
BIN
View File
Binary file not shown.
PROYECTO/vedir/veconvierteorden.4gl
+12
View File
@@ -126,6 +126,18 @@ FUNCTION convierteorden(
UPDATE prtb00020
SET num_oc = ISNULL(num_oc, 0) + 1, us_crea = xusuario, fech_crea = GETDATE()
SELECT num_oc INTO ult_numero FROM prtb00020
# RE-VALIDACION YA CON EL BLOQUEO DE prtb00020: la validacion del inicio
# corre fuera de la transaccion; si otro usuario estaba convirtiendo la
# misma cotizacion, aqui ya vemos su orden confirmada (cot 340001, 20/10/2026)
LET existe_oc = 0
SELECT COUNT(*) INTO existe_oc FROM prtb00012
WHERE cotizacion_no = xcotizacion_no AND status_t IS NULL
IF existe_oc > 0 THEN
ROLLBACK WORK
CALL fgl_winmessage(
"ERROR", "COTIZACION TIENE ORDEN, NO PUEDE CREAR ORDEN", "STOP")
RETURN 0, FALSE
END IF
# AUTOCORRECCION: si el contador quedo por detras de prtb00012
# (otro programa creo ordenes sin avanzarlo), salta al siguiente libre
LET existe_oc = 0
WEBSERVICES/bin/24789663_ws.marmotech.com.do_8098.key
-27
View File
@@ -1,27 +0,0 @@
-----BEGIN RSA PRIVATE KEY-----
MIIEpAIBAAKCAQEAv6Ap2OBlMV8W6k96xyiRZqzbsYkwkLNzu7R6c4OV3lKjp4Er
cNHmtGNsmK3F1nvYqKsTNQzXh8IBdw15fZwytL+KgSltYxglAh0xn3dcSQzrydLO
efpaGaF8u3wA202H35zrlc4WnS1LJJBarrqPwoXhcgNj03CrS3cPHWUIFCJ+dG6O
F1AUKyDBzdI7Oo95Usch/UVV5XfWlNDKG1p1h/Ds6S6hQ1l7ssNnAMJal1TNRI8A
zghhlPHND/e0CdE+DaF1IdYPIQjzAAG3m560U8e4li0VX+onEpDr+nqjHchfdBg7
Yo4CB8SPNQMvY/qJTu8lXH0vn+cLJB0kYeiF0QIDAQABAoIBAQCBGyz2pQEoyXNL
/K6xHkEQl2gRbmgdJfrUvZ0+1KoVt0Hx6lJVWeaBJPeWyoWfo6NuyIxRUsyn9+s6
xgZTvfhf1SlBKqM7f5n3manEUgwIX79BJFnezvEDkczTGJIPL2ZbH4OOU+LilRCq
muOuE54mJkOlqGkKnT+bwaSaXmaaARUEomEvBYifakx3jiTx2keouxG4rnFyATd6
FoI63Q/vwYgmVLKhcQKGaGS000iPEZZLBwb8aI6gCuObscp/Jfopfyp7Wj2eLdVa
fzhEBrynm+YxZTVrLgZtlEFGmIMDjvTdflChyHrx2rq8O5DJcb4sxS9qjnuqGc7p
J+TO4+TRAoGBAOHxVv9Xe9FyuLWVdHTL9eE7i+bLmOzhLXZ+kJrWrzm2Ic2FReJg
22LcwqrgLbs/EtauNsUnGiHJQX5d8x8usYzgvavKiD49hk2xr4F+euJiV5zqg2bS
63M5+3GixHayOwwkGgqTXH9CRE6SsozxWoOkG1tzFPpkPwGEzDEbmMHdAoGBANke
IKfFJzMZ+jQ/rfYFIbSBaEP9nUzvhOUmRR9bZnNCP4HEdcm1Vf5+i05xqwXS6ghH
SlXxP7yK49WHy9rnofLSE94PKIToGveV92z4hXHQdQIisbruuaRT5fOdfSYm/+GB
c9r9iMNK9KaQjIT9QgxptG101oJOFyy716HmCSaFAoGACoE1AUQo/pDt44tiUbfV
47XoCD/5CTJi8bpqsLhAh1dfdPW4TREhwhPvfRBVL/p7vr100G/D+EQqJlzp285I
9PrR9rXA5dvobZ5QQZ4GypW16xbAKzytM7tDZIIjzjz1H9hh2ZIGX+hN0rVhVco2
4h30I6lTFV0pzMFG2RWmYYUCgYEA2P+YibWtiRB0lpXyq0nTtxIDgLjQ550YiOJo
AYAbdCUJTgxp4TDhAtu9JajL0qVLjPybmivllO6H6dmwcFhD72nxu2YRDEzi7wMu
6PW2gdtjpr/APOHuHwRPdt23wFMIOX1lqsDtWKrovDUKjLyGr9tSHnfBETk1Rltz
l/dOu/UCgYAvuP0KKCknpZQ68rtRuxrCVpHeK/9a4efJmyHTPLAiuzNUNYmGWIlW
Ejy6Nvz4Ix52ZOwl+3p09oPABDneEnLW3sdNGrkB6PH0PF2uXqtgZ4xWwx3PWUpK
nBB57PClyOar7RZ9hiIeuixbO6dyB8QEIccln7gR4czIptMhnUeoDQ==
-----END RSA PRIVATE KEY-----
WEBSERVICES/bin/ClientCAList.pem
-67
View File
@@ -1,67 +0,0 @@
Certificate:
Data:
Version: 3 (0x2)
Serial Number:
1a:a3:12:3c:c3:af:da:b9:42:04:55:65:ed:82:14:3a
Signature Algorithm: sha1WithRSAEncryption
Issuer: CN=ws.marmotech.com.do
Validity
Not Before: Jul 12 19:42:14 2019 GMT
Not After : Jul 13 19:42:14 2029 GMT
Subject: CN=ws.marmotech.com.do
Subject Public Key Info:
Public Key Algorithm: rsaEncryption
Public-Key: (2048 bit)
Modulus:
00:c7:13:cc:69:ff:12:2d:2a:1f:e2:7c:06:64:3d:
33:42:c0:7d:23:97:d9:2a:16:90:01:cf:58:2a:c5:
be:6f:c3:14:2d:17:b3:94:66:c4:64:0b:8b:9e:54:
87:58:eb:0f:3b:81:16:1a:ee:17:b0:76:30:b1:26:
86:a7:e7:8c:9e:99:90:f0:55:3d:65:13:bd:3b:0b:
96:66:e7:bc:ba:60:cc:45:b5:6e:d7:1b:af:c7:7c:
15:22:1a:5b:03:5d:8a:c5:2f:a0:51:b1:49:df:1d:
92:18:04:c5:73:f4:33:d2:4b:10:6c:13:c0:32:e5:
7c:a5:e4:91:e7:f4:ef:d1:36:72:84:19:0d:cb:50:
1a:31:59:3d:2c:f7:0c:73:81:d6:ff:80:4f:24:b7:
63:fc:04:8c:98:dc:6f:88:11:96:03:d4:d4:61:ee:
55:ca:1f:16:f8:93:13:4a:c2:d4:e5:6b:84:97:e6:
14:1f:f9:e2:43:37:6b:83:18:ed:ee:c4:eb:ca:69:
f5:93:08:99:e3:6d:62:69:a8:0f:54:5c:04:72:61:
1e:9b:99:b5:23:59:82:af:ac:7f:18:3e:b6:fe:66:
f3:eb:73:d2:07:8f:34:b5:d6:6f:a1:88:f7:6b:7e:
65:37:dd:55:4c:93:21:a4:00:9c:9a:90:3d:0f:54:
99:71
Exponent: 65537 (0x10001)
Signature Algorithm: sha1WithRSAEncryption
a1:26:90:11:49:37:df:ac:d0:97:28:70:ed:ca:27:d9:dd:9d:
46:2d:a3:f6:f2:14:4a:39:6e:42:27:55:35:5d:81:0c:16:6b:
6c:13:eb:40:2a:f3:d0:e1:13:bc:a7:a6:db:1c:8c:31:ca:8a:
a8:11:7c:92:27:d4:31:80:29:ab:05:f0:a6:55:2d:0c:ff:70:
23:d1:6f:0f:bc:7d:69:a9:bb:b0:9d:ee:ed:28:31:0e:23:a9:
3d:2f:50:d7:40:0b:bc:00:6f:94:86:d3:72:75:c3:57:50:e1:
b0:7b:97:c2:8d:2c:9b:8d:4f:c4:5b:dd:57:53:cf:c7:7c:1a:
31:f1:82:6f:7c:90:93:0e:15:7e:d0:21:30:71:b1:d8:48:27:
97:59:1f:ae:b9:55:01:42:57:70:ad:e7:69:4e:a9:88:45:04:
1b:fc:33:4d:e9:07:e9:20:98:82:e0:b7:5b:cc:cc:f9:ad:62:
53:3e:8d:fa:4d:08:fe:93:f9:62:c9:4d:e7:d6:7d:db:17:16:
1a:11:3c:7e:05:26:2a:a1:c3:18:11:a2:ad:76:8f:05:66:9d:
d8:18:d4:4b:49:d0:36:56:1b:88:79:43:02:61:9f:4d:fe:06:
c3:0c:25:25:a4:09:a2:bf:85:e7:99:08:cf:77:8f:c0:18:af:
0d:47:2d:dd
-----BEGIN CERTIFICATE-----
MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
-----END CERTIFICATE-----
WEBSERVICES/bin/clienteCAlist.pem
-2
View File
@@ -1,2 +0,0 @@
The file cannot be copied onto itself.
0 file(s) copied.
WEBSERVICES/bin/marmotechCA.cer
-18
View File
@@ -1,18 +0,0 @@
-----BEGIN CERTIFICATE-----
MIIC8DCCAdigAwIBAgIQFM8pBaIO1oxO+Zg62blEgzANBgkqhkiG9w0BAQsFADAh
MR8wHQYDVQQDExZEQ00tREMubWFybW90ZWNoLmxvY2FsMB4XDTE5MDcxMzIzMjQx
N1oXDTIwMDcxMzAwMDAwMFowITEfMB0GA1UEAxMWRENNLURDLm1hcm1vdGVjaC5s
b2NhbDCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAOllg3whQPnFtOn8
No1CRjS/mk0cuwuXSbl98pnTd3ejiEJxg3DyFn40INhlM+kQoJV9mk7jvopR91n7
BrH4pv8bCWIMra3Eak9sZ/jx+4R/s44jDLhqaPs1gtlKw69/MkFL3CIcweQODa+u
tdbv44QFTSOYzNtK2z0DblJhIbyAX9qYWY6iwSewiYoreI4wi/M4YbZAjEAkCiG7
WduVF3lS5Pg8rPpIVXPYo01gyjMOUYZWfg1NzsvTF7Z5ex7UR9bJ6zS5WGfoWcNz
wnxx/3c2F2NBzq0IJAKWSvuBlc0ruYLZZlkYsOxenklSIiP0xwevEmsoH/20P166
bcUmF78CAwEAAaMkMCIwCwYDVR0PBAQDAgQwMBMGA1UdJQQMMAoGCCsGAQUFBwMB
MA0GCSqGSIb3DQEBCwUAA4IBAQANOPSnj3Rb5XGILZEoTBWt+T7Y6xXz49MLtNFn
uEOHp80F14H4gSAmqBsGVh4RXmb7FX/iZHdsmERlVLyDXHpDvKnl7NIsyKRIMPbB
IO7/STG4Y/KRKUfOiCtYLECKcON6FPMQPtfnoSDPjii4Zl4BwcKgMN2uzhqfufOJ
3W2L9wBiVp2G6YzCH/U577Mhwb4jnkUH2OHPbm8DpPSn2dQGdqgLqfdEL9vkeVLT
7QJWxYqInGPZuUSntMnHF6idf/xzkVdad8ajvpmynXMOCYz2tlbEHdPWjC0kTXGO
52UkcEfVuMFKDSeiIKJg3TMKJQQQZH+Z2jSELlrbRWb9on8c
-----END CERTIFICATE-----
WEBSERVICES/bin/marmotechCA.pem
-73
View File
@@ -1,73 +0,0 @@
Certificate:
Data:
Version: 3 (0x2)
Serial Number:
14:cf:29:05:a2:0e:d6:8c:4e:f9:98:3a:d9:b9:44:83
Signature Algorithm: sha256WithRSAEncryption
Issuer: CN = DCM-DC.marmotech.local
Validity
Not Before: Jul 13 23:24:17 2019 GMT
Not After : Jul 13 00:00:00 2020 GMT
Subject: CN = DCM-DC.marmotech.local
Subject Public Key Info:
Public Key Algorithm: rsaEncryption
RSA Public-Key: (2048 bit)
Modulus:
00:e9:65:83:7c:21:40:f9:c5:b4:e9:fc:36:8d:42:
46:34:bf:9a:4d:1c:bb:0b:97:49:b9:7d:f2:99:d3:
77:77:a3:88:42:71:83:70:f2:16:7e:34:20:d8:65:
33:e9:10:a0:95:7d:9a:4e:e3:be:8a:51:f7:59:fb:
06:b1:f8:a6:ff:1b:09:62:0c:ad:ad:c4:6a:4f:6c:
67:f8:f1:fb:84:7f:b3:8e:23:0c:b8:6a:68:fb:35:
82:d9:4a:c3:af:7f:32:41:4b:dc:22:1c:c1:e4:0e:
0d:af:ae:b5:d6:ef:e3:84:05:4d:23:98:cc:db:4a:
db:3d:03:6e:52:61:21:bc:80:5f:da:98:59:8e:a2:
c1:27:b0:89:8a:2b:78:8e:30:8b:f3:38:61:b6:40:
8c:40:24:0a:21:bb:59:db:95:17:79:52:e4:f8:3c:
ac:fa:48:55:73:d8:a3:4d:60:ca:33:0e:51:86:56:
7e:0d:4d:ce:cb:d3:17:b6:79:7b:1e:d4:47:d6:c9:
eb:34:b9:58:67:e8:59:c3:73:c2:7c:71:ff:77:36:
17:63:41:ce:ad:08:24:02:96:4a:fb:81:95:cd:2b:
b9:82:d9:66:59:18:b0:ec:5e:9e:49:52:22:23:f4:
c7:07:af:12:6b:28:1f:fd:b4:3f:5e:ba:6d:c5:26:
17:bf
Exponent: 65537 (0x10001)
X509v3 extensions:
X509v3 Key Usage:
Key Encipherment, Data Encipherment
X509v3 Extended Key Usage:
TLS Web Server Authentication
Signature Algorithm: sha256WithRSAEncryption
0d:38:f4:a7:8f:74:5b:e5:71:88:2d:91:28:4c:15:ad:f9:3e:
d8:eb:15:f3:e3:d3:0b:b4:d1:67:b8:43:87:a7:cd:05:d7:81:
f8:81:20:26:a8:1b:06:56:1e:11:5e:66:fb:15:7f:e2:64:77:
6c:98:44:65:54:bc:83:5c:7a:43:bc:a9:e5:ec:d2:2c:c8:a4:
48:30:f6:c1:20:ee:ff:49:31:b8:63:f2:91:29:47:ce:88:2b:
58:2c:40:8a:70:e3:7a:14:f3:10:3e:d7:e7:a1:20:cf:8e:28:
b8:66:5e:01:c1:c2:a0:30:dd:ae:ce:1a:9f:b9:f3:89:dd:6d:
8b:f7:00:62:56:9d:86:e9:8c:c2:1f:f5:39:ef:b3:21:c1:be:
23:9e:45:07:d8:e1:cf:6e:6f:03:a4:f4:a7:d9:d4:06:76:a8:
0b:a9:f7:44:2f:db:e4:79:52:d3:ed:02:56:c5:8a:88:9c:63:
d9:b9:44:a7:b4:c9:c7:17:a8:9d:7f:fc:73:91:57:5a:77:c6:
a3:be:99:b2:9d:73:0e:09:8c:f6:b6:56:c4:1d:d3:d6:8c:2d:
24:4d:71:8e:e7:65:24:70:47:d5:b8:c1:4a:0d:27:a2:20:a2:
60:dd:33:0a:25:04:10:64:7f:99:da:34:84:2e:5a:db:45:66:
fd:a2:7f:1c
-----BEGIN CERTIFICATE-----
MIIC8DCCAdigAwIBAgIQFM8pBaIO1oxO+Zg62blEgzANBgkqhkiG9w0BAQsFADAh
MR8wHQYDVQQDExZEQ00tREMubWFybW90ZWNoLmxvY2FsMB4XDTE5MDcxMzIzMjQx
N1oXDTIwMDcxMzAwMDAwMFowITEfMB0GA1UEAxMWRENNLURDLm1hcm1vdGVjaC5s
b2NhbDCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAOllg3whQPnFtOn8
No1CRjS/mk0cuwuXSbl98pnTd3ejiEJxg3DyFn40INhlM+kQoJV9mk7jvopR91n7
BrH4pv8bCWIMra3Eak9sZ/jx+4R/s44jDLhqaPs1gtlKw69/MkFL3CIcweQODa+u
tdbv44QFTSOYzNtK2z0DblJhIbyAX9qYWY6iwSewiYoreI4wi/M4YbZAjEAkCiG7
WduVF3lS5Pg8rPpIVXPYo01gyjMOUYZWfg1NzsvTF7Z5ex7UR9bJ6zS5WGfoWcNz
wnxx/3c2F2NBzq0IJAKWSvuBlc0ruYLZZlkYsOxenklSIiP0xwevEmsoH/20P166
bcUmF78CAwEAAaMkMCIwCwYDVR0PBAQDAgQwMBMGA1UdJQQMMAoGCCsGAQUFBwMB
MA0GCSqGSIb3DQEBCwUAA4IBAQANOPSnj3Rb5XGILZEoTBWt+T7Y6xXz49MLtNFn
uEOHp80F14H4gSAmqBsGVh4RXmb7FX/iZHdsmERlVLyDXHpDvKnl7NIsyKRIMPbB
IO7/STG4Y/KRKUfOiCtYLECKcON6FPMQPtfnoSDPjii4Zl4BwcKgMN2uzhqfufOJ
3W2L9wBiVp2G6YzCH/U577Mhwb4jnkUH2OHPbm8DpPSn2dQGdqgLqfdEL9vkeVLT
7QJWxYqInGPZuUSntMnHF6idf/xzkVdad8ajvpmynXMOCYz2tlbEHdPWjC0kTXGO
52UkcEfVuMFKDSeiIKJg3TMKJQQQZH+Z2jSELlrbRWb9on8c
-----END CERTIFICATE-----
WEBSERVICES/bin/ws_marmotech_com_do.crt
-17
View File
@@ -1,17 +0,0 @@
-----BEGIN CERTIFICATE-----
MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
-----END CERTIFICATE-----
WEBSERVICES/bin/ws_marmotech_com_do.pem
-67
View File
@@ -1,67 +0,0 @@
Certificate:
Data:
Version: 3 (0x2)
Serial Number:
1a:a3:12:3c:c3:af:da:b9:42:04:55:65:ed:82:14:3a
Signature Algorithm: sha1WithRSAEncryption
Issuer: CN=ws.marmotech.com.do
Validity
Not Before: Jul 12 19:42:14 2019 GMT
Not After : Jul 13 19:42:14 2029 GMT
Subject: CN=ws.marmotech.com.do
Subject Public Key Info:
Public Key Algorithm: rsaEncryption
Public-Key: (2048 bit)
Modulus:
00:c7:13:cc:69:ff:12:2d:2a:1f:e2:7c:06:64:3d:
33:42:c0:7d:23:97:d9:2a:16:90:01:cf:58:2a:c5:
be:6f:c3:14:2d:17:b3:94:66:c4:64:0b:8b:9e:54:
87:58:eb:0f:3b:81:16:1a:ee:17:b0:76:30:b1:26:
86:a7:e7:8c:9e:99:90:f0:55:3d:65:13:bd:3b:0b:
96:66:e7:bc:ba:60:cc:45:b5:6e:d7:1b:af:c7:7c:
15:22:1a:5b:03:5d:8a:c5:2f:a0:51:b1:49:df:1d:
92:18:04:c5:73:f4:33:d2:4b:10:6c:13:c0:32:e5:
7c:a5:e4:91:e7:f4:ef:d1:36:72:84:19:0d:cb:50:
1a:31:59:3d:2c:f7:0c:73:81:d6:ff:80:4f:24:b7:
63:fc:04:8c:98:dc:6f:88:11:96:03:d4:d4:61:ee:
55:ca:1f:16:f8:93:13:4a:c2:d4:e5:6b:84:97:e6:
14:1f:f9:e2:43:37:6b:83:18:ed:ee:c4:eb:ca:69:
f5:93:08:99:e3:6d:62:69:a8:0f:54:5c:04:72:61:
1e:9b:99:b5:23:59:82:af:ac:7f:18:3e:b6:fe:66:
f3:eb:73:d2:07:8f:34:b5:d6:6f:a1:88:f7:6b:7e:
65:37:dd:55:4c:93:21:a4:00:9c:9a:90:3d:0f:54:
99:71
Exponent: 65537 (0x10001)
Signature Algorithm: sha1WithRSAEncryption
a1:26:90:11:49:37:df:ac:d0:97:28:70:ed:ca:27:d9:dd:9d:
46:2d:a3:f6:f2:14:4a:39:6e:42:27:55:35:5d:81:0c:16:6b:
6c:13:eb:40:2a:f3:d0:e1:13:bc:a7:a6:db:1c:8c:31:ca:8a:
a8:11:7c:92:27:d4:31:80:29:ab:05:f0:a6:55:2d:0c:ff:70:
23:d1:6f:0f:bc:7d:69:a9:bb:b0:9d:ee:ed:28:31:0e:23:a9:
3d:2f:50:d7:40:0b:bc:00:6f:94:86:d3:72:75:c3:57:50:e1:
b0:7b:97:c2:8d:2c:9b:8d:4f:c4:5b:dd:57:53:cf:c7:7c:1a:
31:f1:82:6f:7c:90:93:0e:15:7e:d0:21:30:71:b1:d8:48:27:
97:59:1f:ae:b9:55:01:42:57:70:ad:e7:69:4e:a9:88:45:04:
1b:fc:33:4d:e9:07:e9:20:98:82:e0:b7:5b:cc:cc:f9:ad:62:
53:3e:8d:fa:4d:08:fe:93:f9:62:c9:4d:e7:d6:7d:db:17:16:
1a:11:3c:7e:05:26:2a:a1:c3:18:11:a2:ad:76:8f:05:66:9d:
d8:18:d4:4b:49:d0:36:56:1b:88:79:43:02:61:9f:4d:fe:06:
c3:0c:25:25:a4:09:a2:bf:85:e7:99:08:cf:77:8f:c0:18:af:
0d:47:2d:dd
-----BEGIN CERTIFICATE-----
MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
-----END CERTIFICATE-----
WEBSERVICES/config_ca/certificados/ClientCAList.pem
-67
View File
@@ -1,67 +0,0 @@
Certificate:
Data:
Version: 3 (0x2)
Serial Number:
1a:a3:12:3c:c3:af:da:b9:42:04:55:65:ed:82:14:3a
Signature Algorithm: sha1WithRSAEncryption
Issuer: CN=ws.marmotech.com.do
Validity
Not Before: Jul 12 19:42:14 2019 GMT
Not After : Jul 13 19:42:14 2029 GMT
Subject: CN=ws.marmotech.com.do
Subject Public Key Info:
Public Key Algorithm: rsaEncryption
Public-Key: (2048 bit)
Modulus:
00:c7:13:cc:69:ff:12:2d:2a:1f:e2:7c:06:64:3d:
33:42:c0:7d:23:97:d9:2a:16:90:01:cf:58:2a:c5:
be:6f:c3:14:2d:17:b3:94:66:c4:64:0b:8b:9e:54:
87:58:eb:0f:3b:81:16:1a:ee:17:b0:76:30:b1:26:
86:a7:e7:8c:9e:99:90:f0:55:3d:65:13:bd:3b:0b:
96:66:e7:bc:ba:60:cc:45:b5:6e:d7:1b:af:c7:7c:
15:22:1a:5b:03:5d:8a:c5:2f:a0:51:b1:49:df:1d:
92:18:04:c5:73:f4:33:d2:4b:10:6c:13:c0:32:e5:
7c:a5:e4:91:e7:f4:ef:d1:36:72:84:19:0d:cb:50:
1a:31:59:3d:2c:f7:0c:73:81:d6:ff:80:4f:24:b7:
63:fc:04:8c:98:dc:6f:88:11:96:03:d4:d4:61:ee:
55:ca:1f:16:f8:93:13:4a:c2:d4:e5:6b:84:97:e6:
14:1f:f9:e2:43:37:6b:83:18:ed:ee:c4:eb:ca:69:
f5:93:08:99:e3:6d:62:69:a8:0f:54:5c:04:72:61:
1e:9b:99:b5:23:59:82:af:ac:7f:18:3e:b6:fe:66:
f3:eb:73:d2:07:8f:34:b5:d6:6f:a1:88:f7:6b:7e:
65:37:dd:55:4c:93:21:a4:00:9c:9a:90:3d:0f:54:
99:71
Exponent: 65537 (0x10001)
Signature Algorithm: sha1WithRSAEncryption
a1:26:90:11:49:37:df:ac:d0:97:28:70:ed:ca:27:d9:dd:9d:
46:2d:a3:f6:f2:14:4a:39:6e:42:27:55:35:5d:81:0c:16:6b:
6c:13:eb:40:2a:f3:d0:e1:13:bc:a7:a6:db:1c:8c:31:ca:8a:
a8:11:7c:92:27:d4:31:80:29:ab:05:f0:a6:55:2d:0c:ff:70:
23:d1:6f:0f:bc:7d:69:a9:bb:b0:9d:ee:ed:28:31:0e:23:a9:
3d:2f:50:d7:40:0b:bc:00:6f:94:86:d3:72:75:c3:57:50:e1:
b0:7b:97:c2:8d:2c:9b:8d:4f:c4:5b:dd:57:53:cf:c7:7c:1a:
31:f1:82:6f:7c:90:93:0e:15:7e:d0:21:30:71:b1:d8:48:27:
97:59:1f:ae:b9:55:01:42:57:70:ad:e7:69:4e:a9:88:45:04:
1b:fc:33:4d:e9:07:e9:20:98:82:e0:b7:5b:cc:cc:f9:ad:62:
53:3e:8d:fa:4d:08:fe:93:f9:62:c9:4d:e7:d6:7d:db:17:16:
1a:11:3c:7e:05:26:2a:a1:c3:18:11:a2:ad:76:8f:05:66:9d:
d8:18:d4:4b:49:d0:36:56:1b:88:79:43:02:61:9f:4d:fe:06:
c3:0c:25:25:a4:09:a2:bf:85:e7:99:08:cf:77:8f:c0:18:af:
0d:47:2d:dd
-----BEGIN CERTIFICATE-----
MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
-----END CERTIFICATE-----
WEBSERVICES/config_ca/certificados/ws_marmotech_com_do.crt
-17
View File
@@ -1,17 +0,0 @@
-----BEGIN CERTIFICATE-----
MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
-----END CERTIFICATE-----
WEBSERVICES/config_ca/certificados/ws_marmotech_com_do.pem
-67
View File
@@ -1,67 +0,0 @@
Certificate:
Data:
Version: 3 (0x2)
Serial Number:
1a:a3:12:3c:c3:af:da:b9:42:04:55:65:ed:82:14:3a
Signature Algorithm: sha1WithRSAEncryption
Issuer: CN=ws.marmotech.com.do
Validity
Not Before: Jul 12 19:42:14 2019 GMT
Not After : Jul 13 19:42:14 2029 GMT
Subject: CN=ws.marmotech.com.do
Subject Public Key Info:
Public Key Algorithm: rsaEncryption
Public-Key: (2048 bit)
Modulus:
00:c7:13:cc:69:ff:12:2d:2a:1f:e2:7c:06:64:3d:
33:42:c0:7d:23:97:d9:2a:16:90:01:cf:58:2a:c5:
be:6f:c3:14:2d:17:b3:94:66:c4:64:0b:8b:9e:54:
87:58:eb:0f:3b:81:16:1a:ee:17:b0:76:30:b1:26:
86:a7:e7:8c:9e:99:90:f0:55:3d:65:13:bd:3b:0b:
96:66:e7:bc:ba:60:cc:45:b5:6e:d7:1b:af:c7:7c:
15:22:1a:5b:03:5d:8a:c5:2f:a0:51:b1:49:df:1d:
92:18:04:c5:73:f4:33:d2:4b:10:6c:13:c0:32:e5:
7c:a5:e4:91:e7:f4:ef:d1:36:72:84:19:0d:cb:50:
1a:31:59:3d:2c:f7:0c:73:81:d6:ff:80:4f:24:b7:
63:fc:04:8c:98:dc:6f:88:11:96:03:d4:d4:61:ee:
55:ca:1f:16:f8:93:13:4a:c2:d4:e5:6b:84:97:e6:
14:1f:f9:e2:43:37:6b:83:18:ed:ee:c4:eb:ca:69:
f5:93:08:99:e3:6d:62:69:a8:0f:54:5c:04:72:61:
1e:9b:99:b5:23:59:82:af:ac:7f:18:3e:b6:fe:66:
f3:eb:73:d2:07:8f:34:b5:d6:6f:a1:88:f7:6b:7e:
65:37:dd:55:4c:93:21:a4:00:9c:9a:90:3d:0f:54:
99:71
Exponent: 65537 (0x10001)
Signature Algorithm: sha1WithRSAEncryption
a1:26:90:11:49:37:df:ac:d0:97:28:70:ed:ca:27:d9:dd:9d:
46:2d:a3:f6:f2:14:4a:39:6e:42:27:55:35:5d:81:0c:16:6b:
6c:13:eb:40:2a:f3:d0:e1:13:bc:a7:a6:db:1c:8c:31:ca:8a:
a8:11:7c:92:27:d4:31:80:29:ab:05:f0:a6:55:2d:0c:ff:70:
23:d1:6f:0f:bc:7d:69:a9:bb:b0:9d:ee:ed:28:31:0e:23:a9:
3d:2f:50:d7:40:0b:bc:00:6f:94:86:d3:72:75:c3:57:50:e1:
b0:7b:97:c2:8d:2c:9b:8d:4f:c4:5b:dd:57:53:cf:c7:7c:1a:
31:f1:82:6f:7c:90:93:0e:15:7e:d0:21:30:71:b1:d8:48:27:
97:59:1f:ae:b9:55:01:42:57:70:ad:e7:69:4e:a9:88:45:04:
1b:fc:33:4d:e9:07:e9:20:98:82:e0:b7:5b:cc:cc:f9:ad:62:
53:3e:8d:fa:4d:08:fe:93:f9:62:c9:4d:e7:d6:7d:db:17:16:
1a:11:3c:7e:05:26:2a:a1:c3:18:11:a2:ad:76:8f:05:66:9d:
d8:18:d4:4b:49:d0:36:56:1b:88:79:43:02:61:9f:4d:fe:06:
c3:0c:25:25:a4:09:a2:bf:85:e7:99:08:cf:77:8f:c0:18:af:
0d:47:2d:dd
-----BEGIN CERTIFICATE-----
MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
-----END CERTIFICATE-----
WEBSERVICES/config_ca/ws_marmotech_com_do.crt
-17
View File
@@ -1,17 +0,0 @@
-----BEGIN CERTIFICATE-----
MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
-----END CERTIFICATE-----
WEBSERVICES/test/certificado.pfx
BIN
View File
Binary file not shown.
WEBSERVICES/veconvierteorden.4gl
+11
View File
@@ -139,6 +139,17 @@ BEGIN WORK
us_crea = xusuario,
fech_crea = GETDATE()
SELECT num_oc INTO ult_numero FROM prtb00020
# RE-VALIDACION YA CON EL BLOQUEO DE prtb00020: evita dos ordenes para la
# misma cotizacion si dos usuarios convierten a la vez (cot 340001, 20/10/2026)
LET existe_oc = 0
SELECT COUNT(*) INTO existe_oc FROM prtb00012
WHERE cotizacion_no = xcotizacion_no AND status_t IS NULL
IF existe_oc > 0 THEN
LET pmensaje_error =
SFMT("La cotizacion %1 ya tiene orden, no puede crear otra.", xcotizacion_no)
ROLLBACK WORK
RETURN 0,FALSE
END IF
# AUTOCORRECCION: si el contador quedo por detras de prtb00012, salta al siguiente libre
LET existe_oc = 0
SELECT COUNT(*) INTO existe_oc FROM prtb00012 WHERE num_oc = ult_numero