Reply to this topicStart new topicStart Poll

> winprint
SYL59
Posted: 05/10/17 11:16
Quote Post


Newbie


Group: Membre
Posts: 6
Member No.: 19022
Joined: 09/10/12
Submissions: None Submitted
Downloads: No Files Downloaded



bonjour j utilise winprint pour convertir mes impressions en pdf. Mais je voudrais avoir un document par page imprimée (1 page = 1 facture - 1 facture = 1 document) mais je n'arrive pas à séparer mes documents. Toutes les factures se retrouvent dans le même document. J'ai mis des code chr$(/1A), des close=(imprimante) dans mon programme abal mais rien n'y fait. Quelqu'un aurait une solution ?????
PMEmail Poster
Top
root
Posted: 05/10/17 18:23
Quote Post


God of the forum
*******

Group: Admin
Posts: 6055
Member No.: 2
Joined: 10/05/02
Submissions: 10 
Downloads: 19



bonsoir Syl59
J'ai déplacé ton message vers cette catégorie de discussion consacrée à WinPrint
PM
Top
Churlet
Posted: 10/10/17 11:17
Quote Post


Hyper User
*****

Group: _Membre
Posts: 519
Member No.: 16
Joined: 01/06/02
Submissions: None Submitted
Downloads: 2



Bonjour,

Il faut faire un Close=2 de votre imprimante après chaque facture cela provoquera la création du fichier. Winprint crée un PDF pour un document.

Cordialement
Yves CHURLET
PMEmail Poster
Top
Churlet
Posted: 10/10/17 11:23
Quote Post


Hyper User
*****

Group: _Membre
Posts: 519
Member No.: 16
Joined: 01/06/02
Submissions: None Submitted
Downloads: 2



********************************************************************************
*
* Descr. : abalwinp.s
* Projet : <Impression dans un Fichier pour ABALWINPRINT>
* Auteur : Yves CHURLET
*
* Copyright © 2004, YC.
*
* <Description>
*
* Programme d'exemple permettant de r‚aliser une impression dans
* un Fichier.
*
* Sous Windows il est n‚cessaire d'installer une imprimante G‚n‚ric Text port File
* Dans la configuration ABAL-WINDOWS il faut associer le mn‚monique FIC a cette imprimante
* sur le port FILE: en mode Transparent.
*
* Liste des Modifications :
* 18/ 9/2004 : Creation du fichier
*
********************************************************************************
program "abalwinp"
;
const vrai%=0
const faux%=-1
;
dcl chemin$=50 ; Chemin des fichiers
dcl logo$=50 ; logo
dcl numfax$=50 ; Num‚ro du fax
dcl mail$=50 ; Adresse mail
dcl fichier$=50 ; chemin du fichier
dcl xtam$=1024 ; Tampon d'‚criture
;
;
;--------------------------------------------------------------------------------
forward proc main() ; Menu
forward proc parametre(ptr nom$=50,titre$=20):% ; Sasie d'une variable de 50 car
;--------------------------------------------------------------------------------
forward proc cadre(x%,y%,lar%,hau%,xc%,xf%) ; Dessine un cardre ‚cran
;--------------------------------------------------------------------------------
;
; Cette proc‚dure assign l'imprimante en fonction de l'os
; Prologue - Windows - USE'IT
; La valeur de retour est vrai si tous c'est bien pass‚, faux dans le cas contraire
;
forward proc assign_imprimante():%
;
;
forward proc liste()
;




proc assign_imprimante():%
dcl e%
endloc
;
assign=3,chemin!"imp000.imp",wr,ex
dfile=3:next,e
if e=40
e=0
endif
select conf(10)
case 0
assign=3,chemin!"imp000.imp(F)",im,wr,ex:next,e,xtam,1024
case 1
assign=3,"FIC("!chemin!"imp000.imp)",im,wr,ex:xtam,1024
default
assign=3,small(chemin)!"imp000(prologue,abalspool_previs)",im,wr,ex:next,e
endsel
;
on error goto &suite,e
print=3:tabv(0)
exit(vrai)

&suite
on error abort
exit(faux)

endproc


proc test()
dcl e%
endloc
if assign_imprimante()=vrai
print=3:tab(1),"IAPERCU",tabv(1)
print=3:tab(1),"ipage|04||||",tabv(1)
print=3:tab(1),"IPOLICE",tabv(1)
print=3:tab(1),"04",tabv(1)
print=3:tab(1),"DEBUT",tabv(1)
print=3:tab(1),"IPOLICE|05IPOLICE|GR",tabv(3)
print=3:tab(1),"EIS IPOLICE|NO",tabv(1)
print=3:tab(1),"IPOLICE|04IPOLICE|NOT‚l IPOLICE|03 : 02 99.72.15.15 ",tabv(1)
print=3:tab(1),"IPOLICE|04Fax IPOLICE|03 : 02 99.72.32.65 ",tabv(1)
print=3:tab(1),"IPOLICE|0420 BOULEVARD BONNE NOUVELLE ",tabv(0)
print=3:tab(1),"IPOLICE|04 - IPOLICE|GR35600IPOLICE|IT REDON "
print=3:tab(1),"IPOLICE|05 - IPOLICE|NOTEST bine au de la page"
print=3:tab(1),"IPOLICE|02 - TEST"
print=3:tabv(2),tab(1),"IPOLICE|04Ú",gener(75,"Ä"),"¿",tab(40),"IPOLICE|03IPOLICE|ITTITRE DU CADREIPOLICE|04IPOLICE|NO",tabv(1)
for e=1 to 20
print=3:"IPOLICE|02",tab(1),"³IPOLICE|04",tab(1),tab(77),"³",tabv(1)
next e
print=3:"IPOLICE|02",tab(1),"IPOLICE|04À",gener(75,"Ä"),"Ù",tab(40),"IPOLICE|03IPOLICE|ITTITRE DU CADREIPOLICE|04IPOLICE|NO",tabv(1)

