root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Maschere di Andrea

Browse Source 
Correzioni Prima Nota


git-svn-id: svn://10.65.10.50/trunk@605 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-11 18:03:21 +00:00
parent 1155d509e5
commit 782f282a3f
33 changed files with 646 additions and 470 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cg/Attic/cg1400a.uml
View File

@ -5,6 +5,7 @@ PAGE "STAMPA DELEGHE IVA" -1 -1 58 11
NUMBER F_ABI 5 NUMBER F_ABI 5
BEGIN BEGIN
PROMPT 1 1 "Codice ABI " PROMPT 1 1 "Codice ABI "
HELP "Codice ABI della banca per la presentazione della delega"
FLAGS "RZ" FLAGS "RZ"
FIELD CNF_STUDIO->cg.CodABI FIELD CNF_STUDIO->cg.CodABI
USE %BAN USE %BAN
@ -21,6 +22,7 @@ END
NUMBER F_CAB 5 NUMBER F_CAB 5
BEGIN BEGIN
PROMPT 22 1 "Codice CAB " PROMPT 22 1 "Codice CAB "
HELP "Codice CAB della banca per la presentazione della delega"
FLAGS "RZ" FLAGS "RZ"
FIELD CNF_STUDIO->cg.CodCAB FIELD CNF_STUDIO->cg.CodCAB
COPY USE F_ABI COPY USE F_ABI
@ -37,12 +39,14 @@ END
DATA F_DATA DATA F_DATA
BEGIN BEGIN
PROMPT 1 3 "Data di stampa " PROMPT 1 3 "Data di stampa "
HELP "Data che viene stampata sulla delega"
FLAGS "A" FLAGS "A"
END END
LIST F_TIPO 21 LIST F_TIPO 21
BEGIN BEGIN
PROMPT 28 3 "Tipo " PROMPT 28 3 "Tipo "
HELP "Tipo di delega da stampare"
ITEM "1|Periodica" MESSAGE ENABLE,F_MESE ITEM "1|Periodica" MESSAGE ENABLE,F_MESE
ITEM "2|Annuale" MESSAGE "13",F_MESE|DISABLE,F_MESE ITEM "2|Annuale" MESSAGE "13",F_MESE|DISABLE,F_MESE
ITEM "7|Acconti IVA" MESSAGE "12",F_MESE|DISABLE,F_MESE ITEM "7|Acconti IVA" MESSAGE "12",F_MESE|DISABLE,F_MESE
@ -51,12 +55,14 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 1 5 "Anno " PROMPT 1 5 "Anno "
HELP "Anno di cui si vuole stampare la delega"
FLAGS "A" FLAGS "A"
END END
LIST F_MESE 10 LIST F_MESE 10
BEGIN BEGIN
PROMPT 13 5 "Mese " PROMPT 13 5 "Mese "
HELP "Mese di cui si vuole stampare la delega"
FLAGS "MA" FLAGS "MA"
ITEM "13|Annuale" MESSAGE "2",F_TIPO ITEM "13|Annuale" MESSAGE "2",F_TIPO
END END
@ -64,6 +70,7 @@ END
BOOLEAN F_PROVA BOOLEAN F_PROVA
BEGIN BEGIN
PROMPT 1 7 "Stampa di prova" PROMPT 1 7 "Stampa di prova"
HELP "Indicare se si tratta di una stampa di controllo"
END END
BOOLEAN F_AGGIORNA BOOLEAN F_AGGIORNA

3
cg/cg0100.cpp
View File

@ -1,8 +1,9 @@
#include <relapp.h> #include <relapp.h>
#include <lffiles.h>
#include <pconti.h> #include <pconti.h>
#include "cg0.h" #include "cg0.h"
#include "cg0100.h" #include "cg0100.h"
#define ATTIVITA 1 #define ATTIVITA 1
#define PASSIVITA 2 #define PASSIVITA 2
#define COSTI 3 #define COSTI 3

31
cg/cg0100a.uml
View File

@ -17,6 +17,7 @@ END
NUMBER FLD_CM1_GRUPPO 3 NUMBER FLD_CM1_GRUPPO 3
BEGIN BEGIN
PROMPT 2 1 "Gruppo " PROMPT 2 1 "Gruppo "
HELP "Codice del gruppo"
FIELD LF_PCON->GRUPPO FIELD LF_PCON->GRUPPO
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
@ -38,6 +39,7 @@ END
NUMBER FLD_CM1_CONTO 3 NUMBER FLD_CM1_CONTO 3
BEGIN BEGIN
PROMPT 2 2 "Conto " PROMPT 2 2 "Conto "
HELP "Codice dell'eventuale conto"
FIELD LF_PCON->CONTO FIELD LF_PCON->CONTO
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
@ -62,6 +64,7 @@ END
NUMBER FLD_CM1_SOTTOCONTO 6 NUMBER FLD_CM1_SOTTOCONTO 6
BEGIN BEGIN
PROMPT 2 3 "Sottoconto " PROMPT 2 3 "Sottoconto "
HELP "Codice dell'eventuale sottoconto"
FIELD LF_PCON->SOTTOCONTO FIELD LF_PCON->SOTTOCONTO
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
@ -100,6 +103,7 @@ END
NUMBER FLD_CM1_CODTABANALISI 10 NUMBER FLD_CM1_CODTABANALISI 10
BEGIN BEGIN
PROMPT 1 5 "Codice Tabella Analisi " PROMPT 1 5 "Codice Tabella Analisi "
HELP "Codice di raggruppamento per l'analisi di bilancio"
FIELD LF_PCON->CODCBL FIELD LF_PCON->CODCBL
FLAGS "R" FLAGS "R"
END END
@ -115,7 +119,7 @@ BEGIN
PROMPT 1 6 "Sezione di bilancio " PROMPT 1 6 "Sezione di bilancio "
FIELD LF_PCON->INDBIL FIELD LF_PCON->INDBIL
GROUP 1 3 GROUP 1 3
HELP "Indicatore di bilancio" HELP "Sezione di appartenenza del conto"
ITEM "1|1. Attivita'" ITEM "1|1. Attivita'"
ITEM "2|2. Passivita'" ITEM "2|2. Passivita'"
ITEM "3|3. Costi" ITEM "3|3. Costi"
@ -141,6 +145,7 @@ END
STRING FLD_CM1_LETTIVD 1 1 STRING FLD_CM1_LETTIVD 1 1
BEGIN BEGIN
PROMPT 56 7 "" PROMPT 56 7 ""
HELP "Codice del conto secondo la IV direttiva CEE"
FIELD LF_PCON->LETTIVD FIELD LF_PCON->LETTIVD
GROUP 1 5 GROUP 1 5
FLAGS "U" FLAGS "U"
@ -150,12 +155,13 @@ STRING FLD_CM1_LETTIVDH 1
BEGIN BEGIN
PROMPT 56 7 "" PROMPT 56 7 ""
FLAGS "HDU" FLAGS "HDU"
GROUP 1 5 GROUP 5
END END
NUMBER FLD_CM1_NUMRIVD 8 4 NUMBER FLD_CM1_NUMRIVD 8 4
BEGIN BEGIN
PROMPT 60 7 "" PROMPT 60 7 ""
HELP "Codice del conto secondo la IV direttiva CEE"
FIELD LF_PCON->NUMRIVD FIELD LF_PCON->NUMRIVD
GROUP 1 5 GROUP 1 5
FLAGS "MZ" FLAGS "MZ"
@ -165,12 +171,13 @@ NUMBER FLD_CM1_NUMRIVDH 8 4
BEGIN BEGIN
PROMPT 60 7 "" PROMPT 60 7 ""
FLAGS "HDMZ" FLAGS "HDMZ"
GROUP 1 5 GROUP 5
END END
NUMBER FLD_CM1_NUMIVD 2 NUMBER FLD_CM1_NUMIVD 2
BEGIN BEGIN
PROMPT 71 7 "" PROMPT 71 7 ""
HELP "Codice del conto secondo la IV direttiva CEE"
FIELD LF_PCON->NUMIVD FIELD LF_PCON->NUMIVD
FLAGS "RZ" FLAGS "RZ"
GROUP 1 5 GROUP 1 5
@ -217,6 +224,7 @@ END
STRING FLD_CM1_LETTIVDOPP 1 STRING FLD_CM1_LETTIVDOPP 1
BEGIN BEGIN
PROMPT 56 8 "" PROMPT 56 8 ""
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
FIELD LF_PCON->LETTIVDOPP FIELD LF_PCON->LETTIVDOPP
FLAGS "U" FLAGS "U"
GROUP 1 2 4 7 GROUP 1 2 4 7
@ -225,6 +233,7 @@ END
NUMBER FLD_CM1_NUMRIVDOPP 8 4 NUMBER FLD_CM1_NUMRIVDOPP 8 4
BEGIN BEGIN
PROMPT 60 8 "" PROMPT 60 8 ""
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
FIELD LF_PCON->NUMRIVDOPP FIELD LF_PCON->NUMRIVDOPP
FLAGS "MZ" FLAGS "MZ"
GROUP 1 2 4 7 GROUP 1 2 4 7
@ -233,6 +242,7 @@ END
NUMBER FLD_CM1_NUMIVDOPP 2 NUMBER FLD_CM1_NUMIVDOPP 2
BEGIN BEGIN
PROMPT 71 8 "" PROMPT 71 8 ""
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
FIELD LF_PCON->NUMIVDOPP FIELD LF_PCON->NUMIVDOPP
FLAGS "RZ" FLAGS "RZ"
GROUP 1 2 4 7 GROUP 1 2 4 7
@ -255,7 +265,7 @@ BEGIN
PROMPT 1 9 "Tipo Spesa/Ricavo " PROMPT 1 9 "Tipo Spesa/Ricavo "
FIELD LF_PCON->TIPOSPRIC FIELD LF_PCON->TIPOSPRIC
GROUP 1 2 GROUP 1 2
HELP "Specificare il tipo Spesa/Ricavo" HELP "Specificare il tipo do conto"
ITEM "0|0. Acquisti o vendite in genere" ITEM "0|0. Acquisti o vendite in genere"
ITEM "1|1. Acquisti beni per rivendita" ITEM "1|1. Acquisti beni per rivendita"
ITEM "2|2. Acquisti beni ammortizzabili" ITEM "2|2. Acquisti beni ammortizzabili"
@ -268,7 +278,7 @@ END
LIST FLD_CM1_RICSER 1 18 LIST FLD_CM1_RICSER 1 18
BEGIN BEGIN
PROMPT 1 10 "Ricavi per servizi " PROMPT 1 10 "Ricavi per servizi "
FIELD RICSER FIELD RICSER
FLAGS "H" FLAGS "H"
ITEM "0|Altre attivita'" ITEM "0|Altre attivita'"
@ -277,10 +287,10 @@ END
LIST FLD_CM1_TMCF 1 13 LIST FLD_CM1_TMCF 1 13
BEGIN BEGIN
PROMPT 1 11 "Tipo sottoconti " PROMPT 1 11 "Tipo sottoconti "
FIELD LF_PCON->TMCF FIELD LF_PCON->TMCF
GROUP 1 3 GROUP 1 3
HELP "Inserire il tipo dei sottoconti" HELP "Tipo dei sottoconti (Normale o clienti/fornitori)"
ITEM " |Normali" ITEM " |Normali"
ITEM "C|Clienti" ITEM "C|Clienti"
ITEM "F|Fornitori" ITEM "F|Fornitori"
@ -288,7 +298,8 @@ END
LIST FLD_CM2_SEZSALDI 1 10 LIST FLD_CM2_SEZSALDI 1 10
BEGIN BEGIN
PROMPT 1 12 "Controllo saldo primanota " PROMPT 1 12 "Controllo saldo primanota "
HELP "Tipo di controllo del saldo in prima nota"
FIELD LF_PCON->SEZSALDI FIELD LF_PCON->SEZSALDI
GROUP 1 GROUP 1
ITEM " |Nessuno" ITEM " |Nessuno"
@ -299,6 +310,7 @@ END
BOOLEAN FLD_CM2_STSOTTBIL BOOLEAN FLD_CM2_STSOTTBIL
BEGIN BEGIN
PROMPT 1 14 "Stampa dettaglio sottoconti su bilanci " PROMPT 1 14 "Stampa dettaglio sottoconti su bilanci "
HELP "Indicare se stampare il dettaglio dei sottoconti nei bilanci di verifica"
FIELD LF_PCON->STSOTTBIL FIELD LF_PCON->STSOTTBIL
GROUP 1 3 GROUP 1 3
END END
@ -306,6 +318,7 @@ END
BOOLEAN FLD_CM2_COMPENS BOOLEAN FLD_CM2_COMPENS
BEGIN BEGIN
PROMPT 50 14 "Compensazione saldi " PROMPT 50 14 "Compensazione saldi "
HELP "Indicare se e' ammessa la compensazione dei saldi"
FIELD LF_PCON->COMPENS FIELD LF_PCON->COMPENS
GROUP 1 3 GROUP 1 3
END END
@ -313,6 +326,7 @@ END
BOOLEAN FLD_CM2_STSOTTAB BOOLEAN FLD_CM2_STSOTTAB
BEGIN BEGIN
PROMPT 1 15 "Stampa dettaglio sottoconti su analisi " PROMPT 1 15 "Stampa dettaglio sottoconti su analisi "
HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio"
FIELD LF_PCON->STSOTTAB FIELD LF_PCON->STSOTTAB
GROUP 1 3 GROUP 1 3
MESSAGE COPY,FLD_CM2_STSOTTABS MESSAGE COPY,FLD_CM2_STSOTTABS
@ -330,6 +344,7 @@ END
BOOLEAN FLD_CM2_SOSPESO BOOLEAN FLD_CM2_SOSPESO
BEGIN BEGIN
PROMPT 50 15 "Conto sospeso" PROMPT 50 15 "Conto sospeso"
HELP "Indicare se sospendere il conto in prima nota"
FIELD LF_PCON->SOSPESO FIELD LF_PCON->SOSPESO
GROUP 1 2 GROUP 1 2
END END

24
cg/cg0200b.uml
View File

@ -5,35 +5,35 @@ PAGE "" -1 -1 76 16
STRING F_RAGSOCI 50 STRING F_RAGSOCI 50
BEGIN BEGIN
PROMPT 1 2 "Rag. soc. " PROMPT 1 2 "Rag. soc. "
HELP "Inserire la ragione sociale" HELP "Ragione sociale del cliente/fornitore"
GROUP 1 GROUP 1
END END
STRING F_INDIRI 35 STRING F_INDIRI 35
BEGIN BEGIN
PROMPT 1 4 "Indirizzo " PROMPT 1 4 "Indirizzo "
HELP "Inserire l'indirizzo" HELP "Indirizzo del cliente/fornitore"
GROUP 1 GROUP 1
END END
STRING F_CIVI 10 STRING F_CIVI 10
BEGIN BEGIN
PROMPT 54 4 "N. " PROMPT 54 4 "N. "
HELP "Inserire il numero civico" HELP "Numero civico del cliente/fornitore"
GROUP 1 GROUP 1
END END
STRING F_LOCALI 35 STRING F_LOCALI 35
BEGIN BEGIN
PROMPT 1 5 "Localita " PROMPT 1 5 "Localita "
HELP "Inserire la localita" HELP "Localita' di residenza del C/F"
GROUP 1 GROUP 1
END END
STRING F_CAPI 5 STRING F_CAPI 5
BEGIN BEGIN
PROMPT 54 5 "CAP " PROMPT 54 5 "CAP "
HELP "Inserire il Codice di Avviamento Postale" HELP "Codice di Avviamento Postale del C/F"
GROUP 1 GROUP 1
END END
@ -48,7 +48,7 @@ BEGIN
OUTPUT F_STATOI CODTAB OUTPUT F_STATOI CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Stato assente" WARNING "Stato assente"
HELP "Inserire il codice dello stato" HELP "Codice dello stato del cliente/fornitore"
GROUP 1 GROUP 1
END END
@ -69,13 +69,14 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Comune assente" WARNING "Comune assente"
ADD MASK ba4100a ADD MASK ba4100a
HELP "Inserire il codice del comune" HELP "Codice del comune del cliente/fornitore"
GROUP 1 GROUP 1
END END
STRING F_DENCOMI 40 STRING F_DENCOMI 40
BEGIN BEGIN
PROMPT 33 6 "" PROMPT 33 6 ""
HELP "Nome del comne del ciente/fornitore"
USE LF_COMUNI KEY 2 USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOMI INPUT DENCOM F_DENCOMI
DISPLAY "Comune@50" DENCOM DISPLAY "Comune@50" DENCOM
@ -95,39 +96,42 @@ END
STRING F_PTELI 10 STRING F_PTELI 10
BEGIN BEGIN
PROMPT 2 9 "Telefono " PROMPT 2 9 "Telefono "
HELP "Inserire il prefisso ed il numero di telefono" HELP "Prefisso del numero di telefono"
GROUP 1 GROUP 1
END END
STRING F_TELI 30 STRING F_TELI 30
BEGIN BEGIN
PROMPT 40 9 "" PROMPT 40 9 ""
HELP "Numero di telefono del cliente/fornitore"
GROUP 1 GROUP 1
END END
STRING F_PFAXI 10 STRING F_PFAXI 10
BEGIN BEGIN
PROMPT 2 10 "Fax " PROMPT 2 10 "Fax "
HELP "Inserire il prefisso del numero di fax" HELP "Prefisso del numero di fax"
GROUP 1 GROUP 1
END END
STRING F_FAXI 30 STRING F_FAXI 30
BEGIN BEGIN
PROMPT 40 10 "" PROMPT 40 10 ""
HELP "Numero di fax del cliente/fornitore"
GROUP 1 GROUP 1
END END
BOOLEAN F_IVARIDI BOOLEAN F_IVARIDI
BEGIN BEGIN
PROMPT 2 13 "Riduzione IVA" PROMPT 2 13 "Riduzione IVA"
HELP "Flag per la riduzione IVA" HELP "Indicare se Š soggetto a riduzione IVA"
GROUP 1 GROUP 1
END END
NUMBER F_CODINDI 3 NUMBER F_CODINDI 3
BEGIN BEGIN
PROMPT 1 1 "Codice " PROMPT 1 1 "Codice "
HELP "Codice riferito alla tabella indirizzi"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2

15
cg/cg0400a.uml
View File

@ -27,6 +27,7 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 4 3 "Anno liquidazione " PROMPT 4 3 "Anno liquidazione "
HELP "Anno di cui si effettua la liquidazione"
FLAGS "A" FLAGS "A"
KEY 1 KEY 1
END END
@ -35,6 +36,7 @@ END
RADIOBUTTON F_LIVELLO 21 RADIOBUTTON F_LIVELLO 21
BEGIN BEGIN
PROMPT 4 5 "Livello progressivi " PROMPT 4 5 "Livello progressivi "
HELP "Tipo di raggruppamento dei riepiloghi"
ITEM "1|Per aliquota" ITEM "1|Per aliquota"
MESSAGE HIDE,F_ATTIVITA|SHOW,F_CODIVA MESSAGE HIDE,F_ATTIVITA|SHOW,F_CODIVA
MESSAGE HIDE,F_TIPO1|SHOW,F_TIPO|K_SPACE,F_TIPO MESSAGE HIDE,F_TIPO1|SHOW,F_TIPO|K_SPACE,F_TIPO
@ -46,6 +48,7 @@ END
RADIOBUTTON F_TIPO 18 RADIOBUTTON F_TIPO 18
BEGIN BEGIN
PROMPT 38 5 "Tipo progressivi " PROMPT 38 5 "Tipo progressivi "
HELP "Tipo di riepilogo da effettuare"
ITEM "1|Vendite" ITEM "1|Vendite"
MESSAGE HIDE,F_TIPOTABE|SHOW,F_TIPOTAB|HIDE,F_TIPOTABEL MESSAGE HIDE,F_TIPOTABE|SHOW,F_TIPOTAB|HIDE,F_TIPOTABEL
MESSAGE COPY,F_TIPO1 MESSAGE COPY,F_TIPO1
@ -58,6 +61,7 @@ END
RADIOBUTTON F_TIPO1 18 RADIOBUTTON F_TIPO1 18
BEGIN BEGIN
PROMPT 38 5 "Tipo progressivi " PROMPT 38 5 "Tipo progressivi "
HELP "Tipo di riepilogo da effettuare"
ITEM "1|Vendite" ITEM "1|Vendite"
MESSAGE HIDE,F_TIPOTABE|HIDE,F_TIPOTABEL|SHOW,F_TIPOTAB MESSAGE HIDE,F_TIPOTABE|HIDE,F_TIPOTABEL|SHOW,F_TIPOTAB
MESSAGE COPY,F_TIPO MESSAGE COPY,F_TIPO
@ -71,12 +75,14 @@ END
STRING F_CODIVA 3 STRING F_CODIVA 3
BEGIN BEGIN
PROMPT 4 10 "Codice IVA " PROMPT 4 10 "Codice IVA "
HELP "Aliquata IVA da riepilogare"
FLAGS "R" FLAGS "R"
END END
RADIOBUTTON F_TIPOTAB 38 RADIOBUTTON F_TIPOTAB 38
BEGIN BEGIN
PROMPT 4 12 "Tipo tabella " PROMPT 4 12 "Tipo tabella "
HELP "Tipo di tabella da visualizzare"
ITEM "1|Vendite in genere" ITEM "1|Vendite in genere"
ITEM "2|Vendite in sospensione d'imposta" ITEM "2|Vendite in sospensione d'imposta"
END END
@ -84,6 +90,7 @@ END
STRING F_ATTIVITA 5 STRING F_ATTIVITA 5
BEGIN BEGIN
PROMPT 4 10 "Codice attivita' " PROMPT 4 10 "Codice attivita' "
HELP "Codice dell'attivita' di cui si vuole il riepilogo"
USE LF_ATTIV USE LF_ATTIV
FLAGS "H" FLAGS "H"
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
@ -99,6 +106,7 @@ END
NUMBER F_TIPOTABEL 1 NUMBER F_TIPOTABEL 1
BEGIN BEGIN
PROMPT 4 12 "Tipo tabella " PROMPT 4 12 "Tipo tabella "
HELP "Tipo di tabella da visualizzare"
SHEET "Tipo|Descrizione@50" SHEET "Tipo|Descrizione@50"
ITEM "1|Acquisti beni per rivendita" ITEM "1|Acquisti beni per rivendita"
ITEM "2|Acquisti beni da ammortizzare detraibili" ITEM "2|Acquisti beni da ammortizzare detraibili"
@ -112,6 +120,7 @@ END
NUMBER F_TIPOTABE 1 NUMBER F_TIPOTABE 1
BEGIN BEGIN
PROMPT 4 12 "Tipo tabella " PROMPT 4 12 "Tipo tabella "
HELP "Tipo di tabella da visualizzare"
SHEET "Tipo|Descrizione@50" SHEET "Tipo|Descrizione@50"
ITEM "1|Acquisti in genere" ITEM "1|Acquisti in genere"
ITEM "2|Acquisti indetraibili su operazioni esenti" ITEM "2|Acquisti indetraibili su operazioni esenti"
@ -127,15 +136,15 @@ END
BOOLEAN F_VUOILORDI BOOLEAN F_VUOILORDI
BEGIN BEGIN
PROMPT 4 16 "Visualizzazione importi lordi " PROMPT 4 16 "Visualizzazione importi lordi "
HELP "Vuoi visualizzare gli importi lordi ? ([+]=si, [ ]=no)" HELP "Indicare se visualizzare anche gli importi"
END END
BUTTON DLG_OK 9 3 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 9 3 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END

24
cg/cg0500a.uml
View File

@ -16,6 +16,7 @@ END
STRING F_COD_CAUS 3 STRING F_COD_CAUS 3
BEGIN BEGIN
PROMPT 3 1 "Codice " PROMPT 3 1 "Codice "
HELP "Codice identificativo della causale"
FIELD LF_CAUSALI->CODCAUS FIELD LF_CAUSALI->CODCAUS
KEY 1 KEY 1
FLAGS "U" FLAGS "U"
@ -54,6 +55,7 @@ END
STRING F_TIPO_DOC 2 STRING F_TIPO_DOC 2
BEGIN BEGIN
PROMPT 2 4 "Tipo doc. " PROMPT 2 4 "Tipo doc. "
HELP "Tipo di documento collegato alla causale"
FIELD LF_CAUSALI->TIPODOC FIELD LF_CAUSALI->TIPODOC
USE %TPD USE %TPD
INPUT CODTAB F_TIPO_DOC INPUT CODTAB F_TIPO_DOC
@ -71,9 +73,10 @@ END
STRING F_COD_REG 3 STRING F_COD_REG 3
BEGIN BEGIN
PROMPT 23 4 "Cod. reg. " PROMPT 23 4 "Cod. reg. "
HELP "Codice registro collegato alla causale"
FIELD LF_CAUSALI->REG FIELD LF_CAUSALI->REG
USE REG USE REG
INPUT CODTAB[1,4] F_ANNOES INPUT CODTAB[1,4] F_ANNOES SELECT
INPUT CODTAB[5,7] F_COD_REG INPUT CODTAB[5,7] F_COD_REG
DISPLAY "Anno" CODTAB[1,4] DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice registro " CODTAB[5,7] DISPLAY "Codice registro " CODTAB[5,7]
@ -101,6 +104,7 @@ END
LISTBOX F_TIPO_MOV_1 1 20 LISTBOX F_TIPO_MOV_1 1 20
BEGIN BEGIN
PROMPT 44 4 "Tipo mov. " PROMPT 44 4 "Tipo mov. "
HELP "Tipo di movimento generato dalla causale"
FIELD LF_CAUSALI->TIPOMOV FIELD LF_CAUSALI->TIPOMOV
HELP "Tipo movimento" HELP "Tipo movimento"
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
@ -114,7 +118,7 @@ LISTBOX F_TIPO_MOV_2 1 20
BEGIN BEGIN
PROMPT 44 4 "Tipo mov. " PROMPT 44 4 "Tipo mov. "
FIELD LF_CAUSALI->TIPOMOV FIELD LF_CAUSALI->TIPOMOV
HELP "Inserire il tipo movimento" HELP "Tipo di movimento generato dalla causale"
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV
ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV
@ -126,7 +130,7 @@ LISTBOX F_M_770 1 48
BEGIN BEGIN
PROMPT 2 5 "Collegamento Mod.770 " PROMPT 2 5 "Collegamento Mod.770 "
FIELD LF_CAUSALI->M770 FIELD LF_CAUSALI->M770
HELP "Inserire il tipo di collegamento Mod.770" HELP "Tipo di collegamento Mod.770"
ITEM " |Nessuno" ITEM " |Nessuno"
ITEM "1|Ricevuta e/o pagamento fattura percipiente" ITEM "1|Ricevuta e/o pagamento fattura percipiente"
ITEM "2|Versamento ritenute percipiente" ITEM "2|Versamento ritenute percipiente"
@ -198,7 +202,7 @@ BOOLEAN F_DATA_DOC
BEGIN BEGIN
PROMPT 2 4 "Data documento" PROMPT 2 4 "Data documento"
FIELD LF_CAUSALI->DATADOC FIELD LF_CAUSALI->DATADOC
HELP "" HELP "Data del documento collegato con la causale"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
@ -206,12 +210,14 @@ BOOLEAN F_NUM_DOC
BEGIN BEGIN
PROMPT 34 4 "Numero documento" PROMPT 34 4 "Numero documento"
FIELD LF_CAUSALI->NUMDOC FIELD LF_CAUSALI->NUMDOC
HELP "Numero del documento collegato con la causale"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
BOOLEAN F_AUTO_FAT BOOLEAN F_AUTO_FAT
BEGIN BEGIN
PROMPT 2 6 "Autofattura art.34" PROMPT 2 6 "Autofattura art.34"
HELP "Indicare se si tratta di autofattura ex art.34"
FIELD LF_CAUSALI->AUTOFATT FIELD LF_CAUSALI->AUTOFATT
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP 2 GROUP 2
@ -220,6 +226,7 @@ END
BOOLEAN F_ALLEGAT BOOLEAN F_ALLEGAT
BEGIN BEGIN
PROMPT 34 6 "Doc. non va in allegati fine anno" PROMPT 34 6 "Doc. non va in allegati fine anno"
HELP "Indicare se non inserire negli allegati IVA del documento"
FIELD LF_CAUSALI->ALLEG FIELD LF_CAUSALI->ALLEG
GROUP 2 GROUP 2
END END
@ -227,6 +234,7 @@ END
BOOLEAN F_FAT_RITARDO BOOLEAN F_FAT_RITARDO
BEGIN BEGIN
PROMPT 2 8 "Fattura in ritardo" PROMPT 2 8 "Fattura in ritardo"
HELP "Indicare se le fatture vengono registrate al ricevimento"
FIELD LF_CAUSALI->RITFATT FIELD LF_CAUSALI->RITFATT
GROUP 2 GROUP 2
END END
@ -234,6 +242,7 @@ END
STRING F_COD_CAUS_IM 3 STRING F_COD_CAUS_IM 3
BEGIN BEGIN
PROMPT 34 8 "Codice causale per l'incasso immediato " PROMPT 34 8 "Codice causale per l'incasso immediato "
HELP "Codice causale nel caso di incasso immediato"
FLAGS "U" FLAGS "U"
FIELD LF_CAUSALI->CODCAUSIM FIELD LF_CAUSALI->CODCAUSIM
COPY USE F_COD_CAUS COPY USE F_COD_CAUS
@ -248,6 +257,7 @@ END
BOOLEAN F_OP_INTRACOM BOOLEAN F_OP_INTRACOM
BEGIN BEGIN
PROMPT 2 10 "Operazione intracomunitaria" PROMPT 2 10 "Operazione intracomunitaria"
HELP "Indicare se gestire le fatture intracomunitarie"
FIELD LF_CAUSALI->INTRACOM FIELD LF_CAUSALI->INTRACOM
GROUP 2 GROUP 2
END END
@ -255,6 +265,7 @@ END
BOOLEAN F_VALINTRA BOOLEAN F_VALINTRA
BEGIN BEGIN
PROMPT 34 10 "Gestione valuta per operazioni intrac." PROMPT 34 10 "Gestione valuta per operazioni intrac."
HELP "Indicare se registrare l'importo delle fatture CEE in valute"
FIELD LF_CAUSALI->VALINTRA FIELD LF_CAUSALI->VALINTRA
MESSAGE FALSE " ",F_MOV_VALU|ENABLE,F_MOV_VALU MESSAGE FALSE " ",F_MOV_VALU|ENABLE,F_MOV_VALU
MESSAGE TRUE "X",F_MOV_VALU|DISABLE,F_MOV_VALU MESSAGE TRUE "X",F_MOV_VALU|DISABLE,F_MOV_VALU
@ -264,6 +275,7 @@ END
BOOLEAN F_MOV_VALU BOOLEAN F_MOV_VALU
BEGIN BEGIN
PROMPT 2 12 "Movimento in valuta" PROMPT 2 12 "Movimento in valuta"
HELP "Indicare se si utilizzano gli importi in valuta"
FIELD LF_CAUSALI->MOVVAL FIELD LF_CAUSALI->MOVVAL
GROUP 2 GROUP 2
END END
@ -271,6 +283,7 @@ END
BOOLEAN F_MOV_SEZ BOOLEAN F_MOV_SEZ
BEGIN BEGIN
PROMPT 34 12 "Movimento solo sezionale" PROMPT 34 12 "Movimento solo sezionale"
HELP "Indicare se si tratta solo di moviemto di sezione"
FIELD LF_CAUSALI->MOVSEZ FIELD LF_CAUSALI->MOVSEZ
FLAGS "H" FLAGS "H"
END END
@ -278,6 +291,7 @@ END
LISTBOX F_OP_FINE_ANNO 1 11 LISTBOX F_OP_FINE_ANNO 1 11
BEGIN BEGIN
PROMPT 2 14 "Operazioni di fine anno " PROMPT 2 14 "Operazioni di fine anno "
HELP "Tipo di movimento di fine anno"
ITEM " | " ITEM " | "
ITEM "C|Chiusura" ITEM "C|Chiusura"
ITEM "A|Apertura" ITEM "A|Apertura"
@ -290,7 +304,7 @@ LISTBOX F_COLL_CESP 1 40
BEGIN BEGIN
PROMPT 2 16 "Collegamento cespiti " PROMPT 2 16 "Collegamento cespiti "
FIELD LF_CAUSALI->COLLCESP FIELD LF_CAUSALI->COLLCESP
HELP "Inserire il tipo di collegamento cespiti" HELP "Tipo di collegamento cespiti"
ITEM " |Nessuno" ITEM " |Nessuno"
ITEM "A|Acquisto cespite" ITEM "A|Acquisto cespite"
ITEM "B|Rettifica acquisto" ITEM "B|Rettifica acquisto"

489
cg/cg0500b.uml
View File

@ -1,239 +1,250 @@
#include "cg0500.h" #include "cg0500.h"
PAGE "" -1 -1 68 11 PAGE "" -1 -1 68 11
STRING 101 22 STRING 101 22
BEGIN BEGIN
PROMPT 1 1 "Tipo " PROMPT 1 1 "Tipo "
FLAGS "D" FLAGS "D"
END END
LISTBOX SS_TIPOCF 1 11 LISTBOX SS_TIPOCF 1 11
BEGIN BEGIN
PROMPT 33 1 "C/F " PROMPT 33 1 "C/F "
ITEM " |Conto" MESSAGE SHOW,106|HIDE,206|HIDE,306|SHOW,107|HIDE,207|HIDE,307 ITEM " |Conto" MESSAGE SHOW,106|HIDE,206|HIDE,306|SHOW,107|HIDE,207|HIDE,307
ITEM "C|Cliente" MESSAGE SHOW,206|HIDE,106|HIDE,306|SHOW,207|HIDE,107|HIDE,307 ITEM "C|Cliente" MESSAGE SHOW,206|HIDE,106|HIDE,306|SHOW,207|HIDE,107|HIDE,307
ITEM "F|Fornitore" MESSAGE SHOW,306|HIDE,106|HIDE,206|SHOW,307|HIDE,107|HIDE,207 ITEM "F|Fornitore" MESSAGE SHOW,306|HIDE,106|HIDE,206|SHOW,307|HIDE,107|HIDE,207
FLAGS "DGU" FLAGS "DGU"
GROUP 1 GROUP 1
END END
NUMBER SS_GRUPPO 3 NUMBER SS_GRUPPO 3
BEGIN BEGIN
PROMPT 1 3 "Gruppo " PROMPT 1 3 "Gruppo "
FIELD LF_RCAUSALI->GRUPPO HELP "Codice del gruppo"
USE LF_PCON KEY 1 SELECT (CONTO="") FIELD LF_RCAUSALI->GRUPPO
INPUT GRUPPO SS_GRUPPO USE LF_PCON KEY 1 SELECT (CONTO="")
DISPLAY "Gruppo" GRUPPO INPUT GRUPPO SS_GRUPPO
DISPLAY "Descrizione@50" DESCR DISPLAY "Gruppo" GRUPPO
DISPLAY "Tipo C/F" TMCF DISPLAY "Descrizione@50" DESCR
CHECKTYPE NORMAL DISPLAY "Tipo C/F" TMCF
OUTPUT SS_GRUPPO GRUPPO CHECKTYPE NORMAL
OUTPUT 107 DESCR OUTPUT SS_GRUPPO GRUPPO
WARNING "Gruppo assente" OUTPUT 107 DESCR
CHECKTYPE NORMAL WARNING "Gruppo assente"
GROUP 1 CHECKTYPE NORMAL
ADD RUN CG0 -0 GROUP 1
END ADD RUN CG0 -0
END
NUMBER SS_CONTO 3
BEGIN NUMBER SS_CONTO 3
PROMPT 15 3 "Conto " BEGIN
FIELD LF_RCAUSALI->CONTO PROMPT 15 3 "Conto "
USE LF_PCON KEY 1 SELECT SOTTOCONTO="" HELP "Codice del conto"
INPUT GRUPPO SS_GRUPPO FIELD LF_RCAUSALI->CONTO
INPUT CONTO SS_CONTO USE LF_PCON KEY 1 SELECT SOTTOCONTO=""
DISPLAY "Gruppo" GRUPPO INPUT GRUPPO SS_GRUPPO
DISPLAY "Conto" CONTO INPUT CONTO SS_CONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Gruppo" GRUPPO
DISPLAY "Tipo C/F" TMCF DISPLAY "Conto" CONTO
CHECKTYPE NORMAL DISPLAY "Descrizione@50" DESCR
OUTPUT SS_TIPOCF TMCF DISPLAY "Tipo C/F" TMCF
OUTPUT SS_CONTO CONTO CHECKTYPE NORMAL
OUTPUT SS_GRUPPO GRUPPO OUTPUT SS_TIPOCF TMCF
OUTPUT 107 DESCR OUTPUT SS_CONTO CONTO
OUTPUT 207 DESCR OUTPUT SS_GRUPPO GRUPPO
OUTPUT 307 DESCR OUTPUT 107 DESCR
MESSAGE DIRTY,106|DIRTY,206|DIRTY,306 OUTPUT 207 DESCR
WARNING "Conto assente" OUTPUT 307 DESCR
ADD RUN CG0 -0 MESSAGE DIRTY,106|DIRTY,206|DIRTY,306
GROUP 1 WARNING "Conto assente"
END ADD RUN CG0 -0
GROUP 1
// Sottoconto NORMALE END
NUMBER SS_SOTTOCONTO 6
BEGIN // Sottoconto NORMALE
PROMPT 29 3 "Sottoconto " NUMBER SS_SOTTOCONTO 6
FIELD LF_RCAUSALI->SOTTOCONTO BEGIN
USE LF_PCON PROMPT 29 3 "Sottoconto "
INPUT GRUPPO SS_GRUPPO HELP "Codice del sottoconto"
INPUT CONTO SS_CONTO FIELD LF_RCAUSALI->SOTTOCONTO
INPUT SOTTOCONTO SS_SOTTOCONTO USE LF_PCON
DISPLAY "Gruppo" GRUPPO INPUT GRUPPO SS_GRUPPO
DISPLAY "Conto" CONTO INPUT CONTO SS_CONTO
DISPLAY "Sottoconto" SOTTOCONTO INPUT SOTTOCONTO SS_SOTTOCONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Gruppo" GRUPPO
OUTPUT SS_SOTTOCONTO SOTTOCONTO DISPLAY "Conto" CONTO
OUTPUT 206 SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
OUTPUT 306 SOTTOCONTO DISPLAY "Descrizione@50" DESCR
OUTPUT SS_GRUPPO GRUPPO OUTPUT SS_SOTTOCONTO SOTTOCONTO
OUTPUT SS_CONTO CONTO OUTPUT 206 SOTTOCONTO
OUTPUT 107 DESCR OUTPUT 306 SOTTOCONTO
ADD RUN CG0 -0 OUTPUT SS_GRUPPO GRUPPO
CHECKTYPE NORMAL OUTPUT SS_CONTO CONTO
WARNING "Sottoconto assente" OUTPUT 107 DESCR
GROUP 1 ADD RUN CG0 -0
END CHECKTYPE NORMAL
WARNING "Sottoconto assente"
GROUP 1
// Sottoconto CLIENTI END
NUMBER 206 6
BEGIN
PROMPT 29 3 "Cliente " // Sottoconto CLIENTI
FIELD LF_RCAUSALI->SOTTOCONTO NUMBER 206 6
USE LF_CLIFO KEY 1 BEGIN
INPUT TIPOCF "C" PROMPT 29 3 "Cliente "
INPUT CODCF 206 HELP "Codice sottoconto del cliente"
DISPLAY "Sottoconto" CODCF FIELD LF_RCAUSALI->SOTTOCONTO
DISPLAY "Ragione sociale cliente@50" RAGSOC USE LF_CLIFO KEY 1
DISPLAY "Gruppo" GRUPPO INPUT TIPOCF "C"
DISPLAY "Conto" CONTO INPUT CODCF 206
OUTPUT 206 CODCF DISPLAY "Sottoconto" CODCF
OUTPUT 106 CODCF DISPLAY "Ragione sociale cliente@50" RAGSOC
OUTPUT 306 CODCF DISPLAY "Gruppo" GRUPPO
OUTPUT 207 RAGSOC DISPLAY "Conto" CONTO
CHECKTYPE NORMAL OUTPUT 206 CODCF
WARNING "Cliente assente" OUTPUT 106 CODCF
ADD RUN CG0 -1 OUTPUT 306 CODCF
GROUP 1 OUTPUT 207 RAGSOC
END CHECKTYPE NORMAL
WARNING "Cliente assente"
// Sottoconto FORNITORI ADD RUN CG0 -1
NUMBER 306 6 GROUP 1
BEGIN END
PROMPT 29 3 "Fornitore "
FIELD LF_RCAUSALI->SOTTOCONTO // Sottoconto FORNITORI
USE LF_CLIFO KEY 1 NUMBER 306 6
INPUT TIPOCF "F" BEGIN
INPUT CODCF 306 PROMPT 29 3 "Fornitore "
DISPLAY "Sottoconto" CODCF HELP "Codice sottoconto del cliente"
DISPLAY "Ragione sociale fornitore@50" RAGSOC FIELD LF_RCAUSALI->SOTTOCONTO
DISPLAY "Gruppo" GRUPPO USE LF_CLIFO KEY 1
DISPLAY "Conto" CONTO INPUT TIPOCF "F"
OUTPUT 306 CODCF INPUT CODCF 306
OUTPUT 106 CODCF DISPLAY "Sottoconto" CODCF
OUTPUT 206 CODCF DISPLAY "Ragione sociale fornitore@50" RAGSOC
OUTPUT 307 RAGSOC DISPLAY "Gruppo" GRUPPO
CHECKTYPE NORMAL DISPLAY "Conto" CONTO
WARNING "Fornitore assente" OUTPUT 306 CODCF
ADD RUN CG0 -1 OUTPUT 106 CODCF
GROUP 1 OUTPUT 206 CODCF
END OUTPUT 307 RAGSOC
CHECKTYPE NORMAL
LISTBOX SS_SEZIONE 5 WARNING "Fornitore assente"
BEGIN ADD RUN CG0 -1
PROMPT 51 3 "Sezione " GROUP 1
ITEM " | " END
ITEM "D|Dare"
ITEM "A|Avere" LISTBOX SS_SEZIONE 5
FIELD LF_RCAUSALI->SEZIONE BEGIN
FLAGS "U" PROMPT 51 3 "Sezione "
GROUP 1 HELP "Indicare la sezione del conto"
END ITEM " | "
ITEM "D|Dare"
// Descrizione normale ITEM "A|Avere"
STRING 107 50 FIELD LF_RCAUSALI->SEZIONE
BEGIN FLAGS "U"
PROMPT 1 5 "Descrizione " GROUP 1
FIELD LF_RCAUSALI->DESC END
USE LF_PCON KEY 2
INPUT DESCR 107 // Descrizione normale
DISPLAY "Descrizione@50" DESCR STRING 107 50
DISPLAY "Gruppo" GRUPPO BEGIN
DISPLAY "Conto" CONTO PROMPT 1 5 "Descrizione "
DISPLAY "Sottoconto" SOTTOCONTO HELP "Indicare la descrizione della riga"
OUTPUT SS_SOTTOCONTO SOTTOCONTO FIELD LF_RCAUSALI->DESC
OUTPUT SS_CONTO CONTO USE LF_PCON KEY 2
OUTPUT SS_GRUPPO GRUPPO INPUT DESCR 107
OUTPUT 107 DESCR DISPLAY "Descrizione@50" DESCR
ADD RUN CG0 -0 DISPLAY "Gruppo" GRUPPO
GROUP 1 DISPLAY "Conto" CONTO
END DISPLAY "Sottoconto" SOTTOCONTO
OUTPUT SS_SOTTOCONTO SOTTOCONTO
// Descrizione CLIENTE OUTPUT SS_CONTO CONTO
STRING 207 50 OUTPUT SS_GRUPPO GRUPPO
BEGIN OUTPUT 107 DESCR
PROMPT 1 5 "Rag. Soc. " ADD RUN CG0 -0
FIELD LF_RCAUSALI->DESC GROUP 1
USE LF_CLIFO KEY 2 END
INPUT TIPOCF "C"
INPUT RAGSOC 207 // Descrizione CLIENTE
DISPLAY "Tipo C/F" TIPOCF STRING 207 50
DISPLAY "Ragione sociale Cliente@50" RAGSOC BEGIN
DISPLAY "Gruppo" GRUPPO PROMPT 1 5 "Rag. Soc. "
DISPLAY "Conto" CONTO HELP "Ragione sociale del cliente"
DISPLAY "Sottoconto" CODCF FIELD LF_RCAUSALI->DESC
OUTPUT 206 CODCF USE LF_CLIFO KEY 2
OUTPUT 207 RAGSOC INPUT TIPOCF "C"
GROUP 1 INPUT RAGSOC 207
END DISPLAY "Tipo C/F" TIPOCF
DISPLAY "Ragione sociale Cliente@50" RAGSOC
// Descrizione FORNITORE DISPLAY "Gruppo" GRUPPO
STRING 307 50 DISPLAY "Conto" CONTO
BEGIN DISPLAY "Sottoconto" CODCF
PROMPT 1 5 "Rag. Soc. " OUTPUT 206 CODCF
FIELD LF_RCAUSALI->DESC OUTPUT 207 RAGSOC
USE LF_CLIFO KEY 2 GROUP 1
INPUT TIPOCF "F" END
INPUT RAGSOC 307
DISPLAY "Tipo C/F" TIPOCF // Descrizione FORNITORE
DISPLAY "Ragione sociale Fornitore@50" RAGSOC STRING 307 50
DISPLAY "Gruppo" GRUPPO BEGIN
DISPLAY "Conto" CONTO PROMPT 1 5 "Rag. Soc. "
DISPLAY "Sottoconto" CODCF HELP "Ragione sociale del fornitore"
OUTPUT 306 CODCF FIELD LF_RCAUSALI->DESC
OUTPUT 307 RAGSOC USE LF_CLIFO KEY 2
GROUP 1 INPUT TIPOCF "F"
END INPUT RAGSOC 307
DISPLAY "Tipo C/F" TIPOCF
STRING SS_DESCAGG 5 DISPLAY "Ragione sociale Fornitore@50" RAGSOC
BEGIN DISPLAY "Gruppo" GRUPPO
PROMPT 1 7 "Descrizione aggiuntiva " DISPLAY "Conto" CONTO
FIELD LF_RCAUSALI->CODDESC DISPLAY "Sottoconto" CODCF
FLAGS "U" OUTPUT 306 CODCF
USE %DPN OUTPUT 307 RAGSOC
INPUT CODTAB SS_DESCAGG GROUP 1
DISPLAY "Codice" CODTAB END
DISPLAY "Descrizione @50" S0
OUTPUT SS_DESCAGG CODTAB STRING SS_DESCAGG 5
OUTPUT 109 S0 BEGIN
CHECKTYPE NORMAL PROMPT 1 7 "Descrizione aggiuntiva"
GROUP 1 HELP "Codice della descrizione aggiuntiva"
END FIELD LF_RCAUSALI->CODDESC
FLAGS "U"
STRING 109 50 USE %DPN
BEGIN INPUT CODTAB SS_DESCAGG
PROMPT 1 8 "" DISPLAY "Codice" CODTAB
FLAGS "D" DISPLAY "Descrizione @50" S0
GROUP 1 OUTPUT SS_DESCAGG CODTAB
END OUTPUT 109 S0
CHECKTYPE NORMAL
BUTTON DLG_OK 9 2 WARNING "Codice descrizione aggiuntiva assente"
BEGIN GROUP 1
PROMPT -13 -1 "" END
END
STRING 109 50
BUTTON DLG_CANCEL 9 2 BEGIN
BEGIN PROMPT 1 8 ""
PROMPT -23 -1 "" FLAGS "D"
END GROUP 1
END
BUTTON DLG_NULL 9 2
BEGIN BUTTON DLG_OK 9 2
PROMPT -33 -1 "Azzera" BEGIN
MESSAGE RESET,1@ PROMPT -13 -1 ""
END END
ENDPAGE BUTTON DLG_CANCEL 9 2
BEGIN
ENDMASK PROMPT -23 -1 ""
END
BUTTON DLG_NULL 9 2
BEGIN
PROMPT -33 -1 "Azzera"
MESSAGE RESET,1@
END
ENDPAGE
ENDMASK

9
cg/cg1100a.uml
View File

@ -23,7 +23,8 @@ END
DATE F_DATA_STAMPA DATE F_DATA_STAMPA
BEGIN BEGIN
PROMPT 2 4 "Data di stampa " PROMPT 2 4 "Data di stampa "
HELP "Data da riportare sui fogli"
FLAGS "A" FLAGS "A"
END END
@ -58,9 +59,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

20
cg/cg1200a.uml
View File

