687c9a462b
Files correlati : Ricompilazione Demo : [ ] Commento : Aggiunto ps1001200 (è il vecchio crpa1) Aggiunto ed iniziato il ps1001300 (nuovo programma per la variazione del budget) git-svn-id: svn://10.65.10.50/trunk@20362 c028cbd2-c16b-5b4b-a496-9718f37d4682
118 lines
1.5 KiB
Plaintext
Executable File
118 lines
1.5 KiB
Plaintext
Executable File
#include "ps1001300a.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include <stdbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Variazione Budget" 0 2 0 0
|
|
|
|
STRING F_CODCMS 20
|
|
BEGIN
|
|
PROMPT 1 1 "Commessa "
|
|
USE LF_COMMESSE
|
|
INPUT CODCMS F_CODCMS
|
|
DISPLAY "Codice@20" CODCMS
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
OUTPUT F_CODCMS CODCMS
|
|
OUTPUT F_DESCRIZ DESCRIZ
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESCRIZ 50 44
|
|
BEGIN
|
|
PROMPT 34 1 ""
|
|
USE LF_COMMESSE KEY 2
|
|
INPUT DESCRIZ F_DESCRIZ
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
DISPLAY "Codice@20" CODCMS
|
|
COPY OUTPUT F_CODCMS
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 0 3 "@bRighe movimenti di budget"
|
|
END
|
|
|
|
SPREADSHEET F_RIGHE
|
|
BEGIN
|
|
PROMPT 1 4 "Righe"
|
|
ITEM "Sede@4"
|
|
ITEM "Fase@5"
|
|
ITEM "Conto@12"
|
|
ITEM "Importo@18"
|
|
ITEM "N. Reg."
|
|
ITEM "Riga"
|
|
ITEM "Descrizione riga@50"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
|
|
/////////////////////////////////////////
|
|
//maschera di riga
|
|
PAGE "Riga analitica" -1 -1 78 10
|
|
|
|
STRING F_CDC 4
|
|
BEGIN
|
|
PROMPT 1 1 "Sede "
|
|
FLAGS "L"
|
|
END
|
|
|
|
STRING F_FASE 5
|
|
BEGIN
|
|
PROMPT 1 2 "Fase "
|
|
FLAGS "L"
|
|
END
|
|
|
|
STRING F_CONTO 12
|
|
BEGIN
|
|
PROMPT 1 3 "Conto "
|
|
FLAGS "L"
|
|
END
|
|
|
|
NUMBER F_IMPORTO 15 2
|
|
BEGIN
|
|
PROMPT 1 4 "Importo "
|
|
END
|
|
|
|
NUMBER F_NUMREG 7
|
|
BEGIN
|
|
PROMPT 1 5 "N. reg. "
|
|
FLAGS "L"
|
|
END
|
|
|
|
NUMBER F_NUMRIG 3
|
|
BEGIN
|
|
PROMPT 1 6 "N. riga "
|
|
FLAGS "L"
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 1 7 "Descr. "
|
|
FLAGS "L"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "bottombar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK |