Zmiany pomiędzy wersją 24 and wersją 25 dla DeployerGuide/Customization/Forte

Data i czas:

11/08/12 21:27:17 (13 years temu)

Autor:

jachtelik (IP: 195.248.254.194)

Komentarz:

--

DeployerGuide/Customization/Forte

@@ -160 +160 @@
 
 
-Na potrzeby integracji sugeruje się wykorzystać język VBA. Import danych do Forte HM (na przykładzie generowania dokumentu Zamówienia Obcego przedstawiam Poniżej
+Na potrzeby integracji sugeruje się wykorzystać język VBA. Import danych do Forte HM (na przykładzie generowania dokumentu '''Zamówienia Obcego''' przedstawiam poniżej.
+ 1. W systemie Forte Handel uruchamiamy z menu VBA > VBA IDE. Uruchamia się środowisko programowania VBA, w którym utworzymy skrypt integracyjny.
+ 2. Otwieramy UserElement z lewego Panelu >> pokazuje się okno kodu VBA.
+ 3. Wprowadzamy kod VBA skryptu:
+{{{
+Private Sub GenerateZO()
+
+
+' Deklaracje zmiennych
+Dim oFactory As Object
+Dim oRec As Object 'Rekord danych
+Dim nError
+
+Dim sDocumentType As String ' Typ dokumentu
+Dim sDesc As String ' Opis dokumentu
+Dim sClientCode As String 'Nazwa kontrahenta
+Dim sProductCode As String 'Kod produktu
+Dim sQuantity As String ' Ilosc
+Dim sPrice As String ' Cena netto
+
+Dim sPath As String ' ścieżka katalogu z plikami wyeksportowanymi z eDokumentów
+Dim sBkpPath As String  ' ścieżka katalogu, do którego odczytane i przetworzone pliki
+                        ' zostaną przeniesione po zakończonym procesie
+Dim sName As String ' nazwa pliku
+Dim sFileName As String ' kompletna ścieżka do pliku
+Dim iFileNum As Integer ' znacznik pliku do operacji Input, Line Input
+Dim sBuf As String ' Bofor stringu odczytanego z pliku
+Dim iCounter As Integer ' Licznik przebiegu po liniach pliku
+Dim iNumber As Integer ' Licznik przebiegu po liniach pozycji produktu w pliku
+Dim oFileSystem As Object ' Obiekt do operacji na plikach
+
+Set oFileSystem = CreateObject("Scripting.FileSystemObject")
+
+sPath = "C:\Users\ztestowy\dane\"
+sBkpPath = "C:\Users\ztestowy\dane\done\"
+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()
+
+        iCounter = 1 ' Licznik przebiegu po liniach pliku
+        iNumber = 0 ' Licznik przebiegu po pozycjach dokumentu.
+                    ' Dopuszczalne wartości dla jednej pozycji dokumentu to 0-2
+                    ' 0 - symbol produktu
+                    ' 1 - ilość
+                    ' 2 - cena netto
+        Open sFileName For Input As iFileNum
+
+        ' Tworzenie obiektów deklaracji danych
+        Set oFactory = Application.PropertyAp("HFactory")
+        Set oRec = oFactory.NewObject("BIORec") ' Rekord danych, który zostanie wstawiony do systemu
+
+        sDocumentType = "ZMO" ' Typ dokumentu: Zamówienie obce
+        nError = oRec.SetField("typDk", Trim(sDocumentType)) ' Ustawienie typu dokumentu
+
+        Do While Not EOF(iFileNum)
+                        Line Input #iFileNum, sBuf
+                        
+                        Select Case iCounter
+                                Case Is = 1 ' Wywołanie identyfikatora kontrahenta
+                                        
+                                        sClientCode = "" & Trim(sBuf)
+                                        nError = oRec.BeginSection("danekh")
+                                                nError = oRec.SetField("KhKod", Trim(sClientCode))
+                                        nError = oRec.EndSection()
+                                Case Is = 2 ' Opis dokumentu
+                                        sDesc = Trim(sBuf)
+                                        nError = oRec.SetField("opis", Trim(sDesc))
+                                Case Is > 2 ' Pozycje dokumentu
+                                        
+                                        
+                                        Select Case iNumber
+                                                Case Is = 0 ' Kod produktu
+                                                        sProductCode = Trim(sBuf)
+                                                        nError = oRec.BeginSection("Pozycja dokumentu")
+                                                        nError = oRec.SetField("kod", Trim(sProductCode))
+                                                        
+                                                Case Is = 1 ' Ilość
+                                                        sQuantity = Trim(sBuf)
+                                                        nError = oRec.SetField("ilosc", Trim(sQuantity))
+                                                        
+                                                Case Is = 2 ' Cena netto
+                                                        sPrice = Trim(sBuf)
+                                                        nError = oRec.SetField("cena", Trim(sPrice))
+                                                        nError = oRec.EndSection()
+                                   
+                                        End Select
+                                        
+                                        iNumber = iNumber + 1 ' Inkrementacja licznika
+                                        If iNumber > 2 Then
+                                                iNumber = 0 ' Resetowanie wartości licznika
+                                        End If
+                                
+                                
+                        End Select
+                        
+                        iCounter = iCounter + 1
+                        
+            Loop
+
+                Dim oFunction As Object
+                Set oFunction = oFactory.NewObject("BFunkcja")
+                
+                ' Wywołanie generowania dokumentu
+                Dim DocumentID As Long
+                DocumentID = oFunction.ImportZO(oRec) ' GENEROWANIE DOKUMENTU ZAMÓWIENIA OBCEGO
+
+                Close iFileNum ' Zamykanie pliku
+                
+                oFileSystem.MoveFile sFileName, sBkpPath & sName ' Przeniesienie pliku do katalogu bkp
+                
+                sName = Dir()
+Loop
+
+End Sub
+
+}}}
+ 4. Aby wywołać powyższy skrypt dodajemy w tym samym module metodę:
+{{{
+Private Sub MainDoc_TryToOpen(ByVal Category As String, ByVal Group As String, Name As String, ByVal ActionType As AmOpenAction, Cancel As Boolean)
+ 'Procedura ta wykonywana jest w momencie uruchamiania okna bądź raportu
  
+ If Name = "OnTimer" Then GenerateZO
+End Sub
+}}}
+
+W takim przypadku w momencie każdorazowego uruchomienia procedury OnTimer uruchomi się metoda GenerateZO i pliki w katalogu zostaną wczytane do bufora systemu HMF.