AppleScript-Beispiele

set myFile to choose file "Select DB" of type {"GIDE"}
set askName to display dialog ¬
  "Bitte geben Sie Ihren Name ein:" default answer ¬
  "Verwalter" buttons {"Abbrechen", "OK"} default button 2
if button returned of askName = "OK" then
  set askPassword to display dialog ¬
    "Bitte geben Sie Ihr Kennwort ein:" default answer ¬
    "Verwalter" buttons {"Abbrechen", "OK"} default button 2
  if button returned of askPassword = "OK" then
    set myName to text returned of askName
    set myPassword to text returned of askPassword
    tell application "MacGiro 12"
      open {myFile} username myName password myPassword
    end tell
  end if
end if

set blz to "899 999 99"
set bankname to "Bankhaus Muster"
set ort to "Musterstadt"
set pvz to "09"
set bic to "MUSTDE09"
set importText to blz & tab & ¬
  bankname & tab & ¬
  ort & tab & ¬
  pvz & tab & ¬
  bic

tell application "MacGiro 12"
  create bank importText replace ask
end tell

set IDName to "Mai"
set blz to "899 999 99"
set Kontonummer to "1234"
set inhaber to "Michaela Mai"
set ort to "Musterstadt"
set dtaAnschrift to ""
set dtaAnsprechpartner to ""
set dtaTelefon to ""
set dtarefnum to "1"
set scheckNummer to "1"
set btxAltKontoNummer to ""
set btxHoechstBetrag to ""
set btxBenoetig2TANS to "FALSCH"
set btxBenoetigt2PINS to "FALSCH"
set kontoabfrage to "WAHR"
set kontoAbfrageJedesmal to "FALSCH"
set letztekontoabfrage to ""
set laufzeitBuchungGutschrift to "0"
set lLaufzeitBuchungLastschrift to "0"
set laufzeitBuchungScheckaustellung to "0"
set laufzeitBuchungScheckannahme to "0"
set laufzeitBuchungAndere to "0"
set laufzeitWertstellungGutschrift to "0"
set laufzeitWertstellungLastschrift to "0"
set laufzeitWertstellungScheckaustellung to "0"
set laufzeitWertstellungScheckannahme to "0"
set laufzeitWertstellungAndere to "0"
set gebuchtStatus to "1"
set ErlaubteArten to "255"
set DTAErlaubteArten to "6"
set PapierErlaubteArten to "30"
set PIN1 to ""
set PIN2 to ""
set BTXErlaubteArten to "2"
set standardAusgabeForm to "Papier"
set standardUnterArt to ""

set ImportText1 to ¬
  IDName & tab & ¬
  blz & tab & ¬
  Kontonummer & tab & ¬
  inhaber & tab & ¬
  ort & tab & ¬
  dtaAnschrift & tab & ¬
  dtaAnsprechpartner & tab & ¬
  dtaTelefon & tab & ¬
  dtarefnum & tab & ¬
  scheckNummer & tab & ¬
  btxAltKontoNummer & tab
set ImportText2 to ¬
  btxHoechstBetrag & tab & ¬
  btxBenoetig2TANS & tab & ¬
  btxBenoetigt2PINS & tab & ¬
  kontoabfrage & tab & ¬
  kontoAbfrageJedesmal & tab & ¬
  letztekontoabfrage & tab & ¬
  laufzeitBuchungGutschrift & tab & ¬
  lLaufzeitBuchungLastschrift & tab
set ImportText3 to ¬
  laufzeitBuchungScheckaustellung & tab & ¬
  laufzeitBuchungScheckannahme & tab & ¬
  laufzeitBuchungAndere & tab & ¬
  laufzeitWertstellungGutschrift & tab & ¬
  laufzeitWertstellungLastschrift & tab
set ImportText4 to ¬
  laufzeitWertstellungScheckaustellung & tab & ¬
  laufzeitWertstellungScheckannahme & tab & ¬
  laufzeitWertstellungAndere & tab & ¬
  gebuchtStatus & tab & ¬
  ErlaubteArten & tab & ¬
  DTAErlaubteArten & tab & ¬
  PapierErlaubteArten & tab
