Beispiel TButton_AFSBasic

Wiedervorlage Datum an Hand des Bestätigsdatums des Lieferanten anändern.

  Script.Strings = (

    'DIM A'

    'DIM B'

    'DIM C'

   'DIM D'

   'DIM E'

   'DIM F'

   'DIM G'

   'DIM H'

   'DIM I'

    ''

    'SUB Ausgabe'

    'End Sub'

    ''

    'Sub Rechenausgabe'

    'A= TBL_posten.FieldByName("Be_Termin").AsString'

    'B= copy(TBL_Auftrag.FieldByName("wiedervorlage").AsString,7,4)'

    'C= copy(TBL_Auftrag.FieldByName("wiedervorlage").AsString,4,2)'

    'D= copy(TBL_Auftrag.FieldByName("wiedervorlage").AsString,1,2)'

    'E= B+C+D'

    'F= copy(TBL_posten.FieldByName("BE_Termin").AsString,7,4)'

    'G= copy(TBL_posten.FieldByName("BE_Termin").AsString,4,2)'

    'H= copy(TBL_posten.FieldByName("BE_Termin").AsString,1,2)'

     'I= F+G+H'

    #39'Showmessage(A)'

    #39'Showmessage(E)'

    #39'Showmessage(I)'

    'End Sub'

    ''

    'Ausgabe'

    'Rechenausgabe'

    'if  (E < I) then'

    'TBL_auftrag.FieldByName("wiedervorlage").AsString = (A)'

    'end if'

    '')

end