How to set value to "Dr" in Payment voucher

Dear Experts
Please correct my code , how to get "dr" value in [Field : MVchDr] payment voucher entry, its always get cr

[#Form: VCHBASIC Form]
Add: Part: After : VCHTitle2 : PVchTitle

[Part: PVchTitle]
Line : PVchTitle
[Line : PVchTitle]
Field: MVchInfo, MVchAmt, MVchDr
;Border: Thin Box

[Field : MVchInfo]
Use: Short Prompt
Info : "Dr/Cr Amt :"
Style: Normal Bold
[Field : MVchAmt]
Use : Amount Field
Storage : MVchAmt
Width: 10

[Field : MVchDr]
Use : Amount DrCr Field
Storage : MVchAmt
Skip On : $$IsEmpty:$MVchAmt
Set as : If $$IsPayment:##SVVoucherType Then "Dr" Else "Cr"

[System : UDF]
MVchAmt : Amount :1365

 

[#Form: VCHBASIC Form]
Add: Part: After : VCHTitle2 : PVchTitle

[Part: PVchTitle]
Line : PVchTitle
[Line : PVchTitle]
Field: MVchInfo, MVchAmt, MVchDr
;Border: Thin Box

[Field : MVchInfo]
Use: Short Prompt
Info : "Dr/Cr Amt :"
Style: Normal Bold

[Field : MVchAmt]
Use : Amount Field
Storage : MVchAmt
Width: 10

[Field : MVchDr]
Use : Name Field
Storage : MVchDr
Skip On : $$IsEmpty:$MVchAmt
Set as : If $$IsPayment:##SVVoucherType Then "Dr" Else "Cr"

[System : UDF]
MVchAmt : Amount :1365
MVchDr : String :6501

 

can we use single amount udf ?. like opening ledger amount its get dr cr properly

 

Use "Set By Condition" attribute and set your conditions & values accordingly

 

Thank for reply . as per your suggestions Try set by condition but it's always get cr

Set by condition : @A1 : $$negative:$$value
A1: $$ispayment:##svvouchertype
Set always : yes