Je m'excuse mais mon anglais n'est pas parfait donc je fais une traduction en anglais
je suis débutant dans HMG,et je voudrais savoir comment ecrire ces lignes(clipper)dans HMG-IDE.
MERCI BEAUCOUP
Voila les differentes parties
Hello,
I'm sorry but my English is not perfect
I am a beginner in HMG and I want to know how to write these lines (clipper) in HMG-IDE.
THANK YOU VERY MUCH...
here are the different parts
****************************************************************
(1er) FIRST PART
****************************************************************
Code: Select all
cls
XMAJ=.F.
SET COLOR TO
cls
SET COLOR TO W/r+
@ 12,00 SAY "-----------------------"
@ 13,00 SAY " "
@ 14,00 SAY "-----------------------"
@ 13,10 SAY " Voulez-vous IMPRIMER les BON/LIVR D'un CLIENT ? (Y/N) " get xmaj picture "Y"
read
if .not. xmaj
* abondon
set color to w/n
cls
return
endif
(2) SECOND PART
*********************************************************************
Code: Select all
rechcli() // procedure
if exist=222
return
endif
seleCT 1
USE bon_livr
copy to tempvc for code=TTcode
select 8
use tempvc
(3rd) THIRD PARTY
*********************************************************************
Code: Select all
CLS
set date french
SET COLOR TO BG+/B
@ 02,00 SAY " DONNER LA DATE DU DEBUT DU MOIS VOULU : "
@ 03,00 SAY " DONNER LA DATE DE LA FIN DU MOIS DESIRE: "
SET COLOR TO GR+/B,W+/R
STORE CTOD('01/01/01') TO ldadeb
read
@ 02,43 GET ldadeb picture "E"
READ
SET COLOR TO GR+/B,R+/W+
STORE date() TO ldafin
@ 03,43 GET ldafin picture "E"
READ
4 th part
************************************************************
Code: Select all
copy structure to gestemp
use gestemp
append from tempvc fields facture,date,reference for date >=ldadeb .and. date <=ldafin
sum prix_total to ztot
sum represent to zrepresent
sum avance to zavaesp
sum avancheq to zavacheq
sum (avance+avancheq) to zavance
sum tugp to zmontva
ZDIFF=ztot-(Zavaesp+zavacheq+zrepresent)
5 th PART
*********************************************************************
Code: Select all
function rechcli
select 3
USE client INDEX clierech
SET COLOR TO GR+/B
acColonnes = {"CODE","NOM","ADRESSE"}
DBEDIT(0, 0, 22, 79, acColonnes,"Fdbutil")
store code to TTcode
STORE NOM to TTXnom
set color to R+/W+
@ 13,22 SAY TTCode
@ 13,32 SAY TTXNom
@ 15,16 SAY " Est ce le Client Souhait‚ ... ? (Y/N) " get xmaj picture 'Y'
read
return""
[u]Moderator Notes[/u] (Pablo César) wrote:Topic moved from other topic with subtitle "Welcome to the Project Developers' Table".
[u]Moderator Notes[/u] (Pablo César) wrote:Message re-edited to put the tagCode: Select all
[/b] Please note tag CODE is recommended when it is source code samples posted for better reading.[/color][/quote]