@ -81,7 +81,7 @@ BEGIN
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT FLD_CLI_CODFR CODCF OUTPUT FLD_CLI_CODFR CODCF
GROUP 1 3 GROUP 1 3
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" HELP "Codice di inizio stampa: vuoto = inizio archivio"
END END
STRING FLD_CLI_CODTO 5 STRING FLD_CLI_CODTO 5
@ -93,7 +93,7 @@ BEGIN
COPY DISPLAY FLD_CLI_CODFR COPY DISPLAY FLD_CLI_CODFR
OUTPUT FLD_CLI_CODTO CODCF OUTPUT FLD_CLI_CODTO CODCF
GROUP 1 3 GROUP 1 3
HELP "Introdurre codice di fine stampa: vuoto = fine archivio" HELP "Codice di fine stampa: vuoto = fine archivio"
NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_CLI_CODFR)} NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_CLI_CODFR)}
WARNING "Limite superiore errato" WARNING "Limite superiore errato"
END END
@ -110,7 +110,7 @@ BEGIN
OUTPUT FLD_CLI_RAGSOCFR RAGSOC OUTPUT FLD_CLI_RAGSOCFR RAGSOC
OUTPUT F_TIPOAPERFR TIPOAPER OUTPUT F_TIPOAPERFR TIPOAPER
GROUP 1 4 GROUP 1 4
HELP "Introdurre rag. soc. di inizio stampa: vuoto = inizio archivio" HELP "Ragione sociale di inizio stampa: vuoto = inizio archivio"
END END
STRING FLD_CLI_RAGSOCTO 50 29 STRING FLD_CLI_RAGSOCTO 50 29
@ -123,7 +123,7 @@ BEGIN
OUTPUT FLD_CLI_RAGSOCTO RAGSOC OUTPUT FLD_CLI_RAGSOCTO RAGSOC
OUTPUT F_TIPOAPERTO TIPOAPER OUTPUT F_TIPOAPERTO TIPOAPER
GROUP 1 4 GROUP 1 4
HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" HELP "Ragione sociale di fine stampa: vuoto = fine archivio"
STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_CLI_RAGSOCFR)} STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_CLI_RAGSOCFR)}
WARNING "Limite superiore errato" WARNING "Limite superiore errato"
END END
@ -137,7 +137,7 @@ BEGIN
COPY DISPLAY FLD_CLI_CODFR COPY DISPLAY FLD_CLI_CODFR
OUTPUT FLD_FOR_CODFR CODCF OUTPUT FLD_FOR_CODFR CODCF
GROUP 2 3 GROUP 2 3
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" HELP "Codice C/F di inizio stampa: vuoto = inizio archivio"
END END
STRING FLD_FOR_CODTO 5 STRING FLD_FOR_CODTO 5
@ -149,7 +149,7 @@ BEGIN
COPY DISPLAY FLD_CLI_CODFR COPY DISPLAY FLD_CLI_CODFR
OUTPUT FLD_FOR_CODTO CODCF OUTPUT FLD_FOR_CODTO CODCF
GROUP 2 3 GROUP 2 3
HELP "Introdurre codice di fine stampa: vuoto = fine archivio" HELP "Codice C/F di fine stampa: vuoto = fine archivio"
NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_FOR_CODFR)} NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_FOR_CODFR)}
WARNING "Limite superiore errato" WARNING "Limite superiore errato"
END END
@ -164,7 +164,7 @@ BEGIN
OUTPUT FLD_FOR_RAGSOCFR RAGSOC OUTPUT FLD_FOR_RAGSOCFR RAGSOC
OUTPUT F_TIPOAPERFR TIPOAPER OUTPUT F_TIPOAPERFR TIPOAPER
GROUP 2 4 GROUP 2 4
HELP "Introdurre rag. soc. di inizio stampa: vuoto = inizio archivio" HELP "Ragione sociale di inizio stampa: vuoto = inizio archivio"
END END
STRING FLD_FOR_RAGSOCTO 50 29 STRING FLD_FOR_RAGSOCTO 50 29
@ -177,7 +177,7 @@ BEGIN
OUTPUT FLD_FOR_RAGSOCTO RAGSOC OUTPUT FLD_FOR_RAGSOCTO RAGSOC
OUTPUT F_TIPOAPERTO TIPOAPER OUTPUT F_TIPOAPERTO TIPOAPER
GROUP 2 4 GROUP 2 4
HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" HELP "Ragione sociale di fine stampa: vuoto = fine archivio"
STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_FOR_RAGSOCFR)} STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_FOR_RAGSOCFR)}
WARNING "Limite superiore errato" WARNING "Limite superiore errato"
END END
@ -197,7 +197,7 @@ END
BOOLEAN CHK_CG12_MOVIM BOOLEAN CHK_CG12_MOVIM
BEGIN BEGIN
PROMPT 4 13 "Solo movimentati" PROMPT 4 13 "Solo movimentati"
HELP "Selezionare per stampare solo inclusi archivio movimenti" HELP "Indicare se stampare solo inclusi archivio movimenti"
END END
LIST LST_CG12_INTERLINE 1 LIST LST_CG12_INTERLINE 1
@ -206,7 +206,7 @@ BEGIN
ITEM "0|0" ITEM "0|0"
ITEM "1|1" ITEM "1|1"
ITEM "2|2" ITEM "2|2"
HELP "Scegliere il numero di righe di interlinea tra i nominativi" HELP "Indicare il numero di righe di interlinea tra i nominativi"
END END
GROUPBOX DLG_NULL 51 4 GROUPBOX DLG_NULL 51 4

8
cg/cg1200b.uml
View File

@ -5,28 +5,28 @@ NUMBER FLD_CGB_STARTROW 4
BEGIN BEGIN
PROMPT 2 1 "Riga di inizio in etichetta " PROMPT 2 1 "Riga di inizio in etichetta "
FLAGS "R" FLAGS "R"
HELP "Immettere la prima riga da stampare nell'etichetta" HELP "Prima riga da stampare nell'etichetta"
END END
NUMBER FLD_CGB_STARTCOL 4 NUMBER FLD_CGB_STARTCOL 4
BEGIN BEGIN
PROMPT 2 3 "Colonna di inizio in etichetta " PROMPT 2 3 "Colonna di inizio in etichetta "
FLAGS "R" FLAGS "R"
HELP "Immettere il margine sinistro desiderato" HELP "Margine sinistro desiderato"
END END
NUMBER FLD_CGB_ROWSET 4 NUMBER FLD_CGB_ROWSET 4
BEGIN BEGIN
PROMPT 2 5 "N. totale di righe etichetta " PROMPT 2 5 "N. totale di righe etichetta "
FLAGS "R" FLAGS "R"
HELP "Immettere il numero totale di righe per etichetta" HELP "Numero totale di righe per etichetta (altezza)"
END END
NUMBER FLD_CGB_COLSET 4 NUMBER FLD_CGB_COLSET 4
BEGIN BEGIN
PROMPT 2 7 "N. totale colonne etichetta " PROMPT 2 7 "N. totale colonne etichetta "
FLAGS "R" FLAGS "R"
HELP "Immettere il numero totale di colonne per etichetta" HELP "Numero totale di colonne per etichetta (larghezza)"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2

7
cg/cg1400a.uml
View File

@ -5,6 +5,7 @@ PAGE "STAMPA DELEGHE IVA" -1 -1 58 11
NUMBER F_ABI 5 NUMBER F_ABI 5
BEGIN BEGIN
PROMPT 1 1 "Codice ABI " PROMPT 1 1 "Codice ABI "
HELP "Codice ABI della banca per la presentazione della delega"
FLAGS "RZ" FLAGS "RZ"
FIELD CNF_STUDIO->cg.CodABI FIELD CNF_STUDIO->cg.CodABI
USE %BAN USE %BAN
@ -21,6 +22,7 @@ END
NUMBER F_CAB 5 NUMBER F_CAB 5
BEGIN BEGIN
PROMPT 22 1 "Codice CAB " PROMPT 22 1 "Codice CAB "
HELP "Codice CAB della banca per la presentazione della delega"
FLAGS "RZ" FLAGS "RZ"
FIELD CNF_STUDIO->cg.CodCAB FIELD CNF_STUDIO->cg.CodCAB
COPY USE F_ABI COPY USE F_ABI
@ -37,12 +39,14 @@ END
DATA F_DATA DATA F_DATA
BEGIN BEGIN
PROMPT 1 3 "Data di stampa " PROMPT 1 3 "Data di stampa "
HELP "Data che viene stampata sulla delega"
FLAGS "A" FLAGS "A"
END END
LIST F_TIPO 21 LIST F_TIPO 21
BEGIN BEGIN
PROMPT 28 3 "Tipo " PROMPT 28 3 "Tipo "
HELP "Tipo di delega da stampare"
ITEM "1|Periodica" MESSAGE ENABLE,F_MESE ITEM "1|Periodica" MESSAGE ENABLE,F_MESE
ITEM "2|Annuale" MESSAGE "13",F_MESE|DISABLE,F_MESE ITEM "2|Annuale" MESSAGE "13",F_MESE|DISABLE,F_MESE
ITEM "7|Acconti IVA" MESSAGE "12",F_MESE|DISABLE,F_MESE ITEM "7|Acconti IVA" MESSAGE "12",F_MESE|DISABLE,F_MESE
@ -51,12 +55,14 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 1 5 "Anno " PROMPT 1 5 "Anno "
HELP "Anno di cui si vuole stampare la delega"
FLAGS "A" FLAGS "A"
END END
LIST F_MESE 10 LIST F_MESE 10
BEGIN BEGIN
PROMPT 13 5 "Mese " PROMPT 13 5 "Mese "
HELP "Mese di cui si vuole stampare la delega"
FLAGS "MA" FLAGS "MA"
ITEM "13|Annuale" MESSAGE "2",F_TIPO ITEM "13|Annuale" MESSAGE "2",F_TIPO
END END
@ -64,6 +70,7 @@ END
BOOLEAN F_PROVA BOOLEAN F_PROVA
BEGIN BEGIN
PROMPT 1 7 "Stampa di prova" PROMPT 1 7 "Stampa di prova"
HELP "Indicare se si tratta di una stampa di controllo"
END END
BOOLEAN F_AGGIORNA BOOLEAN F_AGGIORNA

23
cg/cg1500a.uml
View File

@ -24,12 +24,14 @@ END
DATE F_DATASTAMPA DATE F_DATASTAMPA
BEGIN BEGIN
PROMPT 48 1 "Data stampa " PROMPT 48 1 "Data stampa "
HELP "Data che verra' stampata sul bilancio"
FLAGS "A" FLAGS "A"
END END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 2 3 "Anno esercizio " PROMPT 2 3 "Anno esercizio "
HELP "Anno di cui si vuole ottenre il bilancio"
USE ESC USE ESC
INPUT CODTAB F_ANNO INPUT CODTAB F_ANNO
DISPLAY "Anno" CODTAB DISPLAY "Anno" CODTAB
@ -45,7 +47,7 @@ END
RADIOBUTTON F_BILANCIO 33 RADIOBUTTON F_BILANCIO 33
BEGIN BEGIN
PROMPT 2 5 "Tipo bilancio " PROMPT 2 5 "Tipo bilancio "
HELP "Indicare il tipo di bilancio" HELP "Indicare il tipo di bilancio da stampare"
ITEM "1|Bilancio a sezioni contrapposte" ITEM "1|Bilancio a sezioni contrapposte"
MESSAGE HIDE,F_STAMPA1|RESET,F_STAMPA1|HIDE,F_VERIFICA|RESET,F_VERIFICA MESSAGE HIDE,F_STAMPA1|RESET,F_STAMPA1|HIDE,F_VERIFICA|RESET,F_VERIFICA
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA
@ -90,21 +92,25 @@ END
DATE F_DATALIM DATE F_DATALIM
BEGIN BEGIN
PROMPT 2 9 "Data limite " PROMPT 2 9 "Data limite "
HELP "Data fino alla quale si vuole la stampa"
END END
BOOLEAN F_TOTALI BOOLEAN F_TOTALI
BEGIN BEGIN
PROMPT 33 9 "Non stampare totali per gruppo " PROMPT 33 9 "Non stampare totali per gruppo "
HELP "Indicare se non si devono stampare i totali dei gruppi"
END END
BOOLEAN F_CODICI BOOLEAN F_CODICI
BEGIN BEGIN
PROMPT 2 10 "Non stampare codici conti " PROMPT 2 10 "Non stampare codici conti "
HELP "Indicare se non si devono stampare i codici dei conti"
END END
BOOLEAN F_SALDO BOOLEAN F_SALDO
BEGIN BEGIN
PROMPT 33 10 "Non stampare movimenti con saldo a zero " PROMPT 33 10 "Non stampare movimenti con saldo a zero "
HELP "Indicare se non si devono stampare i movimenti con saldo nullo"
END END
TEXT 96 TEXT 96
@ -130,6 +136,7 @@ END
DATE F_DATADA DATE F_DATADA
BEGIN BEGIN
PROMPT 24 10 "" PROMPT 24 10 ""
HELP "Data dalla quale iniziare la stampa"
END END
DATE F_DATAA DATE F_DATAA
@ -140,6 +147,7 @@ END
BOOLEAN F_STAMPAMPROV BOOLEAN F_STAMPAMPROV
BEGIN BEGIN
PROMPT 2 11 "Stampa movimenti provvisori " PROMPT 2 11 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
@ -159,6 +167,7 @@ PAGE "Pag. 2" -1 -1 74 20
RADIOBUTTON F_VERIFICA 27 RADIOBUTTON F_VERIFICA 27
BEGIN BEGIN
PROMPT 2 1 "Stampa bilancio di verifica " PROMPT 2 1 "Stampa bilancio di verifica "
HELP "Tipo di bilancio di verifica"
ITEM "1|Bilancio" ITEM "1|Bilancio"
ITEM "2|Saldi di mastro" ITEM "2|Saldi di mastro"
ITEM "3|Situazione C/F" ITEM "3|Situazione C/F"
@ -167,6 +176,7 @@ END
RADIOBUTTON F_STAMPAC 35 RADIOBUTTON F_STAMPAC 35
BEGIN BEGIN
PROMPT 35 1 "Tipo stampa " PROMPT 35 1 "Tipo stampa "
HELP "Help tipo di stampa del bilancio"
ITEM "1|Conti movimentati" ITEM "1|Conti movimentati"
ITEM "2|Conti con saldo diverso da zero" ITEM "2|Conti con saldo diverso da zero"
END END
@ -174,6 +184,7 @@ END
RADIOBUTTON F_STAMPAV 35 RADIOBUTTON F_STAMPAV 35
BEGIN BEGIN
PROMPT 35 1 "Tipo stampa " PROMPT 35 1 "Tipo stampa "
HELP "Help tipo di stampa del bilancio"
ITEM "1|Conti movimentati" ITEM "1|Conti movimentati"
ITEM "2|Conti con saldo diverso da zero" ITEM "2|Conti con saldo diverso da zero"
ITEM "3|Tutti i conti" ITEM "3|Tutti i conti"
@ -182,6 +193,7 @@ END
LIST F_MODULO 10 LIST F_MODULO 10
BEGIN BEGIN
PROMPT 2 8 "Stampa su modulo stretto " PROMPT 2 8 "Stampa su modulo stretto "
HELP "Indicare il numero di caratteri del foglio (larghezza)"
ITEM "1|132 crt." ITEM "1|132 crt."
ITEM "2|198 crt." ITEM "2|198 crt."
END END
@ -189,6 +201,7 @@ END
LIST F_SITUAZIONE 11 LIST F_SITUAZIONE 11
BEGIN BEGIN
PROMPT 2 10 "Tipo situazione " PROMPT 2 10 "Tipo situazione "
HELP "Indicare il tipo di situazione che si vuole ottenere"
ITEM " |Entrambi" ITEM " |Entrambi"
ITEM "C|Clienti" ITEM "C|Clienti"
ITEM "F|Fornitori" ITEM "F|Fornitori"
@ -206,6 +219,7 @@ END
LIST F_ORDINAMENTO 11 LIST F_ORDINAMENTO 11
BEGIN BEGIN
PROMPT 2 11 "Tipo ordinamento " PROMPT 2 11 "Tipo ordinamento "
HELP "Indicare il tipo di ordinamento da effettuare"
ITEM "1|Per codice" ITEM "1|Per codice"
ITEM "2|Alfabetico" ITEM "2|Alfabetico"
END END
@ -223,10 +237,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

23
cg/cg1600a.uml
View File

