Code:
function f_printytd( ytd_date, i, j, k) {
plus6 = 4
plus7 = 5
ytd_date = false
while ( ytd_date !~ /^[01][0-9][0-3][0-9][901][0-9]$/ ) {
printf("\n\t\tEnter last date for report (MMDDYY): ")
getline ytd_date < keyboard
if ( toupper(ytd_date) == "X" ) return false
if ( length(ytd_date) == 0 ) {
printf("\n\t\tUsing %s", datestr)
ytd_date = mdy_global
}
}
yymmdd = f_mdy2ymd(ytd_date) #y2k
yy = substr(yymmdd, 1, 2)
if ( yy < 50 ) YY = 20
else YY = 19
lastdate = sprintf("%s%s", YY, yymmdd)
FS = "%"
while ( ( getline < runlist ) > 0 ) {
A_ytd_gtype[$1] = $4
A_ytd_var[$1] = $5
}
close(runlist)
FS = "%"
while ( ( getline < packfile ) > 0 ) {
ymd = f_mdy2ymd($2) #y2k
y = substr(ymd, 1, 2)
if ( y < 50 ) Y = 20
else Y = 19
thisdate = sprintf("%s%s", Y, ymd)
if ( thisdate > lastdate ) continue
gt = A_ytd_gtype[$1]
vr = A_ytd_var[$1]
if ($3 ~ /^\#/) {
sub("#", "", $3)
A_ytd_trucks[gt] += $3
A_ytd_trucks["T"] += $3
A_ytd_hours[gt] += $4
A_ytd_hours["T"] += $4
}
else {
A_ytd_dt[$2]
ytd_cwt = $4 * prod_wght[$3] / 100
A_ytd_cwtV[vr] += ytd_cwt
if ($3 ~ /^1/) {
A_ytd_cwt1[gt] += ytd_cwt
A_ytd_cwt1[vr] += ytd_cwt
A_ytd_cwt1["T"] += ytd_cwt
if (prod_clas[$3] >= plus7) {
A_ytd_size[gt] += ytd_cwt
A_ytd_size[vr] += ytd_cwt
A_ytd_size["T"] += ytd_cwt
}
}
else if ($3 ~ /^2/) {
A_ytd_cwt2[gt] += ytd_cwt
A_ytd_cwt2[vr] += ytd_cwt
A_ytd_cwt2["T"] += ytd_cwt
}
else if ($3 ~ /^B/) {
A_ytd_cwtB[gt] += ytd_cwt
A_ytd_cwtB[vr] += ytd_cwt
A_ytd_cwtB["T"] += ytd_cwt
}
else {
A_ytd_cwtC[gt] += ytd_cwt
A_ytd_cwtC[vr] += ytd_cwt
A_ytd_cwtC["T"] += ytd_cwt
}
}
}
close(packfile)
printf("\t\t%s %s\n\n\t\t%s%s\n\n", datestr, co,
"YTD Production Summary Report Through ",
f_datef(ytd_date)) > tmpfile
f_ytd_printinfo("O", "Outside Growers:")
f_ytd_printinfo("S", "Share Growers:")
if ( f_ytd_printinfo("T", "\nTOTALS:") < 0 ) return
cwtTT = A_ytd_cwt1["T"] + A_ytd_cwt2["T"] + \
A_ytd_cwtB["T"] + A_ytd_cwtC["T"]
printf("\nProduction By Variety:\n\n") > tmpfile
printf("%11s%16s%12s%7s%7s%7s%7s\n", "Variety", "Total CWT",
"%7oz.", "%Ones", "%Twos", "%Bees", "%Cull") > tmpfile
for ( x in A_ytd_cwtV ) {
if ( A_ytd_cwt1[x] + 0 == 0 ) prt_size_val = 0
else prt_size_val = A_ytd_size[x] * 100 / A_ytd_cwt1[x]
printf(" %5.1f%% %-8s:%10.2f%12.1f%7.1f%7.1f%7.1f%7.1f\n",
A_ytd_cwtV[x] * 100 / cwtTT, x, A_ytd_cwtV[x],
prt_size_val,
A_ytd_cwt1[x] * 100 / A_ytd_cwtV[x],
A_ytd_cwt2[x] * 100 / A_ytd_cwtV[x],
A_ytd_cwtB[x] * 100 / A_ytd_cwtV[x],
A_ytd_cwtC[x] * 100 / A_ytd_cwtV[x]) > tmpfile
varT += A_ytd_cwtV[x]
}
printf("\t%19s\n\t%-8s:%10.2f\n",
"==========", "Checksum", varT) > tmpfile
for ( xx in A_ytd_dt ) if ( xx !~ /r$/ ) num_days++
if (num_days < 1)
printf("\n\nNo packing days reported.\n") > tmpfile
else printf("\n\nRun %d days, Avg: %.1f MTH/day, %d 12BC/day.\n",
num_days, A_ytd_hours["T"] / num_days,
cwtTT / num_days) > tmpfile
close(tmpfile)
printf("\a\n\t\t")
comm = sprintf("%s %s", printer, tmpfile)
system(comm)
}
function f_ytd_printinfo(n, name, tot_ytd_cwt) {
tot_ytd_cwt = A_ytd_cwt1[n] + A_ytd_cwt2[n] + \
A_ytd_cwtB[n] + A_ytd_cwtC[n]
if (tot_ytd_cwt * 100 < 5) { # less than 5 pounds
printf("\nNo Production For %s\n\n", name) > tmpfile
return -1
}
printf("\n%s\n%s\n", name, "================") > tmpfile
printf("%5.1f%% %-10s%10.2f%30s%9.1f%%\n",
A_ytd_cwt1[n] * 100 / tot_ytd_cwt, "Ones:",
A_ytd_cwt1[n], "Plus Seven Oz. :",
A_ytd_size[n] * 100 / A_ytd_cwt1[n]) > tmpfile
printf("%5.1f%% %-10s%10.2f%30s%10.1f\n",
A_ytd_cwt2[n] * 100 / tot_ytd_cwt, "Twos:", A_ytd_cwt2[n],
"Main Table Hrs.:", A_ytd_hours[n]) > tmpfile
printf("%5.1f%% %-10s%10.2f%30s%10.1f\n",
A_ytd_cwtB[n] * 100 / tot_ytd_cwt, "Bees:", A_ytd_cwtB[n],
"Truck loads run:", A_ytd_trucks[n]) > tmpfile
printf("%5.1f%% %-10s%10.2f%30s%10d\n",
A_ytd_cwtC[n] * 100 / tot_ytd_cwt, "Cull:",
A_ytd_cwtC[n], "Ones per MTH :",
A_ytd_cwt1[n] / A_ytd_hours[n]) > tmpfile
printf("%27s\n", "==========") > tmpfile
printf("%6s%-11s%10.2f\n\n", "", "Total:", tot_ytd_cwt) > tmpfile
}
function f_printpct( i, j, k, tot, total_cwt,
total_cw1, total_cw2, total_cwB, total_cwC) {
f_clear()
printf("\n\t%s%s %s\n\n\n",
co, " Print List Of Runs ", hist_code)
num_runs = f_getrunrg(A_runs)
if ( ! num_runs ) f_exit()
FS = "%"
for ( i = 1; i <= num_runs; i++ ) {
split(A_runs[i], runinfo, FS)
runn = runinfo[1]
A_runs[runn]
A_runn[i] = runn
grcode = runinfo[2]
A_gstr[runn] = grwr_name[grcode]
A_lotnum[runn] = runinfo[3]
A_grt[runn] = runinfo[4]
A_vty[runn] = runinfo[5]
}
run_file = sprintf("%s%s\\%s", root_dir, data_dir, runf)
FS = "%"
while ( ( getline < run_file ) > 0 ) {
if ( $1 in A_runs ) {
pct_cwt = prod_wght[$2] * $3 / 100
if ( $2 ~ /^1/ ) {
A_pct_cw1[$1] += pct_cwt
if ( prod_clas[$2] >= 5 ) {
A_pct_7oz[$1] += pct_cwt
}
}
else if ( $2 ~ /^2/ ) A_pct_cw2[$1] += pct_cwt
else if ( $2 ~ /^B/ ) A_pct_cwB[$1] += pct_cwt
else if ( $2 ~ /^C/ ) A_pct_cwC[$1] += pct_cwt
}
else continue
}
close(run_file)
line = 500
for ( j = 1; j <= num_runs; j++ ) {
if ( line > 50 ) {
if ( line < 500 ) printf("\f") > tmpfile
printf("%s%s%s%3d\n\n%s\n\n\n", datestr, co,
" GAS Run Percentages Page",
++page, rng_str) > tmpfile
printf("%-5s%-2s%-33.31s%-10s%6s%6s%6s%6s%6s\n\n",
"RUN", "", "GROWER DESCRIPTION", "CWT RAN",
"%+7oz.", "%1's",
"%2's", "%B's", "%C's") > tmpfile
line = 5
}
r = A_runn[j]
grwrstr = sprintf("%s #%s, %s",
A_gstr[r], A_lotnum[r], A_vty[r])
tot = A_pct_cw1[r] + A_pct_cw2[r] + A_pct_cwB[r] + A_pct_cwC[r]
if ( tot == 0 ) continue
if ( A_pct_cw1[r] == 0 ) seven_oz = 0
else seven_oz = A_pct_7oz[r] * 100 / A_pct_cw1[r]
printf("%-6d%s-%-32.30s%9.2f%7.1f%6.1f%6.1f%6.1f%6.1f\n\n",
r, A_grt[r], grwrstr, tot,
seven_oz,
A_pct_cw1[r] * 100 / tot,
A_pct_cw2[r] * 100 / tot,
A_pct_cwB[r] * 100 / tot,
A_pct_cwC[r] * 100 / tot) > tmpfile
line += 2
total_7oz += A_pct_7oz[r]
total_cw1 += A_pct_cw1[r]
total_cw2 += A_pct_cw2[r]
total_cwB += A_pct_cwB[r]
total_cwC += A_pct_cwC[r]
}
total_cwt = total_cw1 + total_cw2 + total_cwB + total_cwC
if ( total_cw1 == 0 ) tot_seven_oz = 0
else tot_seven_oz = total_7oz * 100 / total_cw1
printf("\n%-40s%9.2f%7.1f%6.1f%6.1f%6.1f%6.1f\n",
"Totals for Runs in Range:", total_cwt,
tot_seven_oz,
total_cw1 * 100 / total_cwt,
total_cw2 * 100 / total_cwt,
total_cwB * 100 / total_cwt,
total_cwC * 100 / total_cwt) > tmpfile
close(tmpfile)
printf("\a\n\t")
comm = sprintf("%s %s", printer, tmpfile)
system(comm)
}
function f_FormatDate(date, c) {
if ( substr(date, 5, 2) > 50 ) c = 19
else c = 20
return sprintf("%s%s%s", c, substr(date, 5, 2), substr(date, 1, 4))
}
02-07-2020
