date=`date +%d/%m/%Y`
awk -F: '  BEGIN {
getline < "../data/vouch/INFO"
nh=substr($0,1,5)+1
cta["BSS"]=11130
cta["BCI"]=11120
cta["BCH"]=11140
fxp=21140
fxc=11210
cpp=11620
}
ant!=$1 { if(file !="") print "" >file
file="IMP."substr($1,1,2)
	printf "h00%s\nH01%s\nH02%s\nH03%s\nH04%s\nH05%s\nH06%s\n",nh,nh++,$1,"30","MOVIMIENTOS DEL DIA","RAN","'"$date"'" >file
	ant=$1
	nd=0
	printf "../ihd/bin/ihmu vouch ../../imput/%s -N1\n",file >"imp.sh"
}
NF==6 {
rr=index($6,"FACT")
GL=$3
CH=substr($6,5)+0
if (CH==0) CH=""
FACT=""
if(rr>0)
{
	FACT=substr($6,rr+5)+0
	if (FACT==0) FACT=""
	printf "D%.2d00%s\nD%.2d01%s\nD%.2d02%s\nD%.2d03%s\nD%.2d06%s\nD%.2d07%s\nD%.2d081\n",nd,fxp,nd,fxp,nd,GL" CH/"CH" "$2,nd,$4,nd,FACT,nd,$1,nd++ >file
	printf "D%.2d00%s\nD%.2d01%s\nD%.2d02%s\nD%.2d04%s\nD%.2d06%s\nD%.2d07%s\nD%.2d081\n",nd,cta[$2],nd,cta[$2],nd,GL" F/"FACT,nd,$4,nd,CH,nd,$1,nd++ >file
}
else
{
	printf "D%.2d00%s\nD%.2d01%s\nD%.2d02%s\nD%.2d03%s\nD%.2d06%s\nD%.2d07%s\nD%.2d081\n",nd,cpp,nd,cpp,nd,GL,nd,$4,nd,FACT,nd,$1,nd++ >file
	printf "D%.2d00%s\nD%.2d01%s\nD%.2d02%s\nD%.2d04%s\nD%.2d06%s\nD%.2d07%s\nD%.2d081\n",nd,cta[$2],nd,cta[$2],nd,GL,nd,$4,nd,CH,nd,$1,nd++ >file
}
}
NF==4 {
rr=index($3,"FACT")
GL=$3
FACT=""
if(rr>0)
{
	FACT=substr($3,rr+5)+0
	if (FACT==0) FACT=""
	printf "D%.2d00%s\nD%.2d01%s\nD%.2d02%s\nD%.2d03%s\nD%.2d06%s\nD%.2d07%s\nD%.2d081\n",nd,cta[$2],nd,cta[$2],nd,GL,nd,$4,nd," ",nd,$1,nd++ >file
	printf "D%.2d00%s\nD%.2d01%s\nD%.2d02%s\nD%.2d04%s\nD%.2d06%s\nD%.2d07%s\nD%.2d081\n",nd,fxc,nd,fxc,nd,GL" "$2,nd,$4,nd,FACT,nd,$1,nd++ >file
}
else
{
	printf "D%.2d00%s\nD%.2d01%s\nD%.2d02%s\nD%.2d03%s\nD%.2d06%s\nD%.2d07%s\nD%.2d081\n",nd,cta[$2],nd,cta[$2],nd,GL,nd,$4,nd," ",nd,$1,nd++>file
	printf "D%.2d00%s\nD%.2d01%s\nD%.2d02%s\nD%.2d04%s\nD%.2d06%s\nD%.2d07%s\nD%.2d081\n",nd,cpp,nd,cpp,nd,GL,nd,$4,nd," ",nd,$1,nd++>file
}
}

' FLU
exit

05/07/2011:BSS:BSS COMISION WEB:10420::
05/07/2011:BCI:AGENCIA PROVISION FURUKAWA:10625818:: CH 868
05/07/2011:BCH:FACTOR 1024-PAGO DE FACT 989:496026
05/07/2011:BCI:BCI TARJETA NACIONAL:326800:: CH 869
05/07/2011:BCI:BCI TARJETA INTERNACIONAL:1000000:: CH 870 USD 1.897
06/07/2011:BSS:AGENCIA PROVISION SILVER EQ 1010 TRANSFERENCIA:4009467::
06/07/2011:BSS:ALBERTO VALENZUELA:53550:: CH 1176  FACT  233
07/07/2011:BSS:MAXIMO TRANSFERENCIA:1000000::
07/07/2011:BCI:MAXIMO:600000:: CH 871   47 BANDEJAS
07/07/2011:BSS:FACT 988:4461562
08/07/2011:BSS:VOXCHILE:4262580:: CH   1177 FACT 1917-1923-1942
08/07/2011:BCH:CHINA EQ 990 TRANSFERENCIA:13221547::
08/07/2011:BCH:DEV EXED FACT 984:922226
11/07/2011:BCI:ALBERTO VALENZUELA:83300:: CH 872  FACT 234
11/07/2011:BCI:FACT 981 - 1005:1056720
11/07/2011:BCI:DISTRIBUIDORA EL CIELO:46840:: CH 874 FACT 115447
11/07/2011:BCH:BARGOA TRANSFERENCIA ORDEN EQ-772 750 CAJAS:9894978::
11/07/2011:BCI:ENTEL PCS:102491:: CH 875
12/07/2011:BSS:MAURICIO MEZA TRANSFERENCIA:200000::
12/07/2011:BCI:SII TRANSFERENCIA:245962::
12/07/2011:BCH:BCH COMEX:13468::
12/07/2011:BCH:FACTOR 1017-1018:55712710
12/07/2011:BCI:EMILIO MEZA TRANSFERENCIA:1000000::
12/07/2011:BCI:SERVIPAG TRANSFERENCIA:21271::
13/07/2011:BCI:PREVIRED TRANSFERENCIA:615206::
14/07/2011:BSS:RAFAEL ALCARAZ TRANSFERENCIA:100000::
14/07/2011:BCI:ELECTRICIDAD GOBANTES:72804:: CH 876  FACT 1668347
14/07/2011:BCH:FURUKAWA EQ 977 TRANSFERENCIA  FACT 118003:34947795::
14/07/2011:BSS:CAJAS Y BOLSAS:205275:: CH 1178 FACT 1737
14/07/2011:BCI:PLASTICOS GAUNE:106950:: CH 877 FACT 5762
14/07/2011:BCH:BCH COMISION WEB:11722::
14/07/2011:BSS:DE TOMAS E HIJOS:190800:: CH 1179  FACT 116628
14/07/2011:BCI:ENTEL PCS TRANSFERENCIA:142207::
14/07/2011:BCI:HOMECENTER:79989:: CH 878 FACT 37679731
15/07/2011:BSS:RODOLFO ANTONIO THOMAS:119000:: CH 1180 FACT 610
15/07/2011:BCI:HOMECENTER:79989:: CH 879 FACT 5327011
15/07/2011:BCH:MAXIMO TRANSFERENCIA:2000000::
15/07/2011:BSS:MAURICIO MEZA TRANSFERENCIA:80000::
18/07/2011:BCH:WOORIRO SPLITTERS EQ 977 TRANSFERENCIA:60780050::
18/07/2011:BCI:EDUARDO:500000:: CH 880  15 UC 6-20
18/07/2011:BCH:BCH CARGO CREDITO BBGG UF 594 DEL 21.04.11:13140570::
19/07/2011:BCH:FACTOR FACT 1025:78853036
20/07/2011:BSS:ARTURO HERNANDEZ:101150:: CH 1181 FACT 8532 47.600 Y 8536 53.550
21/07/2011:BCH:FURUKAWA EQ 977 TRANSFERENCIA FACT 118284 600 CAJAS FO:55730312::
21/07/2011:BCI:FACT 1001-1002-1003:8279966
22/07/2011:BCI:ALBERTO VALENZUELA:53550:: CH 881  FACT 235
22/07/2011:BCH:BCH COMISION POR SERVICIOS:7554::
22/07/2011:BCI:EMILIO MEZA TRANSFERENCIA:500000::
22/07/2011:BCH:BCH CARGO TRANSF CTA USD 15 BROCAS BARGOA:32962::
22/07/2011:BCI:FACT 1019 - 1020:11144490
25/07/2011:BCH:BCH CUOTA 1/6:8627699::
25/07/2011:BCH:DEV EXED FACT 1000:7345350
25/07/2011:BCH:EQUITEC USD 2.000 A CTA CTE USD:922100::
26/07/2011:BCI:MAXIMO:1500000:: CH 882 COMPRA USD 3.000 FLETE AEREO WOORIRO
26/07/2011:BCH:AGENCIA PROVISION BARGOA 750 CAJAS TERM EQ 772  TRANSFERENCIA:2208993::
26/07/2011:BCI:FACT 1006-1007:5535198
27/07/2011:BCH:AGENCIA PROVISION WOORIRO EQ 977 :12000000::
28/07/2011:BCH:BCH CUOTA 6/6:8607161::
28/07/2011:BCH:SILVER EQ-1010 TRANSFERENCIA SALDO 40%:7400000::
29/07/2011:BCH:BARGOA EQ 772  TRANSFERENCIA 50%  1.750 SALDO CAJAS EQ 772:11500000::
31/07/2011:BCH:DEP BBGG UF 594:13000000