print=3:"IPOSXY|001|040IPOLICE|04",tab(1),"Ú",gener(70,"Ä"),"¿",tab(40),"IPOLICE|03IPOLICE|ITTITRE DU CADREIPOLICE|04IPOLICE|NO",tabv(1)
for e=1 to 15
print=3:tab(1),"³",tab(72),"³",tabv(1)
next e
print=3:tab(1),"À",gener(70,"Ä"),"Ù",tab(40),"IPOLICE|03IPOLICE|ITTITRE DU CADREIPOLICE|04IPOLICE|NO",tabv(1)
;
; "ÚÄ¿³ÙÀÉÍ»º¼ÈÕ͸³¾ÔÖÄ·º½Ó"
;
close=3:next,e
endif
endproc

proc liste()
dcl pag1%,li%,e%
endloc
if assign_imprimante()=vrai
; S‚quence facultative
;--------------------------------------------------------------------------------
print=3:tab(1),"ICONFIGURE",tabv(1)
print=3:tab(1),"IAPERCU",tabv(1)
print=3:tab(1),"page|ABALWINPRINT DEMONSTRATION|0",tabv(1)
print=3:tab(1),"ORIENTATION",tabv(1)
print=3:tab(1),"PORTRAIT",tabv(1)
print=3:tab(1),"ICREEPOLICE",tabv(1)
print=3:tab(1),"10|18|INORMAL|ARIAL BLACK|INOIR|0",tabv(1)
print=3:tab(1),"IPOLICE",tabv(1)
print=3:tab(1),"03",tabv(1)
print=3:tab(1),"FORMATPAPIER",tabv(1)
print=3:tab(1),"A4",tabv(1)
;--------------------------------------------------------------------------------
; S‚quence Obligatoire
print=3:tab(1),"DEBUT",tabv(1)
;--------------------------------------------------------------------------------
pag1=0
do
if pag1=3
break
endif
if pag1=0
gosub &entete
else
if li>66
print=3:page
gosub &entete
endif
endif
print=3:tab(1),"IPOLICE|04IPOLICE|NOImpression police 4 sans Attribu",tabv(1)
print=3:tab(1),"IPOLICE|04IPOLICE|NOIPOLICE|SLImpression police 4 Soulign‚",tabv(1)
print=3:tab(1),"IPOLICE|04IPOLICE|NOIPOLICE|ITImpression police 4 Italique",tabv(1)
print=3:tab(1),"IPOLICE|04IPOLICE|NOIPOLICE|GRImpression police 4 Gras",tabv(1)
print=3:tab(1),"IPOLICE|04IPOLICE|NOIPOLICE|ETImpression police 4 Etendue",tabv(1)
print=3:tab(1),"IPOLICE|04IPOLICE|NOIPOLICE|LAImpression police 4 Large",tabv(1)
print=3:tab(1),"IPOLICE|04IPOLICE|NOIPOLICE|COImpression police 4 Condens‚",tabv(1)
print=3:tab(1),"IPOLICE|03IPOLICE|NOImpression police 3 sans Attribu",tabv(1)
print=3:tab(1),"IPOLICE|03IPOLICE|NOIPOLICE|SLImpression police 3 Soulign‚",tabv(1)
print=3:tab(1),"IPOLICE|03IPOLICE|NOIPOLICE|ITImpression police 3 Italique",tabv(1)
print=3:tab(1),"IPOLICE|03IPOLICE|NOIPOLICE|GRImpression police 3 Gras",tabv(1)
print=3:tab(1),"IPOLICE|03IPOLICE|NOIPOLICE|ETImpression police 3 Etendue",tabv(1)
print=3:tab(1),"IPOLICE|03IPOLICE|NOIPOLICE|LAImpression police 3 Large",tabv(1)
print=3:tab(1),"IPOLICE|03IPOLICE|NOIPOLICE|COImpression police 3 Condens‚",tabv(1)
print=3:tab(1),"IPOLICE|02IPOLICE|NOImpression police 2 sans Attribu",tabv(1)
print=3:tab(1),"IPOLICE|02IPOLICE|NOIPOLICE|SLImpression police 2 Soulign‚",tabv(1)
print=3:tab(1),"IPOLICE|02IPOLICE|NOIPOLICE|ITImpression police 2 Italique",tabv(1)
print=3:tab(1),"IPOLICE|02IPOLICE|NOIPOLICE|GRImpression police 2 Gras",tabv(1)
print=3:tab(1),"IPOLICE|02IPOLICE|NOIPOLICE|ETImpression police 2 Etendue",tabv(1)
print=3:tab(1),"IPOLICE|02IPOLICE|NOIPOLICE|LAImpression police 2 Large",tabv(1)
print=3:tab(1),"IPOLICE|02IPOLICE|NOIPOLICE|COImpression police 2 Condens‚",tabv(1)
print=3:tab(1),"IPOLICE|01IPOLICE|NOImpression police 1 sans Attribu",tabv(1)
print=3:tab(1),"IPOLICE|01IPOLICE|NOIPOLICE|SLImpression police 1 Soulign‚",tabv(1)
print=3:tab(1),"IPOLICE|01IPOLICE|NOIPOLICE|ITImpression police 1 Italique",tabv(1)
print=3:tab(1),"IPOLICE|01IPOLICE|NOIPOLICE|GRImpression police 1 Gras",tabv(1)
print=3:tab(1),"IPOLICE|01IPOLICE|NOIPOLICE|ETImpression police 1 Etendue",tabv(1)
print=3:tab(1),"IPOLICE|01IPOLICE|NOIPOLICE|LAImpression police 1 Large",tabv(1)
print=3:tab(1),"IPOLICE|01IPOLICE|NOIPOLICE|COImpression police 1 Condens‚",tabv(1)
print=3:tab(1),"IPOLICE|04IPOLICE|NOIPOLICE|C1IPOLICE|COIPOLICE|GRIPOLICE|ITImpression police 4 Condens‚-Gras-Italique couleur rouge",tabv(1)
print=3:tab(1),"IPOLICE|04IPOLICE|NOIPOLICE|C3IPOLICE|COIPOLICE|GRIPOLICE|SlImpression police 4 Condens‚-Gras-Soulign‚ couleur Vert",tabv(1)
print=3:tab(1),"IPOLICE|04IPOLICE|NOIPOLICE|C5IPOLICE|GRIPOLICE|ITImpression police 4 Gras-Italique couleur Bleu",tabv(1)
print=3:tab(1),"IPOLICE|04IPOLICE|NOIPOLICE|C7IPOLICE|GRIPOLICE|LAImpression police 4 Gras-Large couleur Jaune",tabv(1)
print=3:tab(1),"IPOLICE|04IPOLICE|NOIPOLICE|C9IPOLICE|GRIPOLICE|ETImpression police 4 Gras-Etendue couleur cyanIPOLICE|CN",tabv(1)
li=li+34
loop
close=3:next,e
endif
end.proc
&entete
pag1=pag1 + 1
print=3:tab(1),"D‚monstration ABALWINPRINT",tab(60),"Page Nø ",pag1,tabv(2)
print=3:tab(25),"LISTE DES CLIENTS",tabv(2)
print=3:tab(1),"Code Nom T‚l‚phone T‚l‚copie",tabv(2)
li=6
return

