4. November 2007 13:30
4. November 2007 14:35
4. November 2007 16:25
GlobalVarCustNo := '';
Customer2.SETFILTER("Search Name",'%1',Text);
IF Customer2.COUNT > 1 THEN
IF FORM.RUNMODAL(22, Customer2) = ACTION::LookupOK THEN
GlobalVarCustNo := Customer2."No.";
IF (GlobalVarCustNo <> '') AND (GlobalVarCustNo <> "Sell-to Customer No.") THEN BEGIN
VALIDATE("Sell-to Customer No.",GlobalVarCustNo);
END;
4. November 2007 17:40
IF Customer2.GET(Suchbegriff) THEN BEGIN
VALIDATE("Sell-to Customer No.",Suchbegriff);
END ELSE BEGIN
Customer2.SETFILTER("Search Name",'%1',Suchbegriff);
IF Customer2.ISEMPTY THEN BEGIN
MESSAGE('Kein Debitor gefunden!');
END ELSE BEGIN
IF Customer2.COUNT = 1 THEN BEGIN
Customer2.FINDFIRST;
VALIDATE("Sell-to Customer No.",Customer2."No.");
END ELSE BEGIN
IF FORM.RUNMODAL(22, Customer2) = ACTION::LookupOK THEN
VALIDATE("Sell-to Customer No.",Customer2."No.")
END;
END;
END;
Suchbegriff := '';
4. November 2007 18:39
neckit hat geschrieben:Statt "Customer2.SETFILTER("Search Name",'%1',Text);"
wollte ich eigentlich "Customer2.SETFILTER("Search Name",'*%1*',Text);" verwenden, damit ich im Feld nur den Namen und nicht "*Name*" erfassen muss. Allerdings findet er dann keinen Datensatz.
Hab ich was verpasst oder hat SETFILTER hiermit Probleme?
Customer2.SETFILTER("Search Name",[b]'%1'[/b],'*' PLUS Text PLUS '*');
// PLUS durch das Pluszeichen ersetzen - irgendwie wird das hier im Forum nicht angezeigt, wenn ich nur Pluszeichen schreibe
4. November 2007 19:10
Natalie hat geschrieben:
- Code:
Customer2.SETFILTER("Search Name",'%1','*' + Text + '*');
4. November 2007 19:12
4. November 2007 19:23
neckit hat geschrieben:Um mein Vorhaben trotzdem umzusetzen, bin ich wie folgt vorgegangen:
Im OnAfterInput-Trigger des Form-Feldes "Sell-to Customer No.":
- Code:
GlobalVarCustNo := '';
Customer2.SETFILTER("Search Name",'%1',Text);
IF Customer2.COUNT > 1 THEN
IF FORM.RUNMODAL(22, Customer2) = ACTION::LookupOK THEN
GlobalVarCustNo := Customer2."No.";
Customer2.SETFILTER("Search Name",'%1','*'+Text+'*');
IF Customer2.COUNT > 1 THEN
IF FORM.RUNMODAL(22, Customer2) = ACTION::LookupOK THEN
Text := Customer2."No.";
4. November 2007 19:32
4. November 2007 20:32
Michael Schumacher hat geschrieben:wo ist das Problem mit dem + ? das wird nur in der Vorschau nicht angezeigt....