My requirement is to get a vendor payment status.
1. create Custom Table:
[DataContractAttribute]
internal final class DaxContractClass
{
TransDate Fromdate,Todate;
UserName userName;
[DataMemberAttribute('From date')]
public TransDate parmFromdate(TransDate _Fromdate= Fromdate)
{
Fromdate = _Fromdate;
return Fromdate;
}
[DataMemberAttribute('To date')]
public TransDate parmTodate(TransDate _Todate= Todate)
{
Todate = _Todate;
return Todate;
}
[DataMemberAttribute, SysOperationControlVisibilityAttribute(false)]
public str parmUserName(str _userName = userName)
{
userName = _userName;
return userName;
}
}
3.RDPClass:
[SRSReportParameterAttribute(classstr(DaxContractClass))]
internal final class DaxDpClass extends SRSReportDataProviderBase
{
DaxVendorPayments daxVendorpayements;
[SRSReportDataSetAttribute(tableStr(DaxVendorPayments))]
public DaxVendorPayments daxVendorpayements()
{
select * from daxVendorpayements;
return daxVendorpayements;
}
public void processReport()
{
TransDate fromdate,todate;
DaxContractClass contract;
LedgerJournalTrans LedgerJournalTrans;
LedgerJournalTable ledgerJournalTable;
contract = this.parmDataContract() as DaxContractClass;
while select* from LedgerJournalTrans join ledgerJournalTable
where LedgerJournalTrans.TransDate >= contract.parmFromdate()
&& LedgerJournalTrans.TransDate <= contract.parmTodate()
&& ledgerJournalTable.JournalNum ==LedgerJournalTrans.JournalNum
{
daxVendorpayements.JournalNum = LedgerJournalTrans.JournalNum;
daxVendorpayements.JournalName = ledgerJournalTable.JournalName;
daxVendorpayements.Voucher = LedgerJournalTrans.Voucher;
daxVendorpayements.TransDate = LedgerJournalTrans.TransDate;
daxVendorpayements.LedgerDimensionName = LedgerJournalTrans.LedgerDimensionName;
daxVendorpayements.AmountCurCredit = LedgerJournalTrans.AmountCurCredit;
daxVendorpayements.AmountCurDebit = LedgerJournalTrans.AmountCurDebit;
daxVendorpayements.CurrencyCode =LedgerJournalTrans.CurrencyCode;
daxVendorpayements.OffsetLedgerDimension=LedgerJournalTrans.OffsetLedgerDimension;
daxVendorpayements.OffsetAccountType = LedgerJournalTrans.OffsetAccountType;
daxVendorpayements.PaymentStatus =LedgerJournalTrans.PaymentStatus;
daxVendorpayements.Txt =LedgerJournalTrans.Txt;
daxVendorpayements.PaymMode =LedgerJournalTrans.PaymMode;
daxVendorpayements.CreatedBYY = XUserInfo::find(false, curUserId()).name;
// DaxVendorpayements.linkPhysicalTableInstance(daxVendorpayements);
daxVendorpayements.insert();
}
}
}
4.controller Class
class DAXControllerClass extends SrsReportRunController
{
public static void main(Args _args)
{
DaxContractClass contract;
contract.parmUserName(XUserInfo::find(false, curUserId()).name);
DAXControllerClass controller = new DAXControllerClass();
controller.parmReportName(ssrsReportStr(DaxVendorPayments,Report));
controller.parmArgs(_args);
controller.parmShowDialog(false);
controller.startOperation();
}
}
5. Create Report:
[ExtensionOf(classStr(InventTransferOrdOverviewController))]
internal final class DAXInventTrans_Extension
{
protected void prePromptModifyContract()ss
{
next prePromptModifyContract();
this.setRanges(this.parmReportContract().parmQueryContracts().lookup(this.getFirstQueryContractKey()));
this.parmReportContract().parmRdlContract().parmLabelLanguageId("en-us");
}
}
=iif(Fields!DAXIdLabel.Value = "Yes", chr(252),chr(32))
wingdings:
-The preliminary study of the repertoire of four popular symbol sets:
- Wingdings ---SSRS
- Wingdings 2
- Wingdings 3
The symbols set are used by applications through their private encoding space or in Unicode Private Use Area (U+F020-U+F0FF). This is not optimal for interchange, and it would be preferable to dedicate actual encoding values for these symbols.
No comments:
Post a Comment