Разработка системы “Создание Платёжных Поручений»

Страница 9

Worksheets("Лист1").Range("G4") = Format(Дата, "d mmmm yyyy")

Worksheets("Лист1").Range("L19") = ДатаУслуг

Worksheets("Лист1").Range("V19") = ВидОперации

Worksheets("Лист1").Range("B22") = НазначПлатежа1

Worksheets("Лист1").Range("O2") = НомерПл

Worksheets("Лист1").Range("V20") = НомНазПл

МестоПечати 'Функция работающая с параметрами места печати в платёжке

Worksheets("Лист1").Range("C27") = МП1

End Function

Private Function МестоПечати() As String

If МП = True Then

МП1 = "М/П"

ElseIf БП = True Then

МП1 = "Б/П"

ElseIf БезПечати = True Then

МП1 = ""

End If

End Function

Private Function МестоПечати1() As String

If Worksheets(№ПЛ).Range("M" & Счётчик) = "М/П" Then

МП = True

ElseIf Worksheets(№ПЛ).Range("M" & Счётчик) = "Б/П" Then

БП = True

ElseIf Worksheets(№ПЛ).Range("M" & Счётчик) = "" Then

БезПечати = True

End If

End Function