6fce3dd611
Files correlati : Ricompilazione Demo : [ ] Commento : Riportate le patch fino alla 172 git-svn-id: svn://10.65.10.50/trunk@12526 c028cbd2-c16b-5b4b-a496-9718f37d4682
175 lines
3.0 KiB
Plaintext
Executable File
175 lines
3.0 KiB
Plaintext
Executable File
#include "cm1100a.h"
|
|
|
|
TOOLBAR "" 0 -2 0 2
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 "~Stampa"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_CONFIG 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 "~Configura"
|
|
PICTURE BMP_CONFIG
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa pagato per commessa / fornitore" -1 -1 50 10
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 1 1 "@bSelezione periodo"
|
|
END
|
|
|
|
RADIOBUTTON F_TIPODATA 76
|
|
BEGIN
|
|
PROMPT 2 2 "Estrazione per data di: "
|
|
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
|
|
|
|
RADIOBUTTON F_ORDINAMENTO 1 40
|
|
BEGIN
|
|
PROMPT 1 7 "@bTipo ordinamento"
|
|
ITEM " |Commessa"
|
|
ITEM "X|Fornitore"
|
|
FLAGS "Z"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 10 "@bSelezione commesse"
|
|
END
|
|
|
|
STRING F_DACDC 20
|
|
BEGIN
|
|
PROMPT 2 11 "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_DAFSC 10
|
|
BEGIN
|
|
PROMPT 50 11 "Da fase "
|
|
FLAGS "UZ"
|
|
USE FSC
|
|
INPUT CODTAB F_DAFSC
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@70" S0
|
|
OUTPUT F_DAFSC CODTAB
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_ACDC 20
|
|
BEGIN
|
|
PROMPT 2 12 "A CDC/Commessa "
|
|
FLAGS "UZ"
|
|
COPY USE F_DACDC
|
|
INPUT CODTAB F_ACDC
|
|
COPY DISPLAY F_DACDC
|
|
OUTPUT F_ACDC CODTAB
|
|
CHECKTYPE SEARCH
|
|
STR_EXPR (#F_ACDC=="")||(#F_ACDC>=#F_DACDC)
|
|
WARNING "Il codice commessa finale non puo' essere inferiore a quello iniziale"
|
|
END
|
|
|
|
STRING F_AFSC 10
|
|
BEGIN
|
|
PROMPT 50 12 "A fase "
|
|
FLAGS "UZ"
|
|
COPY USE F_DAFSC
|
|
INPUT CODTAB F_AFSC
|
|
COPY DISPLAY F_DAFSC
|
|
OUTPUT F_AFSC CODTAB
|
|
CHECKTYPE SEARCH
|
|
STR_EXPR (#F_AFSC=="")||(#F_AFSC>=#F_DAFSC)
|
|
WARNING "Il codice fase finale non puo' essere inferiore a quello iniziale"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 14 "@bSelezione fornitori"
|
|
END
|
|
|
|
NUMBER F_DACODFOR 6
|
|
BEGIN
|
|
PROMPT 2 15 "Da codice "
|
|
USE LF_CLIFO KEY 1
|
|
FLAGS "U"
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_DACODFOR
|
|
DISPLAY "Codice " CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_DACODFOR CODCF
|
|
OUTPUT F_DADESFOR RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DADESFOR 50
|
|
BEGIN
|
|
PROMPT 23 15 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_DADESFOR
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice " CODCF
|
|
COPY OUTPUT F_DACODFOR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_ACODFOR 6
|
|
BEGIN
|
|
PROMPT 2 16 "A codice "
|
|
COPY USE F_DACODFOR
|
|
FLAGS "U"
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_ACODFOR
|
|
COPY DISPLAY F_DACODFOR
|
|
OUTPUT F_ACODFOR CODCF
|
|
OUTPUT F_ADESFOR RAGSOC
|
|
CHECKTYPE NORMAL
|
|
NUM_EXPR (#F_ACODFOR==0)||(#F_ACODFOR>=#F_DACODFOR)
|
|
WARNING "Il codice fornitore finale non puo' essere inferiore a quello iniziale"
|
|
END
|
|
|
|
STRING F_ADESFOR 50
|
|
BEGIN
|
|
PROMPT 23 16 ""
|
|
COPY USE F_DADESFOR
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_ADESFOR
|
|
COPY DISPLAY F_DADESFOR
|
|
COPY OUTPUT F_ACODFOR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|