Projekt

Allgemein

Profil

Barcode-Zentraldokument » Historie » Version 6

[S] Philipp K, 18.09.2018 11:01

1 1 [X] Marcus F
h1. Barcode-Zentraldokument
2
3
h2. Pro Kunde / Lieferant individuell Informationen in Barcodes mitgeben
4
5 6 [S] Philipp K
* in Adressstamm unter Reiter Kontaktpflege im Fenster Eigenschaften die entsprechenden Parameter auswählen.
6 1 [X] Marcus F
* verfügbar ab Version 12.06.00 
7
* Parameter adk Stand 22.09.16
8
* Barcodes (Beispiel unten) werden nur gezeigt, wenn Information verfügbar (wenn es keine Bestellnr Kunde gibt, dann wird der Barcode nicht gedruckt)
9
<pre><code class="sql">
10 4 [S] Philipp K
('Barcode Artikel-Nr.', 'Zentraldokument', 'ptBOOLEAN', 'adk', 'Zentraldokument.BC.ArtNr', 1),
11 1 [X] Marcus F
('Barcode Beleg-Nr.', 'Zentraldokument', 'ptBOOLEAN', 'adk', 'Zentraldokument.BC.BelegNr', 2),
12
('Barcode Referenz Position', 'Zentraldokument', 'ptBOOLEAN', 'adk', 'Zentraldokument.BC.PosRef', 3),
13
('Barcode Artikel-Nr. Kunde', 'Zentraldokument', 'ptBOOLEAN', 'adk', 'Zentraldokument.BC.ArtRef', 4),
14
('Barcode Menge Position', 'Zentraldokument', 'ptBOOLEAN', 'adk', 'Zentraldokument.BC.PosMenge', 5)
15
('Barcode Beleg-Nr. Kunde', 'Zentraldokument', 'ptBOOLEAN', 'adk', 'Zentraldokument.BC.BelegKunde', 6); 
16
</code></pre>
17
18 2 [X] Marcus F
!http://redmine.prodat-sql.de/attachments/download/6217/barcodes-params.png!
19
20 1 [X] Marcus F
h2. Zuweisung der Barcodes in Init und PosTxt Scripten (beispielhaft)
21
22
* Im Init.Script werden die Beleg Header Barcodes gefüllt, adkdbrid wird geholt 
23
{{collapse(Init)
24
<pre><code class="sql">
25
26
var belegnr, belegkunde : Boolean;      
27
  
28
begin
29
30 3 [X] Marcus F
//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)
31 1 [X] Marcus F
 adkdbrid:='';
32
 SQL_PREPARE('SELECT dbrid FROM adk WHERE ad_krz=:adkrz ');
33 3 [X] Marcus F
 SQL_PARA_S('adkrz',<WorkSql."dokument_adresse_ident">);
34 1 [X] Marcus F
 SQL_OPEN;
35
 adkdbrid:=SQL_GETRESULTS('dbrid');
36
 
37
{BARCODE ANFANG}
38
If (  ((IsAfterReport=0)OR(IsAfterReport=2)) AND (<WorkSql."doktype_force">='lfs') ) then begin  
39
// Barcode Paramter Header holen  
40
  SQL_PREPARE('SELECT TRecnoParam.GetBool(''Zentraldokument.BC.BelegNr'', :adkdbrid) AS belegnr, '+
41
               #13#10+'TRecnoParam.GetBool(''Zentraldokument.BC.BelegKunde'', :adkdbrid) AS belegkunde');
42
  SQL_PARA_S('adkdbrid',adkdbrid);
43
  SQL_OPEN; 
44
  belegnr:=SQL_GETRESULTB('belegnr'); // vorerst nicht aktiv, da Standard aus ReportSettings überschrieben wir, DMS benötigt für automatisiertes Scannen den Dokumenttyp (LFS)
45
  belegkunde:=SQL_GETRESULTB('belegkunde');
46
   
47
  // Header Barcode aktivieren  
48
  ChildBarCode.Visible:=belegnr OR belegkunde OR (GetReportSettings_S('Header.BarcodeExprLifsch', '')<>'');
49
  If belegnr Then Begin
50
    // wir könnten die Nummer überschreiben, dann funktionieren allerdings keine PRODAT-Automatismen zB Datum setzen
51
    //BarCode.Expression:='<WorkSql."dokument_nummer">';
52
    //MemoBCText.Visible:=True;
53
    //MemoBCText.Text:='Lfs.-Nr.';
54
  End
55
  Else Begin
56
    BarCode.Expression:=GetReportSettings_S('Header.BarcodeExprLifsch', '');
57
  End;                                        
58
  
59
  // Sekundärer Barcode Header links
60
  If belegkunde Then Begin
61
    BarCodeSek.Visible:=True;
62
    BarCodeSek.Expression:='<WorkSql."dokument_nummer">';
63
    MemoBCTextSek.Visible:=True;
64
    MemoBCTextSek.Text:='Lfs.-Nr.'; 
65
  End;  
66
  
67
End; {BARCODE ENDE}
68
69
end.
70
71
</code></pre>
72
}} 
73
* Im PosTxt.Script werden die Positionen-Barcodes gefüllt
74
{{collapse(PosTxt)
75
<pre><code class="sql">
76
77
var posref, artref, posmenge : Boolean;    
78
79
begin
80
81
 //Hauptausdruck und Lieferschein 
82
 If (  ((IsAfterReport=0)OR(IsAfterReport=2)) AND (<WorkSql."doktype_force">='lfs') ) then begin
83
 // Barcode Positionen Paramter holen  
84
  SQL_PREPARE('SELECT TRecnoParam.GetBool(''Zentraldokument.BC.PosRef'', :adkdbrid) AS posref, '+
85
               #13#10+'TRecnoParam.GetBool(''Zentraldokument.BC.ArtRef'', :adkdbrid) AS artref, '+
86
               #13#10+'TRecnoParam.GetBool(''Zentraldokument.BC.PosMenge'', :adkdbrid) AS posmenge');
87
  SQL_PARA_S('adkdbrid',adkdbrid);
88
  SQL_OPEN; 
89
  posref:=SQL_GETRESULTB('posref');
90
  artref:=SQL_GETRESULTB('artref'); 
91
  posmenge:=SQL_GETRESULTB('posmenge');   
92
    
93
  // Pos Barcode aktivieren
94
  ChildPosBarcode.Visible:=posref OR artref OR posmenge OR (GetReportSettings_S('Position.'+<r_dokutype>+'.BarcodeExpr1', '')<>'');         
95
  If posref AND NOT EMPTY(<position."referenz">) Then Begin                    
96
    BarCodePosition1.Expression:='<position."referenz">';
97
    MemoBCTextPos.Visible:=True;
98
    MemoBCTextPos.Text:='Ihre'+<slinebreak>+'Bestell-Nr.';
99
  End  
100
  Else If (GetReportSettings_S('Position.'+<r_dokutype>+'.BarcodeExpr1', '')<>'') Then Begin          
101
    BarCodePosition1.Expression:=GetReportSettings_S('Position.'+<r_dokutype>+'.BarcodeExpr1', ''); 
102
  End
103
  Else Begin
104
    BarCodePosition1.Visible:=False; // Deaktivieren, da im Standard sichtbar
105
    MemoBCTextPos.Visible:=False;
106
  End; 
107
  
108
  If artref AND NOT EMPTY(<position."artikelnummer_adressant">) Then Begin
109
    BarCodePosition2.Visible:=True;
110
    BarCodePosition2.Expression:='<position."artikelnummer_adressant">';
111
    MemoBCTextPos2.Visible:=True;
112
    MemoBCTextPos2.Text:='Ihre'+<slinebreak>+'Artikel-Nr'; 
113
    MemoBCTextAbstPos2.Visible:=True;
114
  End;
115
  
116
  If posmenge Then Begin
117
    BarCodePosition3.Visible:=True;
118
    BarCodePosition3.Expression:='<position."menge">';
119
    MemoBCTextPos3.Visible:=True;
120
    MemoBCTextPos3.Text:='Menge'; 
121
    MemoBCTextAbstPos3.Visible:=True;
122
  End;     
123
    
124
 End;
125
126
end.
127
128
</code></pre>
129
}}  
130
131
* Label-Texte sind in diesem Beispiel noch nicht auf Trans-Variablen umgestellt ~ Auslandskunden
132
133
134
!http://redmine.prodat-sql.de/attachments/download/6214/barcodes-lfs.png!