rm ES/*

# |  1 H00 regist 05 15   0 | 2 H01 rut    13 07   5 | 3 H02 razsoc 50 00  18 |
# |  4 H03 giro   40 00  68 | 5 H04 direc1 60 00 108 | 6 H05 comuna 25 00 168 |
# |  7 H06 ciudad 20 00 193 | 8 H07 region 30 00 213 | 9 H08 telefo 25 00 243 |
# | 10 H09 wsite  50 00 268 |11 H10 corree 60 00 318 |12 H11 contac 50 00 378 |
# | 13 H12 correo 60 00 428 |14 H13 observ 512 11 488 |

# 15 D00 obra    30  00 | 16 D01 direcc  50  00 | 17 D02 contac  30  00 | 
# 18 D03 telefo  50  00 | 19 D04 correo  40  00 | 
awk  -F"^" '
FILENAME == ARGV[1] { x[$1]++;ob[$1""x[$1]]=$4; next }
{
file="ES/B"NR
printf "H01%s\n",$3 > file
print "H02"$4> file
print "H03"$8 > file
print "H04"$6 > file
print "H05"$7 > file
print "H11"$2 > file
print "H12"$1 > file
print "H08"$5 > file
if(x[$3]>1)
{
	r=0
	for (i=1; i<= x[$3];i++) printf "D%.2d00%s\n",r++,toupper(ob[$3""i]) >file
}

print "" >file
 }
 ' OBRA.csv CLIENTES.csv
>../data/clien/H
>../data/clien/HEAD
>../data/clien/DOC
echo -n "    0     0">../data/clien/INFO

for i in ES/*
do
../ihd/bin/ihmu clien ../../import/$i -N1
done
exit
==> CLIENTES.csv <==
email^atencion^rut^nombrclie^telefono^direccion^comuna^cogiro
^MARIO MENDEZ 990993234^ 4.857.100-K^MARIO MENDEZ CONCHA^990993234^MARTN HENRIQUEZ  N 4584^SAN JOAQUIN^
laura.linares@jctconstructora.cl^LAURA LINARES933463642^ 5.521.651-7^JAIME CANDIA  CONSTRUCTORA^933463642^AVDA INGLATERRA 1554^INDEPENDENCIA^
hrcreativo@gmail.com^HERNAN RAMOS^ 5.792.488-8^HERNAN RAMOS CARVAJAL^92738113^LOS PESCADORES 2320 DEPTO 32-33^UOA^diseo
^MICHEL SAQQA 225552965^ 6.241.369-7^MICHEL SAQQA^225552965^TOCORNAL N1506^SANTIAGO^
ymora@notariaraby.cl^YOCELYN MORA^ 6.285.086-8^NOTARIA PATRICIO RABY BENAVENTE^0^GERTRUDIS ECHEIQUE N 30 OF.44^LAS CONDES^
imprekolor@gmai.com^JOSE RIVEROS^ 7.416.388-2^JOSE VIVEROS^949191744^VICTORIA N 1172^  SANTIAGO^
^^ 7.609.755-0^^0^^^
key@expressvirtual.cl^KEISHMAR VARELA 225897800^ 7.938.776-2^LUIS ENRIQUE BARRIOS GARCIA^0^LOCANO 0192^LA CISTERNA^
nieve.1@hotmail.com^SARA HERRERA 957015499^ 8.265.747-9^SARA HERRERA OLIVERA^957015499^CELIA ZEGERS N 60^LA CISTERNA^

==> OBRA.csv <==
RUT,C,12^SUCURSAL,C,2^ITEM,C,3^OBRA,C,40^ELIMINA,L^TRASPASA,L
 4.857.100-K^01^001^MARIO MENDEZ CONCHA^^
 5.521.651-7^01^001^BURGER KING^^
 5.792.488-8^01^001^HERNAN RAMOS CARVAJAL^^
 6.241.369-7^01^001^MICHEL SAQQA^^
 6.285.086-8^01^001^NOTARIA PATRICIO RABY BENAVENTE^^
 7.416.388-2^01^001^JOSE VIVEROS^^
 7.938.776-2^01^001^LUIS ENRIQUE BARRIOS GARCIA^^
 8.265.747-9^01^001^SARA HERRERA OLIVERA^^
 8.400.272-0^01^001^ANGELICA RODRIGUEZ G^^
