Patch level : 2.0 504

Files correlati     : mg1.exe mg1100.msk mg1100a.msk
Ricompilazione Demo : [ ]
Commento            :

EP20094
Metto la spunta su fornitore o su cliente: il campo di riporto ragione
sociale cli/forn non ha una voce che lo identifica nella maschera,
dovrebbe essere posizionato accanto al campo codice e se apro la ragione
sociale non posso tornare in modalità ricerca per codice e mancano i
bottoni NUOVO e COLLEGA.

EP20096
nella pagina righe: inserisco nuova riga, mi posizione sul campo "codart"
ed entro in ricerca nella tabella associata al campo.Mi sposto sulla pagina
di ricerca per descrizione; la maschera non ha i bottoni NUOVO e COLLEGA
(la pagina di ricerca per codice si)

EP20097
Se in fase di inserimento e/o modifica dei movienti restano delle righe
create ma vuote provvedere alla cancellazione delle stesse prima di
registrare il movimento.


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

mg/mg1100.cpp

@@ -157,13 +157,20 @@ bool TMask_movmag::handle_righe(TMask_field &f, KEY k)
   if (k == K_ENTER)  
   {
     TSheet_field& ss = (TSheet_field&)f;
-    const int column = ss.cid2index(F_CODMAG);
 
-    if (ss.column_enabled(column))
+    const int codart = ss.cid2index(F_CODART);
+    for (int i = ss.items()-1; i >= 0; i--)
+    {
+      if (*ss.cell(i,codart) <= ' ') // Riga senza codice articolo = vuota
+        ss.destroy(i);
+    }
+    
+    const int codmag = ss.cid2index(F_CODMAG);
+    if (ss.column_enabled(codmag))
     {
       for (int i = 0; i < ss.items(); i++)
       {
-        if (*ss.cell(i,column) <= ' ')
+        if (*ss.cell(i,codmag) <= ' ')
         {
           f.error_box("Nella riga %d manca l'indicazione del magazzino ",i+1);
           return FALSE;

mg/mg1100.uml

@@ -1,6 +1,6 @@
 #include "mg1100.h"
 
-TOOLBAR "" 0 20 60 2
+TOOLBAR "" 0 -2 0 2
 #include <toolbar.h>
 ENDPAGE
 
@@ -135,37 +135,27 @@ BEGIN
   GROUP G_DEFMOV
 END
 
-RADIOBUTTON F_TIPOCF 15
+RADIOBUTTON F_TIPOCF 14
 BEGIN 
   PROMPT 2 9 ""
   FLAGS "G"
   FIELD TIPOCF
   ITEM " |Nessuno"
-  MESSAGE HIDE,F_CODCLI|HIDE,F_CODFOR|HIDE,F_RAGSOC|RESET,F_CODCF|HIDE,F_CODCF
+  MESSAGE HIDE,F_CODCF|HIDE,F_RAGSOC|RESET,F_CODCF|RESET,F_RAGSOC
   ITEM "C|Cliente"
-  MESSAGE SHOW,F_CODCF|SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC //|CHECK,F_CODCONTR
+  MESSAGE SHOW,F_CODCF|SHOW,F_RAGSOC
   ITEM "F|Fornitore"
-  MESSAGE SHOW,F_CODCF|HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC //|CHECK,F_CODCONTR
+  MESSAGE SHOW,F_CODCF|SHOW,F_RAGSOC
   GROUP G_DEFMOV
 END
 
 
-TEXT F_CODCLI
-BEGIN 
-  PROMPT 20 11 "Codice cliente   "
-END
-
-TEXT F_CODFOR 
-BEGIN 
-  PROMPT 20 11 "Codice fornitore "
-END
-
 // agisce anche quando l'utente non entra in gioco (settaggio da contratto...)
 NUMBER F_CODCF  6
 BEGIN 
 //  FLAGS "UHG"
   FIELD CODCF
-  PROMPT 37 11 ""
+  PROMPT 16 11 "Codice "
   USE LF_CLIFO
   INPUT TIPOCF F_TIPOCF SELECT
   INPUT CODCF  F_CODCF
@@ -174,19 +164,22 @@ BEGIN
   OUTPUT F_CODCF CODCF
   OUTPUT F_RAGSOC RAGSOC
   CHECKTYPE NORMAL
+  ADD RUN CG0 -1
 END
 
 // esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
-STRING F_RAGSOC 50 30
+STRING F_RAGSOC 50 40
 BEGIN
-  PROMPT 48 13 ""
+  PROMPT 32 11 ""
   USE LF_CLIFO KEY 2
   INPUT TIPOCF  F_TIPOCF SELECT
   INPUT RAGSOC   F_RAGSOC
   DISPLAY "Ragione sociale@50" RAGSOC
   DISPLAY "Codice " CODCF
   OUTPUT F_CODCF CODCF
+  CHECKTYPE NORMAL
   GROUP G_DEFMOV
+  ADD RUN CG0 -1
 END
                   
 LISTBOX F_TIPOCONDV 1 12
@@ -301,54 +294,54 @@ PAGE "Righe" 11 60 14
 
 GROUPBOX DLG_NULL 75 5
 BEGIN
- PROMPT 1 2 ""
+ PROMPT 1 0 ""
  FLAGS "R"
 END
 
 NUMBER H_NUMREG  7
 BEGIN 
   FLAGS "D"
-  PROMPT 2  3 "Operazione numero       "
+  PROMPT 2  1 "Operazione numero       "
 END
 
 NUMBER H_ANNOES 4
 BEGIN 
   FLAGS "D"
-  PROMPT 2 4 "Esercizio di competenza "
+  PROMPT 2 2 "Esercizio di competenza "
 END
 
 DATE H_DATAREG  
 BEGIN 
-  PROMPT 38 3 "Data di registrazione "
+  PROMPT 38 1 "Data di registrazione "
   FLAGS "D"
 END
 
 DATE H_DATACOMP
 BEGIN 
-  PROMPT 38 4 "Data di competenza    "
+  PROMPT 38 2 "Data di competenza    "
   FLAGS "D" 
 END
 
 STRING H_DESCR 50 40
 BEGIN 
-  PROMPT 2 5 "Descrizione             "
+  PROMPT 2 3 "Descrizione             "
   FLAGS "D" 
 END
 
 TEXT F_INVENTORYMODE2
 BEGIN
-  PROMPT 2 7 "@BModalita' di inserimento come movimento di differenza inventariale"
+  PROMPT 2 5 "@BModalita' di inserimento come movimento di differenza inventariale"
   FLAGS "UD"
 END
 
 SPREADSHEET F_RIGHE
 BEGIN
-  PROMPT 0 8 "RIGHE DI MOVIMENTO"
+  PROMPT 0 6 "RIGHE DI MOVIMENTO"
   FLAGS "AI"
   //USE LF_RMOVMAG KEY NRIG
   //INPUT NUMREG F_NUMREG
   ITEM "@1"
-  ITEM "CodArt"
+  ITEM "Codice articolo"
   ITEM "Liv1@10"
   ITEM "Liv2@10"
   ITEM "Liv3@10"

mg/mg1100a.uml

@@ -59,6 +59,7 @@ BEGIN
   COPY OUTPUT F_CODART
   CHECKTYPE NORMAL
   GROUP G_NOAUTO
+  ADD RUN ve2 -3
 END
 
 STRING F_CODMAG 3