The daily spammage topic

[Diao Chan]

[Xiahou Hui]

Look at that , that motherfucker is doing magic.

[Cao Cao]

another one!

[Wei Yan]

Did you censor out ?

[Wei Yan]

Nice!

[maloki]

Great. I'll do no more requests then. Like ever. About anything.

[Zhao Cen]

With this new filter I am not sure if I can afford to post or read stuff here on there forum while on the phone with a customer. Last time I had a hard time trying not to laugh in the customers face

[Diao Chan]

Hehe  yeah it's quite a stupid filter. How did it get here in the first place.

And wow.. We actually have sun today.

[Diao Chan]

Btw; what's wrong with you people?  we need moar S P A M

[Zhao Cen]

Btw; what's wrong with you people?  we need moar S P A M

Here you go

I hope that is enough

[Zhao Cen]

So much to do at work today I have been considering taking a nap for the past half hour. Instead I have been surfing the web all day.. Now 1,5hours until the weekend starts.

[Cao Cao]

Code: [Select]

Set objVendorFind = oBAPICtrl.Add("BAPI_VENDOR_FIND")
         objVendorFind.exports("MAX_CNT") = "2"
         objVendorFind.exports("PL_HOLD") = " "
         Set obTblVendor = objVendorFind.Tables("SELOPT_TAB")
         obTblVendor.FreeTable
         obTblVendor.Rows.Add
         obTblVendor.Value(1, "COMP_CODE") = Values(0)
         obTblVendor.Value(1, "TABNAME") = "LFA1"
         obTblVendor.Value(1, "FIELDNAME") = "STCEG"
         obTblVendor.Value(1, "FIELDVALUE") = Values(4) 

         If objVendorFind.Call Then
            iVendorCount = 1
            Set objTable = objVendorFind.Tables("RESULT_TAB")
            If objTable.Rows.Count > 0 Then
               If objTable.Rows(1).Value("VENDOR_NO") <> "" Then
                  Set objVendorDetail = oBAPICtrl.Add("ISIDE_CE_VENDOR_READ")
                  Do
                     If Values(2) <> "" And iVendorCount = 1 Then
                        objVendorDetail.exports("IF_LIFNR") = Values(2)
                        Values(2) = ""
                     Else
                        objVendorDetail.exports("IF_LIFNR") = objTable.Rows(iVendorCount).Value("VENDOR_NO")
                     End If
                     objVendorDetail.exports("IF_BUKRS") = Values(0)
                     If objVendorDetail.Call Then
                           Values(1) = objVendorDetail.imports.Item("ES_LFA1").Value("NAME1") 

                        If (LCase(Left(Values(1),2)) <> "xx") Then
                           If Values(2) = "" Then
                              Values(2) = objVendorDetail.imports.Item("ES_LFA1").Value("LIFNR")
                           Else
                              Values(2) = Values(2) & ";"
                              Values(2) = Values(2) & objVendorDetail.imports.Item("ES_LFA1").Value("LIFNR")
                           End If
                        End If
                        If InStr(Values(2),";") Then
                           Values(6) = "Meerdere crediteuren gevonden met dit BTW-nummer."
                        End If
                     End If
                     GetDetailSAP = True
                     iVendorCount = iVendorCount + 1
                  Loop Until (iVendorCount > objTable.Rows.Count)
               Else
                  Values(6) = "Er is een crediteur gevonden zonder crediteurnummer."
               End If
            Else
                Values(6) = "Er is geen crediteur gevonden met dit BTW-nummer."
            End If
         Else
            Values(6) = "Er is een fout opgetreden."
         End If

[Xiahou Yuan]

Silly crediteuren, and their BTW-numbers.

[maloki]

MORE FOOD

[Lad Emixam]

new home <3