endproc


proc facture_01()
print=3:tab(1),"ORIENTATION",tabv(1)
print=3:tab(1),"PAYSAGE",tabv(1)
print=3:tab(1),"IIMPRIMEIMAGE",tabv(1)
print=3:tab(1),logo,"|1|1|15|35",tabv(1)
print=3:tab(1),"ICREEPOLICE",tabv(1)
print=3:tab(1),"10|18|INORMAL|ARIAL BLACK|INOIR|0",tabv(1)
print=3:tab(1),"ICREEPOLICE",tabv(1)
print=3:tab(1),"11|14|IITALIQUE|TIMES NEW ROMAN|INOIR|0",tabv(1)
print=3:tab(1),"ICREEPOLICE",tabv(1)
print=3:tab(1),"12|08|INORMAL|TIMES NEW ROMAN|INOIR|0",tabv(1)
print=3:tab(1),"ICREEPOLICE",tabv(1)
print=3:tab(1),"13|06|IGRAS|TIMES NEW ROMAN|INOIR|0",tabv(1)
print=3:tab(1),"DEBUT",tabv(1)
print=3:tab(1),"IPOSXY|025|001IPOLICE|10IPOLICE|C5ABALWINPRINTIPOLICE|CN IPOSXY|130|003ICADREXY|030|005|010ICADREXY|030|009|000IPOSXY|133|004IPOLICE|12Facture Nø IPOSXY|133|008IPOLICE|02F031000088 ",tabv(1)
print=3:tab(1),"IPOSXY|025|008IPOLICE|11La s‚r‚nit‚ informatique IPOSXY|165|003ICADREXY|050|005|010ICADREXY|050|009|000IPOSXY|168|004IPOLICE|12Edit‚e le IPOSXY|168|008IPOLICE|02Lundi 6 Octobre 2003 ",tabv(1)
print=3:tab(1),"IPOSXY|025|014IPOLICE|12182, Bld Jean Mermoz IPOSXY|220|003ICADREXY|020|005|010ICADREXY|020|009|000IPOSXY|223|004IPOLICE|12Client Nø IPOSXY|223|008IPOLICE|02 700",tabv(1)
print=3:tab(1),"IPOSXY|025|017IPOLICE|1294550 Chevilly-la-rue IPOSXY|245|003ICADREXY|015|005|010ICADREXY|015|009|000IPOSXY|248|004IPOLICE|12Page Nø IPOSXY|248|008IPOLICE|02 1",tabv(1)
print=3:tab(1),"IPOSXY|025|020IPOLICE|12Tel 01.49.73.81.98 Fax 01.49.73.30.53",tabv(1)
print=3:tab(1),"IPOSXY|025|025IPOLICE|13S.A.R.L. au Capital de 10.000 Euros",tabv(1)
print=3:tab(1),"IPOSXY|025|027IPOLICE|13RCS Cretiel 987 789 987 00012",tabv(1)
print=3:tab(1),"IPOSXY|025|029IPOLICE|13TVA FR7798778998700012",tabv(1)
print=3:tab(1),"IPOSXY|085|038IPOLICE|04LE MEILLEUR CLIENT IPOSXY|180|038IPOLICE|04LE MEILLEUR CLIENT ",tabv(1)
print=3:tab(1),"IPOSXY|085|042IPOLICE|04154 RUE LECOURBE IPOSXY|180|042IPOLICE|04154 RUE LECOURBE ",tabv(1)
print=3:tab(1),"IPOSXY|085|046IPOLICE|04 IPOSXY|180|046IPOLICE|04 ",tabv(1)
print=3:tab(1),"IPOSXY|085|050IPOLICE|04 IPOSXY|180|050IPOLICE|04 ",tabv(1)
print=3:tab(1),"IPOSXY|085|054IPOLICE|04 IPOSXY|180|054IPOLICE|04 ",tabv(1)
print=3:tab(1),"IPOSXY|085|058IPOLICE|0494000 CRETIEL IPOSXY|180|058IPOLICE|0494000 CRETEIL ",tabv(1)
print=3:tab(1),"IPOSXY|085|062IPOLICE|04FRANCE IPOSXY|180|062IPOLICE|04FRANCE ",tabv(1)
print=3:tab(1),"IPOLICE|02",tabv(1)
print=3:tab(1),"IPOSXY|001|068ICADREXY|278|102|000ICADREXY|278|006|010ICADREXY|014|102|000IPOSXY|068|000ICADREXY|036|102|000IPOSXY|118|000ICADREXY|020|102|000IPOSXY|154|000ICADREXY|019|102|000IPOSXY|188|000ICADREXY|030|102|000IPOSXY|226|000ICADREXY|016|102|000",tabv(1)
print=3:tab(1),"IPOSXY|261|068ICADREXY|018|102|000IPOLICE|C7",tabv(1)
print=3:tab(1),"IPOSXY|002|070ColisITABX|015D‚signationITABX|069R‚f‚rence ITABX|104 Unit‚ ITABX|119 Pds Brut ITABX|138 Tare UnitITABX|155Poids NetITABX|173CubageITABX|189P.U.H.T. Par En ITABX|226P.U. NetITABX|242Montant HTITABX|261DouaneIPOLICE|CN",tabv(1)
print=3:tab(1),"IPOSXY|015|074 ITABX|242 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 39,00ITABX|015ECHALOTE 1KG* ITABX|06963 ITABX|104 39,00ITABX|119 39,000ITABX|138 ITABX|155"
print=3:"39,000ITABX|173 ITABX|189 1,40 /1 KgITABX|218 5,00ITABX|226 1,33ITABX|242 51,87ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 1 Lot Nø 1 ITABX|069 ITABX|104 ITABX|119 ITABX|138 ITABX|155"
print=3:" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 1085,00ITABX|015HER.CIVETTE CAT.1 IMPORT ITABX|069320 ITABX|104 1085,00ITABX|119 217,000ITABX|138 ITABX|155"
print=3:" 217,000ITABX|173 ITABX|189 1,00 /1 PiITABX|218 5,00ITABX|226 0,95ITABX|242 1030,75ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 2 Lot Nø 8 Lot Nø 73 LoITABX|069 ITABX|104 ITABX|119 ITABX|138 ITABX|155"
print=3:" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 40,00ITABX|015PDT RONDE S/V 10KGS ITABX|069704 ITABX|104 ITABX|119 400,000ITABX|138 ITABX|155"
print=3:" 400,000ITABX|173 ITABX|189 0,85 /1 KgITABX|218 5,00ITABX|226 0,80ITABX|242 323,00ITABX|26107019010",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 1 Lot Nø 2 Lot Nø 42 ITABX|069 ITABX|104 ITABX|119 ITABX|138 ITABX|155"
print=3:" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 76,00ITABX|015PDT CHARLOTTE 12.5KGS ITABX|069720 ITABX|104 ITABX|119 950,000ITABX|138 ITABX|155"
print=3:" 950,000ITABX|173 ITABX|189 0,50 /1 KgITABX|218 5,00ITABX|226 0,47ITABX|242 451,25ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 1 Lot Nø 15 ITABX|069 ITABX|104 ITABX|119 ITABX|138 ITABX|155"
print=3:" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 69,00ITABX|015SAL.BATAVIA CAT.1 FRANCE ITABX|069800 ITABX|104 828,00ITABX|119 414,000ITABX|138 ITABX|155"
print=3:" 414,000ITABX|173 ITABX|189 7,00 /1 CoITABX|218 5,00ITABX|226 6,65ITABX|242 458,85ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 45 Lot Nø 62 Lot Nø 70 ITABX|069 ITABX|104 ITABX|119 ITABX|138 ITABX|155"
print=3:" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 45,00ITABX|015SAL. COMPOSEE 500 G RC ITABX|069830 ITABX|104 45,00ITABX|119 22,500ITABX|138 ITABX|155"
print=3:" 22,500ITABX|173 ITABX|189 1,56 /1 PiITABX|218 5,00ITABX|226 1,48ITABX|242 66,69ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 22 Lot Nø 22 Lot Nø 77 ITABX|069 ITABX|104 ITABX|119 ITABX|138 ITABX|155"
print=3:" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 29,00ITABX|015POM.GOLDEN 70/75 2RGS ITABX|0691702 ITABX|104 ITABX|119 377,000ITABX|138 ITABX|155"
print=3:" 377,000ITABX|173 ITABX|189 0,65 /1 KgITABX|218 5,00ITABX|226 0,61ITABX|242 232,80ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 2 Lot Nø 25 ITABX|069 ITABX|104 ITABX|119 ITABX|138 ITABX|155"
print=3:" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 47,00ITABX|015POIRE WILLIAM PLT 60/65 ITABX|0691648 ITABX|104 1974,00ITABX|119"
print=3:" 360,100ITABX|138 0,500ITABX|155"" 336,600ITABX|173 ITABX|189 1,30 /1 KgITABX|218 5,00ITABX|226 1,23ITABX|242 415,70ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 7 Lot Nø 49 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155"" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 27,00ITABX|015ORANGE 10 PCS ITABX|069841 ITABX|104 ITABX|119 45,900ITABX|138"
print=3:" ITABX|155"" 45,900ITABX|173 ITABX|189 0,80 /1 KgITABX|218 5,00ITABX|226 0,76ITABX|242 34,88ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 25 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155"" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 65,00ITABX|015ORAN. a jus R.S.A. ITABX|0691522 ITABX|104 5720,00ITABX|119 994,500ITABX|138"
print=3:" ITABX|155"" 994,500ITABX|173 ITABX|189 0,80 /1 KgITABX|218 5,00ITABX|226 0,76ITABX|242 755,82ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 1 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155"" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 8,50ITABX|015SAL.LAITUE CAT.1 FRANCE ITABX|069791 ITABX|104 102,00ITABX|119 51,000ITABX|138"
print=3:" ITABX|155"" 51,000ITABX|173 ITABX|189 5,50 /1 CoITABX|218 5,00ITABX|226 5,22ITABX|242 44,41ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 10 Lot Nø 39 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155"" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 39,00ITABX|015TOMATE CAL.57 TURQUIE ITABX|069973 ITABX|104 ITABX|119 234,000ITABX|138"
print=3:" ITABX|155"" 234,000ITABX|173 ITABX|189 1,60 /1 KgITABX|218 5,00ITABX|226 1,52ITABX|242 355,68ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 1 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155"" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 5,00ITABX|015POIV vert Espagne 9kg ITABX|0691132 ITABX|104 ITABX|119 43,100ITABX|138"
print=3:" 0,500ITABX|155"" 40,600ITABX|173 ITABX|189 1,40 /1 KgITABX|218 5,00ITABX|226 1,33ITABX|242 54,00ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 2 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155"" ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|171ICADREXY|155|020|000ICADREXY|155|005|010ICADREXY|019|020|000IPOSXY|035|000ICADREXY|017|020|000IPOSXY|066|000ICADREXY|020|020|000IPOSXY|097|000ICADREXY|021|020|000",tabv(1)
print=3:tab(1),"IPOSXY|004|172Total HTIPOSXY|020|000GardeIPOSXY|038|000CTIFLIPOSXY|052|000InterfelIPOSXY|070|000Base HTIPOSXY|087|000TVAIPOSXY|098|000Montant TVAIPOSXY|127|000Net … Payer",tabv(1)
print=3:tab(1),"IPOSXY|002|177 IPOSXY|021|000 IPOSXY|033|000 IPOSXY|049|000 IPOSXY|067|000 IPOSXY|088|000 IPOSXY|100|000",tabv(1)
print=3:tab(1),"IPOSXY|067|180 IPOSXY|088|180 IPOSXY|100|180",tabv(1)
print=3:tab(1),"IPOSXY|067|183 IPOSXY|088|183 IPOSXY|100|183",tabv(1)
print=3:tab(1),"IPOSXY|067|186 IPOSXY|088|186 IPOSXY|138|186IPOLICE|C1 IPOLICE|CN",tabv(1)
print=3:tab(1),"IPOSXY|160|172",tabv(1)
print=3:tab(1),"IPOSXY|160|180 ",tabv(1)
print=3:tab(1),"IPOSXY|020|194",tabv(1)
print=3:tab(1),"IPOSXY|001|200IPOLICE|13Ce Document … ‚t‚ imprim‚ avec ABALWINPRINT en ABAL … partir d'une station TWINSERVER-WINDOWS-USE'IT. La t‚l‚copie … ‚t‚ ‚mise par le Serveur de FAX ABALWINPRINT.",tabv(1)
print=3:page
endproc