@ -24,6 +24,7 @@ END
NUMBER F_ANNOESE 4 NUMBER F_ANNOESE 4
BEGIN BEGIN
PROMPT 4 5 "Anno esercizio " PROMPT 4 5 "Anno esercizio "
HELP "Anno d'esercizio di cui si vuole la stampa"
USE ESC USE ESC
INPUT CODTAB F_ANNOESE INPUT CODTAB F_ANNOESE
DISPLAY "Anno" CODTAB DISPLAY "Anno" CODTAB
@ -37,6 +38,7 @@ END
NUMBER F_ANNORAFFR 4 NUMBER F_ANNORAFFR 4
BEGIN BEGIN
PROMPT 36 5 "Anno esercizio da raffrontare " PROMPT 36 5 "Anno esercizio da raffrontare "
HELP "Anno d'esercizio da raffrontare (in caso di confronto)"
COPY USE F_ANNOESE COPY USE F_ANNOESE
INPUT CODTAB F_ANNORAFFR INPUT CODTAB F_ANNORAFFR
COPY DISPLAY F_ANNOESE COPY DISPLAY F_ANNOESE
@ -48,6 +50,7 @@ END
LIST F_TIPOBIL 22 LIST F_TIPOBIL 22
BEGIN BEGIN
PROMPT 4 6 "Tipo bilancio " PROMPT 4 6 "Tipo bilancio "
HELP "Indicare il tipo di bilancio da stampare"
ITEM "1|Bilancio scalare" ITEM "1|Bilancio scalare"
MESSAGE HIDE,F_TIPOSTAMPA1|RESET,F_TIPOSTAMPA1|SHOW,F_TIPOSTAMPA|K_SPACE,F_TIPOSTAMPA MESSAGE HIDE,F_TIPOSTAMPA1|RESET,F_TIPOSTAMPA1|SHOW,F_TIPOSTAMPA|K_SPACE,F_TIPOSTAMPA
MESSAGE SHOW,F_ANNORAFFR|SHOW,F_DATABILRAF MESSAGE SHOW,F_ANNORAFFR|SHOW,F_DATABILRAF
@ -59,6 +62,7 @@ END
LIST F_TIPOSTAMPA 23 LIST F_TIPOSTAMPA 23
BEGIN BEGIN
PROMPT 4 7 "Tipo stampa " PROMPT 4 7 "Tipo stampa "
HELP "Indicare il tipo di stampa che si vuole avere"
ITEM "1|Per data limite" ITEM "1|Per data limite"
MESSAGE HIDE,F_STAMPAMODULO|HIDE,F_DATAINI|HIDE,F_DATAFINE MESSAGE HIDE,F_STAMPAMODULO|HIDE,F_DATAINI|HIDE,F_DATAFINE
MESSAGE RESET,F_STAMPAMODULO|RESET,F_DATAINI|RESET,F_DATAFINE MESSAGE RESET,F_STAMPAMODULO|RESET,F_DATAINI|RESET,F_DATAFINE
@ -71,7 +75,12 @@ END
LIST F_TIPOSTAMPA1 23 LIST F_TIPOSTAMPA1 23
BEGIN BEGIN
<<<<<<< cg1600a.uml
PROMPT 4 7 "Tipo stampa1 "
HELP "Indicare il tipo di stampa che si vuole avere"
=======
PROMPT 4 7 "Tipo stampa " PROMPT 4 7 "Tipo stampa "
>>>>>>> 1.5
ITEM "1|Per data " ITEM "1|Per data "
MESSAGE HIDE,F_DATALIM MESSAGE HIDE,F_DATALIM
MESSAGE RESET,F_DATALIM MESSAGE RESET,F_DATALIM
@ -86,7 +95,12 @@ END
DATE F_DATASTAMPA DATE F_DATASTAMPA
BEGIN BEGIN
<<<<<<< cg1600a.uml
PROMPT 4 4 "Data stampa "
HELP "Indicare la data da stampare sul bilancio"
=======
PROMPT 4 8 "Data stampa " PROMPT 4 8 "Data stampa "
>>>>>>> 1.5
FLAGS "A" FLAGS "A"
END END
@ -112,50 +126,59 @@ END
DATE F_DATALIM DATE F_DATALIM
BEGIN BEGIN
PROMPT 4 9 "Data limite " PROMPT 4 9 "Data limite "
HELP "Data fin alla quale si vuole la stampa"
// VALIDATE NOT_EMPTY_FUNC // VALIDATE NOT_EMPTY_FUNC
END END
DATE F_DATABILRAF DATE F_DATABILRAF
BEGIN BEGIN
PROMPT 36 9 "Data bil. da raffrontare " PROMPT 36 9 "Data bil. da raffrontare "
HELP "Data d'esercizio da raffrontare con data limite"
// VALIDATE NOT_EMPTY_FUNC // VALIDATE NOT_EMPTY_FUNC
END END
DATE F_DATAINI DATE F_DATAINI
BEGIN BEGIN
PROMPT 26 9 "" PROMPT 26 9 ""
HELP "Data di inizio calcolo"
// VALIDATE NOT_EMPTY_FUNC // VALIDATE NOT_EMPTY_FUNC
END END
DATE F_DATAFINE DATE F_DATAFINE
BEGIN BEGIN
PROMPT 62 9 "" PROMPT 62 9 ""
HELP "Data di fine calcolo"
// VALIDATE NOT_EMPTY_FUNC // VALIDATE NOT_EMPTY_FUNC
END END
BOOLEAN F_STAMPAINT BOOLEAN F_STAMPAINT
BEGIN BEGIN
PROMPT 4 11 "Stampa intera struttura" PROMPT 4 11 "Stampa intera struttura"
HELP "Indicare se ottenere un stampa completa nella sua struttura"
END END
BOOLEAN F_STAMPACOD BOOLEAN F_STAMPACOD
BEGIN BEGIN
PROMPT 41 11 "Non stampare cod. conti" PROMPT 41 11 "Non stampare cod. conti"
HELP "Indicare se non stampare i codici dei conti"
END END
BOOLEAN F_STAMPAMOV BOOLEAN F_STAMPAMOV
BEGIN BEGIN
PROMPT 4 12 "Non stampare mov. con saldo a 0" PROMPT 4 12 "Non stampare mov. con saldo a 0"
HELP "Indicare se non stampare i movimenti con saldo nullo"
END END
BOOLEAN F_STAMPAMOVPROV BOOLEAN F_STAMPAMOVPROV
BEGIN BEGIN
PROMPT 41 12 "Stampa movimenti provvisori" PROMPT 41 12 "Stampa movimenti provvisori"
HELP "Indicare se stampare anche i movimenti provvisori"
END END
BOOLEAN F_STAMPAMODULO BOOLEAN F_STAMPAMODULO
BEGIN BEGIN
PROMPT 4 13 "Stampa su modulo stretto" PROMPT 4 13 "Stampa su modulo stretto"
HELP "Indicare se si stampa su modulo stretto (80 colonne)"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2

1
cg/cg1700a.uml
View File

@ -24,6 +24,7 @@ END
DATE F_DATASTAMPA DATE F_DATASTAMPA
BEGIN BEGIN
PROMPT 1 4 "Data stampa " PROMPT 1 4 "Data stampa "
HELP "Data da riportare sui fogli da stampare"
FLAGS "A" FLAGS "A"
END END

20
cg/cg2100.cpp
View File

