Patch level :

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

View File

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