Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
Multiuser and grids
Is this a solution with muliusers and grid.
To avoid conflict in updates??
PUBLIC mindbf,mindbf1,mindbf2
=RAND(-1)
mindbf='per'+ALLTRIM(STR(RAND()*1000))
mindbf1='per'+ALLTRIM(STR(RAND()*1000))
mindbf2='per'+ALLTRIM(STR(RAND()*1000))
SELECT *;
FROM hovedlønn;
INTO TABLE &mindbf
SELECT =mindbf
APPEND FROM korrdag
SELECT ansnavn,ansattnumm,avdeling,job,;
dato1,skift,lønnsartna,;
lønnsartnu,;
SUM(Timer) AS Timer;
FROM &mindbf;
GROUP BY ansattnumm,dato1,avdeling,job,lønnsartnu;
ORDER BY ansattnumm,dato1,avdeling,job,lønnsartnu;
INTO TABLE &mindbf1
INDEX ON ansnavn TAG ansnavn
SET ORDER TO ansnavn
GO TOP
IF THISFORM.ans.value="*"
THISFORM.Grid1.RecordSource=mindbf1
ELSE
THISFORM.Grid1.RecordSource=mindbf2
ENDIF
SELECT *;
FROM &mindbf1;
WHERE VAL(THISFORM.ans.value)=ansattnumm;
INTO TABLE &mindbf2
THISFORM.Grid1.ColumnCount=9
THISFORM.Grid1.FontSize=8
......
Best regards
Per Simmersholm
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement