Barcode-Zentraldokument¶

Pro Kunde / Lieferant individuell Informationen in Barcodes mitgeben¶

• in Adressstamm unter Reiter Kontaktpflege im Fenster Eigenschaften die entsprechenden Parameter auswählen.
• verfügbar ab Version 12.06.00
• Parameter adk Stand 22.09.16
• Barcodes (Beispiel unten) werden nur gezeigt, wenn Information verfügbar (wenn es keine Bestellnr Kunde gibt, dann wird der Barcode nicht gedruckt)
  

  ('Barcode Artikel-Nr.', 'Zentraldokument', 'ptBOOLEAN', 'adk', 'Zentraldokument.BC.ArtNr', 1),
  ('Barcode Beleg-Nr.', 'Zentraldokument', 'ptBOOLEAN', 'adk', 'Zentraldokument.BC.BelegNr', 2),
  ('Barcode Referenz Position', 'Zentraldokument', 'ptBOOLEAN', 'adk', 'Zentraldokument.BC.PosRef', 3),
  ('Barcode Artikel-Nr. Kunde', 'Zentraldokument', 'ptBOOLEAN', 'adk', 'Zentraldokument.BC.ArtRef', 4),
  ('Barcode Menge Position', 'Zentraldokument', 'ptBOOLEAN', 'adk', 'Zentraldokument.BC.PosMenge', 5),
  ('Barcode Beleg-Nr. Kunde', 'Zentraldokument', 'ptBOOLEAN', 'adk', 'Zentraldokument.BC.BelegKunde', 6),
  ('Barcode Typ', 'Zentraldokument', 'ptENUM', 'adk', 'Zentraldokument.BC.Typ', 7); 
  

Zuweisung der Barcodes in Init und PosTxt Scripten (beispielhaft)¶

• Im Init.Script werden die Beleg Header Barcodes gefüllt, adkdbrid wird geholt
  • nach #19747 Juni 23 ist ein Sub-Datset für die Barcodes vorhanden, sodass das Script vereinfacht werden kann. Manuelle SQL-Aufrufe für das Holen der Parameter entfallen
  • Init vor #19747Init vor #19747

    
    var belegnr, belegkunde : Boolean;      
    
    begin
    
    //dbrid der Kopfadresse für Auslesen von Eigenschaften zur Adresse (dokument_adresse_ident vefügbar ab 12.06.02 sonst muss die dbrid über ein Alternatives select geholt werden, zB über adk1 bzw adk2)
     adkdbrid:='';
     SQL_PREPARE('SELECT dbrid FROM adk WHERE ad_krz=:adkrz ');
     SQL_PARA_S('adkrz',<WorkSql."dokument_adresse_ident">);
     SQL_OPEN;
     adkdbrid:=SQL_GETRESULTS('dbrid');
    
    {BARCODE ANFANG}
    If (  ((IsAfterReport=0)OR(IsAfterReport=2)) AND (<WorkSql."doktype_force">='lfs') ) then begin  
    // Barcode Paramter Header holen  
      SQL_PREPARE('SELECT TRecnoParam.GetBool(''Zentraldokument.BC.BelegNr'', :adkdbrid) AS belegnr, '+
                   #13#10+'TRecnoParam.GetBool(''Zentraldokument.BC.BelegKunde'', :adkdbrid) AS belegkunde');
      SQL_PARA_S('adkdbrid',adkdbrid);
      SQL_OPEN; 
      belegnr:=SQL_GETRESULTB('belegnr'); // vorerst nicht aktiv, da Standard aus ReportSettings überschrieben wir, DMS benötigt für automatisiertes Scannen den Dokumenttyp (LFS)
      belegkunde:=SQL_GETRESULTB('belegkunde');
    
      // Header Barcode aktivieren  
      ChildBarCode.Visible:=belegnr OR belegkunde OR (GetReportSettings_S('Header.BarcodeExprLifsch', '')<>'');
      If belegnr Then Begin
        // wir könnten die Nummer überschreiben, dann funktionieren allerdings keine PRODAT-Automatismen zB Datum setzen
        //BarCode.Expression:='<WorkSql."dokument_nummer">';
        //MemoBCText.Visible:=True;
        //MemoBCText.Text:='Lfs.-Nr.';
      End
      Else Begin
        BarCode.Expression:=GetReportSettings_S('Header.BarcodeExprLifsch', '');
      End;                                        
    
      // Sekundärer Barcode Header links
      If belegkunde Then Begin
        BarCodeSek.Visible:=True;
        BarCodeSek.Expression:='<WorkSql."dokument_nummer">';
        MemoBCTextSek.Visible:=True;
        MemoBCTextSek.Text:='Lfs.-Nr.'; 
      End;  
    
    End; {BARCODE ENDE}
    
    end.
    
    

• Im PosTxt.Script werden die Positionen-Barcodes gefüllt
  • nach #19747 Juni 23 ist ein Sub-Datset für die Barcodes vorhanden, sodass das Script vereinfacht werden kann. Manuelle SQL-Aufrufe für das Holen der Parameter entfallen
  • PosTxt vor #19747PosTxt vor #19747

    
    var posref, artref, posmenge : Boolean;    
    
    begin
    
     //Hauptausdruck und Lieferschein 
     If (  ((IsAfterReport=0)OR(IsAfterReport=2)) AND (<WorkSql."doktype_force">='lfs') ) then begin
     // Barcode Positionen Paramter holen  
      SQL_PREPARE('SELECT TRecnoParam.GetBool(''Zentraldokument.BC.PosRef'', :adkdbrid) AS posref, '+
                   #13#10+'TRecnoParam.GetBool(''Zentraldokument.BC.ArtRef'', :adkdbrid) AS artref, '+
                   #13#10+'TRecnoParam.GetBool(''Zentraldokument.BC.PosMenge'', :adkdbrid) AS posmenge');
      SQL_PARA_S('adkdbrid',adkdbrid);
      SQL_OPEN; 
      posref:=SQL_GETRESULTB('posref');
      artref:=SQL_GETRESULTB('artref'); 
      posmenge:=SQL_GETRESULTB('posmenge');   
    
      // Pos Barcode aktivieren
      ChildPosBarcode.Visible:=posref OR artref OR posmenge OR (GetReportSettings_S('Position.'+<r_dokutype>+'.BarcodeExpr1', '')<>'');         
      If posref AND NOT EMPTY(<position."referenz">) Then Begin                    
        BarCodePosition1.Expression:='<position."referenz">';
        MemoBCTextPos.Visible:=True;
        MemoBCTextPos.Text:='Ihre'+<slinebreak>+'Bestell-Nr.';
      End  
      Else If (GetReportSettings_S('Position.'+<r_dokutype>+'.BarcodeExpr1', '')<>'') Then Begin          
        BarCodePosition1.Expression:=GetReportSettings_S('Position.'+<r_dokutype>+'.BarcodeExpr1', ''); 
      End
      Else Begin
        BarCodePosition1.Visible:=False; // Deaktivieren, da im Standard sichtbar
        MemoBCTextPos.Visible:=False;
      End; 
    
      If artref AND NOT EMPTY(<position."artikelnummer_adressant">) Then Begin
        BarCodePosition2.Visible:=True;
        BarCodePosition2.Expression:='<position."artikelnummer_adressant">';
        MemoBCTextPos2.Visible:=True;
        MemoBCTextPos2.Text:='Ihre'+<slinebreak>+'Artikel-Nr'; 
        MemoBCTextAbstPos2.Visible:=True;
      End;
    
      If posmenge Then Begin
        BarCodePosition3.Visible:=True;
        BarCodePosition3.Expression:='<position."menge">';
        MemoBCTextPos3.Visible:=True;
        MemoBCTextPos3.Text:='Menge'; 
        MemoBCTextAbstPos3.Visible:=True;
      End;     
    
     End;
    
    end.
    
    

• Label-Texte sind in diesem Beispiel noch nicht auf Trans-Variablen umgestellt ~ Auslandskunden