Patch level :
Files correlati : fe0 fe0100a.msk fetbcon.msk Ricompilazione Demo : [ ] Commento : Prima versione nuova gestione FE git-svn-id: svn://10.65.10.50/branches/R_10_00@22464 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
b80cac5ab4
commit
9263ff08f0
1042
fe/fe0100.cpp
1042
fe/fe0100.cpp
File diff suppressed because it is too large
Load Diff
32
fe/fe0100a.h
32
fe/fe0100a.h
@ -1,5 +1,5 @@
|
||||
#define F_ANNO 301
|
||||
#define F_DESCATT 302
|
||||
#define F_DATA 302
|
||||
#define F_SHOWALL 303
|
||||
#define F_SENDALL 304
|
||||
#define F_OUTFOLDER 305
|
||||
@ -15,20 +15,22 @@
|
||||
#define F_RIGHE 300
|
||||
|
||||
#define A_RIGA 101
|
||||
#define A_IGNORA 102
|
||||
#define A_TIPOCF 103
|
||||
#define A_CODCF 104
|
||||
#define A_OCFPI 105
|
||||
#define A_RAGSOC 106
|
||||
#define A_NUMREG 107
|
||||
#define A_FORZATA 102
|
||||
#define A_IGNORA 103
|
||||
#define A_TIPOCF 104
|
||||
#define A_CODCF 105
|
||||
#define A_OCFPI 106
|
||||
#define A_RAGSOC 107
|
||||
#define A_DATAREG 108
|
||||
#define A_MODPAG 109
|
||||
#define A_IMPORTO 110
|
||||
#define A_IMPOSTA 111
|
||||
#define A_TIPOPE 112
|
||||
#define A_CONTRATTO 113
|
||||
#define A_NUMRETT 114
|
||||
#define A_PAIV 115
|
||||
#define A_COFI 116
|
||||
#define A_NUMDOC 109
|
||||
#define A_MODPAG 110
|
||||
#define A_IMPORTO 111
|
||||
#define A_IMPOSTA 112
|
||||
#define A_TIPOPE 113
|
||||
#define A_CONTRATTO 114
|
||||
#define A_DATARETT 115
|
||||
#define A_NUMRETT 116
|
||||
#define A_PAIV 117
|
||||
#define A_COFI 118
|
||||
|
||||
#define A_OCCAS 155
|
||||
|
||||
166
fe/fe0100a.uml
166
fe/fe0100a.uml
@ -15,7 +15,7 @@ BEGIN
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 2 2
|
||||
BUTTON DLG_CANCEL 2 2,
|
||||
BEGIN
|
||||
PROMPT 1 2 "Annulla"
|
||||
END
|
||||
@ -61,9 +61,17 @@ BEGIN
|
||||
WARNING "Anno non valido"
|
||||
END
|
||||
|
||||
LIST F_SHOWALL 1 25
|
||||
DATE F_DATA
|
||||
BEGIN
|
||||
PROMPT 33 1 "Mostra movimenti "
|
||||
PROMPT 15 1 "Data limite "
|
||||
CHECKTYPE REQUIRED
|
||||
STR_EXPR YEAR(#THIS_FIELD)>#F_ANNO
|
||||
WARNING "La data deve appartenere all'anno successivo"
|
||||
END
|
||||
|
||||
LIST F_SHOWALL 1 13
|
||||
BEGIN
|
||||
PROMPT 45 1 "Mostra movimenti "
|
||||
ITEM "1|Rilevanti"
|
||||
ITEM "2|NON rilevanti"
|
||||
ITEM "4|Scartati"
|
||||
@ -133,20 +141,22 @@ END
|
||||
SPREADSHEET F_RIGHE
|
||||
BEGIN
|
||||
PROMPT 0 5 ""
|
||||
ITEM "Riga@6F"
|
||||
ITEM "Numero\nRegistraz.@7F"
|
||||
ITEM "Forzata@C"
|
||||
ITEM "Non\nInv.@2@F"
|
||||
ITEM "C/F@2F"
|
||||
ITEM "Codice@F"
|
||||
ITEM "Occasionale@16F"
|
||||
ITEM "Ragione Sociale@24"
|
||||
ITEM "Numero\nRegistr.@7"
|
||||
ITEM "Data\nOperazione@10"
|
||||
ITEM "Numero\nFattura@7"
|
||||
ITEM "Mod.\nPag.@4"
|
||||
ITEM "Importo\ndovuto@12"
|
||||
ITEM "Imposta@12"
|
||||
ITEM "Tipo.\nOper.@4"
|
||||
ITEM "Contratto@18"
|
||||
ITEM "N. Reg.\nrettif.@7"
|
||||
ITEM "Data Doc.\nrettif.@10"
|
||||
ITEM "N. Doc.\nrettif.@7"
|
||||
ITEM "Partita IVA@15"
|
||||
ITEM "Codice Fiscale@17"
|
||||
DEFAULT "*" // Impedisce il salvataggio su profilo .ini
|
||||
@ -189,7 +199,7 @@ ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "Riga" -1 -1 69 13
|
||||
PAGE "Riga" -1 -1 69 11
|
||||
|
||||
NUMBER A_RIGA 7
|
||||
BEGIN
|
||||
@ -198,6 +208,12 @@ BEGIN
|
||||
FIELD PROGR
|
||||
END
|
||||
|
||||
BOOLEAN A_FORZATA
|
||||
BEGIN
|
||||
PROMPT 40 0 "Forzatura manuale"
|
||||
FIELD FORZATURA
|
||||
END
|
||||
|
||||
LIST A_IGNORA 2 55
|
||||
BEGIN
|
||||
PROMPT 1 1 "Non inv."
|
||||
@ -219,7 +235,9 @@ LIST A_TIPOCF 1 10
|
||||
BEGIN
|
||||
PROMPT 1 2 ""
|
||||
ITEM "C|Cliente"
|
||||
MESSAGE "1",A_TIPOPE
|
||||
ITEM "F|Fornitore"
|
||||
MESSAGE "2",A_TIPOPE
|
||||
FIELD TIPOCF
|
||||
END
|
||||
|
||||
@ -238,11 +256,12 @@ BEGIN
|
||||
CHEKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
FIELD CODCF
|
||||
FLAGS "G"
|
||||
END
|
||||
|
||||
STRING A_OCFPI 16
|
||||
BEGIN
|
||||
PROMPT 34 2 "Occasionale "
|
||||
PROMPT 36 2 "Occasionale "
|
||||
USE LF_OCCAS
|
||||
INPUT CFPI A_OCFPI
|
||||
DISPLAY "Codice@16" CFPI
|
||||
@ -254,9 +273,10 @@ BEGIN
|
||||
GROUP 3
|
||||
ADD RUN cg0 -6
|
||||
FIELD OCFPI
|
||||
FLAGS "G"
|
||||
END
|
||||
|
||||
STRING A_RAGSOC 50 45
|
||||
STRING A_RAGSOC 50 47
|
||||
BEGIN
|
||||
PROMPT 1 3 "Ragione Sociale "
|
||||
FLAGS "D"
|
||||
@ -264,74 +284,61 @@ END
|
||||
|
||||
STRING A_PAIV 12
|
||||
BEGIN
|
||||
PROMPT 1 4 "P.IVA "
|
||||
PROMPT 1 4 "Partita IVA "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING A_COFI 16
|
||||
BEGIN
|
||||
PROMPT 41 4 "C.F. "
|
||||
PROMPT 33 4 "Codice Fiscale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE A_DATAREG
|
||||
BEGIN
|
||||
PROMPT 1 5 "Data operazione "
|
||||
PROMPT 29 5 "Data "
|
||||
USE LF_MOV KEY 3
|
||||
INPUT TIPO A_TIPOCF SELECT
|
||||
INPUT CODCF A_CODCF SELECT
|
||||
INPUT DATAREG A_DATAREG
|
||||
DISPLAY "Data.Reg.@10" DATAREG
|
||||
DISPLAY "Num.Reg.@7" NUMREG
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Data Doc.@10" DATADOC
|
||||
DISPLAY "Num.Doc.@7" NUMDOC
|
||||
OUTPUT A_DATAREG DATAREG
|
||||
OUTPUT A_NUMDOC NUMDOC
|
||||
FIELD DATAREG
|
||||
CHEKTYPE REQUIRED
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
NUMBER A_NUMREG 7
|
||||
STRING A_NUMDOC 7
|
||||
BEGIN
|
||||
PROMPT 41 5 "N. operazione "
|
||||
FIELD NUMREG
|
||||
USE LF_MOV SELECT (TIPO==#A_TIPOCF)&&(BETWEEN(CODCF,#A_CODCF,#A_CODCF))
|
||||
JOIN LF_CLIFO INTO TIPOCF==TIPO CODCF==CODCF
|
||||
INPUT NUMREG A_NUMREG
|
||||
DISPLAY "Numero@7" NUMREG
|
||||
DISPLAY "Data@10" DATAREG
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||||
OUTPUT A_NUMREG NUMREG
|
||||
CHECKTYPE NORMAL
|
||||
PROMPT 49 5 "Fattura "
|
||||
FLAGS "U"
|
||||
COPY ALL A_DATAREG
|
||||
ADD RUN cg2 -0
|
||||
MESSAGE EMPTY DISABLE,DLG_USER
|
||||
MESSAGE ENABLE,DLG_USER
|
||||
STR_EXPR IF(#A_TIPOCF=="C";#A_NUMDOC!="";1)
|
||||
WARNING "E' necessario inserire il numero della fattura di vendita"
|
||||
FIELD NUMDOC
|
||||
END
|
||||
|
||||
LIST A_MODPAG 1 20
|
||||
BEGIN
|
||||
PROMPT 1 6 "Modalità di pagamento "
|
||||
ITEM "3|3 - Non frazionato"
|
||||
ITEM "1|1 - Acconto"
|
||||
ITEM "2|2 - Saldo"
|
||||
ITEM "1|1 - Non frazionato"
|
||||
MESSAGE DISABLE,A_CONTRATTO|ENABLE,A_DATARETT|ENABLE,A_NUMRETT
|
||||
ITEM "2|2 - Frazionato"
|
||||
MESSAGE ENABLE,A_CONTRATTO|DISABLE,A_DATARETT|DISABLE,A_NUMRETT
|
||||
ITEM "2|3 - Periodico"
|
||||
MESSAGE ENABLE,A_CONTRATTO|DISABLE,A_DATARETT|DISABLE,A_NUMRETT
|
||||
FIELD MODPAG
|
||||
END
|
||||
|
||||
LIST A_TIPOPE 1 40
|
||||
BEGIN
|
||||
PROMPT 1 8 "Tipologia operazione "
|
||||
ITEM "1|1-Cessione e/o prestazione"
|
||||
ITEM "2|2-Acquisto e/o prestazione ricevuta"
|
||||
FIELD TIPOPE
|
||||
END
|
||||
|
||||
CURRENCY A_IMPORTO 12
|
||||
BEGIN
|
||||
PROMPT 1 9 "Importo dovuto "
|
||||
FIELD IMPORTO
|
||||
END
|
||||
|
||||
CURRENCY A_IMPOSTA 12
|
||||
BEGIN
|
||||
PROMPT 42 9 "Imposta "
|
||||
FIELD IMPOSTA
|
||||
FLAGS "G"
|
||||
END
|
||||
|
||||
STRING A_CONTRATTO 18
|
||||
BEGIN
|
||||
PROMPT 1 10 "Contratto "
|
||||
PROMPT 1 7 "Contratto riferimento "
|
||||
USE &CON
|
||||
INPUT CODTAB[1,1] A_TIPOCF SELECT
|
||||
INPUT CODTAB[2,7] A_CODCF SELECT
|
||||
@ -340,22 +347,55 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT A_CONTRATTO CODTAB[8,25]
|
||||
ADD RUN fe0 -1 &CON
|
||||
CHEKCTYPE NORMAL
|
||||
CHEKCTYPE REQUIRED
|
||||
FIELD CONTRATTO
|
||||
END
|
||||
|
||||
NUMBER A_NUMRETT 7
|
||||
DATE A_DATARETT
|
||||
BEGIN
|
||||
PROMPT 1 12 "N. operazione da rettificare "
|
||||
FIELD NUMRETT
|
||||
COPY USE A_NUMREG
|
||||
INPUT NUMREG A_NUMRETT
|
||||
COPY DISPLAY A_NUMREG
|
||||
OUTPUT A_NUMRETT NUMREG
|
||||
CHECKTYPE SEARCH
|
||||
PROMPT 1 8 "Documento rettificato "
|
||||
FIELD DATARETT
|
||||
USE LF_MOV KEY 3
|
||||
INPUT TIPO A_TIPOCF SELECT
|
||||
INPUT CODCF A_CODCF SELECT
|
||||
INPUT DATAREG A_DATARETT
|
||||
COPY DISPLAY A_DATAREG
|
||||
OUTPUT A_DATARETT DATADOC
|
||||
OUTPUT A_NUMRETT NUMDOC
|
||||
ADD RUN cg2 -0
|
||||
NUM_EXPR (#A_NUMRETT=0)||(#A_NUMRETT=9999999)||(#A_NUMRETT!=#A_NUMREG)
|
||||
WARNING "Inserire un numero registrazione diverso da quello principale"
|
||||
NUM_EXPR IF(#A_IMPORTO<0;#A_DATARETT!="";1)
|
||||
WARNING "Inserire la data della fattura rettificata"
|
||||
END
|
||||
|
||||
STRING A_NUMRETT 7
|
||||
BEGIN
|
||||
PROMPT 50 8 "Numero "
|
||||
FIELD NUMRETT
|
||||
COPY ALL A_DATARETT
|
||||
ADD RUN cg2 -0
|
||||
VALIDATE REQIF_FUNC 1 A_DATARETT
|
||||
WARNING "Inserire il numero della fattura rettificata"
|
||||
END
|
||||
|
||||
LIST A_TIPOPE 1 41
|
||||
BEGIN
|
||||
PROMPT 1 9 "Tipologia operazione "
|
||||
ITEM "1|1-Cessione e/o prestazione"
|
||||
ITEM "2|2-Acquisto e/o prestazione ricevuta"
|
||||
FIELD TIPOPE
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
CURRENCY A_IMPORTO 12
|
||||
BEGIN
|
||||
PROMPT 1 10 "Importo dovuto "
|
||||
FIELD IMPORTO
|
||||
END
|
||||
|
||||
CURRENCY A_IMPOSTA 12
|
||||
BEGIN
|
||||
PROMPT 44 10 "Imposta "
|
||||
FIELD IMPOSTA
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -7,6 +7,7 @@
|
||||
#define F_CON_DESPADRE 207
|
||||
#define F_CON_INIZIO 220
|
||||
#define F_CON_FINE 221
|
||||
#define F_CON_MODPAG 222
|
||||
#define F_CON_RATE 250
|
||||
|
||||
#define R_CON_ANNO 101
|
||||
|
||||
@ -124,9 +124,18 @@ BEGIN
|
||||
WARNING "La data finale deve essere successiva a quella iniziale"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_CON_MODPAG 1 78
|
||||
BEGIN
|
||||
PROMPT 1 10 "Modalità di pagamento "
|
||||
ITEM "2|Importo frazionato"
|
||||
ITEM "3|Corrispettivi periodici"
|
||||
FIELD S6
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
SPREADSHEET F_CON_RATE 40 6
|
||||
BEGIN
|
||||
PROMPT 2 11 ""
|
||||
PROMPT 2 13 ""
|
||||
ITEM "Anno"
|
||||
ITEM "Importo@12R"
|
||||
ITEM "Imposta@12R"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user