:tm eq "":tm(8,time,g)=@TM:
::gosub ckdup:
:4 eq "" or 3 eq "" or 1 eq "":end:
:33 ne "" and 34 eq "" and 29 gt "0":end:
:(31 eq "CK" or 31 eq "CP") and 32 eq "" and 29 gt "0":end:
:fr ne "":goto cont:
::rn(3,.0,g) = "172"; fr(1,yesno,g)="N"; pm(10,*,g)=@pm:
:pm eq "REALTIME"         'store REALTIME invoices to nf qualifier:pm = "":
::lookup con = control  r=rn   -n:
:not con:show "@Cannot locate control record "<rn; close con; end:
::con(12) = 4:
::write con; close con:
cont::show "Processing invoice #"<3:
:'64 ge "10":'gosub dofedex:
::lookup shp = invship   k=3    i=a -nx:
nxtship:not shp:goto shpdone:
:shp(1) ne 3:goto shpdone:
::kz(10,*)=shp(3):
::shp(12) = 4:
::lookup code = tempcode  k=kz   i=a -nx:
:not code:lookup code = tempcode  r=free  -n:
::code(1) =  kz; code(2) = code(2) + "1":
::dd(8,.2) = shp(5):
::code(3) = code(3) + dd:
::write code; close code:
::getnext shp;goto nxtship:
shpdone:::
::nx(1,yesno) = "N":
:33 ne "":dm(2,*)=mid(34,"1","2"):
:33 ne "" and (dm eq "IN" or dm eq "DE" or dm eq "CA" or dm eq "  "):end:
:(29 = "" or 29 = "0") and (84 eq "" or 84 eq "0"):goto postnf:
:92 ne "Y":gosub docre:
:84 ne "" and 84 ne "0" and 85 ne "" and 92 ne "Y":nx = "Y"; gosub docre:
::92 = "Y":
:(29+84) le 28:goto postnf:
::ky = "1":
::lookup trnm=trnm  r=ky   -n:
::ky = trnm(2) + "1":
::trnm(2) = ky:
::close trnm:
::op(10,.2) = (29 + 84) - 28; 30 = "0":
:84 eq "" or 84 eq "0":29 = 28; goto mkmem:
:(84 - op) lt "0":84 = "0"; 29 = 29 - (op - 84):
:(84 - op) ge "0":84 = 84 - op:
mkmem:op eq "0" or op eq "":goto postnf:
::lookup memx = memo  k=3    i=C -nx:
nxtmemo:not memx:goto newmemo:
:memx(5) ne 3:goto newmemo:
:memx(8) ne "F":getnext memx;goto nxtmemo:
::goto oldmemo:
newmemo::lookup memx = memo  r=free  -n:
oldmemo::memx(1) = ky;memx(2) = 1;memx(3) = 2;memx(4) = @td:
:                'NEW LINE ADDED 02/22/00 JJ:memx(5)=3; memx(10)=4:
::memx(6) = op;memx(8) = "F";memx(7) = 33;memx(14) = 32:
::memx(9) = "Overpayment on Invoice " & 3:
::memx(16) = op:
::close memx:
::lookup over = invoiceover  k=3    i=a -nx:
:over:close over; goto postnf:
::lookup over = invoiceover  r=free  -n:
::over(1) = 3; over(2) = op:
::write over; close over:
postnf:::
::lookup head2 = invhead2 r=free  -e:
:not head2:exit:
::copy head2:
:18 eq "COUNTER" or 18 eq "BILLING ONLY":goto nortshp:
:102 eq "Y" or 102 eq ""       'customer requests ship via remains:goto nortshp:
:"AK-HI-PR-" co 16:head2(18) = "AK/HI/PR RATES"; goto nortshp:
::lookup cus = ncust  k=1    i=a -nx:
:not cus:lookup cus = ncust@nactv  k=1    i=a -nx:
:not cus:close cus; goto nortshp:
::write head2:
nortshp::lookup invf = invdetail   k=3    i=a -nx:
nxtinvf:not invf:goto finish:
:invf(1) ne 3:goto finish:
:invf(3) ne "8441":zz(1,*) = "Y":
::lookup invd = invdetail2  r=free  -n:
::COPY invf TO invd:
::invd(17) = 4:
::it(4,*) = invf(3):
:it eq "" or (invf(2) ne "" and invf(2) ne it):goto nocost:
::lookup part = nparts  k=it   i=A -nx:
:part:invd(19) = invf(7) * part(16):
::close part:
nocost::write invd; close invd; delete invf:
::getnext invf; goto nxtinvf:
finish:'zz eq "" and 102 ne "Y":'head2(18) = "USPS":
::lookup oldnote = invnotes   k=3    i=a -nx:
:not oldnote:goto finish2:
::lookup newnote = invnotes2  r=free  -n:
::COPY oldnote TO newnote:
::write newnote; close newnote; delete oldnote; close oldnote:
finish2:::
::write head2; close head2:
::lookup stats = users_invhead  k=3    i=A -npx:
:not stats:lookup stats = users_invhead  r=free  -np:
if01:not stats:goto endif01:
::stats(1)=40; stats(2)=3; stats(3)=1; stats(4)=tm; stats(5)=@TD; stats(6)=@CD; write stats:
::lookup fubar = users_invhead  k=3    i=b -nx:
:fubar:stats(29)=fubar(2):
::lookup user = users  k=40   i=A -npx:
:not user:goto endif01:
::user(166)=user(166)+"1":
endif01:::
::delete:
::end:
:':':
@once::'---once-------------------------------------------------------:
::m="file=invhead;processing=ToInvhead2;":
::m=m{"qualifier="{@QU{";script=none;user="{@ID{";":
::m=m{"note=none;status=STARTED":
::system "/appl/fp/rreport log_operations -fp log_it -sr 1 -r '"{m{"'":
ronce:::
::end 'once:
@done::'---done-------------------------------------------------------:
::m="file=invhead;processing=ToInvhead2;":
::m=m{"qualifier="{@QU{";script=none;user="{@ID{";":
::m=m{"note=none;status=COMPLETED":
::system "/appl/fp/rreport log_operations -fp log_it -sr 1 -r '"{m{"'":
rdone:::
::end 'done:
:':':
docre::ky(6,.0) = "1":
::lookup trnm = trnm  r=ky   -n:
:not trnm:show"@Record #1 of trnm@"{pm<"was not found"; end:
::ky = trnm(1) + "1":
::trnm(1) = ky:
::close trnm:
::lookup trx=nftrans  r=free  -n:
::trx(6) = "1":
::trx(1) = ky; trx(2) = 1; trx(3) = 4; trx(4) = 2:
::trx(17) = "0":
::trx(20) = 3; trx(25) = 4; trx(18) = 42:
:nx ne "Y":gosub donorm:
:nx eq "Y":gosub dospcl:
::close trx:
::return:
donorm::trx(15)=32;trx(7)=33;trx(8)=34:
::trx(10) = 29; trx(16) = 29; trx(35) = 29:
::trx(30) = 28:
:31 eq "CC":31=mid(33,"1","2"):
:33 co "AMEX":31="AX":
:31 = "CA":trx(14)="C":
:31 = "CK" or 31 = "MO" or 31 eq "CP":trx(14)="B":
:31 = "MC" or 31 = "VI":trx(14)="M":
:31 = "DI":trx(14)="D":
:31 = "AX":trx(14)="A":
:31 = "FN":trx(14)="F":
:31 = "KT":trx(14)="K":
::return:
dospcl::trx(15)=128;trx(7)=129;trx(8)=130:
::trx(10) = 84; trx(16) = 84; trx(35) = 84; trx(30) = 28:
:85 eq "CC":85=129:
:129 co "AMEX":85="AX":
:85 = "CA":trx(14)="C":
:85 = "CK" or 85 = "MO" or 85 eq "CP":trx(14)="B":
:85 = "MC" or 85 = "VI":trx(14)="M":
:85 = "DI":trx(14)="D":
:85 = "AX":trx(14)="A":
:85 = "FN":trx(14)="F":
:85 = "KT":trx(14)="K":
::return:
dofedex:::
::'qu(6,*)=""{@qu;qd(6,mdy)=4:
:'qu eq "":'qu="nc":
::'export ascii file=("/hd1/hd1/appl/fpmerge/public/ship/"{qu{qd{"ship.csv") r=\n f=,:
::'file(1)=qu;file(2)=3;file(3)=1;file(4)=5;file(5)=97:
::'file(6)=6;file(7)=7;file(8)=8;file(9)=9;file(10)=10:
::'file(11)=12;file(12)=99;file(13)=13;file(14)=14;file(15)=15:
::'file(16)=16;file(17)=17;file(18)=11;file(19)=98:
::'file(20)=chr("13"):
::'return:
ckdup::lookup dup = invhead2  k=3    i=B -nx:
:not dup:return:
:dup(1) ne 1:return:
::show "@DUPLICATE INVOICE"<3<"NOT STORED":
::end: