Patch level : 2.0 572

Files correlati     : tutti i profili standard delle vendite + vebol.frm vebolbmp.frm
Ricompilazione Demo : [ ]
Commento            :

AO20090
Ho un cliente ITALIANO con un indirizzo di spedizione ESTERO che ha per
codice stato "004" e per codice comune "Z114", se stampo la bolla mi riporta
come indirizzo di spedizione "GRAN BRETAGNA E IRLANDA DEL N.", questo perché
sul form di stampa si collegano gli indirizzi di spedizione ai comuni tramite
soltanto il codice del Comune ma non dello Stato, pertanto se per due stati
diversi ho un codice comune uguale il programma riporta sempre il primo che
trova (ovvero quello dell'Italia). Aggiungere il controllo anche dello Stato.


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

ve/vebol.frm

@@ -2,6 +2,7 @@ USE 33
 JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
 JOIN 16 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
 JOIN 47 TO 34 INTO CODART==CODART
+JOIN 13 TO 16 INTO STATO=STATO COM=COM
 JOIN %CPG TO 33 ALIAS 201 INTO CODTAB==CODPAG
 JOIN 122 TO 33 INTO CODAGE==CODAG
 JOIN %POR TO 33 ALIAS 203 INTO CODTAB==CODPORTO
@@ -272,7 +273,7 @@ STRING 27 25 2
 BEGIN
  KEY "destinazione, comune"
  PROMPT 9 21 ""
- MESSAGE _ISAMREAD,13,COM=#26,DENCOM
+ FIELD 13->DENCOM
  MESSAGE COPY,29
  FLAGS "H"
 END
@@ -281,7 +282,7 @@ STRING 28 2
 BEGIN
  KEY "destinazione, provincia"
  PROMPT 31 21 ""
- MESSAGE _ISAMREAD,13,COM=#26,PROVCOM
+ FIELD 13->PROVCOM
  MESSAGE APPEND,29
  FLAGS "H"
 END

ve/vebolbmp.frm

@@ -2,6 +2,7 @@ USE 33
 JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
 JOIN 16 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
 JOIN 47 INTO CODART==CODART
+JOIN 13 TO 16 INTO STATO=STATO COM=COM
 JOIN %CPG TO 33 ALIAS 201 INTO CODTAB==CODPAG
 JOIN 122 TO 33 INTO CODAGE==CODAG
 JOIN %POR TO 33 ALIAS 203 INTO CODTAB==CODPORTO
@@ -281,7 +282,7 @@ STRING 27 25 2
 BEGIN
  KEY "destinazione, comune"
  PROMPT 9 21 ""
- MESSAGE _ISAMREAD,13,COM=#26,DENCOM
+ FIELD 13->DENCOM
  MESSAGE COPY,29
  FLAGS "H"
 END
@@ -290,7 +291,7 @@ STRING 28 2
 BEGIN
  KEY "destinazione, provincia"
  PROMPT 31 21 ""
- MESSAGE _ISAMREAD,13,COM=#26,PROVCOM
+ FIELD 13->PROVCOM
  MESSAGE APPEND,29
  FLAGS "H"
 END

ve/verig.h

@@ -73,7 +73,17 @@
 #define FR_LINEA       139
 #define FR_CODCMS      140
 #define FR_FASCMS      141
-#define FR_END         142
+#define FR_JOLLY1      142
+#define FR_JOLLY2      143
+#define FR_JOLLY3      144
+#define FR_JOLLY4      145
+#define FR_JOLLY5      146
+#define FR_JOLLY6      147
+#define FR_JOLLY7      148
+#define FR_JOLLY8      149
+#define FR_JOLLY9      150
+#define FR_JOLLY10     151
+#define FR_END         152
 #define MAX_COLUMNS    FR_END-FR_LORDO
 
 #define FR_DESMAG      250
@@ -87,5 +97,6 @@
 #define FR_DESIMP      258
 #define FR_DESLNP      259
 #define FR_DESCMS      260
-#define FR_DESFAS      261
+#define FR_DESFAS      261  
+#define FR_CODGOL      262
 #endif

ve/verig.uml

@@ -1,21 +1,29 @@
 #include "veuml.h"
 #ifdef FULL_SCREEN
 TOOLBAR "" 0 20 0 2
-BUTTON DLG_OK 9 2
+
+BUTTON DLG_OK 10 2
 BEGIN
-  PROMPT -13 -1 ""
+  PROMPT -14 -1 ""
 END
 
-BUTTON DLG_CANCEL 9 2
+BUTTON DLG_CANCEL 10 2
 BEGIN
-  PROMPT -23 -1 ""
+  PROMPT -24 -1 ""
 END
 
-BUTTON DLG_DELREC 9 2
+BUTTON DLG_DELREC 10 2
 BEGIN
-  PROMPT -33 -1 "Elimina"
+  PROMPT -34 -1 "Elimina"
   MESSAGE EXIT,K_DEL
 END
+
+BUTTON DLG_USER 10 2
+BEGIN
+  PROMPT -44 -1 "~Collega"
+  PICTURE BMP_LINK
+END
+
 ENDPAGE
 #endif
 
@@ -585,16 +593,16 @@ END
 ENDIF
 
 IFDEF(FLD_DESCR)
-STRING 150 8
+STRING FR_CODGOL 8
 BEGIN
   PROMPT 2 6 "Codice      "
   FLAGS "U"
   USE LF_GOLEM
-  INPUT CODICE 150
+  INPUT CODICE FR_CODGOL
   DISPLAY "Codice" CODICE
   DISPLAY "Descrizione@50" DESCR
   OUTPUT FR_DESCR DESCR
-  OUTPUT 150 CODICE
+  OUTPUT FR_CODGOL CODICE
   CHECKTYPE NORMAL
   ADD RUN ve0 -5
 END
@@ -606,7 +614,7 @@ IFDEF(X_DESCR)
 ELSEIF
   PROMPT 2 7 "Descrizione "
 ENDIF
- COPY ALL 150
+ COPY ALL FR_CODGOL
  ADD RUN ve0 -5
 IFDEF(MS_DESCR)
   MESSAGE MS_DESCR
@@ -1305,6 +1313,33 @@ ENDIF
 
 #ifdef PAGE_2
 
+#ifndef FULL_SCREEN
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -14 -1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -24 -1 ""
+END
+
+BUTTON DLG_DELREC 10 2
+BEGIN
+  PROMPT -34 -1 "Elimina"
+  MESSAGE EXIT,K_DEL
+END
+
+BUTTON DLG_USER 10 2
+BEGIN
+  PROMPT -44 -1 "~Collega"
+  PICTURE BMP_LINK
+END
+
+#define PAGE_1
+
+#endif
+
 ENDPAGE
 
 PAGE "Pag.2"  -1 -1 MASK_WIDTH MASK_HEIGHT
@@ -1637,7 +1672,7 @@ ENDIF
   DISPLAY "Codice Fase@10" CODTAB
   DISPLAY "Descrizione @50" S0
   OUTPUT FR_FASCMS CODTAB
-  OUTPUT FR_DESFAS S0
+  OUTPUT FR_DESCMS S0
   FIELD FASCMS
   FLAGS "UZ"
 IFDEF(CH_FASCMS)
@@ -1654,9 +1689,9 @@ IFDEF(X_FASCMS)
 ELSEIF
   PROMPT 14 14 ""
 ENDIF
-  USE FSC KEY 2
+  USE FAS KEY 2
   INPUT S0 FR_DESFAS
-  DISPLAY "Descrizione@50" S0
+  DISPLAY "Descrizione @50" S0
   DISPLAY "Codice Fase@10" CODTAB
   COPY OUTPUT FR_FASCMS
   CHECKTYPE NORMAL
@@ -1666,25 +1701,70 @@ ENDIF
 
 #endif
 
+IFDEF(JOLLY)
+  INCLDEF(JOLLY)
+ENDIF
+
 #ifndef FULL_SCREEN
-BUTTON DLG_OK 9 2
+BUTTON DLG_OK 10 2
 BEGIN
-  PROMPT -13 -1 ""
+  PROMPT -14 -1 ""
 END
 
-BUTTON DLG_CANCEL 9 2
+BUTTON DLG_CANCEL 10 2
 BEGIN
-  PROMPT -23 -1 ""
+  PROMPT -24 -1 ""
 END
 
-BUTTON DLG_DELREC 9 2
+#ifndef PAGE_1
+BUTTON DLG_DELREC 10 2
 BEGIN
-  PROMPT -33 -1 "Elimina"
+  PROMPT -34 -1 "Elimina"
   MESSAGE EXIT,K_DEL
 END
+
+BUTTON DLG_USER 10 2
+BEGIN
+  PROMPT -44 -1 "~Collega"
+  PICTURE BMP_LINK
+END
+#define PAGE_1
+#endif
+
 #endif
 
 ENDPAGE
 
+IFDEF(JOLLYP)
+  INCLDEF(JOLLYP)
+
+#ifndef FULL_SCREEN
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -14 -1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -24 -1 ""
+END
+
+#ifndef PAGE_1
+BUTTON DLG_DELREC 10 2
+BEGIN
+  PROMPT -34 -1 "Elimina"
+  MESSAGE EXIT,K_DEL
+END
+
+BUTTON DLG_USER 10 2
+BEGIN
+  PROMPT -44 -1 "~Collega"
+  PICTURE BMP_LINK
+END
+#endif
+
+#endif
+
+ENDIF
 
 ENDMASK

ve/verig00.uml

@@ -41,5 +41,7 @@ DEFINE_FIELD(QTAGG5)
 DEFINE_FIELD(IMPIANTO)
 DEFINE_FIELD(LINEA)
 DEFINE_FIELD(CODCMS)
+DEFINE(JOLLYP, "jolly.uml")
+
 
 #include "verig.uml"