Ktm Wordwrap

LargeField is een algemene naam kan ook Adresveld zijn of Omschrijving De regels LargeField1..8 zijn op het nummer na vrij. het kan OmschrijvingRegel1..9 zijn het gaat om het cijfer aan het einde.

Dit is de code die toegevoegd moet worden aan de functie :

Private Sub ValidationForm_AfterFieldChanged(ByVal pXDoc As CASCADELib.CscXDocument, ByVal pField As CASCADELib.CscXDocField)
   Select Case pField.Name
      Case "BTWnr"
         pField.Valid = False
         pField.ExtractionConfident = False
         pField.Confidence = 0

      Case "LargeField"  ' het orginele lange veld met te veel tekst
         WrapThroug(pXDoc, pField.Text, "LargeField", 40) ' de basis veldnaam met de nummers er achter en het aantal tekens
   End Select
End Sub

verder moeten deze twee functies toegevoegd worden (boven de vorige functie):

Private Function WrapOffLine(ByRef InStr As String, wlength As Integer) As String
   Dim tel As Integer
   Dim tempstr As String

   tempstr = ""
   If Len(InStr)>wlength Then
     For tel = wlength+1 To 1 Step -1
       If Mid(InStr, tel, 1) = " " Then
          tempstr = Trim(Left( InStr, tel-1 ))
          InStr = Trim(Mid(InStr, tel+1))
          Exit For
       End If
     Next
   End If

   If tempstr = "" Then
     tempstr = Trim(Left( InStr, wlength ))
     InStr = Trim(Mid(InStr, wlength+1))
   End If
   WrapOffLine = tempstr

End Function


Private Sub WrapThroug(ByVal pXDoc As CASCADELib.CscXDocument, InStr As String, Fieldnamepart As String, wraplen as integer)
   Dim pField As CASCADELib.CscXDocField
   Dim a As Integer

   For a = 1 To 20
     If pXDoc.Fields.Exists(Fieldnamepart + CStr(a)) Then
       Set pField = pXDoc.Fields.ItemByName(Fieldnamepart + CStr(a))
       pField.Text = WrapOffLine(InStr, wraplen)
     End If
   Next
End Sub