Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


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

ps/ps0713300a.uml

@@ -1,79 +1,49 @@
 #include "ps0713300a.h"
 
-TOOLBAR "" 0 20 0 2
+TOOLBAR "" 0 0 0 2
 
-BUTTON DLG_ELABORA 10 2
-BEGIN
-	PICTURE BMP_ELABORA
-	MESSAGE EXIT,K_ENTER
-	PROMPT -12 -1 ""
-END
+#include <elabar.h>
 
-BUTTON DLG_QUIT 10 2
-BEGIN
-	PROMPT -22 -1 ""
-END
+ENDPAGE
+
+PAGE "Importazione fatture" 0 0 0 0
 
 STRING DLG_PROFILE 50
 BEGIN
-  PROMPT 9 0 "Profilo "
+  PROMPT 1 -1 "Profilo "
   PSELECT
   FLAGS "H"
 END
 
-ENDPAGE
-
-PAGE "Inserimento fatture" 0 0 0 -3
-
-GROUPBOX DLG_NULL 90 3
-BEGIN
-  PROMPT 2 1 "@bDitta corrente"
-END
-
-NUMBER F_CODITTA 5
-BEGIN
-  PROMPT 3 2 "Codice      "
-  FLAGS "FD"
-  USE LF_NDITTE
-  INPUT CODDITTA F_CODITTA
-  OUTPUT F_RAGSOC RAGSOC
-  CHECKTYPE REQUIRED
-END
-
-STRING F_RAGSOC 50
-BEGIN
-  PROMPT 23 2 ""
-  FLAGS "D"
-END
-
 GROUPBOX DLG_NULL 90 4
 BEGIN
-  PROMPT 2 4 "@bSorgente"
+  PROMPT 1 1 "@bParametri Sorgente"
 END
 
-STRING F_PATH 256 39
+STRING F_PATH 255 50
 BEGIN
-  PROMPT 3 5 "Cartella "
+  PROMPT 2 2 "Cartella "
   DSELECT
   CHECKTYPE REQUIRED
   FIELD ComInPath
 END
 
-STRING F_NAME 18
+STRING F_NAME 255 50
 BEGIN
-  PROMPT 3 6 "File     "
+  PROMPT 2 3 "File     "
+  FSELECT "*.csv"
   FIELD ComInFile
   CHECKTYPE REQUIRED
 END
 
 GROUPBOX DLG_NULL 90 6
 BEGIN
-  PROMPT 2 8 "@bParametri per l'importazione"
+  PROMPT 1 5 "@bParametri per l'importazione"
 END
 
 STRING F_CODIVA 4
 BEGIN
-  PROMPT 3 9 "Codice IVA  "
+  PROMPT 2 6 "Codice IVA  "
   USE %IVA
   INPUT CODTAB  F_CODIVA
   DISPLAY "Codice " CODTAB
@@ -85,7 +55,7 @@ END
 
 STRING F_DESIVA 50
 BEGIN
-  PROMPT 25 9 "Descrizione  "
+  PROMPT 25 6 "Descrizione  "
   USE %IVA KEY 2
   INPUT S0  F_DESIVA
   DISPLAY "Descrizione@50" S0
@@ -96,7 +66,7 @@ END
 
 STRING F_CODCAU 3
 BEGIN
-  PROMPT 3 10 "Causale      "
+  PROMPT 2 7 "Causale      "
   FIELD CODCAU
   FLAGS "UZ"
   USE LF_CAUSALI
@@ -113,7 +83,7 @@ END
 
 STRING F_DESCAU 50
 BEGIN
-  PROMPT 25 10 "Descrizione  "
+  PROMPT 25 7 "Descrizione  "
   FIELD DESCR
   USE LF_CAUSALI KEY 2
   INPUT DESCR F_DESCAU
@@ -127,7 +97,7 @@ END
 
 STRING F_CODCF 4
 BEGIN
-  PROMPT 3 11 "Fornitore   "
+  PROMPT 2 9 "Fornitore   "
   FLAG "UR"
   USE LF_CLIFO
   INPUT TIPOCF "F"
@@ -141,7 +111,7 @@ END
 
 STRING F_FRAGSOC 50 24
 BEGIN
-  PROMPT 25 11 "Ragione Sociale  "
+  PROMPT 25 9 "Ragione Sociale  "
   USE LF_CLIFO KEY 2
   INPUT TIPOCF "F"
   INPUT RAGSOC F_FRAGSOC
@@ -152,7 +122,7 @@ END
 
 DATE F_DATAREG
 BEGIN
-  PROMPT 3 12 "Data registrazione  "
+  PROMPT 2 10 "Data registrazione  "
   CHECKTYPE REQUIRED
 END