8a05210c2d
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la version 1.7 patch 054 aga sul main trunk git-svn-id: svn://10.65.10.50/trunk@9655 c028cbd2-c16b-5b4b-a496-9718f37d4682
185 lines
2.5 KiB
Plaintext
Executable File
185 lines
2.5 KiB
Plaintext
Executable File
#include "baeur40.h"
|
|
|
|
TOOLBAR "" 0 -3 0 3
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Conversione documenti" 0 0 0 -3
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 1 "@bDitta corrente"
|
|
END
|
|
|
|
NUMBER F40_DITTA 5
|
|
BEGIN
|
|
PROMPT 2 2 "Ditta "
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F40_DITTA
|
|
OUTPUT F40_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "DF"
|
|
END
|
|
|
|
STRING F40_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 21 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F40_DATI 50
|
|
BEGIN
|
|
PROMPT 2 3 "Area dati in Lire "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F40_DATIE 50
|
|
BEGIN
|
|
PROMPT 2 4 "Area dati in Euro "
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F40_DOCSHEET 78
|
|
BEGIN
|
|
PROMPT 1 6 ""
|
|
ITEM "Sel."
|
|
ITEM "Anno"
|
|
ITEM "Cod."
|
|
ITEM "Da stato"
|
|
ITEM "A stato"
|
|
ITEM "Ripetibile"
|
|
ITEM "Numerazione@50"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Tipi riga non standard" 0 0 0 -3
|
|
|
|
SPREADSHEET F40_TIPISHEET 78
|
|
BEGIN
|
|
PROMPT 1 4 ""
|
|
ITEM "Tipo conversione"
|
|
ITEM "Tipo riga"
|
|
ITEM "Descrizione@50"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "" -1 -1 73 16
|
|
|
|
BOOLEAN F40_CHECK
|
|
BEGIN
|
|
PROMPT 2 1 "Selezionato "
|
|
MESSAGE FALSE CLEAR,1@
|
|
MESSAGE TRUE ENABLE,1@
|
|
END
|
|
|
|
NUMBER F40_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 3 "Da anno "
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F40_CODNUM 4
|
|
BEGIN
|
|
PROMPT 2 5 "Codice numerazione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F40_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 7 "Descrizione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F40_DASTATO 1
|
|
BEGIN
|
|
PROMPT 2 9 "Da stato "
|
|
USE %STD
|
|
INPUT CODTAB F40_DASTATO
|
|
DISPLAY "Stato documento" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F40_DASTATO CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F40_ASTATO 1
|
|
BEGIN
|
|
PROMPT 2 11 "A stato "
|
|
USE %STD
|
|
INPUT CODTAB F40_ASTATO
|
|
DISPLAY "Stato documento" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F40_ASTATO CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
BOOLEAN F40_REPEAT
|
|
BEGIN
|
|
PROMPT 2 13 "Ripetibile"
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "" -1 -1 73 8
|
|
|
|
LIST F40_CONV 1 14
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo conversione "
|
|
ITEM " |Prezzo"
|
|
ITEM "V|Valore"
|
|
ITEM "N|Non convertire"
|
|
END
|
|
|
|
STRING F40_TIPO 2
|
|
BEGIN
|
|
PROMPT 2 3 "Tipo riga "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F40_DESCRT 50
|
|
BEGIN
|
|
PROMPT 2 5 "Descrizione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |