Ðåêîìåíäàöèè ïî ñîçäàíèþ ðåøåíèé íà áàçå 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![ÄàòàÏÌÑ] = Äàòà


Ñîäåðæàíèå  Íàçàä  Âïåðåä