;Exemple d'utilisation de la dll ybarcode.dll
;1) les commandes 
;- obligatoires
;<b>nnn numéro du code barre
;<d> ou <data>le texte du code barre
;
;- facultatives et selon le type de code barres
;<height>nnnn ou <h>nnnn hauteur du code barre, par défaut 50
;<whitesp>nnn ou <w>nnnn taille de l'espace devant le dessin du code barre
;<scale>nnn              échelle de dessin par défaut 1
;
;<border>nnn             taille du bord autour du code barre
;<box>						 ajout du dessin d'une boite autour du code barre
;<bind>						 ajout de dessin de bord devant et dernière le code barre
;
;<reverse> ou <r>        inverse le dessin noir/blanc devient blanc/noir
;<fg>hhhhhh					 couleur du fond
;<bg>hhhhhh              couleur des barres
;
;<rotate>nnn             rotation 0 ou 90 ou 180 ou 270
;
;<p> ou <primary>        texte bis pour les code barres Maxicode et els Composites
;<gs1>						 traite la donnée au format GS1 
;<null>nnn               numéro du caractère représentant le caractère NULL ($00)
;
;<cols>nnnn              nombre de colonnes pour le code barre PDF417
;<vers>nnnn              numéro de version pour le code barre QR Code
;<ver>nnnn               numéro de version (champ option_2)
;<secure>nnnn            numéro de niveau de correction pour les codes barres PDF417 et QR Code
;<mode>nnnn              mode d'encodage pour les codes barres Maxicode et les Composites
;
;<option_1>nnnn			pour ecrire dans le champ option_1
;<option_2>nnnn			pour ecrire dans le champ option_2
;<option_3>nnnn			pour ecrire dans le champ option_3
;<rows>nnnn					pour ecrire dans le champ rows
;<width>nnnn				pour ecrire dans le champ width

;attention :
;- la commande <data> (ou <d>) DOIT TOUJOURS ETRE LA DERNIERE COMMANDE
;
;- si les données peuvent contenir les caractères < ou > alors il faut utiliser 
;l'instruction hmpencode  pour encoder la valeur de <data> (ou<d>) et la valeur de
;la commande <primary> (ou <p>)
;
;2) les types de codes barres
;
; 1: Code 11           51: Pharma One-Track         89: ITF-14
; 2: Standard 2of5     52: PZN                      90: KIX Code
; 3: Interleaved 2of5  53: Pharma Two-Track         92: Aztec Code
; 4: IATA 2of5         55: PDF417                   93: DAFT Code
; 6: Data Logic        56: PDF417 Trunc             97: Micro QR Code
; 7: Industrial 2of5   57: Maxicode                 98: HIBC Code 128
; 8: Code 39           58: QR Code                  99: HIBC Code 39
; 9: Extended Code 39  60: Code 128-B              102: HIBC Data Matrix
;13: EAN               63: AP Standard Customer    104: HIBC QR Code
;16: GS1-128           66: AP Reply Paid           106: HIBC PDF417
;18: Codabar           67: AP Routing              108: HIBC MicroPDF417
;20: Code 128          68: AP Redirection          110: HIBC Codablock-F
;21: Leitcode          69: ISBN                    128: Aztec Runes
;22: Identcode         70: RM4SCC                  129: Code 23
;23: Code 16k          71: Data Matrix             130: Comp EAN
;24: Code 49           72: EAN-14                  131: Comp GS1-128
;25: Code 93           74: Codablock-F             132: Comp Databar-14
;28: Flattermarken     75: NVE-18                  133: Comp Databar Ltd
;29: Databar-14        76: Japanese Post           134: Comp Databar Ext
;30: Databar Limited   77: Korea Post              135: Comp UPC-A
;31: Databar Extended  79: Databar-14 Stack        136: Comp UPC-E
;32: Telepen Alpha     80: Databar-14 Stack Omni   137: Comp Databar-14 Stack
;34: UPC-A             81: Databar Extended Stack  138: Comp Databar Stack Omni
;37: UPC-E             82: Planet                  139: Comp Databar Ext Stack
;40: Postnet           84: MicroPDF                140: Channel Code
;47: MSI Plessey       85: USPS OneCode            141: Code One
;49: FIM               86: UK Plessey			      171: data matrix carré
;50: Logmars           87: Telepen Numeric	

;à partir de la version de la dll depuis 2017, on a ajouté le code 171, Data matrix comme le code 71 
;mais en forçant le mode "dessin carré" sinon selon la valeur du code barre le dessin du data matrix s'étale en largeur puis en hauteur etc 
;ce qui donne parfois un dessin "rectangulaire" , un peu comme s'il y avait deux data matrix côte à côte et donc cela peut déborder de l'objet codebarre
;et donc devenir illisible, le code 171 est donc la même chose que le code 71 mais avec l'option3 a la valeur 100,
;on peut aussi écrire  <b>71<option_3>100<d>01950902101015010 => cella donne toujours un dessin carré
;
;3) les erreurs possibles

;4) pour passer la dll ybarcode en mode debug 
;créer le fichier ybarcode.ini
;et mettre dans le chapitre 
;[ybarcode]
;debug=1
;lancez votre programme , le résultat du debug se trouve dans le fichier 
;ybarcode.log
;
;5) voir le site 
;   http://www.zint.org.uk/zintSite/Manual.aspx
;	 pour la doc complète de la bibliothèque zint

;6) au 31/08/2009 ybarcode.dll contient
;attention le maxicode ne marche pas dans cette version
;ybarcode.dll version 1.01   du 21/08/2009
;zint         version 2.2.1  du 18/08/2009 (plus correction jusqu'au 26/08/2009 patchset367)  
;qrencode     version 3.1.0  du 06/06/2009
;zlib         version 1.2.3  du 17/07/2005
;libpng       version 1.2.37 du 04/06/2009
;
;au 17/08/2010 ybarcode.dll contient
;ybarcode.dll version 1.04   du 17/06/2010"
;zint         version 2.3.2  du 29/05/2010"
;qrencode     version 3.1.1  du 03/02/2010"
;zlib         version 1.2.5  du 19/04/2010"
;libpng       version 1.2.37 du 04/06/2009"
;
;7) affichage et impression
;La dll ybarcode génère le code barre dans un fichier de travail de type png
;Le runtime harmony prend en charge la création et la suppresion de ce fichier de travail
;Le programme diva n'a donc pas à traiter ce fichier.
;L'impression du code barre se fait selon la valeur du champ "largeur d'un élément"
;dans l'objet code barre de xwin 
;la formule utilisée est 
; nombre de point x du fichier png * largeur d'un élément
; nombre de point y du fichier png * largeur d'un élément
;Ceci donne une longueur et une largeur en dixième de millimètre.
;Vous pouvez augmenter ou réduire la taille du dessin du code barres
;en augmentant ou en réduisant la valeur du champ "largeur d'un élément"
;
;Exception, le code barre maxicode est généré par la dll ybarcode avec une taille de 1 pouce
;cette taille est multipliée par la valeur du champ "largeur d'un element"  
;puis divisée par la	valeur 34
;Si la valeur du champ "largeur d'un élément" est égale à 34
;ce qui correspond à la valeur par défaut de l'objet code barre
;alors la taille du maxicode est de "taille*34/34", c'est à dire de un pouce 
;Ainsi la valeur par défaut (34) est la valeur 'pivot' de dessin
;
;En réduisant ou en agrandissant la valeur du champ "largeur d'un élément"
;vous pouvez réduire ou agrandir le dessin du code barre maxicode

 define masquexmi  = "demoybarcode.dhoi"

public record demoybarcode.dhsd test test  = " "	
record * htdf tdf
1	st		x
1	bb	  x
;http://www.zint.org.uk/zintSite/Manual.aspx?page=11
1	enreg		1024
1	CAR_RS 1
1	CAR_GS 1
1	CAR_ET 1
;Postcode data which can consist of up to 9 digits (for mode 2) or up to 6 alphanumeric characters (for mode 3). Remaining unused characters should be filled with the SPACE character (ASCII 32).
1 codepostal 9      ;obligatoirement de 9
;Three digit country code according to ISO 3166 (see Appendix B).
;http://www.zint.org.uk/zintSite/Manual.aspx?page=15     
1 country     3
;Three digit service code. This depends on your parcel courier.
1	servicecode 3
1	SHIFTC  1

procedure test_gs1_128c_b
beginp
	SHIFTC = 94					 	
	enreg = \
	"[)>"          & CAR_RS & \  	;entête 
	"01" & CAR_GS & "96" &    \   ;Transportation data header. 5 caractères avec le code GS, obligatoire
	"1Z00004951"   & CAR_GS & \	;Tracking number. entre 10 et 11 caractères (uniquement des majuscules + chiffres), obligatoire
	"UPSN"         & CAR_GS & \   ;Standard Carrier Alpha Code (SCAC). 4 carac + GS , obligatoire
	"9BCJ43"       & CAR_GS & \  	;UPS shipper number. 6 carac (uniquement des majuscules + chiffres) obligatoire
	"365"          & CAR_GS & \   ;Julian day of pickup. 3 caractères numériques , obligatoire
	"625TH9"       & CAR_GS & \   ;Shipment ID number. optionnel,  0-30 carac majuscules+chiffres. mettre toujours le code GS même s'il n'y a pas de donnée
	"1/1"          & CAR_GS & \   ;Package X of Y. obligatoire  1-3 chiffres pour x et 1-3 chiffres pour Y. et avec le caractere \ entre les deux
	"10"           & CAR_GS & \   ;Package weight in pounds. obligatoire 1-3 chiffres
	"Y"            & CAR_GS & \   ;Address validation. obligatoire . Y ou N
	"15 RUE ICARE" & CAR_GS & \   ;Ship-to address. optionnel . 0-35 carac majuscules+chiffees mettre toujours le code GS même s'il n'y a pas de donnée
	"TANNERIES"    & CAR_GS & \   ;Ship-to city. obligatoire. 1-20 carac majuscules+chiffees
	"FR"           & CAR_RS & \   ;Ship-to state. obligatoire. 2 carac majuscules , RS indique la fin du champ de du texte
	CAR_ET						      ;EOT indique la fin des datas
	test.text2 = enreg
	test.text2 = modify("[)>","",test.text2)
	test.text2 = modify(CAR_GS," ",test.text2)
	test.text2 = modify(CAR_RS," ",test.text2)
	test.text2 = modify(CAR_ET," ",test.text2)
	enreg = hmpencode(left(enreg))
	test.text1 = "57 maxicode UPS"
	;mode 2 et 3 son en fait identique 
	test.ttt   = "<b>57<mode>3<primary>" & codepostal & country & servicecode & "<d>" & left(enreg)
	PrintBegin
	xmiprint masquexmi 1			
	PrintEnd
