MonkeyOffice Import for Outbank

' ---------------------------------------------------------------------------------

' Importdefinition für OutBank-Umsatzdateien

'    Importeinstellungen:

'    Quelle                     : Textdatei (*)

'    Trennzeichen für Felder    : Semikolon

'    Trennzeichen für Datensätze: LF

'    Zeichensatz für            : MacRoman (OS X)

'    Text in Anführungszeichen  : Doppelt"

' ---------------------------------------------------------------------------------



' Aktionen nur im ersten Durchlauf ausführen: Variablen deklarieren

if ( NOT HasVariable("zeile") )

    dim zeile as number

endif



' Die Umsatzdaten beginnen erst ab Zeile 2, die Zeile davor verwerfen

set zeile to zeile + 1

if ( zeile < 2 )

    set Vorlage_Zeile_OK to FALSE

    exit

endif



' Abbrechen, wenn nicht mindestens 15 Felder in Importdatei vorhanden sind

if ( NOT HasVariable("Spalte_015") )

    beep

    msgBox("Fehler beim Lesen der OutBank-Exportdatei (Ungültiges Datensatzformat)!")

    set Vorlage_Import_OK to FALSE

    exit

endif



' Nur Zeilen mit Primanota-Eintrag importieren

'if ( Spalte_007 = "" )

'set Vorlage_Zeile_OK to FALSE

'exit

'endif



' ---------------------------------------------------------------------------------

' Importfelder den Datenfeldern zuordnen

' ---------------------------------------------------------------------------------



' Datum (Wertstellungdatum verwenden)

set Vorlage_Datum to TextToDate(Spalte_004)



' Text (Zweck)
if ( Spalte_010 <> "" )

    set Vorlage_Text to Spalte_010

endif

' Notiz (Spalte Name und Notiz verbunden)
if ( Spalte_015 <> "" )

    set Vorlage_Notizen to Spalte_007 + ", " +  Spalte_015

endif



'if ( Spalte_009 <> "" )

'set Vorlage_Text to IfThen(Vorlage_Text = "", Spalte_009, Vorlage_Text + ": " + Spalte_009)

'endif





' Betrag

set Vorlage_Betrag to FTextToNumber(Spalte_005)





' ---------------------------------------------------------------------------------

' Optional: Belegvervollständigung

' ---------------------------------------------------------------------------------



' Debitoren-/Kreditorenkonto bei gefundenem OP zuweisen

'set Vorlage_Konto to GetKontoDebitor(Vorlage_Text, Vorlage_Betrag)

'set Vorlage_Konto to IfThen(Vorlage_Konto = "", GetKontoKreditor(Vorlage_Text, Vorlage_Betrag), Vorlage_Konto)