דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. הורדת קבלות מאתר איזיקאונט (ezcount)

הורדת קבלות מאתר איזיקאונט (ezcount)

מתוזמן נעוץ נעול הועבר תכנות
13 פוסטים 4 כותבים 716 צפיות 2 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • א ארי

    @חוקר לא.
    אחרי כמה ימים.
    הקבלה קיימת כבר, ואפשר להוריד אותה דרך האתר, אבל אני מחפש API שיעשה את זה.
    תודה.

    מלאמ מנותק
    מלאמ מנותק
    מלא
    כתב ב נערך לאחרונה על ידי
    #4

    @ארי
    יש לך את הקישור לPDF שהם נותנים בעת יצירה?

    אם כן
    אני מוריד קבלות עם הקוד הזה
    זה ההצרה והפונקציה

    Option Compare Database
    Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
        "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
        szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
    
    
    Function DownloadFile(URL As String, LocalFilename As String) As Boolean
        Dim lngRetVal As Long
        lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
        If lngRetVal = 0 Then DownloadFile = True
    End Function
    

    וככה אני מוריד

    Private Sub txtOrginalFileLink_DblClick(Cancel As Integer)
        Dim strPDFLink As String
        Dim strPDFFile As String
        Dim Result As Boolean
        strPDFLink = Me.txtOrginalFileLink
        strPDFFile = CurrentProject.Path & "\חשבוניות\" &  Me.מס_חשבונית & ".pdf"
        Result = DownloadFile(strPDFLink, strPDFFile)
        MsgBox Result
    
    End Sub
    
    
    א תגובה 1 תגובה אחרונה
    2
    • מלאמ מלא

      @ארי
      יש לך את הקישור לPDF שהם נותנים בעת יצירה?

      אם כן
      אני מוריד קבלות עם הקוד הזה
      זה ההצרה והפונקציה

      Option Compare Database
      Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
          "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
          szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
      
      
      Function DownloadFile(URL As String, LocalFilename As String) As Boolean
          Dim lngRetVal As Long
          lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
          If lngRetVal = 0 Then DownloadFile = True
      End Function
      

      וככה אני מוריד

      Private Sub txtOrginalFileLink_DblClick(Cancel As Integer)
          Dim strPDFLink As String
          Dim strPDFFile As String
          Dim Result As Boolean
          strPDFLink = Me.txtOrginalFileLink
          strPDFFile = CurrentProject.Path & "\חשבוניות\" &  Me.מס_חשבונית & ".pdf"
          Result = DownloadFile(strPDFLink, strPDFFile)
          MsgBox Result
      
      End Sub
      
      
      א מנותק
      א מנותק
      ארי
      כתב ב נערך לאחרונה על ידי
      #5

      @מלא את הקוד הזה אני מכיר. תודה.
      אבל יש חלק מהקבלות שהוא מוריד אותם והקובץ הוא בגודל 2KB, מה שאומר שהוא לא באמת מצליח להוריד.

      מלאמ תגובה 1 תגובה אחרונה
      0
      • א ארי

        @מלא את הקוד הזה אני מכיר. תודה.
        אבל יש חלק מהקבלות שהוא מוריד אותם והקובץ הוא בגודל 2KB, מה שאומר שהוא לא באמת מצליח להוריד.

        מלאמ מנותק
        מלאמ מנותק
        מלא
        כתב ב נערך לאחרונה על ידי
        #6

        @ארי
        אני מוריד איתו מסמכים לאורך זמן ולא ידוע לי על שום בעיה איתו.
        הורדתי איתו מאות ואולי אלפי מסמכים

        בדקת את הקישור של הקבצים האלה שבגישה ישירה הם נותנים לך מסמך תקין?
        אולי זה בעיה בקישור

        א תגובה 1 תגובה אחרונה
        0
        • מלאמ מלא

          @ארי
          אני מוריד איתו מסמכים לאורך זמן ולא ידוע לי על שום בעיה איתו.
          הורדתי איתו מאות ואולי אלפי מסמכים

          בדקת את הקישור של הקבצים האלה שבגישה ישירה הם נותנים לך מסמך תקין?
          אולי זה בעיה בקישור

          א מנותק
          א מנותק
          ארי
          כתב ב נערך לאחרונה על ידי ארי
          #7

          @מלא מוזר.
          כי הקישורים עובדים לי, וכשניסיתי להריץ אותו על איזה 70 קבלות בערך חצי מהם הוא לא הוריד.

          א תגובה 1 תגובה אחרונה
          0
          • א ארי

            @מלא מוזר.
            כי הקישורים עובדים לי, וכשניסיתי להריץ אותו על איזה 70 קבלות בערך חצי מהם הוא לא הוריד.

            א מנותק
            א מנותק
            ארי
            כתב ב נערך לאחרונה על ידי ארי
            #8

            @מלא יש לך דוגמא של קישור לתת לי?
            לא משהו אמיתי רק אני רוצה לראות עם איזה סוג קישור אתה משתמש.
            תודה.

            מלאמ תגובה 1 תגובה אחרונה
            0
            • א ארי

              @מלא יש לך דוגמא של קישור לתת לי?
              לא משהו אמיתי רק אני רוצה לראות עם איזה סוג קישור אתה משתמש.
              תודה.

              מלאמ מנותק
              מלאמ מנותק
              מלא
              כתב ב נערך לאחרונה על ידי
              #9

              @ארי כתב בהורדת קבלות מאתר איזיקאונט (ezcount):

              דוגמא של קישור

              https://files.ezcount.co.il/front/documents/get/00e96269-f39e-407a-8d64-f8***9a0

              צבי-שצ תגובה 1 תגובה אחרונה
              1
              • מלאמ מלא

                @ארי כתב בהורדת קבלות מאתר איזיקאונט (ezcount):

                דוגמא של קישור

                https://files.ezcount.co.il/front/documents/get/00e96269-f39e-407a-8d64-f8***9a0

                צבי-שצ מחובר
                צבי-שצ מחובר
                צבי-ש
                כתב ב נערך לאחרונה על ידי
                #10
                פוסט זה נמחק!
                תגובה 1 תגובה אחרונה
                0
                • א מנותק
                  א מנותק
                  ארי
                  כתב ב נערך לאחרונה על ידי
                  #11

                  @מלא עובד לי!
                  ממש תודה!

                  מלאמ תגובה 1 תגובה אחרונה
                  0
                  • א ארי

                    @מלא עובד לי!
                    ממש תודה!

                    מלאמ מנותק
                    מלאמ מנותק
                    מלא
                    כתב ב נערך לאחרונה על ידי מלא
                    #12

                    @ארי
                    מה היתה התקלה? סתם בשביל הסקרנות, ואולי גם ללימוד....

                    א תגובה 1 תגובה אחרונה
                    1
                    • מלאמ מלא

                      @ארי
                      מה היתה התקלה? סתם בשביל הסקרנות, ואולי גם ללימוד....

                      א מנותק
                      א מנותק
                      ארי
                      כתב ב נערך לאחרונה על ידי
                      #13

                      @מלא הבעיה הייתה שניסיתי להיות יותר מדי חכם...
                      ניסיתי לכתוב קוד שמוצא את המיקום האמיתי של הקבלה בשרת של אמזון, ומשם להוריד.
                      בסוף הקוד שלך עבד מצוין.
                      תודה על העזרה.

                      תגובה 1 תגובה אחרונה
                      2
                      תגובה
                      • תגובה כנושא
                      התחברו כדי לפרסם תגובה
                      • מהישן לחדש
                      • מהחדש לישן
                      • הכי הרבה הצבעות


                      בא תתחבר לדף היומי!
                      • התחברות

                      • אין לך חשבון עדיין? הרשמה

                      • התחברו או הירשמו כדי לחפש.
                      • פוסט ראשון
                        פוסט אחרון
                      0
                      • דף הבית
                      • קטגוריות
                      • פוסטים אחרונים
                      • משתמשים
                      • חיפוש
                      • חוקי הפורום