MacGiro
MacGiro Scheine

AppleScript-Beispiele

Hier werden exemplarisch einige Beispiele für die Apple-Event-Schnittstelle aufgeführt.

01 - Datenbank öffnen

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 9"
	      open {myFile} username myName password myPassword
	    end tell
	  end if
	end if

02 - Bank anlegen

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 9"
	  create bank importText replace ask
	end tell

03 - Eigenkonto anlegen

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 9"
	  create own account importText replace ask
	end tell

04 - Fremdkonto anlegen

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 9"
	  create other account importText replace ask
	end tell

05 - Fremdkonto anlegen mit IBAN:BIC

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 9"
	  create other account importText replace ask
	end tell

06 - Transfer anlegen

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 9"
	  create transfer importText
	end tell

07 - SEPA-Überweisung anlegen

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 Zusatzdaten to "SEPA◊" & ¬
	  EndeZuEndeReferenz
	
	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 & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  Zusatzdaten
	
	tell application "MacGiro 9"
	  create transfer importText
	end tell

08 - SEPA-Lastschrift anlegen

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 "30.03.2013"
	set EndeZuEndeReferenz to "8902438903248"
	set MandatsID to "789740"
	set MandatsDatum to "25.03.2013"
	set MandatsArt to "4"
	set Zusatzdaten to "SEPA◊" & ¬
	  EndeZuEndeReferenz & "◊" & ¬
	  MandatsID & "◊" & ¬
	  MandatsDatum & "◊" & ¬
	  MandatsArt
	
	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 & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  Zusatzdaten
	
	tell application "MacGiro 9"
	  create transfer importText
	end tell

09 - SEPA-Lastschrift auf Termin anlegen

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.03.2013"
	set bankAusfuehrungsDatum to "10.10.2013"
	set EndeZuEndeReferenz to "8902438903248"
	set MandatsID to "789740"
	set MandatsDatum to "25.03.2013"
	set MandatsArt to "4"
	set Zusatzdaten to "SEPA◊" & ¬
	  EndeZuEndeReferenz & "◊" & ¬
	  MandatsID & "◊" & ¬
	  MandatsDatum & "◊" & ¬
	  MandatsArt
	
	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 & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  Zusatzdaten & tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  tab & ¬
	  bankAusfuehrungsDatum
	
	tell application "MacGiro 9"
	  create transfer importText
	end tell

10 - Vorlage anlegen

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 9"
	  create transfer stationary importText
	end tell

11 - Transfers ausführen

tell application "MacGiro 9"
	  execute transfers
	end tell

12 - Umsätze lesen

tell application "MacGiro 9"
	  check accounts with log file no
	  with timeout of 1200 seconds
	    repeat while (is busy)
	    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

13 - Import MacGiro-XML mit Alias

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

14 - Import MacGiro-XML mit Daten

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 9"
	  create objects theXMLData
	end tell

15 - Datenbank schließen

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

16 - MacGiro beenden

tell application "MacGiro 9"
	  quit saving ask
	end tell
Import- und Export

Beschreibung der Import- und Export-Schnittstelle.

AppleEvents

Beschreibung der AppleEvent-Schnittstelle.

XML-Schnittstelle

Beschreibung der XML-Schnittstelle.

AppleScript-Beispiele

Einige Beispiele für AppleScript.

FileMaker-Beispiel

Beispiel-Beschreibung zur Anbindung an FileMaker.

© 2024 by med-i-bit GmbH