Hat schon mal jemand in der Lexware Warenwirtschaft ein Druckformular so angepasst, dass ein automatisiertes Faxen über den Faxtreiber (@@fax......@@) möglich ist.
-
-
Habe es geschafft das Formular zu editieren, allerdings wird die Nummer nicht ausgelesen von Outlook.
Der Eintrag @@+FAX:.....@@ wird durch den Druckertreiber aus dem Formular gelöscht, das An Feld bleibt aber leer.
Ich verstehe nicht was der Ferrari damit macht. -
Nach langem hin und her habe ich nun die Lösung selbst gefunden:
'Faxnr
if bSichtfensterMitFaxnr Then
if is(AUFTR_IST_LS) then
strTemp = GetKndAdrField(nAdrIndex, "Fax")
if strTemp = "" then
if nAdrIndex > 1 then
'Fax in Lieferadresse leer -> hole Fax aus Rechnungsanschrift
strTemp = GetKndAdrField(1, "Fax")
if strTemp <> "" then
strTemp = "@@FAX:" + strTemp + "@@"
end if
end if
else
strTemp = "@@+FAX:" + strTemp + "@@"
end if
if strTemp <> "" then
LF
SelectFont (SchriftFontFerrari)
DrawTextExt(nLinks, GetPosY() + 10, strTemp)
end if
else
If ((is(AUFTR_IST_B)) or (is(AUFTR_IST_BESTELLANFRAGE)) or (is (AUFTR_IST_WARENEINGANG)) or (is(AUFTR_IST_RUECKSENDUNG))or (is(AUFTR_IST_RECHNUNG_EING)) or (is(AUFTR_IST_GUTSCHRIFT_LIEF))) and (Get(LF_FAX) <> "")then
if Get(LF_FAX) <> "" then
LF
SelectFont (SchriftFontFerrari)
DrawTextExt(nLinks, GetPosY() + 10, "@@+FAX:" + Get(LF_FAX)+ "@@")
end if
else
if Get(KD_FAX) <> "" Then
LF
SelectFont (SchriftFontFerrari)
DrawTextExt(nLinks, GetPosY() + 10, "@@+FAX:" + Get(KD_FAX)+ "@@")
end if
end if
end if
end ifKommentar
Kommentar