Lieferschein - Chargenpflicht

Diskussionen über Anwenderwünsche und deren Sinn oder Unsinn für die Allgemeinheit

Moderator: SYNERPY

Antworten
PaGL
Beiträge: 616
Registriert: So Mär 05, 2006 5:30 pm

Lieferschein - Chargenpflicht

Beitrag von PaGL »

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
denis robel
Beiträge: 203
Registriert: Fr Jul 01, 2005 6:33 pm
Wohnort: Leipzig

Re: Lieferschein - Chargenpflicht

Beitrag von denis robel »

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)...
Schöne Grüße aus Leipzig

Denis

-
Linux - my life is too short for reboots
PaGL
Beiträge: 616
Registriert: So Mär 05, 2006 5:30 pm

Re: Lieferschein - Chargenpflicht

Beitrag von PaGL »

Hallo,

ja, das gilt auch für die Seriennummer.

Der Lösungsansatz ist ein erheblicher Programmieraufwand. :shock:

Gruß
PaGl
denis robel
Beiträge: 203
Registriert: Fr Jul 01, 2005 6:33 pm
Wohnort: Leipzig

Re: Lieferschein - Chargenpflicht

Beitrag von denis robel »

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.
Schöne Grüße aus Leipzig

Denis

-
Linux - my life is too short for reboots
denis robel
Beiträge: 203
Registriert: Fr Jul 01, 2005 6:33 pm
Wohnort: Leipzig

Re: Lieferschein - Chargenpflicht

Beitrag von denis robel »

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 robel
Beiträge: 203
Registriert: Fr Jul 01, 2005 6:33 pm
Wohnort: Leipzig

Re: Lieferschein - Chargenpflicht

Beitrag von denis robel »

Für die Maske BRLSP (Lieferscheinpos) im OnDataChange Script folgende Ergänzung:

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;
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.
Schöne Grüße aus Leipzig

Denis

-
Linux - my life is too short for reboots
denis robel
Beiträge: 203
Registriert: Fr Jul 01, 2005 6:33 pm
Wohnort: Leipzig

Re: Lieferschein - Chargenpflicht

Beitrag von denis robel »

Das ganze kann dann entsprechend für die anderen Masken ausgebaut werden. :mrgreen:

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
PaGL
Beiträge: 616
Registriert: So Mär 05, 2006 5:30 pm

Re: Lieferschein - Chargenpflicht

Beitrag von PaGL »

Hallo denis robel,

danke für den Beitrag :o :o :!:
Werde das mal testen.

Gruß
PaGl
Antworten