137 lines
2.4 KiB
Plaintext
Executable File
137 lines
2.4 KiB
Plaintext
Executable File
#include "cg2100.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
#include <filebar.h>
|
|
|
|
BUTTON DLG_NULL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_CONFIG 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Opzioni"
|
|
PICTURE TOOL_CONFIG
|
|
END
|
|
|
|
#include <cancelbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Ricerca" 0 0 0 2
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 1 "@bDitta"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 3 2 "Codice "
|
|
FLAGS "FD"
|
|
USE LF_NDITTE
|
|
CHECKTYPE NORMAL
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 17 2 "Ragione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 7
|
|
BEGIN
|
|
PROMPT 1 5 "@bMovimento di prima nota"
|
|
FLAGS "R"
|
|
END
|
|
|
|
DATE F_DATAREG
|
|
BEGIN
|
|
PROMPT 3 6 "Data operazione "
|
|
CHECKTYPE REQUIRED
|
|
HELP "Data in cui viene registrata l'operazione"
|
|
MESSAGE COPY,F_ANNOIVA,7,10
|
|
USE LF_MOV KEY 2
|
|
DISPLAY "Data\nRegistraz.@10" DATAREG
|
|
DISPLAY "Data\nCompetenza@10" DATACOMP
|
|
DISPLAY "Numero\nregistraz.@7" NUMREG
|
|
DISPLAY "Causale" CODCAUS
|
|
DISPLAY "Numero\nDocumento@10" NUMDOC
|
|
DISPLAY "Protoc.\nIVA@6" PROTIVA
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_DATAREG DATAREG
|
|
OUTPUT F_NUMREG NUMREG
|
|
CHEKCTYPE SEARCH
|
|
END
|
|
|
|
NUMBER F_ANNOIVA 4
|
|
BEGIN
|
|
PROMPT 52 6 "Anno IVA "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODCAUS 3
|
|
BEGIN
|
|
PROMPT 3 8 "Causale "
|
|
FLAGS "UZ"
|
|
FIELD CODCAUS
|
|
USE LF_CAUSALI
|
|
INPUT CODCAUS F_CODCAUS
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "Registro" REG
|
|
DISPLAY "SC" TIPOMOV
|
|
DISPLAY "CA" MOVIND
|
|
DISPLAY "CE" COLLCESP
|
|
DISPLAY "770" M770
|
|
OUTPUT F_CODCAUS CODCAUS
|
|
OUTPUT F_DESCRCAUS DESCR
|
|
ADD RUN cg0 -4
|
|
CHECKTYPE NORMAL
|
|
WARNING "Causale assente"
|
|
END
|
|
|
|
STRING F_DESCRCAUS 50
|
|
BEGIN
|
|
PROMPT 23 8 ""
|
|
USE LF_CAUSALI KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT DESCR F_DESCRCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "Registro" REG
|
|
DISPLAY "SC" TIPOMOV
|
|
DISPLAY "CA" MOVIND
|
|
DISPLAY "CE" COLLCESP
|
|
DISPLAY "770" M770
|
|
COPY OUTPUT F_CODCAUS
|
|
ADD RUN cg0 -4
|
|
END
|
|
|
|
NUMBER F_NUMREG 7
|
|
BEGIN
|
|
PROMPT 3 10 "Numero operazione "
|
|
HELP "Numero del movimento di prima nota da modificare"
|
|
FIELD LF_MOV->NUMREG
|
|
USE LF_MOV
|
|
INPUT NUMREG F_NUMREG
|
|
DISPLAY "Numero@7" NUMREG
|
|
DISPLAY "Data@10" DATAREG
|
|
DISPLAY "Causale" CODCAUS
|
|
DISPLAY "Documento" NUMDOC
|
|
DISPLAY "Protoc." PROTIVA
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_NUMREG NUMREG
|
|
CHECKTYPE REQUIRED
|
|
KEY 1
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|