OBS/Makros und Scripting/Anwendungsbereiche/Beispiele Sammlung - Versionsgeschichte

Nimz: /* Positionen von Verkaufsvorgängen neu nummerieren */

2024-06-25T13:06:02Z

Positionen von Verkaufsvorgängen neu nummerieren

← Nächstältere Version		Version vom 25. Juni 2024, 14:06 Uhr
Zeile 529:		Zeile 529:
	==Positionen von Verkaufsvorgängen neu nummerieren==		==Positionen von Verkaufsvorgängen neu nummerieren==
	:<source lang="delphi">		:<source lang="delphi">
	//Neunummerierung aller Positionen eines Vorgangs am Beispiel Angebot		// Neunummerierung aller Positionen eines Vorgangs am Beispiel Angebot (TAngebot)
	//Geht auch mit anderen VK-Vorgängen. Bei Bedarf daher TAngebot mit dem benötigten Typ ersetzen		// Geht auch mit anderen VK-Vorgängen.
	//Auftrag -> TAuftrag		// Bei Bedarf daher TAngebot mit dem benötigten Typ ersetzen
	//Lieferschein -> TLieferschein		// Auftrag -> TAuftrag
	//Rechnung -> TRechnung		// Lieferschein -> TLieferschein
	procedure ~~NeuNumAngebot~~(const cNr: string; const cPosNrFormat: string; const nPosNrIntervall: integer);		// Rechnung -> TRechnung
	var ~~oAN~~ : TAngebot;		//
			// Format der Vorgangsnummer und Intervall für Positionnummern sind in diesem
			// Beispiel als Funktionsparameter enthalten. Sie können auch auf die Parameter
			// verzichten und tragen die gewünschten Werte direkt in der Funktion PosNeuNum
			// statt der Variablen in die Wertezuweisungen ein.
			//------------------------------------------------------------------------------

			// Funktion zur Neunummerierung der Positionen eines Vorgang
			procedure PosNeuNum(const cNr: string; const cPosNrFormat: string; const nPosNrIntervall: integer);
			var oVG : TAngebot;
	i : integer;		i : integer;
	begin		begin
	//bestimmtes Angebot mit Positionen aus Datenbank auslesen		//bestimmtes Angebot mit Positionen aus Datenbank auslesen
	//Parameter 1: Datenbankverbindung; Hier kann "oDB" verwendet werden, welches in allen OBS-Makros standardmäßig zur Verfügung steht.		//Parameter 1: Datenbankverbindung; Hier kann "oDB" verwendet werden,
			// welches in allen OBS-Makros standardmäßig zur Verfügung steht.
	//Parameter 2: Vorgangsnummer		//Parameter 2: Vorgangsnummer
	//Parameter 3: Positionen auslesen Ja oder Nein (Boolean True/False)		//Parameter 3: Positionen auslesen Ja oder Nein (Boolean True/False)
	~~oAN~~ := TAngebot.Read(oDB, cNr, True);		oVG := TAngebot.Read(oDB, cNr, True);

	//Bei Bedarf hier Nummerierungsmaske setzen		//Bei Bedarf hier Nummerierungsmaske setzen
Zeile 552:		Zeile 562:
	//Alternativ kann eine Maske auch direkt als String vorgegeben werden.		//Alternativ kann eine Maske auch direkt als String vorgegeben werden.
	//Es ist aber darauf zu achten, dass Großbuchstaben verwendet werden!		//Es ist aber darauf zu achten, dass Großbuchstaben verwendet werden!
	~~oAN~~.cPosFormat := cPosNrFormat;		oVG.cPosFormat := cPosNrFormat;

	//Nummerierungsintervall für Positionen setzen		//Nummerierungsintervall für Positionen setzen
	//Standardwert ist 1		//Standardwert ist 1
	//Bei einem Wert kleiner 1 wird automatisch 1 verwendet		//Bei einem Wert kleiner 1 wird automatisch 1 verwendet
	~~oAN~~.nPosInc := nPosNrIntervall;		oVG.nPosInc := nPosNrIntervall;

	//Positionen durchlaufen		//Positionen durchlaufen
	for i := 1 to ~~oAN~~.PnPosCnt do begin		for i := 1 to oVG.PnPosCnt do begin
	//Neunummerierung für Position aktivieren		//Neunummerierung für Position aktivieren
	//Nur für Postionen vom Typ Artikel- oder Leistungsposition, Titel oder Gewerk		//Nur für Postionen vom Typ Artikel- oder Leistungsposition, Titel oder Gewerk
	~~oAN~~.PaPositionen[i].lNeuNum := (~~oAN~~.PaPositionen[i].cTyp = POSTYP_POS) or		oVG.PaPositionen[i].lNeuNum := (oVG.PaPositionen[i].cTyp = POSTYP_POS) or
	(~~oAN~~.PaPositionen[i].cTyp = POSTYP_TIT) or		(oVG.PaPositionen[i].cTyp = POSTYP_TIT) or
	(~~oAN~~.PaPositionen[i].cTyp = POSTYP_GEW);		(oVG.PaPositionen[i].cTyp = POSTYP_GEW);
	end;		end;

	//Vorgang Kalkulieren und Speichern		//Vorgang Kalkulieren und Speichern
	//Die Kalkulation führt die Neu-Nummerierung durch!		//Die Kalkulation führt die Neu-Nummerierung durch!
	~~oAN~~.KalkAll();		oVG.KalkAll();
	~~oAN~~.SaveRecord(~~oAN~~.cSysUID); //eigene System-UID des Vorgangs hier mitgeben, da sonst eine Kopie des Vorgangs erstellt wird!		oVG.SaveRecord(oVG.cSysUID); //eigene System-UID des Vorgangs hier mitgeben, da sonst eine Kopie des Vorgangs erstellt wird!
	MyFreeAndNil(~~oAN~~);		MyFreeAndNil(oVG);
	end;		end;

	//------------------------------------------------------------------------------		//------------------------------------------------------------------------------
			// Start-Funktion für OBS-Makros
	Procedure StartProc();		Procedure StartProc();
	begin		begin
	~~NeuNumAngebot~~('2400001' , 'TTPPP' , 1);		//Hier die Funktion zur Neunummerierung der Positionen eines Vorgangs pro Vorgang mit Vorgangsnummer aufrufen.
	~~NeuNumAngebot~~('2400002' , 'TPPPP' , 10);		//Bei Bedarf kann hier auch mit Schleife und sogar SQL-Query gearbeitet werden.
	~~NeuNumAngebot~~('2400003' , 'PPP' , 1);		PosNeuNum('2400001' , 'TTPPP' , 1);
	~~NeuNumAngebot~~('2400004' , Upper(Pmode_Var(455)), 1);		PosNeuNum('2400002' , 'TPPPP' , 10);
			PosNeuNum('2400003' , 'PPP' , 1);
			PosNeuNum('2400004' , Upper(Pmode_Var(455)), 1);
	end;		end;

	</source>		</source>