proc facture_02()
print=3:tab(1),"ORIENTATION",tabv(1)
print=3:tab(1),"PAYSAGE",tabv(1)
print=3:tab(1),"IIMPRIMEIMAGE",tabv(1)
print=3:tab(1),logo,"|1|1|15|35",tabv(1)
print=3:tab(1),"ICREEPOLICE",tabv(1)
print=3:tab(1),"10|18|INORMAL|ARIAL BLACK|INOIR|0",tabv(1)
print=3:tab(1),"ICREEPOLICE",tabv(1)
print=3:tab(1),"11|14|IITALIQUE|TIMES NEW ROMAN|INOIR|0",tabv(1)
print=3:tab(1),"ICREEPOLICE",tabv(1)
print=3:tab(1),"12|08|INORMAL|TIMES NEW ROMAN|INOIR|0",tabv(1)
print=3:tab(1),"ICREEPOLICE",tabv(1)
print=3:tab(1),"13|06|IGRAS|TIMES NEW ROMAN|INOIR|0",tabv(1)
print=3:tab(1),"DEBUT",tabv(1)
print=3:tab(1),"IPOSXY|025|001IPOLICE|10IPOLICE|C5ABALWINPRINTIPOLICE|CN IPOSXY|130|003ICADREXY|030|005|010ICADREXY|030|009|000IPOSXY|133|004IPOLICE|12Facture Nø IPOSXY|133|008IPOLICE|02F031000088 ",tabv(1)
print=3:tab(1),"IPOSXY|025|008IPOLICE|11La s‚r‚nit‚ informatique IPOSXY|165|003ICADREXY|050|005|010ICADREXY|050|009|000IPOSXY|168|004IPOLICE|12Edit‚e le IPOSXY|168|008IPOLICE|02Lundi 6 Octobre 2003 ",tabv(1)
print=3:tab(1),"IPOSXY|025|014IPOLICE|12182, Bld Jean Mermoz IPOSXY|220|003ICADREXY|020|005|010ICADREXY|020|009|000IPOSXY|223|004IPOLICE|12Client Nø IPOSXY|223|008IPOLICE|02 700",tabv(1)
print=3:tab(1),"IPOSXY|025|017IPOLICE|1294550 Chevilly-la-rue IPOSXY|245|003ICADREXY|015|005|010ICADREXY|015|009|000IPOSXY|248|004IPOLICE|12Page Nø IPOSXY|248|008IPOLICE|02 2",tabv(1)
print=3:tab(1),"IPOSXY|025|020IPOLICE|12Tel 01.49.73.81.98 Fax 01.49.73.30.53",tabv(1)
print=3:tab(1),"IPOSXY|025|025IPOLICE|13S.A.R.L. au Capital de 10.000 Euros",tabv(1)
print=3:tab(1),"IPOSXY|025|027IPOLICE|13RCS Cretiel 987 789 987 00012",tabv(1)
print=3:tab(1),"IPOSXY|025|029IPOLICE|13TVA FR7798778998700012",tabv(1)
print=3:tab(1),"IPOSXY|085|038IPOLICE|04LE MEILLEUR CLIENT IPOSXY|180|038IPOLICE|04LE MEILLEUR CLIENT ",tabv(1)
print=3:tab(1),"IPOSXY|085|042IPOLICE|04154 RUE LECOURBE IPOSXY|180|042IPOLICE|04154 RUE LECOURBE ",tabv(1)
print=3:tab(1),"IPOSXY|085|046IPOLICE|04 IPOSXY|180|046IPOLICE|04 ",tabv(1)
print=3:tab(1),"IPOSXY|085|050IPOLICE|04 IPOSXY|180|050IPOLICE|04 ",tabv(1)
print=3:tab(1),"IPOSXY|085|054IPOLICE|04 IPOSXY|180|054IPOLICE|04 ",tabv(1)
print=3:tab(1),"IPOSXY|085|058IPOLICE|0494000 CRETIEL IPOSXY|180|058IPOLICE|0494000 CRETEIL ",tabv(1)
print=3:tab(1),"IPOSXY|085|062IPOLICE|04FRANCE IPOSXY|180|062IPOLICE|04FRANCE ",tabv(1)
print=3:tab(1)," ",tabv(1)
print=3:tab(1),"IPOLICE|02",tabv(1)
print=3:tab(1),"IPOSXY|001|068ICADREXY|278|102|000ICADREXY|278|006|010ICADREXY|014|102|000IPOSXY|068|000ICADREXY|036|102|000IPOSXY|118|000ICADREXY|020|102|000IPOSXY|154|000ICADREXY|019|102|000IPOSXY|188|000ICADREXY|030|102|000IPOSXY|226|000ICADREXY|016|102|000",tabv(1)
print=3:tab(1),"IPOSXY|261|068ICADREXY|018|102|000IPOLICE|C7",tabv(1)
print=3:tab(1),"IPOSXY|002|070ColisITABX|015D‚signationITABX|069R‚f‚rence ITABX|104 Unit‚ ITABX|119 Pds Brut ITABX|138 Tare UnitITABX|155Poids NetITABX|173CubageITABX|189P.U.H.T. Par En ITABX|226P.U. NetITABX|242Montant HTITABX|261DouaneIPOLICE|CN",tabv(1)
print=3:tab(1),"IPOSXY|015|074Report ITABX|242 5356,68",tabv(1)
print=3:tab(1),"IPOSXY|001|000 84,00ITABX|015RAISIN ITALIA GR-COLIS ITABX|0691963 ITABX|104 ITABX|119 1095,500ITABX|138"
print=3:" 0,800ITABX|155 1028,300ITABX|173 ITABX|189 1,10 /1 KgITABX|218 5,00ITABX|226 1,04ITABX|242 1074,57ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 1 Lot Nø 2 Lot Nø 2 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 5,00ITABX|015HER.thym cat.1 France ITABX|069331 ITABX|104 5,00ITABX|119 0,500ITABX|138"
print=3:" ITABX|155 0,500ITABX|173 ITABX|189 1,35 /1 PiITABX|218 5,00ITABX|226 1,28ITABX|242 6,41ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 2 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 50,00ITABX|015POIVRON VERT 2KG ITABX|0691983 ITABX|104 50,00ITABX|119 100,000ITABX|138"
print=3:" ITABX|155 100,000ITABX|173 ITABX|189 1,40 /1 KgITABX|218 5,00ITABX|226 1,33ITABX|242 133,00ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 98 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 17,00ITABX|015RAISIN BLANC 4KG ITABX|0691984 ITABX|104 17,00ITABX|119 68,000ITABX|138"
print=3:" ITABX|155 68,000ITABX|173 ITABX|189 1,10 /1 KgITABX|218 5,00ITABX|226 1,04ITABX|242 71,06ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 91 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 22,00ITABX|015POMME GOLDEN 10PCS ITABX|069835 ITABX|104 ITABX|119 33,000ITABX|138"
print=3:" ITABX|155 33,000ITABX|173 ITABX|189 0,65 /1 KgITABX|218 5,00ITABX|226 0,61ITABX|242 20,38ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015Lot Nø 68 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261 ",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|000 ITABX|015 ITABX|069 ITABX|104 ITABX|119 ITABX|138"
print=3:" ITABX|155 ITABX|173 ITABX|189 ITABX|218 ITABX|226 ITABX|242 ITABX|261",tabv(1)
print=3:tab(1),"IPOSXY|001|171ICADREXY|155|020|000ICADREXY|155|005|010ICADREXY|019|020|000IPOSXY|035|000ICADREXY|017|020|000IPOSXY|066|000ICADREXY|020|020|000IPOSXY|097|000ICADREXY|021|020|000",tabv(1)
print=3:tab(1),"IPOSXY|004|172Total HTIPOSXY|020|000GardeIPOSXY|038|000CTIFLIPOSXY|052|000InterfelIPOSXY|070|000Base HTIPOSXY|087|000TVAIPOSXY|098|000Montant TVAIPOSXY|127|000Net … Payer",tabv(1)
print=3:tab(1),"IPOSXY|002|177 5581,12IPOSXY|021|000 IPOSXY|033|000 IPOSXY|049|000 IPOSXY|067|000 5581,12IPOSXY|088|000 5,50IPOSXY|100|000 306,96",tabv(1)
print=3:tab(1),"IPOSXY|067|180 IPOSXY|088|18019,60IPOSXY|100|180 ",tabv(1)
print=3:tab(1),"IPOSXY|067|183 IPOSXY|088|183 IPOSXY|100|183 ",tabv(1)
print=3:tab(1),"IPOSXY|067|186 IPOSXY|088|186 IPOSXY|138|186IPOLICE|C1 5888,08IPOLICE|CN",tabv(1)
print=3:tab(1),"IPOSXY|160|172ChŠque … 30 jrs fin de d‚cade ",tabv(1)
print=3:tab(1),"IPOSXY|160|180 ",tabv(1)
print=3:tab(1),"IPOSXY|020|194En promotions les PANIERS … 5› TTC Pour les petits ",tabv(1)
print=3:tab(1),"IPOSXY|001|200IPOLICE|13Ce Document … ‚t‚ imprim‚ avec ABALWINPRINT en ABAL … partir d'une station TWINSERVER-WINDOWS-USE'IT. La t‚l‚copie … ‚t‚ ‚mise par le Serveur de FAX ABALWINPRINT.",tabv(1)
print=3:page
endproc


proc une_facture()
if assign_imprimante()=vrai
print=3:tab(1),"ICONFIGURE",tabv(1)
print=3:tab(1),"IAPERCU",tabv(1)
print=3:tab(1),"page|ABALWINPRINT DEMONSTRATION|0",tabv(1)
facture_01()
facture_02()
close=3
endif
endproc


proc un_fax()
if numfax=" "
print=1:chr$(27),">",paint(15,1),"Pas de num‚ro de t‚l‚copie"
pause
print=1:chr$(27),"<"
else
if assign_imprimante()=vrai
print=3:tab(1),"IAPERCU",tabv(1)
print=3:tab(1),"ifax|",numfax,tabv(1)
facture_01()
facture_02()
close=3
endif
endif
endproc

proc un_mail()
if mail=" "
print=1:chr$(27),">",paint(15,1),"Pas d'adresse Mail"
pause
print=1:chr$(27),"<"
else
if assign_imprimante()=vrai
print=3:tab(1),"EMAIL",tabv(1)
print=3:tab(1),mail,tabv(1)
print=3:tab(1),"c:\facture",tabv(1)
print=3:tab(1),"FROM||||",tabv(1)
; Les Pipes sont remplac‚ par des sauts de ligne.
print=3:tab(1),"Votre facture est en piŠce jointe||SincŠres Salutation|Yves Churlet",tabv(1)
print=3:tab(1),"De la part d'yves",tabv(1)
facture_01()
facture_02()
close=3
endif
endif
endproc

proc un_rtf()
if fichier=" "
print=1:chr$(27),">",paint(15,1),"Pas de nom de fichier"
pause
print=1:chr$(27),"<"
else
if assign_imprimante()=vrai
print=3:tab(1),"IAPERCU",tabv(1)
print=3:tab(1),"irtf|",fichier,"|0",tabv(1)
facture_01()
facture_02()
close=3
endif
endif
endproc

proc un_pdf()
if fichier=" "
print=1:chr$(27),">",paint(15,1),"Pas de nom de fichier"
pause
print=1:chr$(27),"<"
else
if assign_imprimante()=vrai
print=3:tab(1),"IAPERCU",tabv(1)
print=3:tab(1),"ipdf|",fichier,"|0",tabv(1)
facture_01()
facture_02()
close=3
endif
endif
endproc

proc un_html()
if fichier=" "
print=1:chr$(27),">",paint(15,1),"Pas de nom de fichier"
pause
print=1:chr$(27),"<"
else
if assign_imprimante()=vrai
print=3:tab(1),"IAPERCU",tabv(1)
print=3:tab(1),"ihtml|",fichier,"|0",tabv(1)
facture_01()
facture_02()
close=3
endif
endif
endproc


proc un_xml()
if fichier=" "
print=1:chr$(27),">",paint(15,1),"Pas de nom de fichier"
pause
print=1:chr$(27),"<"
else
if assign_imprimante()=vrai
print=3:tab(1),"IAPERCU",tabv(1)
print=3:tab(1),"ixml|",fichier,"|0",tabv(1)
facture_01()
facture_02()
close=3
endif
endif
endproc

proc main()
dcl item%
dcl rep$=1
dcl y%
dcl e%
dcl ligne$=80
endloc
initglobal
initlocal
chemin="c:\winprint_file\"
Print=1:clear
call cadre(1,1,conf(2),conf(1)-2,0,7)
ligne="ABALWINPRINT D‚monstration"
Print=1:tab((conf(2)-len$(ligne))/2,1),atb(2),substr(ligne,1,len$(ligne)),atb(0)
for item=1 to 9
gosub &sel
next item
;
e=event(0)
item=1
rep="1"
while rep<>" "
print=1:atb(1)
gosub &sel
print=1:atb(0)
mask 1+2+4+8+512+64
ask=1,i=(&fin),u=(&up),d=(&down),x=(&mouse),/0d=(&suite):tab(1),(w1)=rep
select rep
case "1","2","3","4","5","6","7","8","9"
gosub &sel
item=conv(rep)
print=1:atb(1)
gosub &sel
print=1:atb(0)
gosub &suite
endsel
wend
stop

&fin
gosub &sel
item=9
rep=" "
print=1:atb(1)
gosub &sel
print=1:atb(0)
stop

&up
gosub &sel
item=item - 1
if item=0 : item=9
print=1:atb(1)
gosub &sel
print=1:atb(0)
rep=conv$(item)
return

&down
gosub &sel
item=item + 1
if item=10 : item=1
print=1:atb(1)
gosub &sel
print=1:atb(0)
rep=conv$(item)
return

&mouse
gosub &sel
select event(1)
case 32,256
y=event(3)
select y
case 3,4,5,6,7,8,9,10,11
item=y-2
print=1:atb(1)
gosub &sel
print=1:atb(0)
endsel
rep=conv$(item)
if event(1)=32
gosub &suite
endif
endsel
return

&suite
print=1:chr$(27),">"
select item
case 1
call parametre(chemin,"Nom du chemin")
call parametre(logo,"Chemin & logo")
call parametre(numfax,"Nø T‚l‚copie")
call parametre(mail,"Email")
call parametre(fichier,"Fichier")
case 2
call test()
; call liste()
case 3
call une_facture()
case 4
call un_fax()
case 5
call un_mail()
case 6
call un_rtf()
case 7
call un_xml()
case 8
call un_pdf()
case 9
call un_html()
case 10
print=1:chr$(27),"<"
stop
endsel
print=1:chr$(27),"<"
return
&sel
select item
case 1
ligne="1- Param‚trer le chemin du fichier"
case 2
ligne="2- Imprimer une liste"
case 3
ligne="3- Imprimer une Facture"
case 4
ligne="4- Envoyer un FAX"
case 5
ligne="5- Envoyer un EMAIL"
case 6
ligne="6- Cr‚er un fichier RTF"
case 7
ligne="7- Cr‚er un Fichier XML"
case 8
ligne="8- Cr‚er un fichier PDF"
case 9
ligne="9- Cr‚er un fichier HTML"
case 10
ligne="0- Quitter"
endsel
Print=1:tab((conf(2)-35)/2,2+item),substr(ligne,1,35)
return
endproc
;--------------------------------------------------------------------------------

proc parametre(ptr nom$=50,titre$=20):%
dcl sv_nom$=50
endloc
sv_nom=nom
call cadre(3,3,54,2,0,2)
print=1:tab(3+15,3),titre,paint(0,7)
do
print=1:tab(4,4),nom
mask 1+2+3+8+512+4096
ask=1,i=&abandonne:tab(4,4)=nom
nom=shl(nom)
if nom<>" "
break
endif
loop
exit(vrai)
&abandonne
nom=sv_nom
exit(faux)
endproc

; "ÚÄ¿³ÙÀÉÍ»º¼ÈÕ͸³¾ÔÖÄ·º½Ó"
proc cadre(x%,y%,lar%,hau%,xc%,xf%)
dcl i%,c%,f%
endloc
c=conf(17)
f=conf(18)
print=1:paint(xc,xf)
print=1:tab(x,y),"Ú",gener(lar-2-2,"Ä"),"¿"
for i=1 to hau-1
print=1:tab(x,y+i),"³",gener(lar-2-2,"°"),"³"
next i
print=1:tab(x,y+hau),"À",gener(lar-2-2,"Ä"),"Ù"
print=1:paint(c,f)
endproc



segment 0
call main()
eseg 0
end












































PMEmail Poster
Top
1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)
0 Members:

Topic Options Reply to this topicStart new topicStart Poll

 

webcron.org Get Firefox! prologue-community.org est monitoré par ikoula.fr Referenceur Gratuit www.prologue-community est mis en évidence sur internet grace à daubresse.fr
moteur de recherche - referencement
Conformément à l'article 34 de la loi "Informatique et Liberté" vous disposez d'un droit d'accès, de modification, de rectification et de suppression des données qui vous concernent.
Pour l'exercer, merci de nous contacter : CONTACT US

www.prologue-community.org n'est pas enregistré à la CNIL
www.prologue-community.org est hébergé sur visit.fr

www.prologue-community.org est indépendant de la société Prologue
Une grande partie des logiciels et outils cités sur www.prologue-community.org sont des produits et marques déposées par la société Prologue


MKPortal M1.1 Rc1 ©2003-2005 All rights reserved
Page generated in 0.02211 seconds with 2 queries