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

Correzione errori prima nota e causali

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@608 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-14 09:59:19 +00:00
parent 9a9d1b349e
commit 26384cd733
8 changed files with 334 additions and 264 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cg/cg0500.cpp
View File

@ -497,24 +497,23 @@ bool TCaus_app::ss_notify(int r, KEY k)
{
TToken_string &riga = app().ss().row(r);
const int g = riga.get_int(3);
if (g == 0) // riga azzerata
if (g == 0) // riga azzerata
app().clear(r); // pulisco la riga anche nell'array
}
return TRUE;
}
bool TCaus_app::sezione_hndl (TMask_field& f, KEY k)
// Handler della sezione D/A: e' obbligatoria se si specifica un gruppo sulla riga
bool TCaus_app::sezione_hndl(TMask_field& f, KEY k)
{
if (k == K_ENTER)
{
if (f.mask().get(SS_GRUPPO).not_empty())
{
if (f.get().empty())
{
const int riga = app().ss().selected();
if (riga == 0 || riga == 8)
return f.error_box("E' necessario specificare la sezione D/A");
}
const char sez = f.get()[0];
if (sez != 'A' && sez != 'D')
return f.error_box("E' necessario specificare la sezione D/A");
}
else
f.reset();

500
cg/cg0500b.uml
View File

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

3
cg/cg2100a.uml
View File

@ -65,8 +65,9 @@ END
DATE F_DATACOMP
BEGIN
PROMPT 1 7 "Data di competenza "
HELP "Data di competenza dell'operazione"
CHECKTYPE REQUIRED
WARNING "Data di competenza dell'operazione"
WARNING "La data di competenza non appartiene all'esercizio"
FLAGS "A"
END

30
cg/cg2100c.uml
View File

@ -65,6 +65,7 @@ END
DATE F_DATAREG
BEGIN
PROMPT 1 3 "Data operazione "
HELP "Data in cui viene registrata l'operazione"
FIELD LF_MOV->DATAREG
MESSAGE COPY,H_DATAREG|COPY,F_DATA74TER|COPY,F_ANNOIVA,7,10
END
@ -72,6 +73,7 @@ END
DATE F_DATACOMP
BEGIN
PROMPT 1 4 "Data competenza "
HELP "Data di competenza dell'operazione"
FIELD LF_MOV->DATACOMP
END
@ -79,7 +81,7 @@ DATE F_DATADOC
BEGIN
PROMPT 1 5 "Data documento "
FIELD LF_MOV->DATADOC
HELP "Specificare la data del documento (non superiore alla data dell'operazione)"
HELP "Data del documento che ha generato il movimento"
WARNING "Inserire una data documento non superiore alla data dell'operazione"
VALIDATE DATE_CMP_FUNC <= F_DATAREG
END
@ -109,6 +111,7 @@ END
STRING F_NUMDOC 7
BEGIN
PROMPT 57 5 "Documento n. "
HELP "Numero del documento che ha generato il movimento"
FIELD LF_MOV->NUMDOC
WARNING "La causale impone di specificare il numero documento"
END
@ -116,6 +119,7 @@ END
STRING F_DESCAGG 5
BEGIN
PROMPT 1 6 "Descrizione "
HELP "Codice della descrizione del movimento"
FLAGS "U"
USE %DPN
INPUT CODTAB F_DESCAGG
@ -130,6 +134,7 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 25 6 ""
HELP "Descrizione del movimento"
FIELD LF_MOV->DESCR
USE %DPN KEY 2
INPUT S0 F_DESCR
@ -141,6 +146,7 @@ END
LIST F_PROVVISORIO 1 25
BEGIN
PROMPT 1 7 "Movimento provvisorio "
HELP "Indicare se si tratta di movimento provvisorio"
FIELD PROVVIS
ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)"
@ -150,11 +156,13 @@ END
BOOLEAN F_SOLAIVA
BEGIN
PROMPT 54 7 "Movimento di sola IVA"
HELP "Indicare se non vi sono righe di contabilita'"
END
STRING F_CODCAUS 3
BEGIN
PROMPT 1 8 "Causale "
HELP "Codice della causale generante l'operazione"
FLAGS "U"
FIELD LF_MOV->CODCAUS
USE LF_CAUSALI SELECT REG!=""
@ -175,6 +183,7 @@ END
STRING F_DESCRCAUS 50
BEGIN
PROMPT 25 8 ""
HELP "Descrizione della causale generante l'operazione"
USE LF_CAUSALI KEY 2 SELECT REG!=""
INPUT DESCR F_DESCRCAUS
DISPLAY "Descrizione@50" DESCR
@ -197,12 +206,14 @@ END
NUMBER F_PROTIVA 5
BEGIN
PROMPT 27 9 "Protocollo IVA "
HELP "Numero progressivo di protocollo IVA"
FIELD LF_MOV->PROTIVA
END
NUMBER F_RIEPILOGO 5
BEGIN
PROMPT 51 9 "Riepilogo fino al n. "
HELP "Numero finale del documento ripilogativo di protocollo IVA"
FIELD LF_MOV->UPROTIVA
NUM_EXPR {(#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)}
WARNING "Inserire un riepilogo non inferiore al protocollo IVA (Obbigatorio se il cliete/fornitore ha codice inserimento in allegati uguale a 3)"
@ -218,6 +229,7 @@ END
NUMBER F_CLIENTE 6
BEGIN
PROMPT 1 10 "Cliente "
HELP "Codice del cliente del documento"
FIELD LF_MOV->CODCF
GROUP 1
USE LF_CLIFO KEY 1
@ -247,6 +259,7 @@ END
NUMBER F_FORNITORE 6
BEGIN
PROMPT 1 10 "Fornitore "
HELP "Codice del fornitore del documento"
FIELD LF_MOV->CODCF
GROUP 2
USE LF_CLIFO KEY 1
@ -276,6 +289,7 @@ END
STRING F_RAGSOCFORNITORE 50
BEGIN
PROMPT 25 10 ""
HELP "Ragione sociale del fornitore del documento"
GROUP 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
@ -291,6 +305,7 @@ END
STRING F_RAGSOCCLIENTE 50
BEGIN
PROMPT 25 10 ""
HELP "Ragione sociale del cliente del documento"
GROUP 1
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
@ -306,6 +321,7 @@ END
STRING F_PIVACLIENTE 14
BEGIN
PROMPT 1 11 "Partita IVA "
HELP "Partita IVA del cliente del documento"
GROUP 1
USE LF_CLIFO KEY 5
INPUT TIPOCF "C"
@ -322,6 +338,7 @@ END
STRING F_PIVAFORNITORE 14
BEGIN
PROMPT 1 11 "Partita IVA "
HELP "Partita IVA del fornitore del documento"
GROUP 2
USE LF_CLIFO KEY 5
INPUT TIPOCF "F"
@ -369,6 +386,7 @@ END
STRING F_CODPAG 4
BEGIN
PROMPT 60 11 "Pagamento "
HELP "Codice del pagamento concordato per il movimento"
FIELD CODPAG
FLAGS "U"
USE %CPG
@ -383,6 +401,7 @@ END
STRING F_VALUTA 3
BEGIN
PROMPT 1 12 "Valuta "
HELP "Codice della valuta per operazione con l'estero"
FIELD LF_MOV->CODVAL
FLAGS "U"
GROUP 3
@ -401,6 +420,7 @@ END
NUMBER F_CAMBIO 12 5
BEGIN
PROMPT 20 12 "Cambio "
HELP "Cambio della valuta per operazione con l'estero"
FIELD LF_MOV->CAMBIO
FLAGS "RU"
GROUP 3
@ -410,12 +430,14 @@ END
BOOLEAN F_VISVAL
BEGIN
PROMPT 47 12 "Visualizza importi in valuta"
HELP "Indicare se visualizzare gli importi in valuta (non in Lit.)"
GROUP 3
END
NUMBER F_TOTALE 15
BEGIN
PROMPT 1 13 "Totale documento "
HELP "Totale del documento generante il movimento"
FIELD TOTDOC
FLAGS "RV"
PICTURE "."
@ -424,6 +446,7 @@ END
NUMBER F_RITFIS 15
BEGIN
PROMPT 1 14 "Ritenute fiscali "
HELP "Ritenute fiscali del documento generante il movimento"
FIELD RITFIS
FLAGS "RV"
PICTURE "."
@ -432,6 +455,7 @@ END
NUMBER F_RITSOC 15
BEGIN
PROMPT 1 15 "Ritenute sociali "
HELP "Ritenute fiscali del documento generante il movimento"
FIELD LF_MOV->RITSOC
FLAGS "RV"
PICTURE "."
@ -440,6 +464,7 @@ END
STRING F_CODIVA 4
BEGIN
PROMPT 60 13 "Codice IVA "
HELP "Codice IVA del documento generante il movimento"
FLAGS "U"
USE %IVA
INPUT CODTAB F_CODIVA
@ -455,6 +480,7 @@ END
DATE F_DATA74TER
BEGIN
PROMPT 54 14 "Data 74/ter "
HELP "Data per aliquota IVA ex art.74 ter"
CHECKTYPE REQUIRED
FIELD DATA74TER
END
@ -477,6 +503,7 @@ END
NUMBER F_CORRLIRE 15
BEGIN
PROMPT 1 16 "Corrispettivo Lire "
HELP "Corrispettivo in Lit. per operazioni intracomunitarie"
FIELD LF_MOV->CORRLIRE
FLAGS "R"
PICTURE "."
@ -485,6 +512,7 @@ END
NUMBER F_CORRVALUTA 15
BEGIN
PROMPT 45 16 "Corrisp. valuta "
HELP "Corrispettivo in valuta per operazioni intracomunitarie"
FIELD LF_MOV->CORRVALUTA
FLAGS "R"
PICTURE "."

8
cg/cg2100i.uml
View File

@ -5,6 +5,7 @@ PAGE "Movimento di incasso immediato" -1 -1 75 13
DATE F_DATAREG
BEGIN
PROMPT 1 1 "Data di registrazione "
HELP "Data in cui viene registrata l'operazione"
FIELD LF_MOV->DATAREG
CHECKTYPE REQUIRED
MESSAGE COPY,F_ANNOIVA,7,10
@ -19,6 +20,7 @@ END
NUMBER F_NUMREG 6
BEGIN
PROMPT 52 1 "Operazione n. "
HELP "Numero del movimento di prima nota da gestire"
FIELD LF_MOV->NUMREG
CHECKTYPE REQUIRED
FLAGS "D"
@ -28,10 +30,13 @@ END
DATE F_DATACOMP
BEGIN
PROMPT 1 2 "Data di competenza "
HELP "Data di competenza dell'operazione"
FIELD LF_MOV->DATACOMP
CHECKTYPE REQUIRED
END
// ANDREA E' ARRIVATO FINO A QUESTO PUNTO
NUMBER F_ANNOES 4
BEGIN
PROMPT 52 2 "Esercizio "
@ -139,6 +144,7 @@ BEGIN
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
OUTPUT F_CLIENTE CODCF
CHECKTYPE REQUIRED
ADD RUN cg0 -1 C
WARNING "Cliente assente"
END
@ -153,6 +159,7 @@ BEGIN
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
OUTPUT F_FORNITORE CODCF
CHECKTYPE REQUIRED
ADD RUN cg0 -1 F
WARNING "Fornitore assente"
END
@ -172,6 +179,7 @@ BEGIN
OUTPUT F_CONTOCLIFO CONTO
CHECKTYPE REQUIRED
WARNING "Sottoconto assente"
ADD RUN cg0 -0
END
LIST I_SEZIONE2 1 8

4
cg/cg2102.cpp
View File

@ -1157,7 +1157,7 @@ bool TPrimanota_application::datareg_handler(TMask_field& f, KEY key)
f.error_box("La data dell'operazione e' antecedente al %s,\n"
"ultima stampa del libro giornale dell'esercizio %d",
gio.last_reg().string(), ae);
if (m.insert_mode()) return FALSE;
if (!m.edit_mode()) return FALSE;
}
if (dr < gio.last_reg())
f.warning_box("La data dell'operazione e' antecedente al %s,\n"
@ -1193,7 +1193,7 @@ bool TPrimanota_application::datareg_handler(TMask_field& f, KEY key)
f.error_box("La data dell'operazione e' antecedente al %s,\n"
"ultima stampa del registro '%s' dell'anno %d",
reg.last_print().string(), (const char*)codreg, dr.year());
if (m.insert_mode()) return FALSE;
if (!m.edit_mode()) return FALSE;
}
if (dr < reg.last_reg())
f.warning_box("La data dell'operazione e' antecedente al %s,\n"

23
cg/cg21cg.uml
View File

@ -8,6 +8,7 @@ END
STRING 108 5
BEGIN
PROMPT 2 2 ""
HELP "Codice della descrizione aggiuntiva di riga"
FLAGS "U"
USE %DPN
DISPLAY "Codice" CODTAB
@ -20,6 +21,7 @@ END
STRING 109 50
BEGIN
PROMPT 14 2 ""
HELP "Descrizione aggiuntiva di riga"
FIELD DESCR
END
@ -31,6 +33,7 @@ END
NUMBER 101 15
BEGIN
PROMPT 2 5 "Dare "
HELP "Importo dare del conto della riga"
FLAGS "RV"
PICTURE "."
END
@ -38,6 +41,7 @@ END
NUMBER 102 15
BEGIN
PROMPT 42 5 "Avere "
HELP "Importo avere del conto della riga"
FLAGS "RV"
PICTURE "."
END
@ -45,6 +49,7 @@ END
LIST 103 1 12
BEGIN
PROMPT 2 6 "Tipo "
HELP "Tipo del conto principale della riga"
FLAGS "U"
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
@ -54,11 +59,13 @@ END
NUMBER 104 3
BEGIN
PROMPT 20 6 "Gruppo "
HELP "Codice del conto delle riga"
END
NUMBER 105 3
BEGIN
PROMPT 32 6 "Conto "
HELP "Codice del conto delle riga"
FIELD LF_PCON->CONTO
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO 104
@ -80,6 +87,7 @@ END
NUMBER 106 6
BEGIN
PROMPT 45 6 "Sottoconto "
HELP "Codice del conto delle riga"
FIELD LF_PCON->SOTTOCONTO
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO 104
@ -101,6 +109,7 @@ END
NUMBER 206 6
BEGIN
PROMPT 45 6 "Cliente "
HELP "Codice del cliente delle riga"
FIELD LF_PCON->SOTTOCONTO
USE LF_CLIFO
INPUT TIPOCF "C"
@ -120,6 +129,7 @@ END
NUMBER 306 6
BEGIN
PROMPT 45 6 "Fornitore "
HELP "Codice del fornitore delle riga"
FIELD LF_PCON->SOTTOCONTO
USE LF_CLIFO
INPUT TIPOCF "F"
@ -140,6 +150,7 @@ END
STRING 107 50
BEGIN
PROMPT 2 7 "Descriz. "
HELP "Descrizione del conto delle riga"
FIELD LF_PCON->DESCR
USE LF_PCON KEY 2
INPUT DESCR 107
@ -156,6 +167,7 @@ END
STRING 207 50
BEGIN
PROMPT 2 7 "Cliente "
HELP "Ragione sociale del cliente delle riga"
FIELD LF_CLIFO->RAGSOC
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
@ -174,6 +186,7 @@ END
STRING 307 50
BEGIN
PROMPT 2 7 "Fornitore "
HELP "Ragione sociale del fonitore delle riga"
FIELD LF_PCON->SOTTOCONTO
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
@ -197,6 +210,7 @@ END
LIST 110 1 12
BEGIN
PROMPT 2 10 "Tipo "
HELP "Tipo del conto di contropartita della riga"
FLAGS "U"
ITEM " |Conto" MESSAGE SHOW,113|HIDE,213|HIDE,313|SHOW,114|HIDE,214|HIDE,314
ITEM "C|Cliente" MESSAGE SHOW,213|HIDE,113|HIDE,313|SHOW,214|HIDE,114|HIDE,314
@ -206,11 +220,13 @@ END
NUMBER 111 3
BEGIN
PROMPT 20 10 "Gruppo "
HELP "Codice del conto di contropartita delle riga"
END
NUMBER 112 3
BEGIN
PROMPT 32 10 "Conto "
HELP "Codice del conto di contropartita delle riga"
FIELD LF_PCON->CONTO
COPY USE 105
INPUT GRUPPO 111
@ -229,6 +245,7 @@ END
NUMBER 113 6
BEGIN
PROMPT 45 10 "Sottoconto "
HELP "Codice del conto di contropartita delle riga"
FIELD LF_PCON->SOTTOCONTO
COPY USE 106
COPY INPUT 112
@ -244,6 +261,7 @@ END
NUMBER 213 6
BEGIN
PROMPT 45 10 "Cliente "
HELP "Codice del cliente di contropartita delle riga"
FIELD LF_CLIFO->CODCF
COPY USE 206
INPUT TIPOCF "C"
@ -258,6 +276,7 @@ END
NUMBER 313 6
BEGIN
PROMPT 45 10 "Fornitore "
HELP "Codice del fornitore di contropartita delle riga"
FIELD LF_CLIFO->CODCF
COPY USE 306
INPUT TIPOCF "F"
@ -272,6 +291,7 @@ END
STRING 114 50
BEGIN
PROMPT 2 11 "Descriz. "
HELP "Descrizione del conto di contropartita delle riga"
FIELD LF_PCON->DESCR
COPY USE 107
INPUT DESCR 114
@ -284,6 +304,7 @@ END
STRING 214 50
BEGIN
PROMPT 2 11 "Cliente "
HELP "Ragione sociale del cliente di contropartita delle riga"
FIELD LF_CLIFO->RAGSOC
COPY USE 207
INPUT TIPOCF "C"
@ -298,6 +319,7 @@ END
STRING 314 50
BEGIN
PROMPT 2 11 "Fornitore "
HELP "Ragione sociale del fornitore di contropartita delle riga"
FIELD LF_CLIFO->RAGSOC
COPY USE 307
INPUT TIPOCF "F"
@ -343,4 +365,3 @@ END
ENDPAGE
ENDMASK

15
cg/cg21iva.uml
View File

@ -8,6 +8,7 @@ END
STRING 102 4
BEGIN
PROMPT 2 2 "IVA "
HELP "Codice IVA della riga"
FLAGS "U"
USE %IVA
INPUT CODTAB 102
@ -31,6 +32,7 @@ END
NUMBER 103 1
BEGIN
PROMPT 2 3 "Detraibilita' "
HELP "Indicare il tipo di detraibilita' della riga"
SHEET "Codice|Tipo detraibilita'@75"
INPUT 103
ITEM " |Regime normale"
@ -50,6 +52,7 @@ END
NUMBER 101 15
BEGIN
PROMPT 2 4 "Imponibile "
HELP "Importo imponibile della riga"
FLAGS "RV"
PICTURE "."
END
@ -57,6 +60,7 @@ END
NUMBER 104 15
BEGIN
PROMPT 48 4 "Imposta "
HELP "Imporot dell'IVA della riga"
FLAGS "RV"
PICTURE "."
END
@ -69,6 +73,7 @@ END
LIST 106 1 12
BEGIN
PROMPT 2 7 "Tipo "
HELP "Tipo del conto della riga"
FIELD TMCF
ITEM " |Conto"
MESSAGE SHOW,109|HIDE,209|HIDE,309|SHOW,110|HIDE,210|HIDE,310
@ -82,12 +87,14 @@ END
NUMBER 107 3
BEGIN
PROMPT 22 7 "Gruppo "
HELP "Codice del conto della riga"
FIELD GRUPPO
END
NUMBER 108 3
BEGIN
PROMPT 38 7 "Conto "
HELP "Codice del conto della riga"
FIELD CONTO
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO 107
@ -110,6 +117,7 @@ END
NUMBER 109 6
BEGIN
PROMPT 55 7 "Sottoconto "
HELP "Codice del conto della riga"
FIELD SOTTOCONTO
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO 107
@ -133,6 +141,7 @@ END
NUMBER 209 6
BEGIN
PROMPT 55 7 "Cliente "
HELP "Codice del cliente della riga"
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF 209
@ -152,6 +161,7 @@ END
NUMBER 309 6
BEGIN
PROMPT 55 7 "Fornitore "
HELP "Codice del fornitore della riga"
USE LF_CLIFO
INPUT TIPOCF "F"
INPUT CODCF 309
@ -171,6 +181,7 @@ END
STRING 110 50
BEGIN
PROMPT 2 8 "Descrizione "
HELP "Descrizione del conto della riga"
FIELD LF_PCON->DESCR
USE LF_PCON KEY 2
INPUT DESCR 110
@ -186,6 +197,7 @@ END
STRING 210 50
BEGIN
PROMPT 2 8 "Cliente "
HELP "Ragione sociale del cliente della riga"
FIELD LF_CLIFO->RAGSOC
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
@ -203,6 +215,7 @@ END
STRING 310 50
BEGIN
PROMPT 2 8 "Fornitore "
HELP "Ragione sociale del forntore della riga"
FIELD LF_PCON->SOTTOCONTO
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
@ -228,7 +241,7 @@ BEGIN
ITEM "5|5. Beni per rivendita da non ventilare"
ITEM "8|8. Altri beni strumentali acquistati in leasing"
FLAGS "D"
HELP "Specifica il tipo Costo/Ricavo del conto"
HELP "Indicare il tipo Costo/Ricavo del conto"
END
BUTTON DLG_OK 9 2