REGULAR


GET FILE='F:\0Requerimientos\Bases\Econometrica.sav' .
DATASET NAME Econo WINDOW=FRONT.


*AGGREGATE
/OUTFILE=* MODE=ADDVARIABLES
/BREAK=
/INICIO=N.

STRING v (A1).
COMPUTE v="X".
EXECUTE.

DATASET DECLARE Agg.
AGGREGATE
/OUTFILE='Agg'
/BREAK=v
/INICIO=N.

dataset activate Econo.
MATCH FILES /FILE=*
/TABLE='Agg'
/BY v.
EXECUTE.
dataset close Agg.


STRING TipoDoc (A1) /DNI (A12) .
*STRING DESDE (A4).
STRING Llave (A14) / Base (A4) .
COMPUTE DNI = NUMDOCa .
RECODE TDOCa ("1"="E") ("2"="X") ("3"="I") (ELSE="O") INTO TipoDoc .
*COMPUTE DESDE=SUBSTR(DESDE6,3,4).
COMPUTE Llave = CONCAT(TipoDoc,"-",NUMDOCa) .
COMPUTE BaseInicial = 1.
COMPUTE Base = "Base".
EXECUTE .
FORMATS BaseInicial (F1.0).

FILTER OFF.
USE ALL.
SELECT IF(TipoDoc NE "O" AND NUMDOCa NE "" AND RTRIM(CONDICION) = "VIGENTE").
EXECUTE .

*AGGREGATE
/OUTFILE=* MODE=ADDVARIABLES
/BREAK=
/SIT_VIGENTE=N.

DATASET DECLARE Agg.
AGGREGATE
/OUTFILE='Agg'
/BREAK=v
/SIT_VIGENTE=N.

dataset activate Econo.
MATCH FILES /FILE=*
/TABLE='Agg'
/BY v.
EXECUTE.
dataset close Agg.

*********************************************************************
****************** (2)Exclusión CIIU (Revisar con Riesgos)
*********************************************************************

*********************************************************************
****************** (3) Base Negativa Empresas - Chequear RUCC (15)
*********************************************************************

GET FILE='F:\0Requerimientos\Bases\Base Negativa Empresas.sav'.
DATASET NAME BNEmpWINDOW=FRONT.

DATASET ACTIVATE BNEmp .
sort cases by rucc (a) .

DATASET ACTIVATE Econo .

sort cases by rucc (a).

MATCH FILES /FILE=*
/TABLE='BNEmp'
/BY rucc.
EXECUTE.

DATASET ACTIVATE BNEmp .
DATASET CLOSE BNEmp .
DATASET ACTIVATE Econo .

COMPUTE BaseNegEmp = 1 - BNEmpresas .
RECODE BaseNegEmp (MISSING = 0).
EXECUTE.

AGGREGATE
/OUTFILE=*
MODE=ADDVARIABLES
/BREAK=Llave
/TotalBaseNeg= SUM(BaseNegEmp)
/Ingreso_Bruto = SUM(brut) .
FORMATS TotalBaseNeg (F5.0) .

DELETE VARIABLES BNEmpresas BaseNegEmp.

* Identificar casos duplicados.

SORT CASES BY Llave (a) PUBLICA (a).
MATCH FILES /FILE = * /BY Llave
/LAST = PrimarioÚltimo .
VARIABLE LABELS PrimarioÚltimo 'Indicador de cada último caso coincidente como Primario' .
VALUE LABELS PrimarioÚltimo 0 'Caso duplicado' 1 'Casoprimario'.
VARIABLE LEVEL PrimarioÚltimo (ORDINAL).
EXECUTE.

*AGGREGATE
/OUTFILE=*
MODE=ADDVARIABLES
/BREAK=Base
/CuentaBaseInicial = SUM(PrimarioÚltimo) .


DATASET DECLARE Agg.
AGGREGATE
/OUTFILE='Agg'
/BREAK=Base
/CuentaBaseInicial=SUM(PrimarioÚltimo) .

dataset activate Econo.
MATCH FILES /FILE=*
/TABLE='Agg'
/BY Base.
EXECUTE.
dataset close Agg.

FORMATSCuentaBaseInicial (F8.0) .

FILTER OFF.
USE ALL.
SELECT IF(PrimarioÚltimo = 1).
EXECUTE .
RENAME VARIABLES PrimarioÚltimo = PrimarioUltimo.
SAVE OUTFILE = 'F:\08 AGOSTO\Base Regular.sav'
/COMPRESSED.

*********************************************************************
****************** (4) Selección SOLO DNI's ********************* .
*********************************************************************COMPUTE LongDNI = LENGTH(rtrim(NUMDOCa)) .
COMPUTE CumpleDNI = (TipoDoc = "E" AND LongDNI = 8) .
EXECUTE .
FORMATS CumpleDNI (F1.0).

FILTER OFF.
USE ALL.
SELECT IF(CumpleDNI = 1).
EXECUTE .

*AGGREGATE
/OUTFILE=*
MODE=ADDVARIABLES
/BREAK=Base
/CuentaDNI = SUM(CumpleDNI) .


DATASET DECLARE Agg.
AGGREGATE
/OUTFILE='Agg'
/BREAK=v
/CuentaDNI=SUM(CumpleDNI) .

dataset activateEcono.
MATCH FILES /FILE=*
/TABLE='Agg'
/BY v.
EXECUTE.
dataset close Agg.

FORMATS CuentaDNI (F8.0) .

DELETE VARIABLES LongDNI .
SAVE OUTFILE = 'F:\08 AGOSTO\Base Regular.sav'
/COMPRESSED.


*********************************************************************
******************CRUCE CON CARTERA DE CLIENTES.
*********************************************************************

GET...