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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@20501 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2010-05-26 09:31:32 +00:00
parent 52c74c4e00
commit c5eb4ca419
1 changed files with 20 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
ps/ps0713300a.uml
View File

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