@ -312,10 +312,7 @@ void TPrimanota_application::init_mask(TMask& m)
if (corrisp) m.hide(F_STATOPAIV); if (corrisp) m.hide(F_STATOPAIV);
m.show(F_CORRLIRE, intra); m.show(F_CORRLIRE, intra);
m.show(F_CORRVALUTA, valintra);
const bool corrval = intra && valintra;
m.show(F_CORRVALUTA, corrval);
m.show(F_CODIVA, m.mode() == MODE_INS); m.show(F_CODIVA, m.mode() == MODE_INS);
} }
@ -357,9 +354,8 @@ const char* TPrimanota_application::get_next_key()
TToken_string k(80); TToken_string k(80);
k.add(F_NUMREG); k.add(_lastreg+1); k.add(F_NUMREG); k.add(_lastreg+1);
TMask& m = curr_mask(); TMask& m = curr_mask();
if (!m.query_mode()) if (m.insert_mode())
{ {
k.add(F_CODCAUS); k.add(m.get(F_CODCAUS)); // Ricopia causale k.add(F_CODCAUS); k.add(m.get(F_CODCAUS)); // Ricopia causale
k.add(F_DATAREG); k.add(m.get(F_DATAREG)); // data operazione k.add(F_DATAREG); k.add(m.get(F_DATAREG)); // data operazione
@ -406,6 +402,14 @@ void TPrimanota_application::init_insert_mode(TMask& m)
TBill tc; _causale.bill(nriga, tc); TBill tc; _causale.bill(nriga, tc);
if (tc.conto() < 1) continue; // Considera solo conti validi if (tc.conto() < 1) continue; // Considera solo conti validi
if (tc.tipo() > ' ' && tc.sottoconto() != 0)
{
TBill clifo(0, 0, tc.sottoconto(), tc.tipo());
clifo.descrizione();
if (clifo.conto() != 0)
tc = clifo;
}
const char sezione = rcaus->get_char(RCA_SEZIONE); const char sezione = rcaus->get_char(RCA_SEZIONE);
const TImporto zero('D', ZERO); const TImporto zero('D', ZERO);
const TString80 desc(_causale.desc_agg(i)); const TString80 desc(_causale.desc_agg(i));
@ -435,6 +439,8 @@ void TPrimanota_application::init_insert_mode(TMask& m)
void TPrimanota_application::init_modify_mode(TMask& m) void TPrimanota_application::init_modify_mode(TMask& m)
{ {
init_mask(m); init_mask(m);
calcola_imp(); // Calcola totale imponibile ed imposte
calcola_saldo(); // Verifica eventuali sbilanci
} }
@ -751,7 +757,7 @@ int TPrimanota_application::write(const TMask& m)
if (iva() != nessuna_iva) if (iva() != nessuna_iva)
{ {
causale().reg().reread(); // Aggiorna protocollo IVA causale().reg().reread(); // Aggiorna protocollo IVA
if (!gestione_saldaconto()) if (!gestione_saldaconto() && !m.get_bool(F_SOLAIVA))
{ {
const TString16 causimm(causale().causale_inc_imm()); const TString16 causimm(causale().causale_inc_imm());
if (causimm.not_empty()) if (causimm.not_empty())

5
cg/cg2100a.uml
View File

@ -32,6 +32,7 @@ END
NUMBER F_NUMREG 6 NUMBER F_NUMREG 6
BEGIN BEGIN
PROMPT 1 4 "Operazione n. " PROMPT 1 4 "Operazione n. "
HELP "Numero del movimento di prima nota da gestire"
FLAGS "R" FLAGS "R"
FIELD LF_MOV->NUMREG FIELD LF_MOV->NUMREG
USE LF_MOV USE LF_MOV
@ -65,7 +66,7 @@ DATE F_DATACOMP
BEGIN BEGIN
PROMPT 1 7 "Data di competenza " PROMPT 1 7 "Data di competenza "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "E' obbligatorio specificare la data di competenza" WARNING "Data di competenza dell'operazione"
FLAGS "A" FLAGS "A"
END END
@ -78,6 +79,7 @@ END
STRING F_CODCAUS 3 STRING F_CODCAUS 3
BEGIN BEGIN
PROMPT 1 9 "Causale " PROMPT 1 9 "Causale "
HELP "Codice della causale generante l'operazione"
FLAGS "U" FLAGS "U"
FIELD LF_MOV->CODCAUS FIELD LF_MOV->CODCAUS
USE LF_CAUSALI KEY 1 USE LF_CAUSALI KEY 1
@ -95,6 +97,7 @@ END
STRING F_DESCRCAUS 50 STRING F_DESCRCAUS 50
BEGIN BEGIN
PROMPT 23 9 "" PROMPT 23 9 ""
HELP "Descrizione della causale generante l'operazione"
USE LF_CAUSALI KEY 2 USE LF_CAUSALI KEY 2
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT DESCR F_DESCRCAUS INPUT DESCR F_DESCRCAUS

12
cg/cg2100b.uml
View File

@ -41,6 +41,7 @@ END
DATE F_DATAREG DATE F_DATAREG
BEGIN BEGIN
PROMPT 1 3 "Data operazione " PROMPT 1 3 "Data operazione "
HELP "Data in cui viene effettuata l'operazione"
FIELD DATAREG FIELD DATAREG
END END
@ -48,6 +49,7 @@ END
DATE F_DATACOMP DATE F_DATACOMP
BEGIN BEGIN
PROMPT 1 4 "Data di competenza " PROMPT 1 4 "Data di competenza "
HELP "Data di competenza dell'operazione"
FIELD DATACOMP FIELD DATACOMP
END END
@ -61,6 +63,7 @@ END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 1 5 "Data del documento " PROMPT 1 5 "Data del documento "
HELP "Data del documento generante il movimento"
FIELD DATADOC FIELD DATADOC
WARNING "Specificare una data del documento non superiore a quella dell'operazione" WARNING "Specificare una data del documento non superiore a quella dell'operazione"
VALIDATE DATE_CMP_FUNC <= F_DATAREG VALIDATE DATE_CMP_FUNC <= F_DATAREG
@ -69,6 +72,7 @@ END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 57 5 "Documento n. " PROMPT 57 5 "Documento n. "
HELP "Numero del documento generante il movimento"
FIELD NUMDOC FIELD NUMDOC
WARNING "La causale impone di specificare il numero documento" WARNING "La causale impone di specificare il numero documento"
END END
@ -81,6 +85,7 @@ END
STRING F_DESCAGG 5 STRING F_DESCAGG 5
BEGIN BEGIN
PROMPT 1 6 "Descrizione " PROMPT 1 6 "Descrizione "
HELP "Codice descrizione del movimento di contabilita'"
FLAGS "U" FLAGS "U"
USE %DPN USE %DPN
INPUT CODTAB F_DESCAGG INPUT CODTAB F_DESCAGG
@ -94,6 +99,7 @@ END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 25 6 "" PROMPT 25 6 ""
HELP "Descrizione del movimento di contabilita'"
FIELD DESCR FIELD DESCR
USE %DPN KEY 2 USE %DPN KEY 2
INPUT S0 F_DESCR INPUT S0 F_DESCR
@ -105,6 +111,7 @@ END
LIST F_PROVVISORIO 1 25 LIST F_PROVVISORIO 1 25
BEGIN BEGIN
PROMPT 1 7 "Movimento provvisorio " PROMPT 1 7 "Movimento provvisorio "
HELP "Indicare se si tratta di movimento provvisorio"
FIELD PROVVIS FIELD PROVVIS
ITEM " |No (movimento normale)" ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)" ITEM "P|Si (cancellabile)"
@ -114,6 +121,7 @@ END
STRING F_CODCAUS 3 STRING F_CODCAUS 3
BEGIN BEGIN
PROMPT 1 8 "Causale " PROMPT 1 8 "Causale "
HELP "Codice della causale generante l'operazione"
FLAGS "U" FLAGS "U"
FIELD CODCAUS FIELD CODCAUS
USE LF_CAUSALI KEY 1 USE LF_CAUSALI KEY 1
@ -131,6 +139,7 @@ END
STRING F_DESCRCAUS 50 STRING F_DESCRCAUS 50
BEGIN BEGIN
PROMPT 23 8 "" PROMPT 23 8 ""
HELP "Descrizione della causale generante l'operazione"
USE LF_CAUSALI KEY 2 USE LF_CAUSALI KEY 2
INPUT DESCR F_DESCRCAUS INPUT DESCR F_DESCRCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -141,6 +150,7 @@ END
STRING F_VALUTA 3 STRING F_VALUTA 3
BEGIN BEGIN
PROMPT 1 9 "Valuta " PROMPT 1 9 "Valuta "
HELP "Codice della valuta per movimento"
FIELD LF_MOV->CODVAL FIELD LF_MOV->CODVAL
FLAGS "U" FLAGS "U"
GROUP 3 GROUP 3
@ -158,6 +168,7 @@ END
NUMBER F_CAMBIO 15 5 NUMBER F_CAMBIO 15 5
BEGIN BEGIN
PROMPT 20 9 "Cambio " PROMPT 20 9 "Cambio "
HELP "Cambio della valuta"
FIELD LF_MOV->CAMBIO FIELD LF_MOV->CAMBIO
FLAGS "RU" FLAGS "RU"
GROUP 3 GROUP 3
@ -167,6 +178,7 @@ END
BOOLEAN F_VISVAL BOOLEAN F_VISVAL
BEGIN BEGIN
PROMPT 47 9 "Visualizza importi in valuta" PROMPT 47 9 "Visualizza importi in valuta"
HELP "Indicare se gli importi sono visualizzati in valuta (non in Lit)"
GROUP 3 GROUP 3
END END

2
cg/cg2100i.uml
View File

@ -225,7 +225,7 @@ END
LIST I_SEZIONE3 1 8 LIST I_SEZIONE3 1 8
BEGIN BEGIN
PROMPT 1 9 "Riga 2 " PROMPT 1 9 "Riga 3 "
ITEM "D|Dare" ITEM "D|Dare"
ITEM "A|Avere" ITEM "A|Avere"
END END

13
cg/cg2101.cpp
View File

@ -177,13 +177,14 @@ bool TMovimentoPN::controlla_liquidazione(const TDate& data, bool reset) const
key << anno << mese; key << anno << mese;
lim.put("CODTAB", key); lim.put("CODTAB", key);
if (lim.read() == NOERR) if (lim.read() == NOERR)
calcolata = lim.get_bool("B0"); calcolata = lim.get_bool("B1"); // Controlla se calcolata in definitivo
if (calcolata && reset) if (reset && lim.get_bool("B0"))
{ {
// Resetta il flag di calcolato sulla liquidazione IVA del mese di registrazione // Resetta i flag di calcolato sulla liquidazione IVA del mese di registrazione
lim.put("B0", FALSE); lim.put("B0", FALSE); // calcolato
lim.write(); lim.put("B1", FALSE); // definitivo
lim.rewrite();
} }
return calcolata; return calcolata;
@ -228,7 +229,7 @@ int TMovimentoPN::registra(bool re, bool force)
if (att_mista) if (att_mista)
{ {
const char tipo = r.get_char("TIPOC"); const char tipo = r.get_char("TIPOC");
if (tipo == ' ') if (tipo <= ' ')
{ {
TBill c(r.get_int("GRUPPO"), r.get_int("CONTO"), r.get_long("SOTTOCONTO")); TBill c(r.get_int("GRUPPO"), r.get_int("CONTO"), r.get_long("SOTTOCONTO"));
tipoatt = c.tipo_att(); tipoatt = c.tipo_att();

6
cg/cg2102.cpp
View File

@ -126,7 +126,7 @@ bool TPrimanota_application::detraibile(TToken_string& row)
return FALSE; return FALSE;
const real& prorata = app().causale().reg().prorata(); const real& prorata = app().causale().reg().prorata();
return prorata != 100.0; // Se prorata = 100% e' indetraibile return prorata < 100.0; // Se prorata = 100% e' indetraibile
} }
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
@ -147,6 +147,7 @@ int TPrimanota_application::type2pos(char tipo)
} }
// Trova nelle righe contabili un conto nelle righe di tipo prescelto
int TPrimanota_application::bill2pos(const TBill& conto, char tipo) int TPrimanota_application::bill2pos(const TBill& conto, char tipo)
{ {
TSheet_field& cg = app().cgs(); TSheet_field& cg = app().cgs();
@ -165,6 +166,7 @@ int TPrimanota_application::bill2pos(const TBill& conto, char tipo)
} }
// Trova nelle righe contabili un conto di contropartita per il conto dato
int TPrimanota_application::bill2contr(const TBill& conto, char sezione) const int TPrimanota_application::bill2contr(const TBill& conto, char sezione) const
{ {
const TArray& rows = cgs().rows_array(); const TArray& rows = cgs().rows_array();
@ -1034,7 +1036,7 @@ bool TPrimanota_application::sheet_clifo_handler(TMask_field& f, KEY k)
const long codice = atol(f.get()); const long codice = atol(f.get());
if (codice > 0L) if (codice > 0L)
{ {
TBill c(0, 0, codice, m.get(cid-2)[0]); TBill c(0, 0, codice, f.dlg() > 300 ? 'F' : 'C');
c.descrizione(); // Carica gruppo e conto c.descrizione(); // Carica gruppo e conto
m.set(cid-1, c.gruppo()); m.set(cid-1, c.gruppo());
m.set(cid, c.conto()); m.set(cid, c.conto());

7
cg/cg2103.cpp
View File

@ -352,9 +352,10 @@ const TRectype& TCausale::row(int num) const
TBill& TCausale::bill(int num, TBill& conto) const TBill& TCausale::bill(int num, TBill& conto) const
{ {
const TRectype& rec = row(num); const TRectype* rec = (const TRectype*)objptr(num);
conto.set(rec.get_int(RCA_GRUPPO), rec.get_int(RCA_CONTO), if (rec != NULL)
rec.get_long(RCA_SOTTOCONTO), rec.get_char(RCA_TIPOCF)); conto.set(rec->get_int(RCA_GRUPPO), rec->get_int(RCA_CONTO),
rec->get_long(RCA_SOTTOCONTO), rec->get_char(RCA_TIPOCF));
return conto; return conto;
} }

48
cg/cg3100a.uml
View File

@ -24,6 +24,7 @@ END
DATE F_DATASTAMPA DATE F_DATASTAMPA
BEGIN BEGIN
PROMPT 48 1 "Data stampa " PROMPT 48 1 "Data stampa "
HELP "Data in cui viene effettuata la stampa"
FLAGS "A" FLAGS "A"
END END
@ -31,6 +32,7 @@ NUMBER F_ANNO 4
BEGIN BEGIN
GROUP 3 GROUP 3
PROMPT 2 3 "Anno esercizio " PROMPT 2 3 "Anno esercizio "
HELP "Anno d'esercizio di cui si vuole la lista"
USE ESC USE ESC
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB F_ANNO INPUT CODTAB F_ANNO
@ -55,7 +57,7 @@ END
LIST F_CONTROLLO 21 LIST F_CONTROLLO 21
BEGIN BEGIN
PROMPT 2 7 "Controllo movimenti errati " PROMPT 2 7 "Controllo movimenti errati "
HELP "La scelta 1 stampa tutte le registrazioni senza la segnalazione di quelle errate; la scelta 2 permette di listare tutte le registrazioni inserite, segnalando quelle errate; la scelta 3 stampa solo le registrazioni errate" HELP "Indicare il tipo di controllo per movimenti errati"
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@ ITEM "3|No" MESSAGE HIDE,1@|RESET,1@
ITEM "2|Si" MESSAGE SHOW,1@ ITEM "2|Si" MESSAGE SHOW,1@
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@ ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
@ -70,13 +72,15 @@ END
BOOLEAN F_ANNOC BOOLEAN F_ANNOC
BEGIN BEGIN
GROUP 1 GROUP 1
PROMPT 20 8 "anno di competenza " PROMPT 20 8 "Anno di competenza "
HELP "Indicare se stampa l'anno di competenza"
END END
BOOLEAN F_ALLEGATO BOOLEAN F_ALLEGATO
BEGIN BEGIN
GROUP 1 GROUP 1
PROMPT 20 9 "allegato iva " PROMPT 20 9 "Allegato iva "
HELP "Indicare se stampare l'allegato IVA"
MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA
MESSAGE FALSE ENABLE,F_STAMPA MESSAGE FALSE ENABLE,F_STAMPA
END END
@ -84,26 +88,42 @@ END
RADIOBUTTON F_DECIDI 10 RADIOBUTTON F_DECIDI 10
BEGIN BEGIN
PROMPT 2 10 "Stampa " PROMPT 2 10 "Stampa "
HELP "Indicare il criterio di scelta dei movimenti"
ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@ ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@ ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
END END
DATE F_DATAINI DATE F_DATAINI
BEGIN BEGIN
<<<<<<< cg3100a.uml
PROMPT 19 11 "Stampa mov. dalla data "
HELP "Data da cui iniziare la stampa"
=======
PROMPT 16 11 "Stampa mov. dalla data " PROMPT 16 11 "Stampa mov. dalla data "
//HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data" //HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
>>>>>>> 1.12
GROUP 3 GROUP 3
END END
DATE F_DATAFIN DATE F_DATAFIN
BEGIN BEGIN
<<<<<<< cg3100a.uml
PROMPT 55 11 "alla data "
HELP "Data fino a cui stampare i movimenti"
=======
PROMPT 52 11 "alla data " PROMPT 52 11 "alla data "
>>>>>>> 1.12
GROUP 3 GROUP 3
END END
NUMBER F_NUMEROINI 7 NUMBER F_NUMEROINI 7
BEGIN BEGIN
<<<<<<< cg3100a.uml
PROMPT 19 12 "Stampa mov. dal numero "
HELP "Numero del movimento da cui iniziare la stampa"
=======
PROMPT 16 12 "Stampa mov. dal numero " PROMPT 16 12 "Stampa mov. dal numero "
>>>>>>> 1.12
USE LF_MOV KEY 1 USE LF_MOV KEY 1
INPUT NUMREG F_NUMEROINI INPUT NUMREG F_NUMEROINI
DISPLAY "Numero@6" NUMREG DISPLAY "Numero@6" NUMREG
@ -119,7 +139,12 @@ END
NUMBER F_NUMEROFIN 7 NUMBER F_NUMEROFIN 7
BEGIN BEGIN
<<<<<<< cg3100a.uml
PROMPT 55 12 "al numero "
HELP "Numero del movimenti fino cui fare la stampa"
=======
PROMPT 52 12 "al numero " PROMPT 52 12 "al numero "
>>>>>>> 1.12
COPY USE F_NUMEROINI COPY USE F_NUMEROINI
INPUT NUMREG F_NUMEROFIN INPUT NUMREG F_NUMEROFIN
COPY DISPLAY F_NUMEROINI COPY DISPLAY F_NUMEROINI
@ -140,7 +165,7 @@ BEGIN
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAUSALEINI CODCAUS OUTPUT F_CAUSALEINI CODCAUS
FLAGS "UR" FLAGS "UR"
HELP "Introdurre codice causale di inizio stampa: vuoto = inizio archivio" HELP "Causale di inizio stampa: vuoto = inizio archivio"
END END
STRING F_CAUSALEFIN 3 STRING F_CAUSALEFIN 3
@ -152,7 +177,7 @@ BEGIN
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAUSALEFIN CODCAUS OUTPUT F_CAUSALEFIN CODCAUS
FLAGS "UR" FLAGS "UR"
HELP "Introdurre codice causale di fine stampa: vuoto = fine archivio" HELP "Causale di fine stampa: vuoto = fine archivio"
END END
STRING F_REGISTROINI 3 STRING F_REGISTROINI 3
@ -167,7 +192,7 @@ BEGIN
OUTPUT F_REGISTROINI CODTAB[5,7] OUTPUT F_REGISTROINI CODTAB[5,7]
FLAGS "UR" FLAGS "UR"
//CHECKTYPE NORMAL //CHECKTYPE NORMAL
HELP "Introdurre cod. registro iva di inizio stampa: vuoto = inizio archivio" HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
END END
STRING F_REGISTROFIN 3 STRING F_REGISTROFIN 3
@ -182,17 +207,19 @@ BEGIN
OUTPUT F_REGISTROFIN CODTAB[5,7] OUTPUT F_REGISTROFIN CODTAB[5,7]
FLAGS "UR" FLAGS "UR"
//CHECKTYPE NORMAL //CHECKTYPE NORMAL
HELP "Introdurre cod. registro iva di fine stampa: vuoto = fine archivio" HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
END END
BOOLEAN F_STAMPA BOOLEAN F_STAMPA
BEGIN BEGIN
PROMPT 2 16 "Stampa imponibili, imposte e codici iva " PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
HELP "Indicare se stampare i valori degli imponibili, dell'imposte e i codici IVA"
END END
BOOLEAN F_STAMPAMOVP BOOLEAN F_STAMPAMOVP
BEGIN BEGIN
PROMPT 2 17 "Stampa movimenti provvisori " PROMPT 2 17 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END END
/* /*
@ -215,10 +242,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

25
cg/cg3100b.uml
View File

@ -25,13 +25,14 @@ END
DATE F_DATASTAMPA DATE F_DATASTAMPA
BEGIN BEGIN
PROMPT 48 1 "Data stampa " PROMPT 48 1 "Data stampa "
HELP "Data in cui viene effettuata la stampa"
FLAGS "A" FLAGS "A"
END END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 2 4 "Anno esercizio " PROMPT 2 4 "Anno esercizio "
//HELP "Se non indicato nessun anno esercizio significa che si richiede la stampa come specificato nei campi: dalla data, alla data" HELP "Anno d'esercizio di cui si vuole la stampa"
USE ESC KEY 1 USE ESC KEY 1
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB F_ANNO INPUT CODTAB F_ANNO
@ -45,18 +46,20 @@ END
DATE F_DATAINI DATE F_DATAINI
BEGIN BEGIN
PROMPT 2 6 "Stampa movimenti dalla data " PROMPT 2 6 "Stampa movimenti dalla data "
//HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data" HELP "Data da cui iniziare la stampa"
END END
DATE F_DATAFIN DATE F_DATAFIN
BEGIN BEGIN
PROMPT 45 6 "alla data " PROMPT 45 6 "alla data "
END HELP "Data fino a cui eseguire la stampa"
END
LIST F_TIPOELENCO 8 LIST F_TIPOELENCO 8
BEGIN BEGIN
PROMPT 2 7 "Tipo elenco " PROMPT 2 7 "Tipo elenco "
//HELP "Se si desidera l'elenco per clienti e fornitori, specificare prima il codice del cliente da cui iniziare la stampa e poi quello del fornitore" HELP "Indicare cosa includere nella stampa"
ITEM "C|Clienti" ITEM "C|Clienti"
MESSAGE HIDE,2@|SHOW,1@|RESET,1@ MESSAGE HIDE,2@|SHOW,1@|RESET,1@
ITEM "F|Fornitori" ITEM "F|Fornitori"
@ -68,7 +71,7 @@ END
NUMBER F_CODICEINI 6 NUMBER F_CODICEINI 6
BEGIN BEGIN
PROMPT 2 8 "Stampa dal codice " PROMPT 2 8 "Stampa dal codice "
//HELP "Se si desidera l'elenco per clienti e fornitori, specificare prima il codice del cliente da cui iniziare la stampa e poi quello del fornitore" HELP "Indicare il codice da cui iniziare la stampa"
GROUP 1 GROUP 1
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF F_TIPOELENCO SELECT INPUT TIPOCF F_TIPOELENCO SELECT
@ -82,6 +85,7 @@ END
NUMBER F_CODICEFIN 6 NUMBER F_CODICEFIN 6
BEGIN BEGIN
PROMPT 45 8 "al codice " PROMPT 45 8 "al codice "
HELP "Indicare il codice a cui terminare la stampa"
GROUP 1 GROUP 1
COPY USE F_CODICEINI COPY USE F_CODICEINI
INPUT TIPOCF F_TIPOELENCO SELECT INPUT TIPOCF F_TIPOELENCO SELECT
@ -95,6 +99,7 @@ END
NUMBER F_CODICEINI1 6 NUMBER F_CODICEINI1 6
BEGIN BEGIN
PROMPT 2 8 "Stampa dal codice " PROMPT 2 8 "Stampa dal codice "
HELP "Indicare il codice da cui iniziare la stampa"
GROUP 2 GROUP 2
COPY USE F_CODICEINI COPY USE F_CODICEINI
INPUT TIPOCF F_CODICEINI1 INPUT TIPOCF F_CODICEINI1
@ -108,6 +113,7 @@ END
NUMBER F_CODICEFIN1 6 NUMBER F_CODICEFIN1 6
BEGIN BEGIN
PROMPT 45 8 "al codice " PROMPT 45 8 "al codice "
HELP "Indicare il codice a cui terminare la stampa"
GROUP 2 GROUP 2
COPY USE F_CODICEINI COPY USE F_CODICEINI
INPUT TIPOCF F_CODICEFIN1 INPUT TIPOCF F_CODICEFIN1
@ -122,11 +128,13 @@ BOOLEAN F_CAMBIO
BEGIN BEGIN
GROUP 2 GROUP 2
PROMPT 2 10 "Cambio pagina per cliente/fornitore " PROMPT 2 10 "Cambio pagina per cliente/fornitore "
HELP "Indicare se cambiare pagina nel passaggio da clienti a fornitori"
END END
BOOLEAN F_STAMPAMOVP BOOLEAN F_STAMPAMOVP
BEGIN BEGIN
PROMPT 2 11 "Stampa movimenti provvisori " PROMPT 2 11 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END END
/* /*
@ -149,10 +157,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

17
cg/cg3100c.uml
View File

@ -26,6 +26,7 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 2 5 "Anno esercizio " PROMPT 2 5 "Anno esercizio "
HELP "Anno d'esercizio di cui si vuole la stampa"
USE ESC USE ESC
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB F_ANNO INPUT CODTAB F_ANNO
@ -39,12 +40,14 @@ END
DATE F_DATASTAMPA DATE F_DATASTAMPA
BEGIN BEGIN
PROMPT 2 6 "Data stampa " PROMPT 2 6 "Data stampa "
HELP "Data in cui viene effettuata la stampa"
FLAGS "A" FLAGS "A"
END END
RADIOBUTTON F_DECIDI 10 RADIOBUTTON F_DECIDI 10
BEGIN BEGIN
PROMPT 2 8 "Stampa " PROMPT 2 8 "Stampa "
HELP "Criteri di selezione dei movimenti"
ITEM "2|data" ITEM "2|data"
MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@ MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@
ITEM "1|numero" ITEM "1|numero"
@ -54,18 +57,21 @@ END
DATE F_DATAINI DATE F_DATAINI
BEGIN BEGIN
PROMPT 19 9 "Stampa mov. dalla data " PROMPT 19 9 "Stampa mov. dalla data "
HELP "Data da cui iniziare la stampa dei movimenti"
GROUP 1 GROUP 1
END END
DATE F_DATAFIN DATE F_DATAFIN
BEGIN BEGIN
PROMPT 55 9 "alla data " PROMPT 55 9 "alla data "
HELP "Data a cui terminare la stampa dei movimenti"
GROUP 1 GROUP 1
END END
NUMBER F_NUMEROINI 7 NUMBER F_NUMEROINI 7
BEGIN BEGIN
PROMPT 19 10 "Stampa mov. dal numero " PROMPT 19 10 "Stampa mov. dal numero "
HELP "Numero da cui iniziare la stampa dei movimenti"
FLAGS "R" FLAGS "R"
GROUP 2 GROUP 2
END END
@ -73,6 +79,7 @@ END
NUMBER F_NUMEROFIN 7 NUMBER F_NUMEROFIN 7
BEGIN BEGIN
PROMPT 55 10 "al numero " PROMPT 55 10 "al numero "
HELP "Numero a cui terminare la stampa dei movimenti"
FLAGS "R" FLAGS "R"
GROUP 2 GROUP 2
END END
@ -80,6 +87,7 @@ END
BOOLEAN F_STAMPAMOVP BOOLEAN F_STAMPAMOVP
BEGIN BEGIN
PROMPT 2 12 "Stampa movimenti provvisori " PROMPT 2 12 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END END
TEXT DLG_NULL TEXT DLG_NULL
@ -100,10 +108,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

33
cg/cg3200a.uml
View File

@ -45,7 +45,7 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 47 1 "Anno esercizio " PROMPT 47 1 "Anno esercizio "
HELP "Inserire un anno esercizio presente nella tabella oppure niente: in quest'ultimo caso non e' possibile fare il controllo competenza esercizio" HELP "Anno esercizio di cui stampare i mastrini"
USE ESC USE ESC
INPUT CODTAB F_ANNO INPUT CODTAB F_ANNO
DISPLAY "Anno Esercizio" CODTAB DISPLAY "Anno Esercizio" CODTAB
@ -61,6 +61,7 @@ END
LIST F_TIPOCF_INI 25 LIST F_TIPOCF_INI 25
BEGIN BEGIN
PROMPT 4 4 "Ricerca " PROMPT 4 4 "Ricerca "
HELP "Indicare il tipo di mastrini da stamapare"
ITEM " |Gruppo/conto/sottoconto" ITEM " |Gruppo/conto/sottoconto"
MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@ MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@
ITEM "C|Clienti" ITEM "C|Clienti"
@ -72,11 +73,13 @@ END
NUMBER F_GRUPPOINI 3 NUMBER F_GRUPPOINI 3
BEGIN BEGIN
PROMPT 4 5 "Da Gruppo - Conto - Sottoconto " PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
HELP "Codice conto da cui iniziare la stampa"
END END
NUMBER F_CONTOINI_CONTO 3 NUMBER F_CONTOINI_CONTO 3
BEGIN BEGIN
PROMPT 41 5 "" PROMPT 41 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="") USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
INPUT GRUPPO F_GRUPPOINI INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CONTO INPUT CONTO F_CONTOINI_CONTO
@ -98,6 +101,7 @@ END
NUMBER F_CONTOINI_CLIENTE 3 NUMBER F_CONTOINI_CLIENTE 3
BEGIN BEGIN
PROMPT 41 5 "" PROMPT 41 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C") USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
INPUT GRUPPO F_GRUPPOINI INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CLIENTE INPUT CONTO F_CONTOINI_CLIENTE
@ -120,6 +124,7 @@ END
NUMBER F_CONTOINI_FORN 3 NUMBER F_CONTOINI_FORN 3
BEGIN BEGIN
PROMPT 41 5 "" PROMPT 41 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F") USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F")
INPUT GRUPPO F_GRUPPOINI INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_FORN INPUT CONTO F_CONTOINI_FORN
@ -142,6 +147,7 @@ END
NUMBER F_SOTTOCINI_CONTO 6 NUMBER F_SOTTOCINI_CONTO 6
BEGIN BEGIN
PROMPT 48 5 "" PROMPT 48 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_PCON //SELECT SOTTOCONTO!="" USE LF_PCON //SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPOINI INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CONTO INPUT CONTO F_CONTOINI_CONTO
@ -176,6 +182,7 @@ END
NUMBER F_SOTTOCINI_CLIENTE 6 NUMBER F_SOTTOCINI_CLIENTE 6
BEGIN BEGIN
PROMPT 48 5 "" PROMPT 48 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_CLIFO USE LF_CLIFO
//CHECKTYPE NORMAL //CHECKTYPE NORMAL
INPUT TIPOCF "C" INPUT TIPOCF "C"
@ -194,6 +201,7 @@ END
STRING F_DESCRINI_CLIENTE 50 STRING F_DESCRINI_CLIENTE 50
BEGIN BEGIN
PROMPT 4 6 "Ragione sociale C " PROMPT 4 6 "Ragione sociale C "
HELP "Codice conto da cui iniziare la stampa"
FIELD LF_CLIFO->RAGSOC FIELD LF_CLIFO->RAGSOC
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "C" INPUT TIPOCF "C"
@ -211,6 +219,7 @@ END
NUMBER F_SOTTOCINI_FORN 6 NUMBER F_SOTTOCINI_FORN 6
BEGIN BEGIN
PROMPT 48 5 "" PROMPT 48 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_CLIFO USE LF_CLIFO
//CHECKTYPE NORMAL //CHECKTYPE NORMAL
INPUT TIPOCF "F" INPUT TIPOCF "F"
@ -229,6 +238,7 @@ END
STRING F_DESCRINI_FORN 50 STRING F_DESCRINI_FORN 50
BEGIN BEGIN
PROMPT 4 6 "Ragione Sociale F " PROMPT 4 6 "Ragione Sociale F "
HELP "Codice conto da cui iniziare la stampa"
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT RAGSOC F_DESCRINI_FORN INPUT RAGSOC F_DESCRINI_FORN
@ -245,6 +255,7 @@ END
LIST F_TIPOCF_FINE 25 LIST F_TIPOCF_FINE 25
BEGIN BEGIN
PROMPT 4 7 "Ricerca " PROMPT 4 7 "Ricerca "
HELP "Indicare il tipo di mastrini da stamapare"
ITEM " |Gruppo/conto/sottoconto" ITEM " |Gruppo/conto/sottoconto"
MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|SHOW,4@ MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|SHOW,4@
ITEM "C|Clienti" ITEM "C|Clienti"
@ -261,6 +272,7 @@ END
NUMBER F_CONTOFINE_CONTO 3 NUMBER F_CONTOFINE_CONTO 3
BEGIN BEGIN
PROMPT 41 8 "" PROMPT 41 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="") USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
INPUT GRUPPO F_GRUPPOFINE INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CONTO INPUT CONTO F_CONTOFINE_CONTO
@ -281,6 +293,7 @@ END
NUMBER F_CONTOFINE_CLIENTE 3 NUMBER F_CONTOFINE_CLIENTE 3
BEGIN BEGIN
PROMPT 41 8 "" PROMPT 41 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C") USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
INPUT GRUPPO F_GRUPPOFINE INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CLIENTE INPUT CONTO F_CONTOFINE_CLIENTE
@ -302,6 +315,7 @@ END
NUMBER F_CONTOFINE_FORN 3 NUMBER F_CONTOFINE_FORN 3
BEGIN BEGIN
PROMPT 41 8 "" PROMPT 41 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F") USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F")
INPUT GRUPPO F_GRUPPOFINE INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_FORN INPUT CONTO F_CONTOFINE_FORN
@ -323,6 +337,7 @@ END
NUMBER F_SOTTOCFINE_CONTO 6 NUMBER F_SOTTOCFINE_CONTO 6
BEGIN BEGIN
PROMPT 48 8 "" PROMPT 48 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON SELECT SOTTOCONTO!="" USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPOFINE INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CONTO INPUT CONTO F_CONTOFINE_CONTO
@ -343,6 +358,7 @@ END
STRING F_DESCRFINE_CONTO 50 STRING F_DESCRFINE_CONTO 50
BEGIN BEGIN
PROMPT 4 9 "Descrizione " PROMPT 4 9 "Descrizione "
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON KEY 2 USE LF_PCON KEY 2
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT DESCR F_DESCRINI_CONTO INPUT DESCR F_DESCRINI_CONTO
@ -357,6 +373,7 @@ END
NUMBER F_SOTTOCFINE_CLIENTE 6 NUMBER F_SOTTOCFINE_CLIENTE 6
BEGIN BEGIN
PROMPT 48 8 "" PROMPT 48 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_CLIFO USE LF_CLIFO
//CHECKTYPE NORMAL //CHECKTYPE NORMAL
INPUT TIPOCF "C" INPUT TIPOCF "C"
@ -375,6 +392,7 @@ END
STRING F_DESCRFINE_CLIENTE 50 STRING F_DESCRFINE_CLIENTE 50
BEGIN BEGIN
PROMPT 4 9 "Ragione sociale " PROMPT 4 9 "Ragione sociale "
HELP "Codice conto a cui terminare la stampa"
FIELD LF_CLIFO->RAGSOC FIELD LF_CLIFO->RAGSOC
CHECKTYPE NORMAL CHECKTYPE NORMAL
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
@ -392,6 +410,7 @@ END
NUMBER F_SOTTOCFINE_FORN 6 NUMBER F_SOTTOCFINE_FORN 6
BEGIN BEGIN
PROMPT 48 8 "" PROMPT 48 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_CLIFO USE LF_CLIFO
//CHECKTYPE NORMAL //CHECKTYPE NORMAL
INPUT TIPOCF "F" INPUT TIPOCF "F"
@ -410,6 +429,7 @@ END
STRING F_DESCRFINE_FORN 50 STRING F_DESCRFINE_FORN 50
BEGIN BEGIN
PROMPT 4 9 "Ragione Sociale " PROMPT 4 9 "Ragione Sociale "
HELP "Codice conto a cui terminare la stampa"
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT TIPOCF "F" INPUT TIPOCF "F"
@ -426,31 +446,37 @@ END
DATE F_DATAINI DATE F_DATAINI
BEGIN BEGIN
PROMPT 26 11 "" PROMPT 26 11 ""
HELP "Data da cui iniziare la stampa"
END END
DATE F_DATAFINE DATE F_DATAFINE
BEGIN BEGIN
PROMPT 62 11 "" PROMPT 62 11 ""
HELP "Data a cui terminare la stampa"
END END
BOOLEAN F_STAMPATOTIVA BOOLEAN F_STAMPATOTIVA
BEGIN BEGIN
PROMPT 4 12 "Stampa totali documenti IVA" PROMPT 4 12 "Stampa totali documenti IVA"
HELP "Inidcare se stampare un totale per ogni tipo di doc. IVA"
END END
BOOLEAN F_STAMPAPROGRE BOOLEAN F_STAMPAPROGRE
BEGIN BEGIN
PROMPT 44 12 "Stampa progressivi attuali" PROMPT 44 12 "Stampa progressivi attuali"
HELP "Indcare se stampare dati attuali a fondo pagina"
END END
BOOLEAN F_STAMPAMOVPROV BOOLEAN F_STAMPAMOVPROV
BEGIN BEGIN
PROMPT 4 13 "Stampa movimenti provvisori" PROMPT 4 13 "Stampa movimenti provvisori"
HELP "Indicare se stampare movimenti provvisori"
END END
LIST F_STAMPANUM 15 LIST F_STAMPANUM 15
BEGIN BEGIN
PROMPT 4 15 "Stampa numerazione " PROMPT 4 15 "Stampa numerazione "
HELP "Indicare il tipo di numerazione da stampare"
ITEM "1|Operazione" ITEM "1|Operazione"
ITEM "2|Riga giornale" ITEM "2|Riga giornale"
ITEM "3|Nessuna" ITEM "3|Nessuna"
@ -459,6 +485,7 @@ END
LIST F_TIPOSTAMPA 34 LIST F_TIPOSTAMPA 34
BEGIN BEGIN
PROMPT 4 16 "Tipo stampa " PROMPT 4 16 "Tipo stampa "
HELP "Indicare il tipo di stampa da ottenere"
ITEM "1|Mastrini movimentati nel periodo" ITEM "1|Mastrini movimentati nel periodo"
ITEM "2|Mastrini con saldi diversi da 0" ITEM "2|Mastrini con saldi diversi da 0"
ITEM "3|Completa" ITEM "3|Completa"
@ -468,6 +495,7 @@ END
BOOLEAN F_MEMORIZZA BOOLEAN F_MEMORIZZA
BEGIN BEGIN
PROMPT 4 17 "Memorizza scelte" PROMPT 4 17 "Memorizza scelte"
HELP "Indicare se riproporre le scelte effettuate"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
@ -487,6 +515,7 @@ PAGE "Stampa Mastrini" -1 -1 60 10
LIST F_NUMCARAT 10 LIST F_NUMCARAT 10
BEGIN BEGIN
PROMPT 4 2 "Numero caratteri " PROMPT 4 2 "Numero caratteri "
HELP "Indicare il numero di caratteri del foglio di stampa (larghezza)"
ITEM "1|132 crt." ITEM "1|132 crt."
ITEM "2|198 crt." ITEM "2|198 crt."
END END
@ -494,6 +523,7 @@ END
LIST F_FORMATO 23 LIST F_FORMATO 23
BEGIN BEGIN
PROMPT 4 4 "Formato modulo di stampa " PROMPT 4 4 "Formato modulo di stampa "
HELP "Indicare l'altezza del modulo di stampa"
ITEM "66|11 pollici (27,94 cm)" ITEM "66|11 pollici (27,94 cm)"
ITEM "72|12 pollici (30,48 cm)" ITEM "72|12 pollici (30,48 cm)"
END END
@ -501,6 +531,7 @@ END
LIST F_NUMMAST 5 LIST F_NUMMAST 5
BEGIN BEGIN
PROMPT 4 6 "Numero mastrini per pagina " PROMPT 4 6 "Numero mastrini per pagina "
HELP "Indicare il numero di mastrini contenuti in una pagina"
ITEM "1|Uno" ITEM "1|Uno"
ITEM "2|Due" ITEM "2|Due"
END END

25
cg/cg3300a.uml
View File

@ -9,21 +9,21 @@ PAGE "" -1 -1 65 19
DATE F_DATA_STAMPA DATE F_DATA_STAMPA
BEGIN BEGIN
PROMPT 2 1 "Data " PROMPT 2 1 "Data "
HELP "Inserire la data" HELP "Data in cui viene fatta la stampa"
FLAGS "A" FLAGS "A"
END END
NUMBER F_ANNO_STAMPA 4 NUMBER F_ANNO_STAMPA 4
BEGIN BEGIN
PROMPT 30 1 "Anno di stampa " PROMPT 30 1 "Anno di stampa "
HELP "Inserire l'anno" HELP "Anno di cui stampare gli allegati"
FLAGS "A" FLAGS "A"
END END
RADIOBUTTON F_MODO_STAMPA 25 RADIOBUTTON F_MODO_STAMPA 25
BEGIN BEGIN
PROMPT 2 3 "Destinazione" PROMPT 2 3 "Destinazione"
HELP "Abilita stampe di controllo" HELP "Indicare funzione della stampa"
ITEM "1|Stampa su modulo" ITEM "1|Stampa su modulo"
MESSAGE DISABLE,F_TRONC|DISABLE,F_ARROT|HIDE,F_STAMPA_TUTTI MESSAGE DISABLE,F_TRONC|DISABLE,F_ARROT|HIDE,F_STAMPA_TUTTI
MESSAGE SHOW,F_TIPO_STAMPA MESSAGE SHOW,F_TIPO_STAMPA
@ -40,7 +40,7 @@ END
RADIOBUTTON F_TIPO_STAMPA 28 RADIOBUTTON F_TIPO_STAMPA 28
BEGIN BEGIN
PROMPT 31 3 "Tipo di stampa " PROMPT 31 3 "Tipo di stampa "
HELP "Scegliere il tipo di stampa desiderata" HELP "Indicare il tipo di stampa desiderata"
ITEM "1|Clienti" ITEM "1|Clienti"
MESSAGE SHOW,F_ANNO_PREC MESSAGE SHOW,F_ANNO_PREC
ITEM "2|Fornitori" ITEM "2|Fornitori"
@ -73,32 +73,32 @@ END
BOOLEAN F_STAMPA_TUTTI BOOLEAN F_STAMPA_TUTTI
BEGIN BEGIN
PROMPT 2 9 "Stampa tutti i clienti/fornitori movimentati" PROMPT 2 9 "Stampa tutti i clienti/fornitori movimentati"
HELP "Se disabilitato stampa solo i clienti/fornitori che vanno in allegati" HELP "Se disabilitato stampa solo i clienti/fornitori che vanno in allegato"
FLAGS "H" FLAGS "H"
END END
BOOLEAN F_TRONC BOOLEAN F_TRONC
BEGIN BEGIN
PROMPT 2 10 "Importi non troncati " PROMPT 2 10 "Importi non troncati "
HELP "Indicare se si desidera eliminare gli zeri delle migliaia" HELP "Indicare se eliminare gli zeri delle migliaia"
END END
BOOLEAN F_ARROT BOOLEAN F_ARROT
BEGIN BEGIN
PROMPT 2 11 "Importi non arrotondati " PROMPT 2 11 "Importi non arrotondati "
HELP "Indicare se si desidera che vengano arrotondati gli importi" HELP "Indicare se vengano arrotondati gli importi"
END END
BOOLEAN F_ANNO_PREC BOOLEAN F_ANNO_PREC
BEGIN BEGIN
PROMPT 31 10 "Estratto anno precedente " PROMPT 31 10 "Estratto anno precedente "
HELP "Indicare se si desidera solo il saldo dell'anno precedente" HELP "Indicare se stamapre solo il saldo dell'anno precedente"
END END
BOOLEAN F_ATTIVITA BOOLEAN F_ATTIVITA
BEGIN BEGIN
PROMPT 31 11 "Elenco distinto per attivita'" PROMPT 31 11 "Elenco distinto per attivita'"
HELP "Indicare se si desidera un elenco diviso per attivita'. Se disabilitato il programma stampa un elenco attribuendo tutto all'attivita' prevalente" HELP "Indicare se stampare un elenco diviso per attivita'"
END END
STRING F_RICERCA_ATT 5 STRING F_RICERCA_ATT 5
@ -115,13 +115,13 @@ END
BOOLEAN F_RICALCOLA BOOLEAN F_RICALCOLA
BEGIN BEGIN
PROMPT 46 13 "Ricalcola " PROMPT 46 13 "Ricalcola "
HELP "Se attivato ricalcola ogni ditta prima di stampare" HELP "Indicare se ricalcolare ogni ditta prima di stampare"
END END
STRING F_DA_DITTA 5 STRING F_DA_DITTA 5
BEGIN BEGIN
PROMPT 1 14 "Da ditta " PROMPT 1 14 "Da ditta "
HELP "Indicare la ditta di partenza della stampa. Se in bianco vuol dire dalla prima" HELP "Ditta di partenza della stampa: vuoto = inizio archivio"
FLAGS "R" FLAGS "R"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_DA_DITTA INPUT CODDITTA F_DA_DITTA
@ -133,7 +133,7 @@ END
STRING F_A_DITTA 5 STRING F_A_DITTA 5
BEGIN BEGIN
PROMPT 22 14 "A ditta " PROMPT 22 14 "A ditta "
HELP "Indicare l'ultima ditta da stampare. Se in bianco vuol dire fino all'ultima" HELP "Ultima ditta da stampare: vuoto = fine archivio"
FLAGS "R" FLAGS "R"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_A_DITTA INPUT CODDITTA F_A_DITTA
@ -156,4 +156,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2
cg/cg3300b.uml
View File

@ -10,7 +10,7 @@ PAGE "" -1 -1 27 6
NUMBER F_ANNO_RICALCOLA 4 NUMBER F_ANNO_RICALCOLA 4
BEGIN BEGIN
PROMPT 2 1 "Anno: " PROMPT 2 1 "Anno: "
HELP "Inserire l'anno di dichiarazione" HELP "Anno di cui stampare la dichiarazione"
FLAGS "A" FLAGS "A"
END END

17
cg/cg3300c.uml
View File

@ -9,21 +9,21 @@ PAGE "Stampa su disco" -1 -1 65 16
DATE F_DATA_STAMPA DATE F_DATA_STAMPA
BEGIN BEGIN
PROMPT 2 1 "Data " PROMPT 2 1 "Data "
HELP "Inserire la data" HELP "Data in cui effettuare la stampa"
FLAGS "A" FLAGS "A"
END END
NUMBER F_ANNO_STAMPA 4 NUMBER F_ANNO_STAMPA 4
BEGIN BEGIN
PROMPT 30 1 "Anno di stampa " PROMPT 30 1 "Anno di stampa "
HELP "Inserire l'anno" HELP "Anno di cui effettuare la stampa"
FLAGS "A" FLAGS "A"
END END
RADIOBUTTON F_TIPO_STAMPA2 20 RADIOBUTTON F_TIPO_STAMPA2 20
BEGIN BEGIN
PROMPT 2 3 "Tipo di stampa " PROMPT 2 3 "Tipo di stampa "
HELP "Scegliere il tipo di stampa desiderata" HELP "Indicare arhcivio da stampare"
ITEM "1|Clienti" ITEM "1|Clienti"
MESSAGE SHOW,F_ANNO_PREC MESSAGE SHOW,F_ANNO_PREC
ITEM "2|Fornitori" ITEM "2|Fornitori"
@ -41,13 +41,13 @@ END
BOOLEAN F_ANNO_PREC BOOLEAN F_ANNO_PREC
BEGIN BEGIN
PROMPT 30 5 "Estratto anno precedente " PROMPT 30 5 "Estratto anno precedente "
HELP "Indicare se si desidera solo il saldo dell'anno precedente" HELP "Indicare se stampare solo il saldo dell'anno precedente"
END END
BOOLEAN F_ATTIVITA BOOLEAN F_ATTIVITA
BEGIN BEGIN
PROMPT 30 6 "Elenco distinto per attivita'" PROMPT 30 6 "Elenco distinto per attivita'"
HELP "Indicare se si desidera un elenco diviso per attivita'. Se disabilitato il programma stampa un elenco attribuendo tutto all'attivita' prevalente" HELP "Indicare se stampare un elenco diviso per attivita'"
END END
STRING F_RICERCA_ATT 5 STRING F_RICERCA_ATT 5
@ -64,13 +64,13 @@ END
BOOLEAN F_RICALCOLA BOOLEAN F_RICALCOLA
BEGIN BEGIN
PROMPT 46 9 "Ricalcola " PROMPT 46 9 "Ricalcola "
HELP "Se attivato ricalcola ogni ditta prima di stampare" HELP "Indicare se ricalcolare ogni ditta prima di stampare"
END END
STRING F_DA_DITTA 5 STRING F_DA_DITTA 5
BEGIN BEGIN
PROMPT 2 11 "Da ditta " PROMPT 2 11 "Da ditta "
HELP "Indicare la ditta di partenza della stampa. Se in bianco vuol dire dalla prima" HELP "Ditta di partenza della stampa. vuoto = prima"
FLAGS "R" FLAGS "R"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_DA_DITTA INPUT CODDITTA F_DA_DITTA
@ -82,7 +82,7 @@ END
STRING F_A_DITTA 5 STRING F_A_DITTA 5
BEGIN BEGIN
PROMPT 23 11 "A ditta " PROMPT 23 11 "A ditta "
HELP "Indicare l'ultima ditta da stampare. Se in bianco vuol dire fino all'ultima" HELP "Ultima ditta da stampare. vuoto = ultima"
FLAGS "R" FLAGS "R"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_A_DITTA INPUT CODDITTA F_A_DITTA
@ -105,4 +105,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

10
cg/cg3400a.uml
View File

@ -5,6 +5,7 @@ PAGE "Stampa Libro Giornale" -1 -1 70 15
STRING CODREG 3 STRING CODREG 3
BEGIN BEGIN
PROMPT 1 1 "Codice registro " PROMPT 1 1 "Codice registro "
HELP "Codice del libro giornale da stampare"
USE REG SELECT (I0 = 5) || (I0 = 4) USE REG SELECT (I0 = 5) || (I0 = 4)
// INPUT CODTAB[1,4] ANNO_ESER // INPUT CODTAB[1,4] ANNO_ESER
INPUT CODTAB[5,7] CODREG INPUT CODTAB[5,7] CODREG
@ -51,6 +52,7 @@ END
RADIOBUTTON DLG_NULL 20 RADIOBUTTON DLG_NULL 20
BEGIN BEGIN
PROMPT 1 5 "" PROMPT 1 5 ""
HELP "Indicare l'intervallo di pagine da stampare"
ITEM "1|Tutto" MESSAGE DISABLE, PAGINA_DA ITEM "1|Tutto" MESSAGE DISABLE, PAGINA_DA
ITEM "2|Da pagina" MESSAGE ENABLE, PAGINA_DA ITEM "2|Da pagina" MESSAGE ENABLE, PAGINA_DA
END END
@ -58,8 +60,10 @@ END
NUMBER PAGINA_DA 5 NUMBER PAGINA_DA 5
BEGIN BEGIN
PROMPT 13 8 "" PROMPT 13 8 ""
HEL‡P "Numero di pagina da cui iniziare la stampa"
END END
GROUPBOX DLG_NULL 33 5 GROUPBOX DLG_NULL 33 5
BEGIN BEGIN
PROMPT 33 5 "Formato pagina" PROMPT 33 5 "Formato pagina"
@ -68,6 +72,7 @@ END
LISTBOX STAMPA_WIDTH 3 LISTBOX STAMPA_WIDTH 3
BEGIN BEGIN
PROMPT 35 6 "Numero di colonne " PROMPT 35 6 "Numero di colonne "
HELP "Numero di colonne del modulo di stampa (larghezza)"
ITEM "1|132 colonne" ITEM "1|132 colonne"
ITEM "2|198 colonne" ITEM "2|198 colonne"
END END
@ -75,16 +80,19 @@ END
NUMBER STAMPA_LEN 3 NUMBER STAMPA_LEN 3
BEGIN BEGIN
PROMPT 35 7 "Numero di righe " PROMPT 35 7 "Numero di righe "
HELP "Numero di righe del modulo di stampa (altezza)"
END END
DATE DATA_DA DATE DATA_DA
BEGIN BEGIN
PROMPT 2 10 "Dalla data " PROMPT 2 10 "Dalla data "
HELP "Data da cui iniziare la stampa"
END END
DATE DATA_A DATE DATA_A
BEGIN BEGIN
PROMPT 2 11 "Alla data " PROMPT 2 11 "Alla data "
HELP "Data a cui terminare la stampa"
// VALIDATE DATE_CMP_FUNC >= DATA_DA // VALIDATE DATE_CMP_FUNC >= DATA_DA
WARNING "Specificare la data di fine stampa" WARNING "Specificare la data di fine stampa"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -93,6 +101,7 @@ END
BOOLEAN STAMPA_DEF BOOLEAN STAMPA_DEF
BEGIN BEGIN
PROMPT 34 10 "Stampa definitiva" PROMPT 34 10 "Stampa definitiva"
HELP "Indicare se stampare su bollato"
MESSAGE TRUE DISABLE,DATA_DA | CLEAR, DATA_DA MESSAGE TRUE DISABLE,DATA_DA | CLEAR, DATA_DA
MESSAGE FALSE ENABLE,DATA_DA MESSAGE FALSE ENABLE,DATA_DA
END END
@ -111,4 +120,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

7
cg/cg3400b.uml
View File

@ -21,17 +21,17 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_OK 9 3 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 7 "" PROMPT -13 7 ""
END END
BUTTON DLG_CANCEL 9 3 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -23 7 "" PROMPT -23 7 ""
END END
BUTTON DLG_RIPRISTINA 10 3 BUTTON DLG_RIPRISTINA 10 2
BEGIN BEGIN
PROMPT -33 7 "Ripristina" PROMPT -33 7 "Ripristina"
END END
@ -39,4 +39,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

11
cg/cg3500a.uml
View File

@ -24,12 +24,14 @@ END
DATE F_DATASTAMPA DATE F_DATASTAMPA
BEGIN BEGIN
PROMPT 43 1 "Data di stampa " PROMPT 43 1 "Data di stampa "
HELP "Data in cui effettuare la stampa"
FLAGS "A" FLAGS "A"
END END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 2 3 "Anno esercizio " PROMPT 2 3 "Anno esercizio "
HELP "Anno d'esercizio di cui effettuare la stampa"
FLAGS "RZ" FLAGS "RZ"
USE ESC USE ESC
INPUT CODTAB F_ANNO INPUT CODTAB F_ANNO
@ -44,6 +46,7 @@ END
RADIOBUTTON F_STAMPA 26 RADIOBUTTON F_STAMPA 26
BEGIN BEGIN
PROMPT 2 5 "Scelta stampa " PROMPT 2 5 "Scelta stampa "
HELP "Indicare il grado di riepilogo"
ITEM "1|Stampa riepilogo conti" ITEM "1|Stampa riepilogo conti"
ITEM "2|Stampa riepilogo gruppi" ITEM "2|Stampa riepilogo gruppi"
END END
@ -51,6 +54,7 @@ END
RADIOBUTTON F_RICHIESTA 40 RADIOBUTTON F_RICHIESTA 40
BEGIN BEGIN
PROMPT 2 9 "Richiesta stampa " PROMPT 2 9 "Richiesta stampa "
HELP "Indicare il tipo di movimenti da stampare"
ITEM "1|Stampa progressivi attuali" ITEM "1|Stampa progressivi attuali"
ITEM "2|Stampa progressivi movimenti eliminati" ITEM "2|Stampa progressivi movimenti eliminati"
END END
@ -68,10 +72,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

162
cg/cg5300a.uml
View File

@ -9,82 +9,82 @@ PAGE "Parametri liquidazione" -1 -1 78 15
GROUPBOX DLG_NULL 71 3 GROUPBOX DLG_NULL 71 3
BEGIN BEGIN
PROMPT 4 0 "Ditta" PROMPT 4 0 "Ditta"
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 6 1 "Codice " PROMPT 6 1 "Codice "
FLAGS "DFGR" FLAGS "DFGR"
USE LF_NDITTE USE LF_NDITTE
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 20 1 "" PROMPT 20 1 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_YEAR 4 NUMBER F_YEAR 4
BEGIN BEGIN
PROMPT 6 3 "Anno " PROMPT 6 3 "Anno "
FIELD LIA->CODTAB FIELD LIA->CODTAB
USE LIA USE LIA
INPUT CODTAB F_YEAR INPUT CODTAB F_YEAR
DISPLAY "Anno@40" CODTAB DISPLAY "Anno@40" CODTAB
DISPLAY "@2" S0 DISPLAY "@2" S0
OUTPUT F_YEAR CODTAB OUTPUT F_YEAR CODTAB
KEY 1 KEY 1
FLAGS "RZ" FLAGS "RZ"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD NONE ADD NONE
END END
GROUPBOX DLG_NULL 71 5 GROUPBOX DLG_NULL 71 5
BEGIN BEGIN
PROMPT 4 4 "Parametri ditta" PROMPT 4 4 "Parametri ditta"
END END
LIST F_FREQ_VERS 14 LIST F_FREQ_VERS 14
BEGIN BEGIN
PROMPT 6 5 "Frequenza versamenti " PROMPT 6 5 "Frequenza versamenti "
ITEM "M|Mensile" ITEM "M|Mensile"
ITEM "T|Trimestrale" ITEM "T|Trimestrale"
FIELD LIA->S7 FIELD LIA->S7
END END
NUMBER F_CRED_PREC 15 0 NUMBER F_CRED_PREC 15 0
BEGIN BEGIN
PROMPT 6 6 "Credito precedente " PROMPT 6 6 "Credito precedente "
FIELD LIA->R0 FIELD LIA->R0
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
NUMBER F_CRED_COST 15 0 NUMBER F_CRED_COST 15 0
BEGIN BEGIN
PROMPT 6 7 "Credito di costo " PROMPT 6 7 "Credito di costo "
FIELD LIA->R5 FIELD LIA->R5
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
SPREADSHEET F_SHEET_PLA 78 6 SPREADSHEET F_SHEET_PLA 78 6
BEGIN BEGIN
PROMPT 1 10 "Parametri attivita'" PROMPT 1 10 "Parametri attivita'"
ITEM "Attivita'@5" ITEM "Attivita'@5"
ITEM "Tipo@1" ITEM "Tipo@1"
ITEM "% Pro-rata@6" ITEM "% Pro-rata@6"
ITEM "Plafond art.8@15" ITEM "Plafond art.8@15"
ITEM "Plafond art.8b@15" ITEM "Plafond art.8b@15"
ITEM "Plafond art.9@15" ITEM "Plafond art.9@15"
END END
ENDPAGE ENDPAGE
@ -94,80 +94,82 @@ PAGE "" -1 -1 65 16
NUMBER F_CODATT 5 NUMBER F_CODATT 5
BEGIN BEGIN
PROMPT 4 1 "Codice Attivita' " PROMPT 4 1 "Codice Attivita' "
FLAGS "DZG" FLAGS "DZG"
USE %AIS USE %AIS
INPUT CODTAB F_CODATT INPUT CODTAB F_CODATT
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODATT CODTAB OUTPUT F_CODATT CODTAB
OUTPUT F_DESATT S0 OUTPUT F_DESATT S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_DESATT 50 30 STRING F_DESATT 50 30
BEGIN BEGIN
PROMPT 31 1 "" PROMPT 31 1 ""
FLAGS "D" FLAGS "D"
END END
LIST F_TIPOATT 26 LIST F_TIPOATT 26
BEGIN BEGIN
PROMPT 4 3 "Tipo " PROMPT 4 3 "Tipo "
FLAGS "U" FLAGS "U"
ITEM " |Altre" ITEM " |Altre"
ITEM "M|Mista" ITEM "M|Mista"
ITEM "E|Mista evidenziata" ITEM "E|Mista evidenziata"
ITEM "S|Servizio o mista generica" ITEM "S|Servizio o mista generica"
END END
NUMBER F_PRORATA 6 2 NUMBER F_PRORATA 6 2
BEGIN BEGIN
PROMPT 4 5 "% Pro-Rata " PROMPT 4 5 "% Pro-Rata "
PICTURE ".2" PICTURE ".2"
FLAGS "R" NUM_EXPR {(#F_PRORATA>=0.0)&&(#F_PRORATA<=100.0)}
GROUP 1 WARNING "La percentuale deve essere compresa tra 0 e 100"
FLAGS "R"
GROUP 1
END END
NUMBER F_P8 15 NUMBER F_P8 15
BEGIN BEGIN
PROMPT 4 7 "Plafond art. 8 " PROMPT 4 7 "Plafond art. 8 "
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
GROUP 1 GROUP 1
END END
NUMBER F_P8B 15 NUMBER F_P8B 15
BEGIN BEGIN
PROMPT 4 9 "Plafond art. 8b " PROMPT 4 9 "Plafond art. 8b "
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
GROUP 1 GROUP 1
END END
NUMBER F_P9 15 NUMBER F_P9 15
BEGIN BEGIN
PROMPT 4 11 "Plafond art. 9 " PROMPT 4 11 "Plafond art. 9 "
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
GROUP 1 GROUP 1
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_NULL 9 2 BUTTON DLG_NULL 9 2
BEGIN BEGIN
PROMPT -33 -1 "Azzera" PROMPT -33 -1 "Azzera"
MESSAGE RESET,1@ MESSAGE RESET,1@
END END
ENDPAGE ENDPAGE

10
cg/conto.cpp
View File

@ -182,15 +182,15 @@ bool TBill::read(TRectype &r)
int TBill::tipo_att() int TBill::tipo_att()
{ {
int tipo_att = 1; int tipo_att = 1;
if (tipo() == ' ' && ok()) if (tipo() <= ' ' && ok())
{ {
TBill bill(gruppo(), conto()); TBill bill(gruppo(), conto());
TRectype conto(LF_PCON); bill.read(conto); TRectype rec(LF_PCON); bill.read(rec);
const TIndbil ib = (TIndbil)conto.get_int("INDBIL"); const TIndbil ib = (TIndbil)rec.get_int("INDBIL");
if (ib == ib_passivita || ib == ib_ricavi) if (ib == ib_passivita || ib == ib_ricavi)
{ {
read(conto); read(rec);
const int ricser = conto.get_int("RICSER"); const int ricser = rec.get_int("RICSER");
tipo_att = (ricser == 0) ? 2 : 1; tipo_att = (ricser == 0) ? 2 : 1;
} }
} }