Correzione errori prima nota e causali

git-svn-id: svn://10.65.10.50/trunk@608 c028cbd2-c16b-5b4b-a496-9718f37d4682

cg/cg0500.cpp

@@ -503,19 +503,18 @@ bool TCaus_app::ss_notify(int r, KEY k)
   return TRUE;
 }
 
+
+// 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 char sez = f.get()[0];
-      {
+      if (sez != 'A' && sez != 'D')
-        const int riga = app().ss().selected();
-        if (riga == 0 || riga == 8)
         return f.error_box("E' necessario specificare la sezione D/A");
     }  
-    }  
     else
       f.reset();
   }

cg/cg2100a.uml

@@ -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
 

cg/cg2100c.uml

@@ -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 "."

cg/cg2100i.uml

@@ -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

cg/cg2102.cpp

@@ -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"

cg/cg21cg.uml

@@ -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
-

cg/cg21iva.uml

@@ -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