Skip to content

Latest commit

 

History

History
108 lines (72 loc) · 6.22 KB

FIN0204.md

File metadata and controls

108 lines (72 loc) · 6.22 KB
Raw
erp.entity erp.type
Logistics.Procurement.PurchaseInvoices
generation

FIN0204 Create VAT sales ledger entries

Basic Information

Module Logistics.Procurement
Code FIN0204
Parent Document PurchaseInvoices
Sub-document VAT.Entries
Full Name Create VAT sales ledger entries
Status ACTIVE
Deterministic YES
Supports Transitional Documents NO
Replaces GenerateSalesEntry; GenerateSalesEntrySkipNote
Orphan Rows Forbid
Split Function PurchaseInvoiceLine.SaleLineDealTypes
Introduced In Version 2022
Date of Suspension -

Business Logic

The generation is used for creating sales VAT entries from Purchase Invoices. These records contain VAT Amount and VAT Base Amount from current Purchase Invoice and are used for collecting data for the creating of the VAT Declaration for the reporting period.

Different lines in the Purchase Invoice may have different Sale Line Deal Types. For each of these Sale Line Deal Types have to be created a separate VAT Entry. Therefore, at the beginning of the generation procedure, the lines of the purchase invoice have to be divided into sets by their Sale Line Deal Type.

For each set of lines is calculated the sum of the distributed VAT amounts. The algorithm of this calculation is described below:
Тo make the algorithm more understandable, we will introduce several auxiliary variables. The values of these variables will be used in the descriptions of the Metrics and the creation of the new document.

VATSaleDealType = the SaleLineDealType of the current set of purchase invoice lines

VATDocumentAmountType = PurchaseInvoices.EnterpriseCompany.VATDocumentAmountType
 
VATDocumentAmountCurrency = IIF(PurchaseInvoicesDocumentAmounts.InputAmountCurrency is not Null, PurchaseInvoice.DocumentAmounts.InputAmountCurrency Where PurchaseInvoices.DocumentAmounts.DocumentAmountType = VATDocumentAmountType, PurchaseInvoices.DocumentCurrency)

SaleDealTypeAmount = SUM (PurchaseInvoices.DocumentDistributedAmount/Amount) WHERE DocumentLineId = PurchaseInvoiceLine DocumentAmountType=VATDocumentAmountType Group By SaleLineDealType

SaleDealTypeBaseAmount = SUM (PurchaseInvoice.DocumentDistributedAmount/BaseAmount) WHERE DocumentLineId = PurchaseInvoiceLine DocumentAmountType=VATDocumentAmountType Group By SaleLineDealType

VATSaleDealType = PurchaseInvoiceLine.LineDealType Group By SaleLineDealType - it is same which is used for grouping in SaleDealTypeAmount and SaleDealTypeBaseAmount.

The Document table attributes are filled in as described in Standard Document Attributes.

Fulfillments

Name InvoiceLineToVATEnrty
Parent Entity PurchaseInvoiceLine
Child Entity VAT.Entry
Parent / Child Relations Entry.ParentDocument = PurchaseInvoice; Entry.DealType = DealType; Entry.RegistrationVATNumber = PurchaseInvoice.Supplier.RegistrationVATNumber, Entry.RegistrationNumber = PurchaseInvoice.Supplier.RegistrationNumber, VATEntry.ApplyDate = PurchaseInvoice.ApplyDate

Metrics

Fulfillment Name Metric Name Measurement Unit Parent Value Child Value New Record
PurchaseInvoiceLineToVATEnrty AmountBase VATDocumentAmountCurrency SaleDealTypeBaseAmount Entry.AmountBase YES
PurchaseInvoiceLineToVATEnrty VATAmountBase VATDocumentAmountCurrency SaleDealTypeAmount Entry.VATAmountBase YES 

Entry.DocumentDate = PurchaseInvoice.DocumentDate

Entry.EntryType = Sales

Entry.DealType = VATSaleDealType

Entry.Party = PurchaseInvoice.Supplier.Party

If Invoice.Supplier.Party.PartyType = Company then Entry.RegistrationVATNumber = PurchaseInvoice.Supplier.RegistrationVATNumber

if (PurchaseInvoice.Supplier.RegistrationNumber.HasValue and PurchaseInvoice.Supplier.Party.PartyType = Company) then
    Entry.RegistrationNumber = PurchaseInvoice.Supplier.RegistrationNumber

if PurchaseInvoice.Supplier.Party.PartyType = Person   then Entry.RegistrationNumber   = PurchaseInvoice.Supplier.Party.Person.NationalNumber

Entry.ReferencedDocumentNo = 
    if PurchaseInvoice.ReferenceDocumentNo.HasValue then
        PurchaseInvoice.ReferenceDocumentNo
    else PurchaseInvoice.DocumentNo

Entry.ReferenceDate = 
    If PurchaseInvoice.ReferenceDate.HasValue then
        PurchaseInvoice.ReferenceDate 
    else PurchaseInvoice.DocumentDate

Entry.AmountBase = CONVERT( Remaining(AmountBase), BaseCurrency)

Entry.VATAmountBase = CONVERT( Remaining(VATAmountBase), BaseCurrency)

Entry.ApplyDate = PurchaseInvoice.ApplyDate

Entry.CashReportingMode = PurchaseInvoice.VATCashReportingMode

if Invoice.VATNotes.HasValue then
    VATEntry.Notes = PurchaseInvoice.VATNotes
    Else If  Entry.EnterpriseCompany is Bulgaria then VATEntry.Notes = "Самоначисляване на ДДС."

Note

RegistrationVATNumber, RegistrationNumber And VATNotes can be null if there is no value for them.