Lieferschein - Chargenpflicht
Moderator: SYNERPY
-
- Beiträge: 627
- Registriert: So Mär 05, 2006 5:30 pm
Lieferschein - Chargenpflicht
Hallo,
bei der Lieferscheinerstellung wird die Chargenpflicht erst beim Ausdruck geprüft.
Die Meldung einer fehlenden Charge am Ende des Vorgangs ist "nervig". Insofern die Notwendigkeit der Chargeneingabe bei der Erfassung der Position nicht offensichtlich erkennbar ist.
Vorteilhaft wäre die Prüfung der Chargenpflicht bereits bei der Positionserstellung, eine Meldung zur Eingabe bei Chargenpflicht.
Gruß
PaGl
bei der Lieferscheinerstellung wird die Chargenpflicht erst beim Ausdruck geprüft.
Die Meldung einer fehlenden Charge am Ende des Vorgangs ist "nervig". Insofern die Notwendigkeit der Chargeneingabe bei der Erfassung der Position nicht offensichtlich erkennbar ist.
Vorteilhaft wäre die Prüfung der Chargenpflicht bereits bei der Positionserstellung, eine Meldung zur Eingabe bei Chargenpflicht.
Gruß
PaGl
-
- Beiträge: 205
- Registriert: Fr Jul 01, 2005 6:33 pm
- Wohnort: Leipzig
Re: Lieferschein - Chargenpflicht
Hallo,
Gleiches gilt für die Seriennummernpflicht wohl auch ....
Der Ansatz wäre im onDataChange Sctipt der FRMV_BRLSP die Logik unterzubringen und eine Messagebox zu öffnen wenn Cargen- oder SN-pflicht für die LS-Position besteht.
Dazu muss geprüft werden ob idealer Weise im View für BRLSP die entsprechenden Kennzeichen mit gereicht werden, wenn nicht, dann eigene Prozedure um die Kennzeichen aus BSA für die LS-Position zu erfragen oder die Views sind zu erweitern und die Kennzeichen sind aus dem erweiterten View direkt abzufragen (schlechtere Idee)...
Gleiches gilt für die Seriennummernpflicht wohl auch ....
Der Ansatz wäre im onDataChange Sctipt der FRMV_BRLSP die Logik unterzubringen und eine Messagebox zu öffnen wenn Cargen- oder SN-pflicht für die LS-Position besteht.
Dazu muss geprüft werden ob idealer Weise im View für BRLSP die entsprechenden Kennzeichen mit gereicht werden, wenn nicht, dann eigene Prozedure um die Kennzeichen aus BSA für die LS-Position zu erfragen oder die Views sind zu erweitern und die Kennzeichen sind aus dem erweiterten View direkt abzufragen (schlechtere Idee)...
Schöne Grüße aus Leipzig
Denis
-
Linux - my life is too short for reboots
Denis
-
Linux - my life is too short for reboots
-
- Beiträge: 627
- Registriert: So Mär 05, 2006 5:30 pm
Re: Lieferschein - Chargenpflicht
Hallo,
ja, das gilt auch für die Seriennummer.
Der Lösungsansatz ist ein erheblicher Programmieraufwand.
Gruß
PaGl
ja, das gilt auch für die Seriennummer.
Der Lösungsansatz ist ein erheblicher Programmieraufwand.

Gruß
PaGl
-
- Beiträge: 205
- Registriert: Fr Jul 01, 2005 6:33 pm
- Wohnort: Leipzig
Re: Lieferschein - Chargenpflicht
Hallo,
eigentlich nur eine Prozedure, die generell abfragt, ob der betreffende Artikel die beiden Kennzeichen hat und dann in der Maske 2x eine Messagebox...
Ich werde das nächste Woche mal umsetzen, weil ich die Idee mit dem Hinweis gut finde. Das Ergebnis teile ich dann hier.
eigentlich nur eine Prozedure, die generell abfragt, ob der betreffende Artikel die beiden Kennzeichen hat und dann in der Maske 2x eine Messagebox...
Ich werde das nächste Woche mal umsetzen, weil ich die Idee mit dem Hinweis gut finde. Das Ergebnis teile ich dann hier.
Schöne Grüße aus Leipzig
Denis
-
Linux - my life is too short for reboots
Denis
-
Linux - my life is too short for reboots
-
- Beiträge: 205
- Registriert: Fr Jul 01, 2005 6:33 pm
- Wohnort: Leipzig
Re: Lieferschein - Chargenpflicht
Hier erst einmal die Prozedure, die Noch ausgebaut werden muss
Code: Alles auswählen
SET TERM ^ ;
create or alter procedure P_CHECK_SNPFL_CHARPFL (
ID integer,
WOHER varchar(10))
returns (
SNPFL D_YESNONULL,
CHARPFL D_YESNONULL)
as
begin
/* LETZTER STAND 15.03.2018 D.R. dantschke Medizintechnik */
/* Stand: 15.03.2018 D.R. dantschke Medizintechnik */
/* Protokollieren, dass Aktion hier durchgelaufen ist */
IF (GEN_ID(GEN_ENTWICKLUNG,0) = 0) THEN
INSERT INTO A_WASMACHTIB (PROGRAMMTEIL) VALUES ('P_CHECK_SNPFL_CHARPFL');
-- BRLSP - Lieferscheinpositionen
if (TRIM(WOHER)='BRLSP') then
begin
SELECT A.SNR, A.CHARGE_JN
FROM BRLSP B
LEFT OUTER JOIN V_BSA A on B.BSA_ID_ARTNR = A.ID
WHERE B.ID = :ID
into :SNPFL, :CHARPFL ;
end
-- BRRCP
if (TRIM(WOHER)='BRLSPBT') then
begin
SELECT A.SNR, A.CHARGE_JN
FROM BRLSPBT C
LEFT OUTER JOIN V_BSA A on C.BSA_ID = A.ID
WHERE C.ID = :ID
into :SNPFL, :CHARPFL ;
end
-- kann entsprechend ausgebaut werden für alle Bestandsverändernden Masken und Beistellteile unsw....
-- Leider ist die Link_ID Bezeichnung für BSA_ID ind allen Tabelle unterschiedlich
suspend;
end^
SET TERM ; ^
COMMENT ON PROCEDURE P_CHECK_SNPFL_CHARPFL IS
'Prozedure zum Prüfen der SN-Pflicht / Chargen-Pflicht einer
LS-Position';
GRANT INSERT ON A_WASMACHTIB TO PROCEDURE P_CHECK_SNPFL_CHARPFL;
GRANT SELECT ON BRLSP TO PROCEDURE P_CHECK_SNPFL_CHARPFL;
GRANT SELECT ON V_BSA TO PROCEDURE P_CHECK_SNPFL_CHARPFL;
GRANT SELECT ON BRLSPBT TO PROCEDURE P_CHECK_SNPFL_CHARPFL;
GRANT EXECUTE ON PROCEDURE P_CHECK_SNPFL_CHARPFL TO "PUBLIC";
GRANT EXECUTE ON PROCEDURE P_CHECK_SNPFL_CHARPFL TO SYSDBA;
Schöne Grüße aus Leipzig
Denis
-
Linux - my life is too short for reboots
Denis
-
Linux - my life is too short for reboots
-
- Beiträge: 205
- Registriert: Fr Jul 01, 2005 6:33 pm
- Wohnort: Leipzig
Re: Lieferschein - Chargenpflicht
Für die Maske BRLSP (Lieferscheinpos) im OnDataChange Script folgende Ergänzung:
und es muss in die Maske noach ein TLabel Objekt rein, mit dem Namen LBSNPruefung und da kann dann der Benachrichtigungstext rein... und fertsch ist es für die Lieferscheinpositionen.
Code: Alles auswählen
MyProc := frmData.StP_Universal;
i_ID := AsInteger(q_1.FieldByName('ID'));
i_WOHER := 'BRLSP';
MyProc.StoredProcName := 'P_CHECK_SNPFL_CHARPFL';
MyProc.ParamByName('ID',i_ID);
MyProc.ParamByName('WOHER',i_WOHER);
MyProc.Execute;
iSNPFL := AsString(MyProc.FieldByName('SNPFL'));
iCHARPFL := AsString(MyProc.FieldByName('CHARPFL'));
// Messagebox Seriennummern / Chargennummernpflicht
If (iSNPFL='J') or (iCHARPFL='J') then
begin
mbRES := Messagebox(LBSNPruefung.caption,self.caption,0);
end;
Schöne Grüße aus Leipzig
Denis
-
Linux - my life is too short for reboots
Denis
-
Linux - my life is too short for reboots
-
- Beiträge: 205
- Registriert: Fr Jul 01, 2005 6:33 pm
- Wohnort: Leipzig
Re: Lieferschein - Chargenpflicht
Das ganze kann dann entsprechend für die anderen Masken ausgebaut werden.
Dazu muss die Prozedur entsprechend ausgebaut werden und im Maskeneditor in der jeweiligen Maske das TLabel Objekt für die Messagebox eingefügt und das OnDataChange Script eingefügt und der Parameter i_Woher für den Prozeduraufruf muss angepasst werden...
In Summe für alle betreffenden Masken ein größerer Aufwand...
Ich hoffe es hilft.

Dazu muss die Prozedur entsprechend ausgebaut werden und im Maskeneditor in der jeweiligen Maske das TLabel Objekt für die Messagebox eingefügt und das OnDataChange Script eingefügt und der Parameter i_Woher für den Prozeduraufruf muss angepasst werden...
In Summe für alle betreffenden Masken ein größerer Aufwand...
Ich hoffe es hilft.
Schöne Grüße aus Leipzig
Denis
-
Linux - my life is too short for reboots
Denis
-
Linux - my life is too short for reboots
-
- Beiträge: 627
- Registriert: So Mär 05, 2006 5:30 pm
Re: Lieferschein - Chargenpflicht
Hallo denis robel,
danke für den Beitrag
Werde das mal testen.
Gruß
PaGl
danke für den Beitrag



Werde das mal testen.
Gruß
PaGl