1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Is it possible to generate a report from a subform on a sales voucher

Discussion in 'Free Source Codes' started by ANURAG954245, Feb 24, 2023.

    
  1. ANURAG954245

    ANURAG954245 Member


    on sales form theres a subform and in the subform theres repeating lines where the specific data is stored
    now is it possible to generate the report of the subform

    Code:
    [#Field: EI Value]
    Set By Condition:Yes:@@GRAMT

[System:Formula]
    GRAMT:if $LedgerName="GR (GOODS RETURN)" AND @@IsSales then @@GRAMT2 else $$Value
    GRAMT2:$$AsAmount:(-)#GRAMOUNTOTLA




[#Line:EI InvSubTotal]
Left Fields:LONG Prompt,GOODSRETFLD,GRAMOUNTOTLA
Local:Field:LONG Prompt: Set as:"ENTER GR DETAILS:"
Local:Field:LONG Prompt: Width:20
Local:Field:LONG Prompt: Color:blue
Local:Field:LONG Prompt:Invisible:NOT @@ISSALES

   
[Field:GRAMOUNTOTLA]
    Set as:$TOTALGR
    Use:AMOUNT FIELD
    Skip:Yes
    Invisible:NOT @@ISSALES


[Field:GOODSRETFLD]
Use:Logical Field
Sub Forms:GRSUBFORM: $$Value
Invisible:NOT @@ISSALES
Set as:"NO"

[Report:GRSUBFORM]
    Object:VOUCHER
    Form:GRSUBFORM
    Title:$$LocaleString:"GOODS RETURN (GR) DETAILS"
    Object:voucher


[Form:GRSUBFORM]
Height:70% page
Width:50% page
Parts : GRPART


[Part:GRPART]
Line:GRTITLE,GRDATA
Bottom Line:GRDATATOTAL
Repeat: GRDATA:GRDATAAGGRET
Scroll: Vertical
Break: $$IsEmpty:#GRPARTY
Break: $$IsEmpty:#DNO
Break: $$IsEmpty:#GRPCS
Break: $$IsEmpty:#GRRATE
Total:TOTALSAMT

[Line:GRDATATotal]
    Use:GRDATA
    Add:Field:At End:TOTALSAMT1
    Border:Totals
    Local:Field:GRPARTY:Info:"Total"
    Local:Field:GRPARTY:Set as:"BRAND NAME"
    Local:Field:DNO:Skip:Yes
    Local:Field:GRPCS:Skip:Yes
    Local:Field:GRRATE:Skip:Yes
    Local:Field:TOTALSAMT:Skip:Yes
   
[Field:TOTALSAMT1]
        Use:amount field
        Skip:Yes
        Set as:$$Total:TOTALSAMT
        Storage:TOTALGR
       
       
[Line: GRTITLE]
Fields:GRPARTY,DNO,GRPCS,GRRATE,TOTALSAMT
Local: Field: Default : Delete: Storage
Local: Field: Default : Skip: Yes
Local: Field: Default : Fixed: Yes
Local: Field: Default : Type: String
Local: Field: Default : Style:Normal Bold
Local:Field:GRPARTY:Set as:"BRAND NAME"
Local:Field:DNO:Set as:"DESING No."
Local:Field:GRPCS:Set as:"No.PCS"
Local:Field:GRRATE:Set as:"RATE"
Local:Field:TOTALSAMT:Set as:"TOTAL"
Local:Field:GRPARTY:Align:Center
Local:Field:GRPARTY:Width:20% SCREEN
Local:Field:GRPARTY:Border:Flush Totals
Local:Field:GRPCS:Align:Center
Local:Field:GRPCS:Width:5% SCREEN
Local:Field:GRPCS:Border:Flush Totals
Local:Field:GRRATE:Align:Center
Local:Field:GRRATE:Width:10% SCREEN
Local:Field:GRRATE:Border:Flush Totals
Local:Field:TOTALSAMT:Align:Center
Local:Field:TOTALSAMT:Width:10% SCREEN
Local:Field:TOTALSAMT:Border:Flush Totals
Local:Field:DNO:Align:Center
Local:Field:DNO:Width:20% SCREEN
Local:Field:DNO:Border:Flush Totals
Border:THINBOTTOM

[Line:GRDATA]
        Fields:GRPARTY,DNO,GRPCS,GRRATE,TOTALSAMT
       
[Field:GRPARTY]
    Storage:GRPARTYNAME
    Use:NAME FIELD
    Set as:$GRPARTYNAME
    Width:20% SCREEN
    Align:Center
    Table       :PARTNAMECOLL,END OF LIST
    Show Table:Always
    Border:THICK RIGHT
[Field:DNO]
    Use:NAME FIELD
    Storage:DESINFNO
    Set as:$DESINFNO
    Width:20% SCREEN
    Align:Center
    Table:ITEMNAME,END OF LIST
    Show Table:Always
    Border:THICK RIGHT

[Field:GRPCS]
    Use:Qty Primary Field
    Storage:GRPCS
    Set as:$GRPCS
    Width:5% SCREEN
    Align:Center
    Border:THICK RIGHT
   
[Field:GRRATE]
    Use:Rate Price Field
    Storage:GRRATE
    Set as:$GRRATE
    Width:10% SCREEN   
    Align:Center
    Border:THICK RIGHT

[Field:TOTALSAMT]
    Set as:@@RATEXPCGR
    Use: Amount Forex Field
    Set always  : Yes
    Storage:GRAMOUNT
    Width:10% SCREEN
    Align:Center
    Skip:Yes
   
   
[System:Formula]
    RATEXPCGR:#GRPCS*#GRRATE
   

[System: UDF]
    GRDATAAGGRET:Aggregate:2650
    GRPARTYNAME:String:2561
    GRPCS:Quantity:2561
    GRRATE:Rate:2562
    GRAMOUNT:Amount:2563
    DESINFNO:String:2564
    TOTALGR:Amount:2565
   
[Collection: PARTNAMECOLL]

    Use         : VLedTable
    Type        : Ledger
    Fetch        : Name
    Include     : Group:$$GroupSundryCreditors
   
[Collection:ITEMNAME]
    Use         : Alias Collection
    Title       : $$LocaleString:"List of Stock Items"
    Type        : Stock Item
    Fetch       : Name

    upload_2023-2-24_20-21-46.png

    upload_2023-2-24_20-22-3.png upload_2023-2-24_20-21-46.png upload_2023-2-24_20-22-3.png upload_2023-2-24_20-21-46.png
     
    ANURAG954245, Feb 24, 2023
    #1


  2. Sanjeev S

    Sanjeev S Active Member


    Yes. Possible. What type of report you need?
     
    Sanjeev S, Feb 26, 2023
    #2


  3. Johar

    Johar Member


    You are not adding qty in inventory as you are taking back the material
     
    Johar, Feb 26, 2023
    #3


  4. ANURAG954245

    ANURAG954245 Member


    Yes because the item which am getting back is damaged and it cant be sold again so it will just into waste and i want its report
     
    ANURAG954245, Feb 26, 2023
    #4


  5. ANURAG954245

    ANURAG954245 Member


    i actually tried to get a report with this code but couldnt get the data

    Code:
    
[#Menu:Gateway Of tally]
    Add:Key Item:"GR REPORT":s:Display:GRREPORT


[Report:GRREPORT]
    Use:DSP TEMPLATE
    Form:GRREPORT
    Title:"GR REPORT"
   

[Form:GRREPORT]
    Use:DSP TEMPLATE
    Parts:GRREPORT
    Height:100% SCREEN
    Width:100% SCREEN
   
[Part:GRREPORT]
    Lines:GRREPORTTI,GRREPORTBODY
    Repeat:GRREPORTBODY:GRREPORTCOL
    Common Border:Yes
    Scroll:Vertical
   
[Line:GRREPORTTI]
    Use:GRREPORTBODY
    Local:Field:default:Type:String
    Local:Field:default:Style:tiny bold
    Local:Field:default:Align:Center
    Local:Field:default:Set as:$$LocaleString:"S.No"
    Local:Field:GRPARTYNAME:Set as:$$LocaleString:"BRANDNAME"
    Local:Field:GRDESINGNO:Set as:$$LocaleString:"DESING NO."
    Local:Field:GRNOOFPCS:Set as:$$LocaleString:"NO OF PCS."
    Local:Field:GRRATED:Set as:$$LocaleString:"GR RATE."
    Local:Field:GRTOTAL:Set as:$$LocaleString:"GR TOTAL AMT."
   
[Line:GRREPORTBODY]
    Field:GRNO,GRPARTYNAME,GRDESINGNO,GRNOOFPCS,GRRATED,GRTOTAL
   
[Field:GRNO]
    Set as:$$Line
    Width:1.5 CM
    Align:Center
    Border:THIN LEFT RIGHT
   
[Field:GRPARTYNAME]
    Use:NAME FIELD
    Set as:$GRPARTYNAME
    Width:20% SCREEN
    Align:Center
   
[Field:GRDESINGNO]
    Use:NAME FIELD
    Set as:$DESINFNO
    Width:20% SCREEN
    Align:Center
       
[Field:GRNOOFPCS]
    Use:Qty Primary Field
    Set as:$GRPCS
    Width:20% SCREEN
    Align:Center
   
[Field:GRRATED]
    Use:Rate Price Field
    Set as:$GRRATE
    Width:20% SCREEN
    Align:Center
   
[Field:GRTOTAL]
    Use:Amount Forex Field
    Set as:$TOTALGR
    Width:20% SCREEN
    Align:Center
   

[Collection:GRREPORTCOL]
    Type : GRDATAAGGRET:VOUCHER
    Child Of:##SVCURRENTCOMPANY
    Fetch : *, *.*
     
    ANURAG954245, Feb 26, 2023
    #5


  6. tally.manish

    tally.manish Member


    Dear Anurag
    Try This

    [Collection:GRREPORTCOLSOURCE]
    Type : Vouchers : VoucherType
    Child of : $$VchTypeSales
    Belongs To: Yes


    [Collection:GRREPORTCOL]
    Source Collection: GRREPORTCOLSOURCE
    Walk : GRDATAAGGRET
    Fetch : GRPARTYNAME,DESINFNO,GRPCS,GRRATE,TOTALGR
     
    tally.manish, Feb 27, 2023
    #6
    ANURAG954245 likes this.


  7. ANURAG954245

    ANURAG954245 Member


    Thanks sir it really helped a lot to get it completed
     
    ANURAG954245, Feb 27, 2023
    #7


Share This Page