endp

procedure test_maxicode_ups
beginp
	CAR_RS = $1E						   ;30
	CAR_GS = $1D							;29
	CAR_ET = $04							;04
	;primary message  codepostal + contry + code du service
	codepostal = "67000"
	country     = 250   ;france
	servicecode = 068	
	;data 
	enreg = \
	"[)>"          & CAR_RS & \  	;entête 
	"01" & CAR_GS & "96" &    \   ;Transportation data header. 5 caractères avec le code GS, obligatoire
	"1Z00004951"   & CAR_GS & \	;Tracking number. entre 10 et 11 caractères (uniquement des majuscules + chiffres), obligatoire
	"UPSN"         & CAR_GS & \   ;Standard Carrier Alpha Code (SCAC). 4 carac + GS , obligatoire
	"9BCJ43"       & CAR_GS & \  	;UPS shipper number. 6 carac (uniquement des majuscules + chiffres) obligatoire
	"365"          & CAR_GS & \   ;Julian day of pickup. 3 caractères numériques , obligatoire
	"625TH9"       & CAR_GS & \   ;Shipment ID number. optionnel,  0-30 carac majuscules+chiffres. mettre toujours le code GS même s'il n'y a pas de donnée
	"1/1"          & CAR_GS & \   ;Package X of Y. obligatoire  1-3 chiffres pour x et 1-3 chiffres pour Y. et avec le caractere \ entre les deux
	"10"           & CAR_GS & \   ;Package weight in pounds. obligatoire 1-3 chiffres
	"Y"            & CAR_GS & \   ;Address validation. obligatoire . Y ou N
	"15 RUE ICARE" & CAR_GS & \   ;Ship-to address. optionnel . 0-35 carac majuscules+chiffees mettre toujours le code GS même s'il n'y a pas de donnée
	"TANNERIES"    & CAR_GS & \   ;Ship-to city. obligatoire. 1-20 carac majuscules+chiffees
	"FR"           & CAR_RS & \   ;Ship-to state. obligatoire. 2 carac majuscules , RS indique la fin du champ de du texte
	CAR_ET						      ;EOT indique la fin des datas
	
	test.text2 = enreg
	test.text2 = modify("[)>","",test.text2)
	test.text2 = modify(CAR_GS," ",test.text2)
	test.text2 = modify(CAR_RS," ",test.text2)
	test.text2 = modify(CAR_ET," ",test.text2)
	enreg = hmpencode(left(enreg))
	test.text1 = "57 maxicode UPS"
	;mode 2 et 3 son en fait identique 
	test.ttt   = "<b>57<mode>3<primary>" & codepostal & country & servicecode & "<d>" & left(enreg)
	PrintBegin
	xmiprint masquexmi 1			
	PrintEnd
endp

main 
	xmiload masquexmi
	tdf.Name = "demoybarcode.txt"					
	st = fopen(tdf,"p")
	if st <> 0 
		display "erreur à l'ouverture du fichier demoybarcode.txt"
		ProgramExit
	endif
	PrintBegin
	do 	
		st = fread (tdf, enreg)
		if st = 0
			if mid(test,1,1) <> ";"   ;c'est un commentaire ?
				bb  = val(hmpseek(enreg,"b"," "))	;c'est une commande code barre ?
				if bb = 0
					test.text1 = enreg					;nom du code barre
				else
			 		test.text2 = enreg
					test.ttt = enreg
					if bb = 23 or bb = 24 or bb = 74
						xmiprint masquexmi 2			;code barre plus haut
					else
						xmiprint masquexmi 1			
					endif
				endif
			endif
		endif
	while st = 0 
	wend
	test_maxicode_ups
	test_gs1_128c_b
	PrintEnd
	fclose(tdf)
	ProgramExit