Zmiany pomiędzy wersją 9 and wersją 10 dla DeployerGuide/Customization/Forte/ForteOnTimer

Data i czas:

11/15/12 08:28:01 (12 years temu)

Autor:

jachtelik (IP: 213.227.67.33)

Komentarz:

--

DeployerGuide/Customization/Forte/ForteOnTimer

@@ -41 +41 @@
 {{{
 #!text/x-vba
+Private Sub Document_Close(ByVal EvType As AmEventState, Cancel As Boolean)
+    Element.CloseDoc (True)
+    
+End Sub
+        
+Private Sub CloseDocument()
+        Element.CloseDoc (True)
+End Sub
+
+Private Sub Document_Open()
+    Element.Visible = False
+        GenerateZO
+    CloseDocument
+End Sub
+
+
+
+
 Private Sub GenerateZO()
-
-
 ' Deklaracje zmiennych
 Dim oFactory As Object
@@ -69 +85 @@
 Set oFileSystem = CreateObject("Scripting.FileSystemObject")
 
-sPath = "C:\Users\ztestowy\dane\"
-sBkpPath = "C:\Users\ztestowy\dane\done\"
+sPath = "C:\eDokumentyXML\export\ZO\"
+sBkpPath = "C:\eDokumentyXML\export\ZO\sent\"
 sName = Dir$(sPath & "*.txt") ' Pobranie listy plików w katalogu
 
 Do While sName <> "" ' Jeżeli/dopóki istnieją pliki w katalogu to wykonaj dalsze operacje
         sFileName = sPath & sName ' Ustawienie pełnej ścieżki dokumentu
-        
         iFileNum = FreeFile()
 
@@ -88 +103 @@
         ' Tworzenie obiektów deklaracji danych
         Set oFactory = Application.PropertyAp("HFactory")
-        Set oRec = oFactory.NewObject("BIORec") ' Rekord danych, który zostanie wstawiony do systemu
+                ' Rekord danych, który zostanie wstawiony do systemu
+        Set oRec = oFactory.NewObject("BIORec") 
 
         sDocumentType = "ZMO" ' Typ dokumentu: Zamówienie obce
@@ -144 +160 @@
                 Dim DocumentID As Long
                 DocumentID = oFunction.ImportZO(oRec) ' GENEROWANIE DOKUMENTU ZAMÓWIENIA OBCEGO
-
-                Close iFileNum ' Zamykanie pliku
+                                Close iFileNum ' Zamykanie pliku
                 
                 oFileSystem.MoveFile sFileName, sBkpPath & sName ' Przeniesienie pliku do katalogu bkp