{|| HeadLines:=14, ItemLines:=3, RetHLines:=1, RetDlines:=1, NacHLines:=2, NacDLines:=1, FootLines:=12,SortedItems:=.f.,PrintDuplicate:=.t.,PAGEWIDTH:=79} {||ROut(""),; BarOut(_TLCBAR),; BarOut(_HZBAR,PageWidth()-1),; BarOut(_TRCBAR)} {||rout(""),; barout(_bar),; RROut("DL No:",10,_LEFT),; RROut(mlicno,15,_LEFT),; RROut(ALLTRIM(MINVTYPE)+" Memo",21,_center),; RROut(Space(6)+"Mob: "+AllTrim(MMOBILE),32,_LEFT),; BAROUT(_BAR)} {||rout(""),; barout(_bar),; RROut("GSTIN",10),; RROut(ALLTRIM(MGSTNO),15),; RROut("",21) ,IIF(LSTART,CARGO3:=0,NIL),; RROut(Space(2)+" "+"Food Lic No. "+AllTrim(Mfoodlic),32,_LEFT),; barout(_bar)} {||rout(""),; barout(_bar),; RROut(alltrim(mname),39,_CENTER,_EXP),; BAROUT(_BAR)} {||rout(""),; barout(_bar),; RROut(ALLTRIM(maddress1),pagewidth()-1,_CENTER),; BAROUT(_BAR)} {||rout(""),; barout(_bar),; RROut(ALLTRIM(maddress2)+" "+ALLTRIM(MSTATION)+" "+ALLTRIM(MPIN),pagewidth()-1,_CENTER),; BAROUT(_BAR)} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,PageWidth()-1),; BarOut(_RMCONNECT)} {||rout(""),; barout(_bar),; RROut("INVOICE No : ",17,_LEFT),; RROut(FV(SHTBL,"SHSSR")+"-"+Padl(mInvNo,7,"0"),15 ,_LEFT),; RROut("",12,_LEFT),; RROut("Date : " ,13 ,_LEFT),; RROut(DToC(mInvDate),21),; BAROUT(_BAR)} {||rout(""),; barout(_bar),; RROut(PadR(PTPRMPT,10)+":" ,17,_LEFT),; RROut(AllTrim(mPatient) ,27,_LEFT),; RROut(PadR(DTPRMPT,10)+":" ,13),; RROut(AllTrim(mDtName) ,21,_LEFT),; BAROUT(_BAR)} {||rout(""),; barout(_bar),; RROut("Address " ,17,_LEFT),; RROut(AllTrim(mptaddress) ,27,_LEFT),; RROut("Sales Person :-",16),; RROUT(FV(SHTBL,"SPCD"),18,_LEFT,_NORMAL),; BAROUT(_BAR)} {||ROut(""),; BarOut(_lmconnect),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TLCBAR,,,_ELITE),; BarOut(_HZBAR,20.7,,_ELITE),; BarOut(_TLCBAR,,,_ELITE),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TLCBAR,,,_ELITE),; BarOut(_HZBAR,13,,_ELITE),; BarOut(_TLCBAR,,,_ELITE),; BarOut(_HZBAR,15,,_ELITE),; BarOut(_TLCBAR,,,_ELITE),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TLCBAR,,,_ELITE),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TLCBAR,,,_ELITE),; BarOut(_HZBAR,15,,_ELITE),; BarOut(_TLCBAR,,,_ELITE),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TLCBAR,,,_ELITE),; BarOut(_HZBAR,9.9,,_ELITE),; BarOut(_lmconnect)} {||rout(""),; barout(_bar),; RROut("QTY" ,10 ,_CENTER,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut("PRODUCT NAME" ,18.7,_LEFT,_ELITE),; RROut("",2,_LEFT,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut("HSN" ,9.9 ,_CENTER,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut("PACK" ,13.1,_center,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut("BATCH" ,15,_CENTER,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(iif(USEEXPIRY,"EXPIRY"," "),10,_CENTER,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut("RATE" ,10 ,_CENTER,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut("AMOUNT",15,_CENTER,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut("CGST",10 ,_CENTER,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut("SGST",9.9 ,_CENTER,_ELITE),; barout(_bar)} {||ROut(""),; BarOut(_BAR),; BarOut(_HZBAR,10,,_ELITE),; BAROUT(_BAR,,,_ELITE),; BarOut(_HZBAR,20.7,,_ELITE),; BAROUT(_BAR,,,_ELITE),; BarOut(_HZBAR,10,,_ELITE),; BAROUT(_BAR,,,_ELITE),; BarOut(_HZBAR,13,,_ELITE),; BAROUT(_BAR,,,_ELITE),; BarOut(_HZBAR,15,,_ELITE),; BAROUT(_BAR,,,_ELITE),; BarOut(_HZBAR,10,,_ELITE),; BAROUT(_BAR,,,_ELITE),; BarOut(_HZBAR,10,,_ELITE),; BAROUT(_BAR,,,_ELITE),; BarOut(_HZBAR,15,,_ELITE),; BAROUT(_BAR,,,_ELITE),; BarOut(_HZBAR,10,,_ELITE),; BAROUT(_BAR,,,_ELITE),; BarOut(_HZBAR,9.9,,_ELITE),; BarOut(_BAR)} {||iif(!lStart,ROut("Continued From... "+Tran(InvPg-1,"9"),46,_LEFT,_ELITE),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,_ELITE),NIL)} {||Cargo1:=iif(USEEXPIRY,Right(Dtoc2(FV(STOCKTBL,"EXPIRY")),5)," ")} {||rout(""),; barout(_bar),; RROUT(TRAN(MTABQTY,"9999"),10,,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(mPdName ,18.7,_LEFT,_ELITE),; RROut("",2,_LEFT,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(FV(PD1MSTTBL,"PDhsn"),9.9,_center,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(" "+FV(PD1MSTTBL,"PDPACKING"),13.1,,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(" "+FV(STOCKTBL,"BHNO") ,15,,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(Cargo1 ,10 ,_CENTER,_ELITE),; BarOut(_BAR,,,_ELITE),; RROut(TRAN(MTABRATE,"999.99"),10.1,_RIGHT,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROUT(TRAN((FV(BATCHTBL,"BHMRP")*MTABQTY/FV(STOCKTBL,"CONVFACTOR")),"99999.99"),14.9,_RIGHT,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(TRAN(FV(TAXmstTBL,"TXSCHRG"),"9999.99"),10,_right,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(TRAN(FV(TAXmstTBL,"TXRSTRATE"),"9999.99"),9.9,_right,_ELITE),; BarOut(_BAR)} {||cargo3:=cargo3+(FV(BATCHTBL,"BHMRP")*MTABQTY/FV(STOCKTBL,"CONVFACTOR"))} {||rout(""),; barout(_bar),; RROut("Sale Return",pagewidth()-1),; BAROUT(_BAR)} {||rout(""),; barout(_bar),; RROUT(TRAN(MTABQTY,"9999"),10,,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(mPdName ,20.7,_LEFT,_ELITE),; BarOut(_BAR,,,_ELITE),; RROUT(FV(PD1MSTTBL,"PDhsn"),10.1,,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(FV(PD1MSTTBL,"PDPACKING"),13,_LEFT,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(FV(STOCKTBL,"BHNO") ,15,_CENTER,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(Cargo1 ,10 ,_LEFT,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(TRAN(MTABRATE,"999.99"),10.1,_RIGHT,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROUT(TRAN((FV(BATCHTBL,"BHMRP")*MTABQTY/FV(STOCKTBL,"CONVFACTOR")),"99999.99"),14.9,_RIGHT,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(TRAN(FV(TAXmstTBL,"TXSCHRG"),"99.99"),10,_right,_ELITE),; BAROUT(_BAR,,,_ELITE),; RROut(TRAN(FV(TAXmstTBL,"TXRSTRATE"),"99.99"),9.8,_right,_ELITE),; BAROUT(_BAR)} *********** NAC Head Line {||ROUT("")} {||ROut("NAC")} ***********NAC Detail Line {||ROut(PadR(mItems,3) ,5 ,_RIGHT ,_NORMAL),; RROut(Tran(mTabQty,"99999") ,8 ,_CENTER,_NORMAL),; RROut(mPdName ,22,_LEFT ,_NORMAL),; RROut(mPacking ,11,_LEFT ,_NORMAL),; RROut(FV(NACDTLTBL,"BHNO") ,12,_LEFT ,_NORMAL),; RROut(iif(USEEXPIRY,Right(DToC(FV(NACDTLTBL,"EXPIRY")),7)," "),8,_LEFT,_NORMAL),; RROut(Tran(mAmt," 9999999.99") ,13,_RIGHT,_NORMAL)} {||ROut(""),; BarOut(_lmconnect),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,20.7,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,9.9,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,13.1,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,15,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,10,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,10,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,15,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,10,,_COMPRESS),; BarOut(_INVTBAR,,,_COMPRESS),; BarOut(_HZBAR,10,,_COMPRESS),; BarOut(_Lmconnect)} {||rout(""),; barout(_bar),; RROut(iif(Finished==.t.," ","Continued On..."+Tran(InvPg,"9")),44,_LEFT,_ELITE),; RROut(iif(Finished==.t.," ","Total c/f "+Tran(mTotAmt,"999999.99")),29,_RIGHT,_NORMAL),; barout(_bar)} {||IIF(FINISHED,rout(""),.T.),; IIF(FINISHED,barout(_bar),.T.),; iif(FINISHED,RROUT(mamtwords,59),.T.),; iif(FINISHED,RROUT("TOTAL ",9),.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(surtaxstring,59),.T.),; iif(FINISHED,RROUT("DISC ",9),.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(vtaxstring,59),.T.),; iif(FINISHED,RROUT("CGST",9),.T.),; iif(FINISHED,RROUT( Tran(MSCAMT,"999.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",59),.T.),; iif(FINISHED,RROUT("SGST",9),.T.),; iif(FINISHED,RROUT( Tran(MTAXAMT,"999.99"),10,_RIGHT),.T.),; IIF(FINISHED,barout(_bar),.T.)} {||IIF(FINISHED,rout(""),.T.),; IIF(FINISHED,barout(_bar),.T.),; iif(FINISHED,RROUT("Take medicine as per Doctor advice",59),.T.),; iif(FINISHED,RROUT("OTH. ADJ",9),.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("Please bring our Bill while return medicine",59),.T.),; iif(FINISHED,RROUT("NET AMT",9),.T.),; iif(FINISHED,RROUT( Tran(Mnetamt,"99999.99"),10,_RIGHT),.T.),; IIF(FINISHED,barout(_bar),.T.)} {||IIF(FINISHED,rout(""),.T.),; IIF(FINISHED,barout(_bar),.T.),; iif(FINISHED,BAROUT(_HZBAR,PAGEWIDTH()-1),.T.),; IIF(FINISHED,barout(_BAR),.T.)} {||IIF(FINISHED,rout(""),.T.),; IIF(FINISHED,barout(_bar),.T.),; iif(FINISHED,RROUT("Subject to "+alltrim(mstation)+" Jurisdiction "),.T.),; iif(FINISHED,RROUT("E.& O.E "),.T.),; iif(FINISHED,RROUT("For "+ALLTRIM(MNAME)),.T.),; IIF(FINISHED,barout(_bar),.T.)} {||IIF(FINISHED,rout(""),.T.),; IIF(FINISHED,barout(_INVTbar),.T.),; iif(FINISHED,BAROUT(_HZBAR,pagewidth()-1),.T.),; IIF(FINISHED,barout(_invtbar),.T.)} {||IIF(FINISHED,rout(""),.T.)}