awk -F"^" ' BEGIN {
x[1]="P9"
x[2]="P12"
x[3]="ENT"
x[4]="EST"
x[5]="CUB"
x[6]="PC6"
x[7]="ML"
x[8]="SC"
x[9]="GRN"
}
{
z=0
for (i=7; i<16; i++) if($i+0) z++
if(z==1) 
for (i=7; i<16; i++) if($i+0)  pr[$1"^"x[i-6]"^"$17/$i]=$4
}
END {
for (i in pr) print i,pr[i]
} ' /tmp/venta
exit
24HORAS   ^010990^11^02/01/2019^ERNESTO  VASQUEZ                   ^      ^       ^10     ^       ^       ^       ^       ^    ^    ^       ^10      ^7000      ^7000      ^EF^^^
24HORAS   ^010994^07^03/01/2019^ERNESTO  VASQUEZ                   ^      ^       ^40     ^       ^       ^       ^       ^    ^    ^       ^40      ^28000     ^28000     ^EF^^^
24HORAS   ^010999^07^04/01/2019^ERNESTO  VASQUEZ                   ^      ^       ^40     ^       ^       ^       ^       ^    ^    ^       ^40      ^28000     ^28000     ^EF^^^
24HORAS   ^011006^05^06/01/2019^JULIAN SUBIABRE                    ^      ^       ^40     ^       ^       ^       ^       ^    ^    ^       ^40      ^28000     ^28000     ^EF^^^
24HORAS   ^011008^07^07/01/2019^ERNESTO  VASQUEZ                   ^      ^       ^30     ^       ^       ^       ^       ^    ^    ^       ^30      ^21000     ^21000     ^EF^^^
24HORAS   ^011012^07^08/01/2019^ERNESTO  VASQUEZ                   ^      ^       ^30     ^       ^       ^       ^       ^    ^    ^       ^30      ^21000     ^21000     ^EF^^^
24HORAS   ^011015^06^09/01/2019^ERNESTO  VASQUEZ                   ^      ^       ^20     ^       ^       ^       ^       ^    ^    ^       ^20      ^14000     ^14000     ^EF^^^
24HORAS   ^011019^07^10/01/2019^ERNESTO  VASQUEZ                   ^      ^       ^20     ^       ^       ^       ^       ^    ^    ^       ^20      ^14000     ^14000     ^EF^^^
24HORAS   ^011024^05^11/01/2019^ERNESTO  VASQUEZ                   ^      ^       ^40     ^       ^       ^       ^       ^    ^    ^       ^40      ^28000     ^28000     ^EF^^^
24HORAS   ^011027^05^12/01/2019^ERNESTO  VASQUEZ                   ^      ^       ^30     ^       ^       ^       ^       ^    ^    ^       ^30      ^21000     ^21000     ^EF^^^