set ImportText5 to ¬
  PIN1 & tab & ¬
  PIN2 & tab & ¬
  BTXErlaubteArten & tab & ¬
  standardAusgabeForm & tab & ¬
  standardUnterArt

set importText to ¬
  ImportText1 & ¬
  ImportText2 & ¬
  ImportText3 & ¬
  ImportText4 & ¬
  ImportText5

tell application "MacGiro 12"
  create own account importText replace ask
end tell

set Fremdkontoname to "Mustermann"
set FremdkontoBLZ to "899 999 99"
set Fremdkontonr to "121212"
set Fremdkontoinhaber to "Erika Mustermann"
set FremdkontoStr to "Am Weg 2"
set FremdkontoOrt to "Musterstadt"
set FremdkontoInsMenue to "Nein"

set importText to ¬
  Fremdkontoname & tab & ¬
  FremdkontoBLZ & tab & ¬
  Fremdkontonr & tab & ¬
  Fremdkontoinhaber & tab & ¬
  FremdkontoStr & tab & ¬
  FremdkontoOrt & tab & ¬
  FremdkontoInsMenue

tell application "MacGiro 12"
  create other account importText replace ask
end tell

set Fremdkontoname to "Mustermann"
set FremdkontoBIC to "HAMPDE99"
set Fremdkontonr to "DE87123456781234567890"
set Fremdkontoinhaber to "Erika Mustermann"
set FremdkontoStr to "Am Weg 2"
set FremdkontoOrt to "Musterstadt"
set FremdkontoInsMenue to "Nein"

set importText to ¬
  Fremdkontoname & tab & ¬
  FremdkontoBIC & tab & ¬
  Fremdkontonr & tab & ¬
  Fremdkontoinhaber & tab & ¬
  FremdkontoStr & tab & ¬
  FremdkontoOrt & tab & ¬
  FremdkontoInsMenue

tell application "MacGiro 12"
  create other account importText replace ask
end tell

set Art to "Gutschrift"
set AusgabeForm to "Papier"
set Unterart to ""
set EigenIDName to "Mai"
set EigenBLZ to "899 999 99"
set Eigenkontonummer to "1234"
set EigenName to "Michaela Mai"
set FremdIDName to "Mustermann"
set FremdBLZ to "899 999 99"
set Fremdkontonummer to "121212"
set FremdName to "Erika Mustermann"
set Verwendungszweck to "Rechnung 08/01 vom 15.4.2011"
set Betrag to "EUR 575,20"
set DatumAngelegt to "16.04.2011"
set DatumAusfuehrGeplant to "22.4.2011"
set DatumAusfuehrSpaet to ""
set DatumAusgefuehrt to ""
set DatumMitSkonto to "1.10.2011"
set DatumGebucht to ""
set DatumWertstellung to ""
set SkontoInDM to "FALSCH"
set Skonto to "3,0"
set Mehrfachausfuehrung to "FALSCH"
set AusfuehrungsAnzahl to "1"
set AusfuehrungsModus to "Monatlich am 1."
set ScheckAn to ""
set ScheckOrt to ""
set scheckNummer to ""
set MemoText to ""
set Textschluessel to ""

set importText to ¬
  Art & tab & ¬
  AusgabeForm & tab & ¬
  Unterart & tab & ¬
  EigenIDName & tab & ¬
  EigenBLZ & tab & ¬
  Eigenkontonummer & tab & ¬
  EigenName & tab & ¬
  FremdIDName & tab & ¬
  FremdBLZ & tab & ¬
  Fremdkontonummer & tab & ¬
  FremdName & tab & ¬
  Verwendungszweck & tab & ¬
  Betrag & tab & ¬
  DatumAngelegt & tab & ¬
  DatumAusfuehrGeplant & tab & ¬
  DatumAusfuehrSpaet & tab & ¬
  DatumAusgefuehrt & tab & ¬
  DatumMitSkonto & tab & ¬
  DatumGebucht & tab & ¬
  DatumWertstellung & tab & ¬
  SkontoInDM & tab & ¬
  Skonto & tab & ¬
  Mehrfachausfuehrung & tab & ¬
  AusfuehrungsAnzahl & tab & ¬
  AusfuehrungsModus & tab & ¬
  ScheckAn & tab & ¬
  ScheckOrt & tab & ¬
  scheckNummer & tab & ¬
  MemoText & tab & ¬
  Textschluessel

