-
Notifications
You must be signed in to change notification settings - Fork 106
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
25 changed files
with
3,038 additions
and
76 deletions.
There are no files selected for viewing
Large diffs are not rendered by default.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,216 @@ | ||
|
|
||
| &AtServer | ||
| Procedure OnCreateAtServer(Cancel, StandardProcessing) | ||
| ThisObject.RegisterName = Parameters.RegisterName; | ||
| ThisObject.DocRef = Parameters.Ref; | ||
| ThisObject.Company = Parameters.Company; | ||
| ThisObject.Branch = Parameters.Branch; | ||
| ThisObject.Currency = Parameters.Currency; | ||
| For Each Row In Parameters.SelectedDocuments Do | ||
| NewRow = ThisObject.SelectedDocuments.Add(); | ||
| NewRow.Document = Row; | ||
| EndDo; | ||
|
|
||
| For Each Row In Parameters.AllowedTypes Do | ||
| NewRow = ThisObject.AllowedTypes.Add(); | ||
| NewRow.Type = Row; | ||
| EndDo; | ||
| FillTable(); | ||
| EndProcedure | ||
|
|
||
| &AtClient | ||
| Procedure FilterPartnerOnChange(Item) | ||
| FillTable(); | ||
| EndProcedure | ||
|
|
||
| &AtServer | ||
| Procedure FillTable() | ||
| Query = New Query(); | ||
| Query.Text = | ||
| "SELECT ALLOWED | ||
| | TransactionsBalance.Basis AS Document, | ||
| | TransactionsBalance.Basis.Partner AS Partner, | ||
| | TransactionsBalance.Basis.Agreement AS Agreement, | ||
| | TransactionsBalance.AmountBalance AS Amount, | ||
| | TransactionsBalance.Order, | ||
| | TransactionsBalance.Project, | ||
| | TransactionsBalance.Basis.LegalName AS LegalName, | ||
| | TransactionsBalance.Basis.LegalNameContract AS LegalNameContract, | ||
| | TransactionsBalance.Basis.Date AS DocDate | ||
| |FROM | ||
| | AccumulationRegister.R1021B_VendorsTransactions.Balance(&Boundary, Company = &Company | ||
| | AND Branch = &Branch | ||
| | AND Currency = &Currency | ||
| | AND CurrencyMovementType = VALUE(ChartOfCharacteristicTypes.CurrencyMovementType.SettlementCurrency) | ||
| | AND VALUETYPE(Basis) IN (&AllowedTypes) | ||
| | AND CASE | ||
| | WHEN &Filter_Partner | ||
| | THEN Partner = &Partner | ||
| | ELSE TRUE | ||
| | END) AS TransactionsBalance | ||
| |WHERE | ||
| | TransactionsBalance.AmountBalance > 0 | ||
| | AND NOT TransactionsBalance.Basis.Ref IS NULL | ||
| | AND NOT TransactionsBalance.Basis IN (&SelectedDocuments) | ||
| | | ||
| |ORDER BY | ||
| | TransactionsBalance.Basis.Date"; | ||
|
|
||
| Query.Text = StrReplace(Query.Text, "R1021B_VendorsTransactions", ThisObject.RegisterName); | ||
|
|
||
| If ValueIsFilled(ThisObject.DocRef) Then | ||
| Query.SetParameter("Boundary", New Boundary(ThisObject.DocRef.PointInTime(), BoundaryType.Excluding)); | ||
| Else | ||
| Query.SetParameter("Boundary", CommonFunctionsServer.GetCurrentSessionDate()); | ||
| EndIf; | ||
|
|
||
| ArrayOfAllowedTypes = New Array(); | ||
| For Each Row In ThisObject.AllowedTypes Do | ||
| ArrayOfAllowedTypes.Add(Row.Type); | ||
| EndDo; | ||
|
|
||
| ArrayOfSelectedDocuments = New Array(); | ||
| For Each Row In ThisObject.SelectedDocuments Do | ||
| ArrayOfSelectedDocuments.Add(Row.Document); | ||
| EndDo; | ||
|
|
||
| Query.SetParameter("Company" , ThisObject.Company); | ||
| Query.SetParameter("Branch" , ThisObject.Branch); | ||
| Query.SetParameter("Currency" , ThisObject.Currency); | ||
| Query.SetParameter("AllowedTypes" , ArrayOfAllowedTypes); | ||
| Query.SetParameter("SelectedDocuments" , ArrayOfSelectedDocuments); | ||
| Query.SetParameter("Filter_Partner" , ValueIsFilled(ThisObject.FilterPartner)); | ||
| Query.SetParameter("Partner" , ThisObject.FilterPartner); | ||
|
|
||
| QueryResult = Query.Execute(); | ||
| ThisObject.Documents.Load(QueryResult.Unload()); | ||
| For Each Row In ThisObject.Documents Do | ||
| Row.RowKey = String(New UUID()); | ||
| EndDo; | ||
| EndProcedure | ||
|
|
||
| &AtClient | ||
| Procedure Ok(Command) | ||
| If Not CheckFilling() Then | ||
| Return; | ||
| EndIf; | ||
|
|
||
| Result = CalculateRows(); | ||
| Close(Result); | ||
| EndProcedure | ||
|
|
||
| &AtClient | ||
| Procedure Calculate(Command) | ||
| CalculateRows(); | ||
| EndProcedure | ||
|
|
||
| &AtClient | ||
| Function CalculateRows() | ||
| For Each Row In ThisObject.Documents Do | ||
| Row.Payment = 0; | ||
| EndDo; | ||
|
|
||
| ArrayOfRows = New Array(); | ||
|
|
||
| If Items.Documents.SelectedRows.Count() > 1 Then | ||
| For Each SelectedRow In Items.Documents.SelectedRows Do | ||
| NewRow = GetEmptyRowTable(); | ||
| FillPropertyValues(NewRow, ThisObject.Documents.FindByID(SelectedRow)); | ||
| ArrayOfRows.Add(NewRow); | ||
| EndDo; | ||
| Else | ||
| For Each Row In ThisObject.Documents Do | ||
| NewRow = GetEmptyRowTable(); | ||
| FillPropertyValues(NewRow, Row); | ||
| ArrayOfRows.Add(NewRow); | ||
| EndDo; | ||
| EndIf; | ||
|
|
||
| ArrayOfRows = SortRowsByDate(ArrayOfRows); | ||
|
|
||
| Result = New Array(); | ||
|
|
||
| _Amount = ThisObject.Amount; | ||
| For Each Row In ArrayOfRows Do | ||
| If Not ValueIsFilled(_Amount) Then | ||
| Break; | ||
| EndIf; | ||
|
|
||
| Row.Payment = Min(_Amount, Row.Amount); | ||
| _Amount = _Amount - Row.Payment; | ||
| ResultRow = GetEmptyRowTable(); | ||
|
|
||
| FillPropertyValues(ResultRow, Row); | ||
|
|
||
| ResultRow.Insert("TotalAmount", Row.Payment); | ||
| ResultRow.Insert("BasisDocument", Row.Document); | ||
| ResultRow.Insert("Payee", Row.LegalName); | ||
| ResultRow.Insert("Payer", Row.LegalName); | ||
|
|
||
|
|
||
| Result.Add(ResultRow); | ||
|
|
||
| DocumentsRows = ThisObject.Documents.FindRows(New Structure("RowKey", Row.RowKey)); | ||
| For Each DocumentRow In DocumentsRows Do | ||
| DocumentRow.Payment = Row.Payment; | ||
| EndDo; | ||
|
|
||
| EndDo; | ||
|
|
||
| Return Result; | ||
| EndFunction | ||
|
|
||
| &AtClientAtServerNoContext | ||
| Function GetEmptyRowTable() | ||
| EmptyRow = New Structure(); | ||
| EmptyRow.Insert("Agreement"); | ||
| EmptyRow.Insert("Amount"); | ||
| EmptyRow.Insert("DocDate"); | ||
| EmptyRow.Insert("Document"); | ||
| EmptyRow.Insert("LegalName"); | ||
| EmptyRow.Insert("LegalNameContract"); | ||
| EmptyRow.Insert("Order"); | ||
| EmptyRow.Insert("Partner"); | ||
| EmptyRow.Insert("Payment"); | ||
| EmptyRow.Insert("Project"); | ||
| EmptyRow.Insert("RowKey"); | ||
| Return EmptyRow; | ||
| EndFunction | ||
|
|
||
| &AtServer | ||
| Function SortRowsByDate(ArrayOfRows) | ||
| EmptyTable = ThisObject.Documents.Unload().CopyColumns(); | ||
| For Each Row In ArrayOfRows Do | ||
| FillPropertyValues(EmptyTable.Add(), Row); | ||
| EndDo; | ||
|
|
||
| EmptyTable.Sort("DocDate"); | ||
|
|
||
| NewArrayOfRows = New Array(); | ||
|
|
||
| For Each Row In EmptyTable Do | ||
| NewRow = GetEmptyRowTable(); | ||
| FillPropertyValues(NewRow, Row); | ||
| NewArrayOfRows.Add(NewRow); | ||
| EndDo; | ||
|
|
||
| Return NewArrayOfRows; | ||
| EndFunction | ||
|
|
||
| &AtClient | ||
| Procedure Cancel(Command) | ||
| Close(); | ||
| EndProcedure | ||
|
|
||
| &AtClient | ||
| Procedure DocumentsBeforeAddRow(Item, Cancel, Clone, Parent, IsFolder, Parameter) | ||
| Cancel = True; | ||
| EndProcedure | ||
|
|
||
| &AtClient | ||
| Procedure DocumentsBeforeDeleteRow(Item, Cancel) | ||
| Cancel = True; | ||
| EndProcedure | ||
|
|
||
|
|
||
|
|
18 changes: 18 additions & 0 deletions
18
IRP/src/CommonForms/PaymentByDocuments/PaymentByDocuments.mdo
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,18 @@ | ||
| <?xml version="1.0" encoding="UTF-8"?> | ||
| <mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="daeb6ec7-41e4-4980-bd89-da490a86b054"> | ||
| <name>PaymentByDocuments</name> | ||
| <synonym> | ||
| <key>en</key> | ||
| <value>Payment by documents</value> | ||
| </synonym> | ||
| <synonym> | ||
| <key>ru</key> | ||
| <value>Оплата по документам</value> | ||
| </synonym> | ||
| <synonym> | ||
| <key>tr</key> | ||
| <value>Payment by documents</value> | ||
| </synonym> | ||
| <usePurposes>PersonalComputer</usePurposes> | ||
| <usePurposes>MobileDevice</usePurposes> | ||
| </mdclass:CommonForm> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.