Hi, im facing an issue with invoice lines in FTE form.
when i create a new customer and wants to add new credit invoicing, its coming correct for first time.
Now if i click again on the credit invoicing and click on OK again, the line will be duplicated.
here is my code:
----
[ExtensionOf(formControlStr(CustVendCreditInvoicing, OK))]
final class CustVendCreditInvoicing_Ok_Extension
{
public void clicked()
{
Common callerTable1;
CustInvoiceTable _custInvoiceTableOld, custInvoiceNew;
CustInvoiceLine _custInvoiceLineOld, _custLineNew;
FormRun formRun;
callerTable1 = element.args().record();
formRun = element.args().caller();
FormStringControl _cntrStr = this.formRun().design().controlName(/CustVendCorrectedInvoiceId/);
str invoiceid = _cntrStr.text();
next clicked();
if(callerTable1.TableId == tablenum(CustInvoiceTable))
{
custInvoiceNew = callerTable1;
}
ttsbegin;
select _custInvoiceTableOld where _custInvoiceTableOld.InvoiceId == invoiceid;
custInvoiceNew.DocumentDate = _custInvoiceTableOld.DocumentDate;
custInvoiceNew.ReleaseDate = _custInvoiceTableOld.ReleaseDate;
custInvoiceNew.InclTax = _custInvoiceTableOld.InclTax;
custInvoiceNew.WorkerSalesTaker = _custInvoiceTableOld.WorkerSalesTaker;
custInvoiceNew.CustomerRef = _custInvoiceTableOld.CustomerRef;
custInvoiceNew.ContactPersonId = _custInvoiceTableOld.ContactPersonId;
custInvoiceNew.Payment = _custInvoiceTableOld.Payment;
custInvoiceNew.PaymMode = _custInvoiceTableOld.PaymMode;
custInvoiceNew.CustBankAccountId = _custInvoiceTableOld.CustBankAccountId;
custInvoiceNew.PaymentSched = _custInvoiceTableOld.PaymentSched;
custInvoiceNew.CashDiscCode = _custInvoiceTableOld.CashDiscCode;
custInvoiceNew.DirectDebitMandate = _custInvoiceTableOld.DirectDebitMandate;
custInvoiceNew.DefaultDimension = _custInvoiceTableOld.DefaultDimension;
custInvoiceNew.update();
ttscommit;
ttsbegin;
while select _custInvoiceLineOld where _custInvoiceLineOld.ParentRecId == _custInvoiceTableOld.RecId
{
_custLineNew.clear();
_custLineNew.initValue();
_custLineNew.ParentRecId = custInvoiceNew.RecId;
_custLineNew.Description =_custInvoiceLineOld.Description;
_custLineNew.LedgerDimension = _custInvoiceLineOld.LedgerDimension;
_custLineNew.TaxGroup = _custInvoiceLineOld.TaxGroup;
_custLineNew.TaxItemGroup = _custInvoiceLineOld.TaxItemGroup;
_custLineNew.TaxWithholdGroup = _custInvoiceLineOld.TaxWithholdGroup;
_custLineNew.TaxWithholdItemGroupHeading_TH =_custInvoiceLineOld.TaxWithholdItemGroupHeading_TH;
_custLineNew.Quantity = - _custInvoiceLineOld.Quantity;//negataive value
_custLineNew.UnitPrice = _custInvoiceLineOld.UnitPrice;
_custLineNew.AmountCur = - _custInvoiceLineOld.AmountCur;//negative value
_custLineNew.DefaultDimension = _custInvoiceLineOld.DefaultDimension;
_custLineNew.insert();
}
ttscommit;
if(formrun)
{
formrun.doResearch(); // Force all parent form data sets to refresh
}
}
}
any idea how to fix this issue?
406
Share
Report
All responses (
Answers (