tell application "MacGiro 12"
  create transfer importText
end tell

set Art to "EU/SEPA-Überweisung"
set Ausgabe to "HBCI"
set Unterart to "SEPA"
set Eigenkonto to "Mai"
set FremdkontoBLZ to "HAMPDE99"
set Fremdkontonummer to "DE87123456781234567890"
set Fremdkontoinhaber to "Mustermann"
set Verwendungszweck to "Rechnung 12789-34"
set Betrag to "EUR 1234,76"
set Geplant to ""
set EndeZuEndeReferenz to "8902438903248"

set LeerFelder to tab & tab & tab & tab & tab & tab & tab & tab & tab & tab & ¬
  tab & tab & tab & tab & tab & tab & tab & tab & tab & tab & tab & tab & tab & ¬
  tab & tab & tab & tab & tab & tab & tab & tab & tab & tab

set importText to ¬
  Art & tab & ¬
  Ausgabe & tab & ¬
  Unterart & tab & ¬
  Eigenkonto & tab & ¬
  tab & ¬
  tab & ¬
  tab & ¬
  tab & ¬
  FremdkontoBLZ & tab & ¬
  Fremdkontonummer & tab & ¬
  Fremdkontoinhaber & tab & ¬
  Verwendungszweck & tab & ¬
  Betrag & tab & ¬
  tab & ¬
  Geplant & tab & ¬
  LeerFelder & ¬
  EndeZuEndeReferenz

tell application "MacGiro 12"
  create transfer importText
end tell

set Art to "SEPA-Lastschrift"
set Ausgabe to "HBCI"
set Unterart to "SEPA"
set Eigenkonto to "Mai"
set FremdkontoBLZ to "HAMPDE99"
set Fremdkontonummer to "DE87123456781234567890"
set Fremdkontoinhaber to "Mustermann"
set Verwendungszweck to "Rechnung 12789-34"
set Betrag to "EUR 1234,76"
set Geplant to "24.03.2019"
set EndeZuEndeReferenz to "8902438903248"
set MandatsID to "789740"
set MandatsDatum to "20.03.2019"
set MandatsArt to "4"

set LeerFelder to tab & tab & tab & tab & tab & tab & tab & tab & tab & tab & ¬
  tab & tab & tab & tab & tab & tab & tab & tab & tab & tab & tab & tab & tab & ¬
  tab & tab & tab & tab & tab & tab & tab & tab & tab & tab

set importText to ¬
  Art & tab & ¬
  Ausgabe & tab & ¬
  Unterart & tab & ¬
  Eigenkonto & tab & ¬
  tab & ¬
  tab & ¬
  tab & ¬
  tab & ¬
  FremdkontoBLZ & tab & ¬
  Fremdkontonummer & tab & ¬
  Fremdkontoinhaber & tab & ¬
  Verwendungszweck & tab & ¬
  Betrag & tab & ¬
  tab & ¬
  Geplant & tab & ¬
  LeerFelder & ¬
  EndeZuEndeReferenz & tab & ¬
  MandatsID & tab & ¬
  MandatsDatum & tab & ¬
  MandatsArt

tell application "MacGiro 12"
  create transfer importText
end tell

set Art to "SEPA-Lastschrift"
set Ausgabe to "HBCI"
set Unterart to "Termin-SEPA (Sammler)"
set Eigenkonto to "Mai"
set FremdkontoBLZ to "HAMPDE99"
set Fremdkontonummer to "DE87123456781234567890"
set Fremdkontoinhaber to "Mustermann"
set Verwendungszweck to "Rechnung 12789-34"
set Betrag to "EUR 1234,76"
set Geplant to "30.04.2019"
set bankAusfuehrungsDatum to "02.05.2019"
set EndeZuEndeReferenz to "8902438903248"
set MandatsID to "789740"
set MandatsDatum to "25.03.2019"
set MandatsArt to "4"

set LeerFelder1 to tab & tab & tab & tab & tab & tab & tab & tab & tab & tab & ¬
  tab & tab & tab & tab & tab & tab & tab & tab & tab & tab &  ¬
  tab & tab & tab & tab & tab & tab & tab & tab 
set LeerFelder2 to tab & tab & tab & tab

set importText to ¬
  Art & tab & ¬
  Ausgabe & tab & ¬
  Unterart & tab & ¬
  Eigenkonto & tab & ¬
  tab & ¬
  tab & ¬
  tab & ¬
  tab & ¬
  FremdkontoBLZ & tab & ¬
  Fremdkontonummer & tab & ¬
  Fremdkontoinhaber & tab & ¬
  Verwendungszweck & tab & ¬
  Betrag & tab & ¬
  tab & ¬
  Geplant & tab & ¬
  LeerFelder1 & ¬
  bankAusfuehrungsDatum & tab & ¬
  LeerFelder2 & ¬
  EndeZuEndeReferenz & tab & ¬
  MandatsID & tab & ¬
  MandatsDatum & tab & ¬
  MandatsArt

tell application "MacGiro 12"
  create transfer importText
end tell

set VorlagenName to "Mai Rechnung"
set insMenue to "Ja"
set Art to "Gutschrift"
set AusgabeForm to "Papier"
set UnterArt to ""
set EigenIDName to "Mai"
set EigenBLZ to "899 999 99"
set EigenKontonummer to "1234"
set EigenName to "Michaela Mai"
set FremdIDName to "Mustermann"
set FremdBLZ to "899 999 99"
set FremdKontonummer to "121212"
set FremdName to "Erika Mustermann"
set Verwendungszweck to "Rechnung 10/95 vom 15.10.1995"
set Betrag to "575,20"
set DatumAngelegt to "16.10.1995"
set DatumAusfuehrGeplant to "23.10.1995"
set DatumAusfuehrSpaet to "30.10.1995"
set DatumAusgefuehrt to ""
set DatumMitSkonto to "23.10.1995"
set DatumGebucht to ""
set DatumWertstellung to ""
set SkontoInDM to "FALSCH"
set Skonto to "3,0"
set MehrfachAusfuehrung to "FALSCH"
set AusfuehrungsAnzahl to "1"
set AusfuehrungsModus to ""
set ScheckAn to ""
set ScheckOrt to ""
set scheckNummer to ""
set MemoText to ""
set Textschluessel to ""

set importText to ¬
  VorlagenName & tab & ¬
  insMenue & tab & ¬
  Art & tab & ¬
  AusgabeForm & tab & ¬
  UnterArt & tab & ¬
  EigenIDName & tab & ¬
  EigenBLZ & tab & ¬
  EigenKontonummer & tab & ¬
  EigenName & tab & ¬
  FremdIDName & tab & ¬
  FremdBLZ & tab & ¬
  FremdKontonummer & tab & ¬
  FremdName & tab & ¬
  Verwendungszweck & tab & ¬
  Betrag & tab & ¬
  DatumAngelegt & tab & ¬
  DatumAusfuehrGeplant & tab & ¬
  DatumAusfuehrSpaet & tab & ¬
  DatumAusgefuehrt & tab & ¬
  DatumMitSkonto & tab & ¬
  DatumGebucht & tab & ¬
  DatumWertstellung & tab & ¬
  SkontoInDM & tab & ¬
  Skonto & tab & ¬
  MehrfachAusfuehrung & tab & ¬
  AusfuehrungsAnzahl & tab & ¬
  AusfuehrungsModus & tab & ¬
  ScheckAn & tab & ¬
  ScheckOrt & tab & ¬
  scheckNummer & tab & ¬
  MemoText & tab & ¬
  Textschluessel

tell application "MacGiro 12"
  create transfer stationary importText
end tell

tell application "MacGiro 12"
  execute transfers
end tell

tell application "MacGiro 12"
  check accounts with log file no
  delay 1
  with timeout of 1200 seconds
    repeat while (is busy)
      delay 2
    end repeat
  end timeout
  
  set zahlDerAbgleichDialoge to count balancing dialogs
  repeat with i from 1 to zahlDerAbgleichDialoge
    set zahlDerTransfers to count transfers in balancing dialog i
    repeat with j from 1 to zahlDerTransfers
      get transfer data from transfer j in balancing dialog i
      display dialog result
    end repeat
  end repeat
end tell

set theAlias to ¬
  (choose file with prompt ¬
    "Bitte wählen Sie die XML-Datei zum Import aus:")
tell application "MacGiro 12"
  create objects theAlias
end tell

set theXMLData to ¬
  "<?xml version=\"1.0\" encoding=\"x-mac-roman\"?>
  <MacGiro>
    <transfer_daten>
      <art>EU/SEPA-Überweisung</art>
      <ausgabe>HBCI</ausgabe>
      <unterart>SEPA</unterart>
      <eigenkonto>Mai</eigenkonto>
      <fremdkonto_blz>HASPDEHHXXX</fremdkonto_blz>
      <fremdkontonummer>DE47200505500000121212</fremdkontonummer>
      <fremdkontoinhaber>Erika Mustermann</fremdkontoinhaber>
      <verwendungszweck>Rechnung 17554</verwendungszweck>
      <betrag_eur>123,45</betrag_eur>
    </transfer_daten>
  </MacGiro>"

tell application "MacGiro 12"
  create objects theXMLData
end tell

set theAlias to ¬
  (choose file with prompt ¬
    "Bitte wählen Sie die SEPA-XML-Datei zum Import aus:")
tell application "MacGiro 12"
  create objects theAlias type is SEPA yes
end tell

set theAlias to ¬
  (choose file with prompt ¬
    "Bitte wählen Sie die Rechnung aus:")
tell application "MacGiro 12"
  read invoice theAlias
end tell

set theAlias to ¬
  (choose file with prompt ¬
    "Bitte wählen Sie die Datei zum Import aus:")
tell application "MacGiro 12"
  import booked transfers theAlias options file "/Pfad/Zu/meineImportOptionen.mgimport" own account name "Mai"
end tell

-- Suche alle SEPA-Überweisungen ab 1.1.2021 im Kontobuch für Konto Mai mit Betrag größer 1000,00 und Verwendungszweck beinhaltet rechnung
tell application "MacGiro 12"
  set dateRange to {from date:"1.1.2021"}
  set searchOptions to {¬
    account:"Mai", ¬
    kind:"EU/SEPA-Überweisungen",¬
    form:"HBCI",¬
    date range:dateRange, ¬
    match only one extended option:false, ¬
    extended options:[¬
      {¬
        field:"Betrag (Soll)",¬
        operator:"ist größer",¬
        value:"1000,00"¬
      }, ¬
      {¬
        field:"verwendungszweck",¬
        operator:"beinhaltet",¬
        value:"rechnung"¬
      }¬
    ]¬
  }
  search transfers searchOptions
end tell

-- CSV-Text aller SEPA-Überweisungen ab 1.1.2021 im Kontobuch für Konto Mai mit Betrag größer 1000,00 und Verwendungszweck beinhaltet rechnung
tell application "MacGiro 12"
  set dateRange to {from date:"1.1.2021"}
  set searchOptions to {¬
    account:"Mai", ¬
    kind:"EU/SEPA-Überweisungen",¬
    form:"HBCI",¬
    date range:dateRange, ¬
    match only one extended option:false, ¬
    extended options:[¬
      {¬
        field:"Betrag (Soll)",¬
        operator:"ist größer",¬
        value:"1000,00"¬
      }, ¬
      {¬
        field:"verwendungszweck",¬
        operator:"beinhaltet",¬
        value:"rechnung"¬
      }¬
    ]¬
  }
  set csvText to (get transfers searchOptions result format csv text with header)
end tell

tell application "MacGiro 12"
  close database saving ask
end tell

tell application "MacGiro 12"
  quit saving ask
end tell