#!/bin/sh

# disable filename globbing

 echo Content-type: text/html
 echo
 BASE=`pwd`
APPLDIR=$BASE/appl
DATADIR=$BASE/data
PATH=$PATH:$BASE/ihd/bin:.
export PATH APPLDIR DATADIR

ccost=./tmp/ccost
wrkor=./tmp/wrkor

# |  1 H00 filenu 06 01   0 | 2 H01 dateor 10 00   6 | 3 H02 cotiza 06 01  16 |
# |  4 H03 fechco 10 00  22 | 5 H04 cusdat 512 11  32 | 6 H05 obrdat 256 11 544 |
# |  7 H06 observ 256 11 800 | 8 H07 ordenc 20 01 1056 | 9 H08 fechae 10 00 1076 |
# | 10 H09 assoc  03 52 1086 |11 H10 respon 03 54 1089 |12 H11 statu  02 53 1092 |
# | 13 H12 diseno 500 15 1094 |14 H13 produc 500 15 1594 |15 H14 entreg 500 15 2094 |

# 16 D00 itemmm  2   01 | 17 D01 itemss  500 12 | 18 D02 textos  2   16 | 
# 19 D03 adicio  500 15 | 20 D04 cantid  6   01 | 21 D05 precio  10  15 | 
ihdm wrkor H00^ H01^ h02^ h03^ D00^ | tail -10 | awk -F^ '{ printf "%s^%s^%s^%s^%.2d\n",$1,$2,$3,$4,$5-1 } ' >$wrkor

cotiz=./tmp/cotiz
ihdm cotiz h00^ d00^ d04^ d05^|
awk -F^ ' FILENAME==ARGV[1] { x[$3]=0 ;z[$3""$5]=$0;next }
FILENAME==ARGV[2] { cc[$1""$2]=$3 ;next }
	x[$1]!=""  { printf "%s^===%s^=%s^%s",z[$1""sprintf("%.2d",x[$1]++)],$2,$3,$4
printf "^%.0f^%.0f^%.0f^%.0f^%.0f",cc[$2"B"],cc[$2"M"],cc[$2"T"],cc[$2"G"],cc[$2"P"]
printf "^%.0f\n",cc[$2"B"]+cc[$2"M"]+cc[$2"T"]+cc[$2"G"]+cc[$2"P"] }  ' $wrkor $ccost - >$cotiz
#x[$1]!=""  { printf "%s^%.2d^---%.2d\n",$0"^"$2,,y[$1],x[$1]++ } ' $wrkor - >$cotiz

# |  1 H00 filenu 06 01   0 | 2 H01 dateor 10 00   6 | 3 H02 codigo 05 51  16 |
# |  4 H03 cusdat 512 11  21 | 5 H04 obras  07 59 533 | 6 H05 obrdat 256 11 540 |
# |  7 H06 obrass 07 15 796 | 8 H07 condxs 02 55 803 | 9 H08 cndxv1 256 11 805 |
# | 10 H09 observ 256 11 1061 |11 H10 totalo 10 01 1317 |12 H11 deposi 10 01 1327 |
# | 13 H12 balanc 10 01 1337 |14 H13 assoc  03 52 1347 |15 H14 statu  02 53 1350 |

# 16 D00 produc  6   54 | 17 D01 itemss  500 12 | 18 D02 textos  2   16 | 
# 19 D03 adicio  500 15 | 20 D04 costos  10  01 | 21 D05 cantid  6   01 | 
# 22 D06 pricel  10  01 | 23 D07 pricef  10  01 | 24 D08 amount  10  01 | 
# 25 D09 checko  1   17 | 

prods=./tmp/prods
ihdm prods  h00"^" d00"^" d03"^"  | 
awk -F^ ' FILENAME==ARGV[1] { x[$2]=1 ;next }
x[$1]  { printf "%s\n",$0 } ' $cotiz - > $prods


# |  1 H00 regist 06 15   0 | 2 H01 nemote 30 00   6 | 3 H02 descri 256 12  36 |
# |  4 H03 base   05 51 292 | 5 H04 graffi 05 52 297 | 6 H05 proces 05 53 302 |
# |  7 H06 largo  05 01 307 | 8 H07 ancho  05 01 312 | 9 H08 estima 05 01 317 |
# | 10 H09 costob 10 01 322 |11 H10 margen 10 01 332 |12 H11 pventa 10 01 342 |
# | 13 H12 estatu 02 54 352 |14 H13 associ 03 55 354 |15 H14 fechac 10 00 357 |

# 16 D00 bases   8   56 | 17 D01 unidad  10  00 | 18 D02 costos  10  01 | 
# 19 D03 cantid  10  01 | 20 D04 costot  10  01 | 21 D05 marges  5   01 | 
# 22 D06 margen  5   01 | 23 D07 costtt  10  01 | 
echo FIN
bpygr=./tmp/bpygr
ihdm bpygr h00"^" h04^  | 
awk -F^ ' FILENAME==ARGV[1] { x[$2]=$1;next }
x[$1]!=""  { printf "%s\n",$0 } ' $prods - >$bpygr

more $wrkor $cotiz $prods $bpygr
