1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Need Help regarding my project

Discussion in 'Free Source Codes' started by suyash, Jun 17, 2020.

    
  1. suyash

    suyash New Member


    i try to hide batchallocations window but if i comment the batch subform then i can not track the SOno in slaes and SO Outstanding Reports plz help me




    [#Part: VTYP Behaviour]
    Add : Lines : At End : SCcustomization
    [Line: SCcustomization]

    Fields : Long Prompt, SCcustomization
    Local : Field : Long Prompt : Set as : $$LocaleString:"Enable Customization ?"
    Local : Field : Long Prompt : Color : Royal Blue
    Space Top : 0.5

    [Field: SCcustomization]
    Use : Name Field
    Storage : SCcustomization
    Table : YesNoTable
    Show Table : Always

    [System: Formula]
    IsSCcustomization : $SCcustomization:VoucherType:$VoucherTypeName="Yes"

    ;[#Line: vchbatch Columnone]
    [#Line: Ei Columnone]
    Add : Option : SCBatchcolone : @@IsSCcustomization;@@IsSales or @@IsSalesOrder ;or @@IsPurcOrder or @@IsPurchase

    [!Line: SCBatchcolone]
    Add : Right Fields : Before : VCH QtyTitle : VCHSCGodownT,VchSCBatchnameT,VCHdueonT,VCHmrpT, VchdiscT,VCHEdiscT,VCHEcostprcT,VCHtaxT,VchAsseValT,VCHETaxAmtT

    [Field: VCHSCGodownT]
    Info : "Godown"
    Width : 6% Page
    Style : Normal Bold
    Align : Center
    Color : Royal Blue

    [Field: VchSCBatchnameT]
    Info : "Batch Name"
    Width : 6% Page
    Style : Normal Bold
    Align : Center

    [Field: VCHdueonT]
    Info : "Due On"
    Width : 6% Page
    Style : Normal Bold
    Align : Center

    [Field: VCHmrpT]
    Info : "MRP"
    Width : 6% Page
    Style : Normal Bold
    Align : Center

    [Field: VchdiscT]
    Info : "Discount"
    Width : 6% Page
    Style : Normal Bold
    Align : Center

    [Field: VCHEdiscT]
    Info : "E-Discount"
    Width : 6% Page
    Style : Normal Bold
    Align : Center

    [Field: VCHEcostprcT]
    Info : "CostPrice"
    Width : 6% Page
    Style : Normal Bold
    Align : Center

    [Field: VCHtaxT]
    Info : "Tax% "
    Width : 6% Page
    Style : Normal Bold
    Align : Center

    [Field: VchAsseValT]
    Info : "Asses Val"
    Width : 6% Page
    Style : Normal Bold
    Align : Center

    [Field: VCHETaxAmtT]
    Info : "Tax Amt"
    Width : 6% Page
    Style : Normal Bold
    Align : Center




    [#Line: Ei InvInfo]
    Add : Option : SCIBatch2 : @@IsSCcustomization;@@IsSales or @@IsSalesOrder ;or @@IsPurcOrder or @@IsPurchase

    [!Line: SCIBatch2]
    Add : Right Fields : Before : VCH ActualQty : VCHSCGodown,VchSCBatchname,VCHdueon,VCHmrp, Vchdisc,VCHEdisc,VCHEcostprc,VCHtax,VchAsseVal,VCHETaxAmt

    [Field: VCHSCGodown]
    Use : Name Field
    Storage : GodownName

    Table : Stockable Godown VchExtract ;: $$IsMultiGodownOn And (NOT @@IsOrderVch AND NOT @@IsJobOrderVouchers AND ($$Line = 1 OR @@HasTrackingNo OR @@IsOrdersOn) AND NOT @@IsJobCostingOn)
    Table : Stockable Godown VchExtract, End of List ;: $$IsMultiGodownOn And (NOT @@IsOrderVch AND NOT @@IsJobOrderVouchers AND ($$Line > 1 AND NOT @@HasTrackingNo AND NOT @@IsOrdersOn) AND NOT @@IsJobCostingOn) OR ($$Line > 1 AND @@IsNonTrackJobInOut)
    Table : Stockable Godown VchExtract ;: $$IsMultiGodownOn And ((@@IsOrderVch AND NOT @@IsJobCostingOn) OR @@IsJobOrderVouchers)

    Table : JOB Stockable Godown VchExtract ;: NOT @@IsOrderVch AND ($$Line = 1 OR @@HasTrackingNo OR @@IsOrdersOn) AND @@IsJobCostingOn AND $$IsRemoteCompany
    Table : JOB Stockable Godown VchExtract, End of List ;: NOT @@IsOrderVch AND ($$Line > 1 AND NOT @@HasTrackingNo AND NOT @@IsOrdersOn) AND @@IsJobCostingOn AND $$IsRemoteCompany
    Table : JOB Stockable Godown VchExtract ;: @@IsOrderVch AND @@IsJobCostingOn
    Width : 6% page
    Style : Normal
    Align : Center
    Show Table : Always
    Inactive : $$IsEnd:$StockItemName

    [Field: VchSCBatchname]
    Use : Name Field
    Key : Create New Number
    Variable : SVBatch
    Show Table : Always
    Dynamic : ""
    Trigger : New Number : $$IsSysNameEqual:NewNumber:$$EditData
    Storage : BatchName
    Table : Active Batches VchExtract, New Number ,Any : @@HasBatchWise
    Width : 6% page
    Style : Normal
    Align : Center
    Format : "No Zero"
    Inactive : $$IsEnd:$StockItemName

    [Field: VCHdueon]
    Use : Due Date Field
    Set as : $Date
    Storage : OrderDueDate
    Width : 6% page
    Style : Normal
    Align : Center
    Format : "No Zero"
    Inactive : $$IsEnd:$StockItemName

    [Field: VCHmrp]
    Use : Number Field
    Set as : @sr;$$GetPriceFromLevel:$StockItemName:$PriceLevel:$Date:$$Number:$BilledQty
    Storage : VCHmrp
    Width : 6% page
    Style : Normal
    Align : Center
    Format : "No Zero"
    Inactive : $$IsEnd:$StockItemName
    sr : $$Number:$$GetPriceFromLevel:$Stockitemname:$PriceLevel:$Date:$Rate;:$StockItemName:$PriceLevel:$Date:$BilledQty

    [Field: Vchdisc]
    Use : Number Field
    Storage : Vchdisc
    Width : 6% page
    Style : Normal
    Align : Center
    Format : "No Zero"
    Inactive : $$IsEnd:$StockItemName

    [Field: VCHEdisc]
    Use : Number Field
    Storage : VCHEdisc
    Width : 6% page
    Style : Normal
    Align : Center
    Format : "No Zero"
    Inactive : $$IsEnd:$StockItemName

    [Field: VCHEcostprc]
    Use : Number Field
    Set as : #VCHmrp-#Vchdisc-#VCHEdisc
    Storage : VCHEcostprc
    Width : 6% page
    Style : Normal
    Align : Center
    Format : "No Zero"
    Inactive : $$IsEnd:$StockItemName

    [Field : VCHtax]
    Use : Number Field
    Set as : $GSTIGSTRate:StockItem:$StockItemName
    Storage : VCHtax
    Width : 6% page
    Style : Normal
    Align : Center
    Format : "No Zero, Percentage"
    Inactive : $$IsEnd:$StockItemName

    [Field : VchAsseVal]
    Use : Number Field
    Set as : (#VCHEcostprc/@sr)*100
    sr : #VCHtax+100
    Storage : VchAsseVal
    Width : 6% page
    Style : Normal
    Align : Center
    Format : "No Zero, Decimal : 2"
    Inactive : $$IsEnd:$StockItemName

    [Field : VCHETaxAmt]
    Use : Number Field
    Set as : (#VchAsseVal*#VCHtax)/100
    Storage : VCHETaxAmt
    Width : 6% page
    Style : Normal
    Align : Center
    Format : "No Zero, Decimal : 2"
    Inactive : $$IsEnd:$StockItemName




    [#Field: VCHACC StockItem]
    Add: Option : Vchoptsub : @@IsSCcustomization;@@IsSales or @@IsSalesOrder

    [!Field: Vchoptsub]
    Delete : Sub Form: STKVCH BatchAllocations


    [#Field: VCH NrmlBilledQty]
    Add : Option : nrmbillopt : @@IsSCcustomization

    [!Field: nrmbillopt]

    Delete : Skip on
    Delete : Set as
    Delete :Set By Condition

    [#Field: VCH NrmlRate]
    Add : Option : NrmlRateopt : @@IsSCcustomization

    [!Field: NrmlRateopt]
    Delete : Skip on
    Delete : Set as
    Delete :Set By Condition
    Add : Set as : $VchAsseVal

    [#Field: VCH NrmlValue]
    Add : Option : NrmlValueopt : @@IsSCcustomization

    [!Field: NrmlValueopt]
    Delete : Read Only
    Delete : Set as
    Delete : Set By Condition
    Add : Set as : $Rate*$BilledQty
     
    suyash, Jun 17, 2020
    #1


  2. Gopal Rajbhandari

    Gopal Rajbhandari Member


    Hi Suyash, Please change your code :

    [Field: SCcustomization]
    Use : Logical Field
    Storage : SCcustomization
    Table : YesNoTable
    Show Table : Always
    [System :UDF]
    SCcustomization : Logical: 5002
     
    Gopal Rajbhandari, Jun 17, 2020
    #2


Share This Page