Help Script

Augusto Silva

Hi all,

I want to do something like this in a field in Coresuite Designer but i don´t now how to do it.
The Query can return more than one DocNum.
The result is "Document nº, 12345, 45678, 78890"
Any help will be appreciated

Best regards,
Augusto Silva

       Dim conta As Integer
        Dim texto As String = "Document nº "  
        Dim DocNum As Integer

        Dim dt As SAPbobsCOM.Recordset = SBO_Company.GetBusinessObject(BoObjectTypes.BoRecordset)

        'Ler dados da base de dados - do Query

        dt.DoQuery("Select  T3.DocNum FROM Ordr T1 Inner join Dpi1 t2 on T2.BaseEntry = T1.DocEntry inner join Odpi T3 on T2.DocEntry = T3.DocEntry Where T1.DocNum = '2008101421'")

        Dim Max As Integer = dt.RecordCount

        'Ver se algum valor foi retornado
        If Max > 0 Then
            For conta = 0 To Max - 1
                Try

                    DocNum = dt.Fields.Item("DocNum").Value

                    texto = texto + ", " + DocNum.ToString 
                    dt.MoveNext()

                Catch ex As Exception

                End Try
            Next
        End If

Philipp Knecht

Hi Augusto

Put this in the GenerateScript of the Textfield.

Don't forget then to assign txtMyTExtField.Value = texto

Dim conta As Integer

        Dim SBO_Company As SAPbobsCOM.Company = SwissAddonFramework.B1Connector.GetB1Connector().Company

        Dim texto As String = "Document nº "  
        Dim DocNum As Integer
    
        Dim dt As SAPbobsCOM.Recordset = 
SBO_Company.GetBusinessObject(BoObjectTypes.BoRecordset)
 
        'Ler dados da base de dados - do Query
 
        dt.DoQuery("Select  T3.DocNum FROM Ordr T1 Inner join Dpi1 t2 on T2.BaseEntry = T1.DocEntry inner join Odpi T3 on T2.DocEntry = T3.DocEntry Where T1.DocNum = '2008101421'")
 
        Dim Max As Integer = dt.RecordCount
 
        'Ver se algum valor foi retornado
        If Max > 0 Then
            For conta = 0 To Max - 1
                Try
 
                    DocNum = dt.Fields.Item("DocNum").Value
 
                    texto = texto + ", " + DocNum.ToString 
                    dt.MoveNext()
 
                Catch ex As Exception
 
                End Try
            Next
        End If

hth