awk -F";"  '
NR==1 { nc=NF;for (i=1;i<NF;i++) cd[i]=$i ; next }
NR==2 { for (i=1;i<NF;i++) pr[i]=$i ; next }
NR==3 { for (i=1;i<NF;i++) ks[i]=$i ; next }

$1=="FE" { fec=$2 ; next }

{
	fil=sprintf("/tmp/VLC%.4d",NR)
	sum=0
	z=0
	printf "H01%3d\n",$1 >fil
	printf "H02%s\n",fec >fil
	if($27!="") printf "H03%s\n","01" >fil
	if($27!="") printf "H04%s\n",$27 >fil
	if($31!="") printf "H03%s\n","03" >fil
	if($31!="") printf "H04%s\n",$31 >fil
	if($33!="") printf "H03%s\n","04" >fil
	if($33!="") printf "H04%s\n",$33 >fil
	printf "H06%s\n","00" >fil
	printf "H07%d\n",$28+$32+$34 >fil
	
	for (i=2;i<nc;i++) if($i+0 && cd[i]+0)
	{
		printf "D%.2d00%s\n",z,cd[i] >fil
		printf "D%.2d01%s\n",z,cd[i] >fil
		printf "D%.2d02%s\n",z,pr[i] >fil
		printf "D%.2d03%s\n",z,$i >fil
		printf "D%.2d04%s\n",z++,pr[i]*$i >fil
		sum +=pr[i]*$i
	
	}
	if ($28+$32+$34-sum)
	printf "H07PLANILLA=%5d SISTEMA=%5d DIF= <b>%5d</B>\n",$28+$32+$34,sum,$28+$32+$34-sum >fil
	print " " >fil
}

' VTALOCAL.csv
cd ..
echo -n "    0      0" >data/ventalocal/INFO
>data/ventalocal/H
>data/ventalocal/HEAD
>data/ventalocal/DOC
for i in /tmp/VLC*
do
echo $i

ihmu ventalocal $i -N1
rm "$i"
done
exit



;0001;0002;0003;0004;0005;0006;0007;0008;0009;0010;0011;0024;0013;0014;;0021;0022;0025;0026;0023;0027;0019;0028;0018;0020;
;1800;1600;1800;1900;1900;1900;1900;1600;1990;1990;1990;3000;1800;1990;;800;1900;2700;1000;600;1950;1800;1500;400;600;
N;P;Q;PM;PQ;NA;JQ;CH;AQ;POC;POM;POQ;K;CHT;CHQ;1;BC;BG;JC;JG;AG;V;MONS;POWR;TE;cf;N;TOTAL;N;EFECT.;N;TOTAL;N;TOTAL
FE;2022-07-01;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1;;;1;;;;;;;1;;;;;2;;;;;;;;;;;X;3790;;;;;;
2;8;1;;1;;;;1;;;;;;;11;;;;;;;;;;;;;;;5470;18000;;
3;;;1;;;;;;;;;;;;1;;;;;;;;;;;X;1800;;;;;;
4;1;;;;;;;;;;;;;;1;;;;;;;;;;;X;1800;;;;;;
5;;;;;;;;;;1;1;1;;;3;;;;;;;;;;;;;;;5471;6180;;
6;1;;;;;;;;;;;;;;1;;;;;;;;;;;X;1800;;;;;;
