Discussion:
VendInvoiceJour
(too old to reply)
Rodrigo Hentz
2008-01-07 16:37:10 UTC
Permalink
Hi!
I need to create a new register in the VendInvoiceJour table and
VendInvoiceTrans by X++.
Somebody have a simple code that can help me?

thanks.
Kangeyan Dhanapalan
2011-01-13 09:22:25 UTC
Permalink
public boolean fetch()
{
boolean ret, isData;
VendInvoiceJour vendInvoiceJour;
VendPackingSlipJour vendPackingSlipJour;

GoodsReceiptNote_IN retGRNNo(PurchId _purchId)//, LedgerVoucher _voucher)
{
while select GRNNumber_IN from VendPackingSlipJour
where VendPackingSlipJour.PurchId == _purchId
//&& VendPackingSlipJour. == _voucher
return VendPackingSlipJour.GRNNumber_IN;
}

;

while select InvoiceId,LedgerVoucher,VendGroup,InvoiceDate,PurchId,InvoiceAccount,Qty,Volume,Weight,SumTax,SalesBalance,InvoiceAmount
from VendInvoiceJour
order by InvoiceDate,PurchId,InvoiceId
where VendInvoiceJour.InvoiceDate >= fromDate && VendInvoiceJour.InvoiceDate <= toDate

{
printInvoiceId = VendInvoiceJour.InvoiceId;
printVoucherNo = VendInvoiceJour.LedgerVoucher;
printGRNNo = retGRNNo(VendInvoiceJour.PurchId);//,VendInvoiceJour.LedgerVoucher);
printVendGroup = VendInvoiceJour.VendGroup;
printInvoiceDate = VendInvoiceJour.InvoiceDate;
printPurchId = VendInvoiceJour.PurchId;
printInvoiceAccount= VendInvoiceJour.InvoiceAccount;
printName = VendTable::find(VendInvoiceJour.InvoiceAccount).Name;
printTaxItemGroup = PurchLine::find(VendInvoiceJour.PurchId).TaxItemGroup;
printQty = abs(VendInvoiceJour.Qty);

if (VendTable::find(VendInvoiceJour.InvoiceAccount).TIN_IN != "")
{
printTin = VendTable::find(VendInvoiceJour.InvoiceAccount).TIN_IN;

}
else if(VendTable::find(VendInvoiceJour.InvoiceAccount).SalesTaxRegistrationNumber_IN != "")
{
printTin = VendTable::find(VendInvoiceJour.InvoiceAccount).SalesTaxRegistrationNumber_IN;

}

else
{
printTin = 'No data found';
}

printSumTax = abs(VendInvoiceJour.SumTax);
printSalesBalance = abs(VendInvoiceJour.SalesBalance);
printInvoiceAmount = abs(VendInvoiceJour.InvoiceAmount);
printOthers = printInvoiceAmount - (printSalesBalance + printSumTax);

gQty += printQty;
gVolume += printVolume;
gWeight += printWeight;
gSumTax += printSumTax;
gOthers += printOthers;
gSalesBalance += printSalesBalance;
gInvoiceAmount += printInvoiceAmount;

element.execute(1); //For Lines

if (!isData)
isData = true;
}

if (isData)
element.execute(2); //For Totals

if (!isData)
info(strfmt("@SYS58533", element.design().lookupCaption()));
ret = isData && super();

return ret;
}
Post by Rodrigo Hentz
Hi!
I need to create a new register in the VendInvoiceJour table and
VendInvoiceTrans by X++.
Somebody have a simple code that can help me?
thanks.
Submitted via EggHeadCafe
ASP.NET Base64 Image Encoding via the Data: protocol
http://www.eggheadcafe.com/tutorials/aspnet/70f76817-e6d2-415d-8849-849d8c6c5385/aspnet-base64-image-encoding-via-the-data-protocol.aspx
Loading...