Nimz: /* E-Mail Maske Platzhalter */

2024-06-25T12:50:22Z

E-Mail Maske Platzhalter

@@ Zeile 525: / Zeile 525: @@
      end;
 end;
 </source>

Schinke: /* E-Mail Maske Platzhalter */

2023-02-10T14:57:49Z

E-Mail Maske Platzhalter

← Nächstältere Version		Version vom 10. Februar 2023, 15:57 Uhr
Zeile 515:		Zeile 515:
	ReplaceRTFAll(oRich,		ReplaceRTFAll(oRich,
	'#NACHNAME',		'#NACHNAME',
	cAPName);		cAPName);

			ReplaceRTFAll(oRich,
			'#NAME',
			cAPName);
	end;		end;
	end;		end;

Schinke: /* E-Mail Maske Platzhalter */

2023-02-10T14:54:25Z

E-Mail Maske Platzhalter

← Nächstältere Version		Version vom 10. Februar 2023, 15:54 Uhr
Zeile 474:		Zeile 474:
	cAPName := qPers.A2C('ap_name');		cAPName := qPers.A2C('ap_name');
	cAPVorname := qPers.A2C('ap_vorname');		cAPVorname := qPers.A2C('ap_vorname');
	cAPAnrede := DB_ReadSQLValue(oDB,'s_anred','~~a4_brief~~','ar_nr = ' + DB_SQLVal(qPers.A2C('ap_anrede'),'C'));		cAPAnrede := DB_ReadSQLValue(oDB,'s_anred','ar_brief','ar_nr = ' + DB_SQLVal(qPers.A2C('ap_anrede'),'C'));
	Result := True;		Result := True;
	end;		end;

Schinke: /* E-Mail Maske Platzhalter */

2023-02-10T14:53:42Z

E-Mail Maske Platzhalter

← Nächstältere Version		Version vom 10. Februar 2023, 15:53 Uhr
Zeile 474:		Zeile 474:
	cAPName := qPers.A2C('ap_name');		cAPName := qPers.A2C('ap_name');
	cAPVorname := qPers.A2C('ap_vorname');		cAPVorname := qPers.A2C('ap_vorname');
	cAPAnrede := DB_ReadSQLValue(oDB,'s_anred','~~ap_brief~~','~~ap_nr~~ = ' + DB_SQLVal(qPers.A2C('ap_anrede'),'C'));		cAPAnrede := DB_ReadSQLValue(oDB,'s_anred','a4_brief','ar_nr = ' + DB_SQLVal(qPers.A2C('ap_anrede'),'C'));
	Result := True;		Result := True;
	end;		end;

Schinke: /* E-Mail Maske Platzhalter */

2023-02-10T14:51:42Z

E-Mail Maske Platzhalter

← Nächstältere Version		Version vom 10. Februar 2023, 15:51 Uhr
Zeile 440:		Zeile 440:
	==E-Mail Maske Platzhalter==		==E-Mail Maske Platzhalter==
	:<source lang="delphi">		:<source lang="delphi">
	~~//-----------------------------------------------~~
	~~// Demo Beispiel Ersezungen Rich~~
	~~//-----------------------------------------------~~

	Function GetAnsprechPartner( cVonAdr : String;		Function GetAnsprechPartner( cVonAdr : String;
	var cAPName : String;		var cAPName : String;
	var cAPVorname : String;		var cAPVorname : String;
	var ~~cPSSuch~~ : String ):Boolean;		var cAPAnrede : String ):Boolean;
	var cSQL : String;		var cSQL : String;
	FrmGauge : TFrmGauge;		FrmGauge : TFrmGauge;
Zeile 456:		Zeile 452:
	cAPName := '';		cAPName := '';
	cAPVorname := '';		cAPVorname := '';
	~~cPSSuch~~ := '';		cAPAnrede := '';

	if (not(empty(cVonAdr))) then begin		if (not(empty(cVonAdr))) then begin
	cSQL := 'SELECT * FROM ' +		cSQL := 'SELECT * FROM ' +
	//PERSSTA		//PERSSTA
	' (SELECT ps_nr, ps_mailzuord, ~~ps_such~~, "" AS ap_email, "" AS ap_name, "" AS ap_vorname' +		' (SELECT ps_nr, ps_mailzuord, "" AS ap_anrede, "" AS ap_email, "" AS ap_name, "" AS ap_vorname' +
	' FROM PERSSTA' +		' FROM PERSSTA' +
	' WHERE TRIM(ps_email) = ' + DB_SqlVal(cVonAdr, 'C') +		' WHERE TRIM(ps_email) = ' + DB_SqlVal(cVonAdr, 'C') +
	' UNION ' +		' UNION ' +
	//ANSP		//ANSP
	' SELECT ps_nr, ps_mailzuord AS ps_mailzuord, ~~ps_such~~, ap_email, ap_name, ap_vorname' +		' SELECT ps_nr, ps_mailzuord AS ps_mailzuord, ap_anrede, ap_email, ap_name, ap_vorname' +
	' FROM ANSP' +		' FROM ANSP' +
	' LEFT JOIN PERSSTA ON ANSP.ap_pnr = PERSSTA.ps_nr' +		' LEFT JOIN PERSSTA ON ANSP.ap_pnr = PERSSTA.ps_nr' +
Zeile 478:		Zeile 474:
	cAPName := qPers.A2C('ap_name');		cAPName := qPers.A2C('ap_name');
	cAPVorname := qPers.A2C('ap_vorname');		cAPVorname := qPers.A2C('ap_vorname');
	~~cPSSuch~~ := qPers.A2C('~~ps_such~~');		cAPAnrede := DB_ReadSQLValue(oDB,'s_anred','ap_brief','ap_nr = ' + DB_SQLVal(qPers.A2C('ap_anrede'),'C'));
	Result := True;		Result := True;
	end;		end;
Zeile 492:		Zeile 488:
	cAPName : String;		cAPName : String;
	cAPVorname : String;		cAPVorname : String;
	~~cPSSuch~~ : String;		cAPAnrede : String;
	begin		begin
	oFrmEdit := TFrmEdit(Screen.ActiveForm);		oFrmEdit := TFrmEdit(Screen.ActiveForm);
Zeile 507:		Zeile 503:
	cAn := AllTrim(Token(Alltrim(oAn.Text), ',', 1));		cAn := AllTrim(Token(Alltrim(oAn.Text), ',', 1));

	if (GetAnsprechPartner(cAn, cAPName, cAPVorname, ~~cPSSuch~~)) then begin		if (GetAnsprechPartner(cAn, cAPName, cAPVorname, cAPAnrede)) then begin

	ReplaceRTFAll(oRich,		ReplaceRTFAll(oRich,
	'#~~PSSUCH~~',		'#ANREDE',
	~~cPSSuch~~);		cAPAnrede);

	ReplaceRTFAll(oRich,		ReplaceRTFAll(oRich,
	'#~~APVORNAME~~',		'#VORNAME',
	cAPVorname);		cAPVorname);

	ReplaceRTFAll(oRich,		ReplaceRTFAll(oRich,
	'#~~APNAME~~',		'#NACHNAME',
	cAPName);		cAPName);
	end;		end;
	end;		end;

Schinke: /* Autoersetzung Beispiele */

2023-02-09T15:12:25Z

Autoersetzung Beispiele

@@ Zeile 436: / Zeile 436: @@
 begin
      Result := 'Dies ist ein Test';
 end;
 </source>

Schinke: /* Automatische DMS Zuordnung */

2021-12-14T14:32:34Z

Automatische DMS Zuordnung

@@ Zeile 58: / Zeile 58: @@
              OCR_RefTyp := 'LI';
              OCR_Titel  := 'Büroring Lieferschein '+ OCR_RefNr;
          end;
      end;

Nimz: /* Excel Export */

2021-12-06T11:16:11Z

Excel Export

@@ Zeile 357: / Zeile 357: @@
          MyFreeAndNil(oXlsx);
      end;
 end;
 </source>

Schinke am 14. April 2021 um 07:26 Uhr

2021-04-14T07:26:39Z

@@ Zeile 334: / Zeile 334: @@
      oPax.ReplacePaxAll(cKuerzel, '');
 end;
 </source>