c8cd2bf9bd
Files correlati :cm1 & friends Ricompilazione Demo : [ ] Commento :prima stesura personalizzazione commesse CRPA git-svn-id: svn://10.65.10.50/trunk@11658 c028cbd2-c16b-5b4b-a496-9718f37d4682
77 lines
1.1 KiB
Plaintext
Executable File
77 lines
1.1 KiB
Plaintext
Executable File
#include "cm1100a.h"
|
|
|
|
TOOLBAR "" 0 -2 0 2
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 "~Stampa"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa pagato per commessa" -1 -1 50 10
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 1 1 "@bSelezione periodo"
|
|
END
|
|
|
|
RADIOBUTTON F_TIPODATA 76
|
|
BEGIN
|
|
PROMPT 2 2 "Tipologia di data"
|
|
ITEM "0|Registrazione"
|
|
ITEM "1|Documento"
|
|
ITEM "2|Pagamento"
|
|
FLAGS "Z"
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 2 5 "Dalla data "
|
|
END
|
|
|
|
DATE F_DATAFIN
|
|
BEGIN
|
|
PROMPT 25 5 "Alla data "
|
|
VALIDATE DATE_CMP_FUNC >= F_DATAINI
|
|
WARNING "La data finale deve essere successiva a quella iniziale"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 1 8 "@bSelezione commesse"
|
|
END
|
|
|
|
STRING F_DACDC 20
|
|
BEGIN
|
|
PROMPT 2 9 "Da CDC/Commessa "
|
|
FLAGS "UZ"
|
|
USE CMS
|
|
INPUT CODTAB F_DACDC
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@70" S0
|
|
OUTPUT F_DACDC CODTAB
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_ACDC 20
|
|
BEGIN
|
|
PROMPT 2 10 "A CDC/Commessa "
|
|
FLAGS "UZ"
|
|
COPY USE F_DACDC
|
|
INPUT CODTAB F_ACDC
|
|
COPY DISPLAY F_DACDC
|
|
OUTPUT F_ACDC CODTAB
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|