clientes=./tmp/clientes
ihmq clientes h00"^" h01"^" h02"^" h03"^" h04"^" h05"^" h06"^" h07"^" h08"^" h09"^" h10"^" h11"^" h12"^" h13"^" h14"^" h15"^" h16"^" h17^ > $clientes

# |  1 H00 registe 005 015   0 | 2 H01 rutclie 013 000   5 | 3 H02 cliente 020 000  18 | 4 H03 razonso 050 000  38 | 5 H04 giro    050 000  88 |
# |  6 H05 direcci 060 000 138 | 7 H06 region  002 051 198 | 8 H07 comuna  030 002 200 | 9 H08 ciudad  030 000 230 |10 H09 zonarut 030 000 260 |
# | 11 H10 telefon 030 000 290 |12 H11 website 030 000 320 |13 H12 mailemp 030 000 350 |14 H13 contact 030 000 380 |15 H14 mailcon 030 000 410 |
# | 16 H15 observa 256 011 440 |17 H16 status  002 052 696 |18 H17 creatio 010 008 698 |

productosventa=./tmp/productosventa
ihmq productosventa h00"^" h01"^" h02"^" h03"^" h04"^" h05"^" h06"^" h07"^" h08"^" h09"^" h10"^" h11"^" h12"^" h13"^" h14"^" h15"^" h16^ > $productosventa

# |  1 H00 registe 004 015   0 | 2 H01 barcode 015 000   4 | 3 H02 skucode 015 000  19 | 4 H03 longdes 040 000  34 | 5 H04 shortde 025 000  74 |
# |  6 H05 categor 002 051  99 | 7 H06 unidadm 002 052 101 | 8 H07 ultimop 005 053 103 | 9 H08 ultimop 010 001 108 |10 H09 preciov 010 001 118 |
# | 11 H10 preciov 010 001 128 |12 H11 stockmi 010 001 138 |13 H12 stockcr 010 001 148 |14 H13 statusp 002 054 158 |15 H14 creatio 010 008 160 |
# | 16 H15 stockac 010 015 170 |17 H16 valorac 015 015 180 |

salecondition=./tmp/salecondition
ihmq salecondition h00"^" h01"^" h02"^" h03"^" h04^ > $salecondition

# |  1 H00 registe 002 015   0 | 2 H01 codigo  002 000   2 | 3 H02 identif 030 000   4 | 4 H03 descrip 040 000  34 | 5 H04 creatio 010 008  74 |

ventalocal=./tmp/ventalocal
ihmq ventalocal h00"^" h01"^" h02"^" h03"^" h04"^" h05"^" h06"^" h07"^" d00"^" d01"^" d02"^" d03"^" d04"^" d05^ > $ventalocal

# |  1 H00 registe 005 015   0 | 2 H01 pedidon 005 001   5 | 3 H02 creatio 010 008  10 | 4 H03 salesco 002 051  20 | 5 H04 documen 006 001  22 |
# |  6 H05 respons 002 052  28 | 7 H06 status  002 054  30 | 8 H07 observa 128 012  32 |

# |  9 D00 product 004 55 | 10 D01 descrip 004 56 | 11 D02 precio  005 01 | 12 D03 cantida 004 01 | 13 D04 totalli 006 01 | 
# | 14 D05 indicac 020 00 | 

pedidos=./tmp/pedidos
ihmq pedidos h00"^" h01"^" h02"^" h03"^" h04"^" h05"^" h06"^" h07"^" h08"^" h09"^" h10"^" h11"^" d00"^" d01"^" d02"^" d03"^" d04"^" d05^ > $pedidos

# |  1 H00 registe 005 015   0 | 2 H01 pedidon 005 001   5 | 3 H02 creatio 010 008  10 | 4 H03 cliente 005 051  20 | 5 H04 zonarut 030 000  25 |
# |  6 H05 respons 004 052  55 | 7 H06 status  002 054  59 | 8 H07 observa 256 012  61 | 9 H08 tradici 004 015 317 |10 H09 vegetar 004 015 321 |
# | 11 H10 dulce   004 015 325 |12 H11 totalne 010 015 329 |

# | 13 D00 product 004 55 | 14 D01 descrip 004 56 | 15 D02 precio  005 01 | 16 D03 cantida 004 01 | 17 D04 totalli 006 01 | 
# | 18 D05 indicac 040 00 | 

FECI=2022-07-05
FECF=2022-07-12
rm -f $pedidos.*
>$pedidos.na
awk -F^ ' BEGIN { feci="'"$FECI"'";fecf="'"$FECF"'"
f1=substr(feci,9)+0;f2=substr(fecf,9)+0
for (i=f1;i<=f2;i++) fc[sprintf("%8.8s%.2d",feci,i)]=i-f1+0
}
substr($3,1,7)!=substr(feci,1,7) || $3 >fecf { next }
$3 <feci || substr($7,1,2)!="00" {
	cli=substr($4,1,5)
 clint[cli"^"$13]+=$16
 vlint[cli"^"$13]+=$17
 clina[cli"^"$13]+=$16
 vlina[cli"^"$13]+=$17
 cli1a[$13]+=$16
 vli1a[$13]+=$17
 cli1t[$13]+=$16
 vli1t[$13]+=$17
 next
}
$3 <feci || $3 >fecf || substr($7,1,2)!="00" { next }
{
	cli=substr($4,1,5)
 clin[fc[$3]"^"cli"^"$13]+=$16
 vlin[fc[$3]"^"cli"^"$13]+=$17
 clic[cli"^"$13]+=$16
 vlic[cli"^"$13]+=$17
 cli0[fc[$3]"^"$13]+=$16
 vli0[fc[$3]"^"$13]+=$17
 cli1[$13]+=$16
 vli1[$13]+=$17
 cli1t[$13]+=$16
 vli1t[$13]+=$17
 clint[cli"^"$13]+=$16
 vlint[cli"^"$13]+=$17
}
END {

for (i in clint) print i"^"clint[i]"^"vlint[i] >"'"$pedidos.t"'"
for (i in clina) print i"^"clina[i]"^"vlina[i] >"'"$pedidos.na"'"
for (i in cli1a) print i"^"cli1a[i]"^"vli1a[i] >"'"$pedidos.1a"'"
for (i in clic) print i"^"clic[i]"^"vlic[i] >"'"$pedidos.c"'"
for (i in clin) print i"^"clin[i]"^"vlin[i] >"'"$pedidos.n"'"
for (i in cli0) print i"^"cli0[i]"^"vli0[i] >"'"$pedidos.0"'"
for (i in cli1) print i"^"cli1[i]"^"vli1[i] >"'"$pedidos.1"'"
for (i in cli1t) print i"^"cli1t[i]"^"vli1t[i] >"'"$pedidos.1t"'"
for (i in fc) print fc[i]"^"i >"'"$pedidos.f"'"
} ' $pedidos
sort $pedidos.c -o $pedidos.c
sort $pedidos.n -o $pedidos.n
sort $pedidos.0 -o $pedidos.0
sort $pedidos.1 -o $pedidos.1
sort $pedidos.1a -o $pedidos.1a
sort $pedidos.na -o $pedidos.na
sort -n $pedidos.f -o $pedidos.f
awk -F^ ' BEGIN { printf "00000^" }
FILENAME==ARGV[1] {fe[$1]=$2;dias++;printf "%s^",$2;next}
ff=="" { print "" ; ff=1 }

FILENAME==ARGV[2] { 
pr[$2]=1
cl[$1]=1
ant[$1"^"$2]=$3"^"$4
next
}
FILENAME==ARGV[3] {
pr[$2]=1
cl[$1]=1
pos[$1"^"$2]=$3"^"$4
next
}
FILENAME==ARGV[4] { per[$1"^"$2"^"$3]=$4"^"$5;next}
FILENAME==ARGV[5] { tot[$1"^"$2]=$3"^"$4 }
FILENAME==ARGV[6] { cli[$1]=trail($3)}
FILENAME==ARGV[7] { pr[$1]=trail($3) }
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
END {

for (i in cl)
{
	for(j in pr) if(ant[i"^"j] || pos[i"^"j])
	{ 
		printf "%s^%s^%s^",cli[i],j,pr[j]
		if(ant[i"^"j]) printf "%s^",ant[i"^"j]
		else printf "^^"
		for(k=0;k<=dias;k++) if(per[k"^"i"^"j]) printf "%s^",per[k"^"i"^"j]
		else printf "^^"
		if(pos[i"^"j]) printf "%s^",pos[i"^"j]
		else printf "^^"
		printf "%s\n",tot[i"^"j]
	}
}
}

'  $pedidos.f $pedidos.na $pedidos.c $pedidos.n $pedidos.t $clientes $productosventa | sort >../../xls/lg/vtacli.dat


