FORUM WINDEV

i est un entier

NbSelectionne est un entier = TableSelectOccurrence(Table_Banque)

POUR i=1 A NbSelectionne
Trace("Elément sélectionné : "+TableSelect(Table_Banque,i))
FIN

Comment je peut récupérer le champ "clé" de ma table_banque??

Bonjour,

MaVariable = Table_Banque.COL_clé[i]

Meci the duke , mais j'ai reussi sans avoir vu ton aide mais merci comme meme , peut etre poura tu m'aider pour cela

mem=CLETAB[TableSelect(Table_Banque)]

donc jsuque là c'est bon mais mon maitre de stage m'a demande de recuper le code
dans une table et mettre par defaut 01 comme clé

la fenetre s'apelle t_modtypreg et doit affiche code nom et infos du livreu et a la fin code de la banque

code de la banque à pour libellé CODEB

j'ai pense qu'en mettant mem=codeb sa auria pu fonctioner mais je ne voit pas du tt coment faire

merci

Si vous avez besoin d'info supplémantaire pour m'aider dite-le moi!!

Salut,

Ne pas oublier que nous ne sommes pas avec vous dans le projet!
Plus d'explications et/ou de codes ou vous bloquez permettront aux personnes sur le forum de vous aider.

Que représentent mem , CLETAB un tableau ? d'entiers? table? ...
Avez vous vraiment suivi le cours d'autoformation livré avec WD?

Bon j'ai réussi à résoudre cela mais j'ai un problème pour initialiser un interrupteur

J'ai ce code la :

PROCEDURE initecran()
I=0
TOT=0
TableSupprimeTout("TABLE1")
HLitRecherche("FREGLEM","DAT_ACH_ADH",DAT+ACH)
TANTQUE PAS HEnDehors() ET FREGLEM.FR_DATE+FREGLEM.FR_ACH=DAT+ACH
I++
TableAjoute("TABLE1")
ADH[I]=FREGLEM.FR_ADHR
NUMH[I]=H.numenr
HLitRecherche("LIVREUR","CODL_LI",ADH[I])
SI HTrouve() ALORS
NOM[I]=LIVREUR.NOML_LI
FIN
LIBEL[I]=FREGLEM.FR_LIB
SI FREGLEM.FR_VC="V" ALORS
COMBO3[I]=1
SINON
SI FREGLEM.FR_VC="C" ALORS
COMBO3[i]=2
SINON
SI FREGLEM.FR_VC="A" ALORS
COMBO3[I]=3
FIN
FIN
FIN
MONTANT[I]=FREGLEM.FR_MTREGF
TOT=TOT+MONTANT[I]

//Initialisation de l'interrupteur
//Pour i=1 a Occurrence(interrupteur1[i])
//interrupteur1[i]=""


SI Interrupteur1[I]=1 ALORS
HLitRecherche(MAISON,MAI,001)
SI HTrouve() ALORS
CODEB[I]=ACH
LIBELLEB[I]=LIBACH
FIN
SINON
CODEB[I]="01"
HLitRecherche(FPARAM,PA_CLE,"01")
SI HTrouve ET FPARAM.PA_CLE="01" ALORS
LIBELLEB[I]=FPARAM.PA_RAISB

FIN

HLitSuivant("FREGLEM")
FIN
FIN

Et j'aimerai choisir l'interrupteur1 au debut si il est active(1) ou non(0) car là il cherche avant que je puis cochez l'interutpeur

merci

angellife51 a écrit:Bon j'ai réussi à résoudre cela mais j'ai un problème pour initialiser un interrupteur

J'ai ce code la :

PROCEDURE initecran()
I=0
TOT=0
TableSupprimeTout("TABLE1")
HLitRecherche("FREGLEM","DAT_ACH_ADH",DAT+ACH)
TANTQUE PAS HEnDehors() ET FREGLEM.FR_DATE+FREGLEM.FR_ACH=DAT+ACH
I++
TableAjoute("TABLE1")
ADH[I]=FREGLEM.FR_ADHR
NUMH[I]=H.numenr
HLitRecherche("LIVREUR","CODL_LI",ADH[I])
SI HTrouve() ALORS
NOM[I]=LIVREUR.NOML_LI
FIN
LIBEL[I]=FREGLEM.FR_LIB
SI FREGLEM.FR_VC="V" ALORS
COMBO3[I]=1
SINON
SI FREGLEM.FR_VC="C" ALORS
COMBO3[i]=2
SINON
SI FREGLEM.FR_VC="A" ALORS
COMBO3[I]=3
FIN
FIN
FIN
MONTANT[I]=FREGLEM.FR_MTREGF
TOT=TOT+MONTANT[I]

//Initialisation de l'interrupteur
//Pour i=1 a Occurrence(interrupteur1[i])
//interrupteur1[i]=""


SI Interrupteur1[I]=1 ALORS
HLitRecherche(MAISON,MAI,001)
SI HTrouve() ALORS
CODEB[I]=ACH
LIBELLEB[I]=LIBACH
FIN
SINON
CODEB[I]="01"
HLitRecherche(FPARAM,PA_CLE,"01")
SI HTrouve ET FPARAM.PA_CLE="01" ALORS
LIBELLEB[I]=FPARAM.PA_RAISB

FIN

HLitSuivant("FREGLEM")
FIN
FIN

Et j'aimerai choisir l'interrupteur1 au debut si il est active(1) ou non(0) car là il cherche avant que je puis cochez l'interutpeur

merci

La fenetre que je veux modifier est celle ci :

Reglement du : "dat" acheteur :"ach" "libach" interrupteur= 0 ou 1

adh -- nom -- libel -- combo3 -- montant --- codeb -- libelleb

exemple : 00001 -- barbichon albert - virment - virement - 12100,00 -- 01 -CRCAM

mais si l'interupteur=1 alors il faudrai que codeb et libelleb soit égale a ach et libelleb et sinon sa soit égale au codeb (mais celu-ci est deja fait)

merci bbeaucoup