{|| HeadLines:=12, ItemLines:=3, RetHLines:=1, RetDlines:=1, NacHLines:=2, NacDLines:=1, FootLines:=8,SortedItems:=.f.,PrintDuplicate:=.t.,PAGEWIDTH:=55} {||ROut(""),; BarOut(_TLCBAR),; BarOut(_HZBAR,PageWidth()),; BarOut(_TRCBAR)} {||rout(""),; barout(_bar),; RROut("DL No:",8,_LEFT,_elite),; RROut(mlicno,22,_LEFT,_elite),; RROut(ALLTRIM(MINVTYPE)+" Memo",30,_center,_elite),; RROut(Space(5)+"Mob: "+AllTrim(MMOBILE),33.5,_LEFT,_elite),; BAROUT(_BAR)} {||rout(""),; barout(_bar),; RROut("GSTIN",8,,_elite),; RROut(ALLTRIM(MGSTNO),22,,_elite),; RROut("",30,,_elite) ,IIF(LSTART,CARGO3:=0,NIL),; RROut(Space(2)+" "+"Food Lic No. "+AllTrim(Mfoodlic),33.5,_LEFT,_elite),; barout(_bar)} {||rout(""),; barout(_bar),; RROut(alltrim(mname),27.5,_CENTER,_EXP),; BAROUT(_BAR)} {||rout(""),; barout(_bar),; RROut(ALLTRIM(maddress)+" "+ALLTRIM(MSTATION)+" "+ALLTRIM(MPIN),pagewidth(),_CENTER),; BAROUT(_BAR)} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,PageWidth()),; BarOut(_RMCONNECT)} {||rout(""),; barout(_bar),; RROut("INVOICE No : ",17,_LEFT,_elite),; RROut(FV(SHTBL,"SHSSR")+"-"+Padl(mInvNo,7,"0"),22 ,_LEFT,_elite),; RROut("",15,_LEFT,_elite),; RROut("Date : "+DToC(mInvDate),39.5,,_elite),; BAROUT(_BAR)} {||rout(""),; barout(_bar),; RROut(PadR(PTPRMPT,10)+":" ,17,_LEFT,_elite),; RROut(AllTrim(mPatient) ,22,_LEFT,_elite),; RROut("",15,_LEFT,_elite),; RROut(PadR(DTPRMPT,10)+":" ,14.5,,_elite),; RROut(AllTrim(mDtName) ,25,_LEFT,_elite),; BAROUT(_BAR)} {||ROut(""),; BarOut(_lmconnect),; BarOut(_HZBAR,6,,_compress),; BarOut(_TLCBAR,,,_compress),; BarOut(_HZBAR,30,,_compress),; BarOut(_TLCBAR,,,_compress),; BarOut(_HZBAR,5,,_compress),; BarOut(_TLCBAR,,,_compress),; BarOut(_HZBAR,7,,_compress),; BarOut(_TLCBAR,,,_compress),; BarOut(_HZBAR,13,,_compress),; BarOut(_TLCBAR,,,_compress),; BarOut(_HZBAR,6,,_compress),; BarOut(_TLCBAR,,,_compress),; BarOut(_HZBAR,8,,_compress),; BarOut(_TLCBAR,,,_compress),; BarOut(_HZBAR,11.5,,_compress),; BarOut(_lmconnect)} {||rout(""),; barout(_bar),; RROut("QTY" ,6 ,_CENTER,_compress),; BAROUT(_BAR,,,_compress),; RROut("PRODUCT NAME" ,30,_LEFT,_compress),; BAROUT(_BAR,,,_compress),; RROut("HSN" ,5 ,_CENTER,_compress),; BAROUT(_BAR,,,_compress),; RROut("PACK" ,7,_LEFT,_compress),; BAROUT(_BAR,,,_ELITE),; RROut("BATCH" ,13,_CENTER,_compress),; BAROUT(_BAR,,,_ELITE),; RROut(iif(USEEXPIRY,"EXP"," "),6,_CENTER,_compress),; BAROUT(_BAR,,,_compress),; RROut("RATE",8,_LEFT,_compress),; BAROUT(_BAR,,,_compress),; RROut("AMOUNT",11.5,_CENTER,_compress),; barout(_bar)} {||ROut(""),; BarOut(_BAR),; BarOut(_HZBAR,6,,_compress),; BAROUT(_BAR,,,_compress),; BarOut(_HZBAR,30,,_compress),; BAROUT(_BAR,,,_compress),; BarOut(_HZBAR,5,,_compress),; BAROUT(_BAR,,,_compress),; BarOut(_HZBAR,7,,_compress),; BAROUT(_BAR,,,_compress),; BarOut(_HZBAR,13,,_compress),; BAROUT(_BAR,,,_compress),; BarOut(_HZBAR,6,,_compress),; BAROUT(_BAR,,,_compress),; BarOut(_HZBAR,8,,_compress),; BAROUT(_BAR,,,_compress),; BarOut(_HZBAR,11.5,,_compress),; BarOut(_BAR)} {||iif(!lStart,ROut("Continued From... "+Tran(InvPg-1,"9"),46,_LEFT,_COMPRESS),NIL),; iif(!lStart,RROut("",23,_LEFT,_COMPRESS),NIL),; iif(!lStart,RROut("Total b/f",12,_LEFT,_COMPRESS),NIL),; iif(!lStart,RROut(Tran(cargo3,"9999999.99"),10,_RIGHT,_COMPRESS),NIL)} {||Cargo1:=iif(USEEXPIRY,Right(Dtoc2(FV(STOCKTBL,"EXPIRY")),5)," ")} {||rout(""),; barout(_bar),; RROUT(TRAN(MTABQTY,"9999"),6,,_compress),; BAROUT(_BAR,,,_compress),; RROut(mPdName ,30,_LEFT,_compress),; BAROUT(_BAR,,,_compress),; RROut(mhsn,5,_CENTER,_compress),; BAROUT(_BAR,,,_compress),; RROut(FV(PD1MSTTBL,"PDPACKING"),7,_LEFT,_compress),; BAROUT(_BAR,,,_compress),; RROut(FV(STOCKTBL,"BHNO") ,13,,_compress),; BAROUT(_BAR,,,_compress),; RROut(Cargo1 ,6,_center,_compress),; BAROUT(_BAR,,,_compress),; RROut(tran(mtabrate,"999.99"),8,_RIGHT,_compress),; BAROUT(_BAR,,,_compress),; RROUT(TRAN((FV(BATCHTBL,"BHMRP")*MTABQTY/FV(STOCKTBL,"CONVFACTOR")),"99999.99"),11.5,_RIGHT,_compress),; BarOut(_BAR)} {||cargo3:=cargo3+(FV(BATCHTBL,"BHMRP")*MTABQTY/FV(STOCKTBL,"CONVFACTOR"))} {||rout(""),; barout(_bar),; RROut("Sale Return",pagewidth()),; BAROUT(_BAR)} {||rout(""),; barout(_bar),; RROUT(TRAN(MTABQTY,"9999"),6,,_compress),; BAROUT(_BAR,,,_compress),; RROut(mPdName ,30,_LEFT,_COMPRESS),; BAROUT(_BAR,,,_compress),; RROut(mhsn,6,_LEFT,_compress),; BAROUT(_BAR,,,_compress),; RROut(FV(PD1MSTTBL,"PDPACKING"),7,_LEFT,_compress),; BAROUT(_BAR,,,_compress),; RROut(FV(STOCKTBL,"BHNO") ,13,_CENTER,_compress),; BAROUT(_BAR,,,_compress),; RROut(Cargo1 ,6 ,_center,_compress),; BAROUT(_BAR,,,_compress),; RROut(tran(mtabrate,"999.99"),8,_LEFT,_compress),; BAROUT(_BAR,,,_compress),; RROUT(TRAN((FV(BATCHTBL,"BHMRP")*MTABQTY/FV(STOCKTBL,"CONVFACTOR")),"99999.99"),11.5,_CENTER,_compress),; BarOut(_BAR)} *********** NAC Head Line {||ROUT("")} {||ROut("NAC")} ***********NAC Detail Line {||rout(""),; barout(_bar),; RROUT(TRAN(MTABQTY,"9999"),8,,_compress),; BAROUT(_BAR,,,_compress),; RROut(mPdName ,25.7,_LEFT,_compress),; BAROUT(_BAR,,,_compress),; RROUT(mhsn,10,,_compress),; BAROUT(_BAR,,,_compress),; RROut(FV(PD1MSTTBL,"PDPACKING"),10,_LEFT,_compress),; BAROUT(_BAR,,,_compress),; RROut(FV(STOCKTBL,"BHNO") ,15,_CENTER,_compress),; BAROUT(_BAR,,,_compress),; RROut(Cargo1 ,7 ,_center,_compress),; BAROUT(_BAR,,,_compress),; RROUT(TRAN((FV(BATCHTBL,"BHMRP")*MTABQTY/FV(STOCKTBL,"CONVFACTOR")),"99999.99"),15,_RIGHT,_compress),; BarOut(_BAR)} {||ROut(""),; BarOut(_lmconnect),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,30,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,5,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,7,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,13,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,6,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,8,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,11.5,,_COMPRESS),; BarOut(_Lmconnect)} {||IIF(FINISHED,rout(""),.T.),; IIF(FINISHED,barout(_bar),.T.),; iif(FINISHED,RROUT(surtaxstring,62,,_ELITE),.T.),; iif(FINISHED,RROUT("TOTAL ",8.5),.T.),; iif(FINISHED,RROUT( Tran(mTotAmt,"99999.99"),10,_RIGHT),.T.),; IIF(FINISHED,barout(_bar),.T.)} {||IIF(FINISHED,rout(""),.T.),; IIF(FINISHED,barout(_bar),.T.),; iif(FINISHED,RROUT(vtaxstring,62,,_ELITE),.T.),; iif(FINISHED,RROUT("DISC ",8.5),.T.),; iif(FINISHED,RROUT( Tran(mDiscAmt,"999.99"),10,_RIGHT),.T.),; IIF(FINISHED,barout(_bar),.T.)} {||IIF(FINISHED,rout(""),.T.),; IIF(FINISHED,barout(_bar),.T.),; iif(FINISHED,RROUT(mamtwords,62,,_ELITE),.T.),; iif(FINISHED,RROUT("OTH. ADJ",8.5),.T.),; iif(FINISHED,RROUT(TRAN(MOTHADJ,"9999.99"),10,_RIGHT),.T.),; IIF(FINISHED,barout(_bar),.T.)} {||IIF(FINISHED,rout(""),.T.),; IIF(FINISHED,barout(_bar),.T.),; iif(FINISHED,RROUT("Goods once sold will no be taken back ",62,,_ELITE),.T.),; iif(FINISHED,RROUT("CG+SGST",8.5),.T.),; iif(FINISHED,RROUT( Tran(MTAXAMT+MSCAMT,"99999.99"),10,_RIGHT),.T.),; IIF(FINISHED,barout(_bar),.T.)} {||rout(""),; barout(_bar),; RROut(iif(Finished==.t.,"Subject to "+alltrim(mstation)+" Jurisdiction","Continued On..."+Tran(InvPg,"9")),44,_LEFT,_ELITE),; RROut(iif(Finished==.t.,PADR(" Net Amount ",18)+Tran(mNetAmt,"999999.99")+" ","Total c/f "+Tran(mTotAmt,"999999.99")),29,_RIGHT,_NORMAL),; barout(_bar)} {||IIF(FINISHED,rout(""),.T.),; IIF(FINISHED,barout(_BLCbar),.T.),; iif(FINISHED,BAROUT(_HZBAR,PAGEWIDTH()),.T.),; IIF(FINISHED,barout(_BRCBAR),.T.)} {||rout("")}