campo-sirio/include/bagn002.uml
luca 5dc679896c Patch level :10.0 256
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
iniziata standardizzazione delle pictures nelle maschere di campo (sia toolbar che bottoni normali).
Da ora in avanti vige la ferrea regola:
1) nelle toolbar si usano sempre e solo "picture tool_"
2) nei bottoni sparsi si usano le "picture bmp_"
3) e' vietato l'uso di picture numeriche!!!
4) quando e' possibile creare le toolbar utilizzando quelle predefinite con #include

Chi non seguirà tali semplici e ferree norme sara' alleggerito delle sue parti sferiche inferiori!


git-svn-id: svn://10.65.10.50/trunk@18481 c028cbd2-c16b-5b4b-a496-9718f37d4682
2009-03-10 16:22:44 +00:00

73 lines
1.1 KiB
Plaintext
Executable File

#include "bagn002.h"
PAGE "Selezione Ditta" -1 -1 66 4
STRING F_PATHPREF 50
BEGIN
PROMPT 1 1 "Dati in "
FLAGS "D"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 2 "Codice "
HELP "Codice della ditta da attivare"
FLAGS "FR"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
WARNING "Ditta assente"
ADD NONE
GROUP 1
END
LIST F_TIPO 20
BEGIN
PROMPT 41 2 ""
HELP "Tipo di dati da selezionare"
ITEM "0|Ditte"
MESSAGE ENABLE,1@
ITEM "1|Dati comuni"
MESSAGE CLEAR,1@|"0",F_CODDITTA
ITEM "2|Dati standard"
MESSAGE CLEAR,1@|"0",F_CODDITTA
GROUP 2
END
STRING F_RAGSOC 50
BEGIN
PROMPT 1 3 "Rag. Soc. "
USE LF_NDITTE KEY 2
HELP "Ragione sociale della ditta da selezionare"
INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione sociale@60" RAGSOC
DISPLAY "Codice" CODDITTA
COPY OUTPUT F_CODDITTA
ADD NONE
GROUP 1
END
ENDPAGE
TOOLBAR "bottombar" 0 0 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK