ceb86a9c6b
cg2100.cpp Rifatta gestione pagamento immediato cg2102.cpp COrretto handler della data di registrazione cg2104.cpp Corretta gestione numero di riferimento partita cg2105.cpp Proposto in automatico l'importo dei pagamenti cg2200.cpp Azzerata ad ogni ciclo la maschera dei provisori cg3100.cpp Eliminati tutti gli accessi diretti alla tabella esercizi cg3600.cpp Aggiunta gestione e salvataggio colonne cglib04.cpp Tolti accessi diretti alla tabella degli esercizi pagament.cpp Corretta creazione nuove rate rispettando le classificazioni git-svn-id: svn://10.65.10.50/trunk@3985 c028cbd2-c16b-5b4b-a496-9718f37d4682
369 lines
6.7 KiB
Plaintext
Executable File
369 lines
6.7 KiB
Plaintext
Executable File
#include "cg2100.h"
|
|
|
|
PAGE "Movimento di incasso immediato" -1 -1 75 13
|
|
|
|
DATE F_DATAREG
|
|
BEGIN
|
|
PROMPT 1 1 "Data dell' operazione "
|
|
HELP "Data in cui viene registrata l'operazione"
|
|
FIELD LF_MOV->DATAREG
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,F_ANNOIVA,7,10
|
|
END
|
|
|
|
NUMBER F_ANNOIVA 4
|
|
BEGIN
|
|
FLAGS "H"
|
|
FIELD LF_MOV->ANNOIVA
|
|
END
|
|
|
|
NUMBER F_NUMREG 6
|
|
BEGIN
|
|
PROMPT 52 1 "Operazione n. "
|
|
HELP "Numero del movimento di prima nota da gestire"
|
|
FIELD LF_MOV->NUMREG
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "D"
|
|
KEY 1
|
|
END
|
|
|
|
DATE F_DATACOMP
|
|
BEGIN
|
|
PROMPT 1 2 "Data di competenza "
|
|
HELP "Data di competenza dell'operazione"
|
|
FIELD LF_MOV->DATACOMP
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_ANNOES 4
|
|
BEGIN
|
|
PROMPT 52 2 "Esercizio "
|
|
FIELD LF_MOV->ANNOES
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATADOC
|
|
BEGIN
|
|
PROMPT 1 3 "Data del documento "
|
|
HELP "Data del documento che ha generato il movimento"
|
|
FIELD LF_MOV->DATADOC
|
|
WARNING "Specificare la data del documento"
|
|
END
|
|
|
|
STRING F_NUMDOC 7
|
|
BEGIN
|
|
PROMPT 52 3 "Documento n. "
|
|
HELP "Numero del documento che ha generato il movimento"
|
|
FIELD LF_MOV->NUMDOC
|
|
WARNING "Specificare il numero documento"
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 1 4 "Descrizione documento "
|
|
HELP "Descrizione del documento che ha generato il movimento"
|
|
FIELD LF_MOV->DESCR
|
|
END
|
|
|
|
STRING F_CODCAUS 3
|
|
BEGIN
|
|
PROMPT 1 5 "Causale "
|
|
FIELD LF_MOV->CODCAUS
|
|
USE LF_CAUSALI
|
|
INPUT CODCAUS F_CODCAUS
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TIPODOC
|
|
OUTPUT F_CODCAUS CODCAUS
|
|
OUTPUT F_DESCRCAUS DESCR
|
|
OUTPUT F_TIPODOC TIPODOC
|
|
FLAGS "DUZ"
|
|
END
|
|
|
|
STRING F_DESCRCAUS 50
|
|
BEGIN
|
|
PROMPT 23 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
LIST I_SEZIONE1 1 7
|
|
BEGIN
|
|
PROMPT 1 7 "Riga 1 "
|
|
HELP "Sezione del conto della prima riga"
|
|
ITEM "D|Dare"
|
|
ITEM "A|Avere"
|
|
END
|
|
|
|
NUMBER F_TOTALE 15
|
|
BEGIN
|
|
PROMPT 18 7 ""
|
|
HELP "Importo del conto di prima riga"
|
|
FIELD LF_MOV->TOTDOC
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,I_IMPORTO2
|
|
END
|
|
|
|
LIST F_CLIFO 1 10
|
|
BEGIN
|
|
PROMPT 37 7 ""
|
|
ITEM " |Conto" MESSAGE SHOW,I_SOTTOCONTO|HIDE,F_FORNITORE|HIDE,F_CLIENTE
|
|
ITEM "C|Cliente" MESSAGE HIDE,I_SOTTOCONTO|HIDE,F_FORNITORE|SHOW,F_CLIENTE
|
|
ITEM "F|Fornitore" MESSAGE HIDE,I_SOTTOCONTO|HIDE,F_CLIENTE|SHOW,F_FORNITORE
|
|
FIELD LF_MOV->TIPO
|
|
END
|
|
|
|
NUMBER F_GRUPPOCLIFO 3
|
|
BEGIN
|
|
PROMPT 51 7 ""
|
|
HELP "Codice del conto di prima riga"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Gruppo assente"
|
|
END
|
|
|
|
NUMBER F_CONTOCLIFO 3
|
|
BEGIN
|
|
PROMPT 57 7 ""
|
|
HELP "Codice del conto di prima riga"
|
|
USE LF_PCON SELECT SOTTOCONTO==""
|
|
INPUT GRUPPO F_GRUPPOCLIFO
|
|
INPUT CONTO F_CONTOCLIFO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOCLIFO GRUPPO
|
|
OUTPUT F_CONTOCLIFO CONTO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Conto assente"
|
|
END
|
|
|
|
NUMBER F_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 65 7 ""
|
|
HELP "Codice del conto di prima riga"
|
|
FIELD LF_MOV->CODCF
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
|
OUTPUT F_CLIENTE CODCF
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN cg0 -1 C
|
|
WARNING "Cliente assente"
|
|
END
|
|
|
|
NUMBER F_FORNITORE 6
|
|
BEGIN
|
|
PROMPT 65 7 ""
|
|
HELP "Codice del conto di prima riga"
|
|
FIELD LF_MOV->CODCF
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_FORNITORE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
|
OUTPUT F_FORNITORE CODCF
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN cg0 -1 F
|
|
WARNING "Fornitore assente"
|
|
END
|
|
|
|
NUMBER I_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 65 7 ""
|
|
HELP "Codice del conto di prima riga"
|
|
USE LF_PCON SELECT SOTTOCONTO != ""
|
|
INPUT SOTTOCONTO I_SOTTOCONTO
|
|
INPUT GRUPPO F_GRUPPOCLIFO
|
|
INPUT CONTO F_CONTOCLIFO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT I_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_GRUPPOCLIFO GRUPPO
|
|
OUTPUT F_CONTOCLIFO CONTO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Sottoconto assente"
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
LIST I_SEZIONE2 1 7
|
|
BEGIN
|
|
PROMPT 1 8 "Riga 2 "
|
|
HELP "Sezione del conto della prima riga"
|
|
ITEM "D|Dare"
|
|
ITEM "A|Avere"
|
|
END
|
|
|
|
NUMBER I_IMPORTO2 15
|
|
BEGIN
|
|
PROMPT 18 8 ""
|
|
HELP "Importo del conto di seconda riga"
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
END
|
|
|
|
LIST DLG_NULL 1 10
|
|
BEGIN
|
|
PROMPT 37 8 ""
|
|
ITEM " |Conto"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER I_GRUPPO2 3
|
|
BEGIN
|
|
PROMPT 51 8 ""
|
|
HELP "Codice del conto di seconda riga"
|
|
END
|
|
|
|
NUMBER I_CONTO2 3
|
|
BEGIN
|
|
PROMPT 57 8 ""
|
|
HELP "Codice del conto di seconda riga"
|
|
END
|
|
|
|
NUMBER I_SOTTOCONTO2 6
|
|
BEGIN
|
|
PROMPT 65 8 ""
|
|
HELP "Codice del conto di seconda riga"
|
|
COPY USE I_SOTTOCONTO
|
|
INPUT GRUPPO I_GRUPPO2
|
|
INPUT CONTO I_CONTO2
|
|
INPUT SOTTOCONTO I_SOTTOCONTO2
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT I_GRUPPO2 GRUPPO
|
|
OUTPUT I_CONTO2 CONTO
|
|
OUTPUT I_SOTTOCONTO2 SOTTOCONTO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Sottoconto assente"
|
|
END
|
|
|
|
LIST I_SEZIONE3 1 7
|
|
BEGIN
|
|
PROMPT 1 9 "Riga 3 "
|
|
HELP "Sezione del conto di terza riga"
|
|
ITEM "D|Dare"
|
|
ITEM "A|Avere"
|
|
END
|
|
|
|
NUMBER I_IMPORTO3 15
|
|
BEGIN
|
|
PROMPT 18 9 ""
|
|
HELP "Importo del conto di terza riga"
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
END
|
|
|
|
LIST DLG_NULL 1 10
|
|
BEGIN
|
|
PROMPT 37 9 ""
|
|
ITEM " |Conto"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER I_GRUPPO3 3
|
|
BEGIN
|
|
PROMPT 51 9 ""
|
|
HELP "Codice del conto di terza riga"
|
|
END
|
|
|
|
NUMBER I_CONTO3 3
|
|
BEGIN
|
|
PROMPT 57 9 ""
|
|
HELP "Codice del conto di terza riga"
|
|
END
|
|
|
|
NUMBER I_SOTTOCONTO3 6
|
|
BEGIN
|
|
PROMPT 65 9 ""
|
|
HELP "Codice del conto di terza riga"
|
|
COPY USE I_SOTTOCONTO
|
|
INPUT GRUPPO I_GRUPPO3
|
|
INPUT CONTO I_CONTO3
|
|
INPUT SOTTOCONTO I_SOTTOCONTO3
|
|
COPY DISPLAY I_SOTTOCONTO2
|
|
OUTPUT I_GRUPPO3 GRUPPO
|
|
OUTPUT I_CONTO3 CONTO
|
|
OUTPUT I_SOTTOCONTO3 SOTTOCONTO
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 I_IMPORTO3
|
|
WARNING "Sottoconto assente"
|
|
END
|
|
|
|
LIST I_SEZIONE4 1 7
|
|
BEGIN
|
|
PROMPT 1 10 "Riga 4 "
|
|
HELP "Sezione del conto di quarta riga"
|
|
ITEM "D|Dare"
|
|
ITEM "A|Avere"
|
|
END
|
|
|
|
NUMBER I_IMPORTO4 15
|
|
BEGIN
|
|
PROMPT 18 10 ""
|
|
HELP "Importo del conto di quarta riga"
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
END
|
|
|
|
LIST DLG_NULL 1 10
|
|
BEGIN
|
|
PROMPT 37 10 ""
|
|
ITEM " |Conto"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER I_GRUPPO4 3
|
|
BEGIN
|
|
PROMPT 51 10 ""
|
|
HELP "Codice del conto di quarta riga"
|
|
END
|
|
|
|
NUMBER I_CONTO4 3
|
|
BEGIN
|
|
PROMPT 57 10 ""
|
|
HELP "Codice del conto di quarta riga"
|
|
END
|
|
|
|
NUMBER I_SOTTOCONTO4 6
|
|
BEGIN
|
|
PROMPT 65 10 ""
|
|
HELP "Codice del conto di quarta riga"
|
|
COPY USE I_SOTTOCONTO
|
|
INPUT GRUPPO I_GRUPPO4
|
|
INPUT CONTO I_CONTO4
|
|
INPUT SOTTOCONTO I_SOTTOCONTO4
|
|
COPY DISPLAY I_SOTTOCONTO2
|
|
OUTPUT I_GRUPPO4 GRUPPO
|
|
OUTPUT I_CONTO4 CONTO
|
|
OUTPUT I_SOTTOCONTO4 SOTTOCONTO
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 I_IMPORTO4
|
|
WARNING "Sottoconto assente"
|
|
END
|
|
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 "~Registra"
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
MESSAGE EXIT,K_SAVE
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|