PDF Çeviricileri

Select fatura

Locate For Id=FATURAcursor.Id

If Found()

    If fatura.kackereyaz>0

        Messagebox(Alltrim(Str(fatura.kackereyaz))+' defa yazdırıldı veya e-mail gönderildi.')

    Endif

    Replace fatura.kackereyaz With fatura.kackereyaz+1

    =Tableupdate(.F.,.T.,'fatura')

    Select cari

    Locate For cari.mkod=fatura.mkod

    If Found()

        Local LCSAYAC

        LCSAYAC=1

        Select faturasatir

        Go Top

        Do While .Not. Eof()

            If faturasatir.Id=fatura.Id

                If LCSAYAC % 12= 0

                    Replace sayfano With Int(LCSAYAC  / 12)

                Else

                    Replace sayfano With Int(LCSAYAC  / 12) + 1

                Endif

                LCSAYAC  = LCSAYAC  + 1

            Endif

            Select faturasatir

            Skip

        Enddo

    Else

        Wait Window 'Faturaya ait Cari Bulunamadı.' Nowa

        Return=.T.

    Endif

Endif

Local loObj, tcExportName

tcExportName='pdfreports\'+'Invoice_'+Alltrim(Str(fatura.inv_no))+'.pdf'

loObj    = Evaluate([XFRX("XFRX#LISTENER")])

lnRetVal = loObj.setparams(m.tcExportName,,.F.,,,,'pdf')

If lnRetVal = 0

    Wait Window (Str(fatura.Id)+' Nolu Fatura Oluşturuluyor...') Nowa

    Select fatura

    Locate For fatura.Id=FATURAcursor.Id

    If Found()

        Select cari

        Locate For cari.mkod=fatura.mkod

        If Found()

            Select faturasatir

            Public odemesekli

            If fatura.odemevadesi=1

                m.odemesekli='Payment Terms: Pre Payment'

            Endif

            If fatura.odemevadesi=2

                m.odemesekli='Payment Terms: 10 Days net after invoice date'

            Endif

            If fatura.odemevadesi=3

                m.odemesekli='Payment Terms: 20 Days net after invoice date'

            Endif

            If fatura.odemevadesi=4

                m.odemesekli='Payment Terms: 30 Days net after invoice date'

            Endif

            If fatura.odemevadesi=5

                m.odemesekli="Payment Terms: 30 Days net after invoice date, 3% Payment Discount within 10 days after invoice date"

            Endif

            If Empty(fatura.odemevadesi)

                m.odemesekli='Payment Terms:'

            Endif

            Report Form Reports\invoice Object loObj For faturasatir.Id=fatura.Id Nopageeject

            Release odemesekli

        Else

            Wait Window 'Fatura Bulunamadı.'

            Return=.T.

        Endif

    Else

        Wait Window 'Plan Bulunamadı.'

        Return=.T.

    Endif

    Select Id,ord_no From faturasatir Where faturasatir.Id=FATURAcursor.Id Into Cursor orders

    Select orders

    Go Top

    Scan

        Select plan

        Locate For plan.sip_no=orders.ord_no

        If Found()

            Select plan

            If Found()

                Select cari

                Locate For cari.mkod=plan.mustrkod

                If Found()

                    Select sonkul

                    Locate For sonkul.no=plan.sonkkod

                    If Found()

                        Wait Window (plan.sip_no+' Oluşturuluyor...') Nowa

                        Select plansatir

                        Report Form Reports\Enclosure Object loObj For plansatir.Id=plan.Id Nopageeject

                    Else

                        Wait Window 'Faturaya ait End User Bulunamadı.'

                    Endif

                Else

                    Wait Window 'Faturaya ait Cari Bulunamadı.'

                Endif

            Else

                Wait Window 'Plan Bulunamadı.'

            Endif

        Else

            Wait Window 'Faturadaki order Plan da Bulunamadı.'

        Endif

        Select orders

    Endscan

Endif

loObj.finalize()

loObj = .Null.

m.kimee=Iif(Empty(Alltrim(cari.email)),'Noname',Alltrim(cari.email))

m.konuu='Invoice_'+Alltrim(Str(fatura.inv_no))

m.aciklamaa=' '

m.ekdosya=Sys(5)+Curdir()+tcExportName

#Define olAppointmentItem 1

#Define olTaskItem 3

#Define CR Chr(13)

If Vartype(oOutlook) <> "O"

    Release oOutlook

    oOutlook = Createobject("Outlook.Application")

Endif

oNameSpace = oOutlook.GetNameSpace("MAPI")

oExplorer = oOutlook.Explorers.Add(oNameSpace.Folders[1],0)

oMailItem = oOutlook.CreateItem( 0 )

oMailItem.Subject = m.konuu

oMailItem.Recipients.Add(m.kimee)

oMailItem.BODY = m.aciklamaa

oMailItem.Attachments.Add(m.ekdosya)

oMailItem.Save()

Release oOutlook

Wait Window 'Successfull' Nowa