Ðåêîìåíäàöèè ïî ñîçäàíèþ ðåøåíèé íà áàçå DocsVision 3.1
rstÏîÀÎ![Íàë]
rstÏîÀÎ![Ñóììà] = ÖåíàÑîï * 1.2
rstÏîÀÎ![Íàë] = Íàë
ÄàòàTMP = Format(ÄÀÒÀÏÌÏ, "m yy")
rstÏîÀÎ![Ìåñÿö] = ÄàòàTMP
ÄàòàTMP = ÄàòàTMP + 32
ÄÀÒÀÏÌÏ = ÄàòàTMP
rstÏîÀÎ.Update
Next k
Else
ÐàçíèöàÄàò = (CDate(Format(ÄàòàStore, "m yy")) - CDate(Format(ÄàòàÏÌÑ, "m yy"))) / 100
rst.AddNew
rst![ÊîäÇàêàç÷èêà] = Forms![Ïðîñìîòð]![ÊîäÇàêàç÷èêà]
rst![ÊîäÑ÷åòà] = Forms![Ïðîñìîòð]![ÎñíîâíûåÑ÷åòà].Form![ÊîäÑ÷åòà]
rst![ÊîäÑèñòåìû] = rstÏîC÷åòó![ÊîäÑèñòåìû]
rst![ÄàòàÏÌÑ] = ÄàòàTMP2
rst![Êîëè÷åñòâîÌÑ] = rstÏîC÷åòó![Êîëè÷åñòâîÌ]
rst![Íàë] = Íàë
rst.Update
rst.MoveLast
rstÏîÀÎ.AddNew
rstÏîÀÎ![ÈäåíòÊîä] = rst![Êîä]
ÖåíàÑîï = rstÏîC÷åòó![Ñîïðîâîæäåíèå] / rstÏîC÷åòó![Êîëè÷åñòâîÌ]
rstÏîÀÎ![Ñóììà] = ÖåíàÑîï * 1.2 * CInt(ÐàçíèöàÄàò)
rstÏîÀÎ![Íàë] = Íàë
ÄàòàTMP = Format(Äàòà, "m yy")
rstÏîÀÎ![Ìåñÿö] = ÄàòàTMP
ÄàòàTMP = ÄàòàTMP + 32
Äàòà = ÄàòàTMP
rstÏîÀÎ.Update
m = rstÏîC÷åòó![Êîëè÷åñòâîÌ]
For k = 1 To m - CInt(ÐàçíèöàÄàò)
rstÏîÀÎ.AddNew
rstÏîÀÎ![ÈäåíòÊîä] = rst![Êîä]
ÖåíàÑîï = rstÏîC÷åòó![Ñîïðîâîæäåíèå] / m
rstÏîÀÎ![Ñóììà] = ÖåíàÑîï * 1.2
rstÏîÀÎ![Íàë] = Íàë
ÄàòàTMP = Format(Äàòà, "m yy")
rstÏîÀÎ![Ìåñÿö] = ÄàòàTMP
ÄàòàTMP = ÄàòàTMP + 32
Äàòà = ÄàòàTMP
rstÏîÀÎ.Update
Next k
End If
Else
'ÄËß ÏÅÐÂÈ×ÍÎÉ ÏÎÊÓÏÊÈ
Äàòà = ÄàòàStore
If rstÏîC÷åòó![Öåíà] <> 0 Then
rst.AddNew
rst![ÊîäÇàêàç÷èêà] = Forms![Ïðîñìîòð]![ÊîäÇàêàç÷èêà]
rst![ÊîäÑ÷åòà] = Forms![Ïðîñìîòð]![ÎñíîâíûåÑ÷åòà].Form![ÊîäÑ÷åòà]
rst![ÊîäÑèñòåìû] = rstÏîC÷åòó![ÊîäÑèñòåìû]
rst![ÄàòàÏÌÑ] = Äàòà
