Wie vorgehen - Wert in einer anderen Tabelle ins minus setzen.
Hallo zusammen,
ich bräuchte mal wieder eure Hilfe - ich habe aus einer alten Datenbank aus dem Webinar folgenden Daten übernommen,
bei der manuellen Erstellung der buchungen funktioniert auch alles soweit.
let myValue := Brutto;
Brutto := switch text('Einnahme I Ausgabe I Einzahlung I Entnahme') do
case "Ausgabe":
abs(myValue) * -1
case "Entnahme":
abs(myValue) * -1
case "Einnahme":
abs(myValue)
case "Einzahlung":
abs(myValue)
end
nun zu meiner Frage in der Haupt Tabelle Ebay habe ich einen Button angelegt der dann folgenden Code ausführt und die Daten in die Tabelle EA überträgt,
allerdings möchte ich gerne bei den Ausgaben das die Summen ins minus gesetzt werden.
let myVB := 'OrderNr:' + " " + VollerName;
let myKD := first(select EA where Text = myEB);
if myKD != null then
alert("Diese Auftragsnummer ist bereits vorhanden")
else
let eBay := this;
let newK := (create EA);
newK.(
'Datum + Uhrzeit' := eBay.'1. Creation Date:';
Text := eBay.'OrderNr:' + " " + eBay.VollerName;
Brutto := eBay.'VKmVersand:';
Kategorie := 10;
Steuer := eBay.Mwst
);
openRecord(newK)
end;
ab hier sollen die Beträge ins minus gebucht werden- nach dem Case Beispiel oben.
let myVB := 'OrderNr:' + " " + VollerName;
let myVD := first(select EA where Text = myVB);
if myVD != null then
alert("Ebay Provisionen bereits gebucht")
else
let eBay := this;
let newK := (create EA);
newK.(
'Datum + Uhrzeit' := eBay.'1. Creation Date:';
Text := eBay.'OrderNr:' + " " + eBay.VollerName;
Brutto := eBay.'Ebay Gebühren-Brutto';
Kategorie := 14;
Steuer := eBay.EbayprovMwst
);
openRecord(newK)
end
Gruß Wolf - Danke für eure Hilfe
dann hätte ich noch eine Frage was hat es mit dem Ausrufezeichen auf sich (Auswahl bei den Tabellen).
1 Antwort
-
Hi Wolf. Ganz schlau bin ich nicht daraus geworden, aber vielleicht hilft der Tip. Das Ausrufezeichen bedeutet, dass Du in dieser Tabelle in einem Feld fehlerhaften Code stehen hast. Vielleicht eine Verknüpfung gelöscht o.ä. Gruß Mirko
*
...
let myVB := 'OrderNr:' + " " + VollerName;
let myVD := first(select EA where Text = myVB);
if myVD != null then
alert("Ebay Provisionen bereits gebucht")
else
let eBay := this;
let newK := (create EA);
newK.(
'Datum + Uhrzeit' := eBay.'1. Creation Date:';
Text := eBay.'OrderNr:' + " " + eBay.VollerName;
Brutto := eBay.'Ebay Gebühren-Brutto' * -1;
'Einnahme I Ausgabe I Einzahlung I Entnahme':= text(Ausgabe);
---> hier habe ich improvisiertKategorie := 14;
Steuer := eBay.EbayprovMwst
);
openRecord(newK)
end
Content aside
- vor 3 JahrenZuletzt aktiv
- 1Antworten
- 224Ansichten