campo-sirio/ps/ps1001100a.uml
luca 85e802a435 Patch level :10.0
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
programma personalizzato di dinamica per importare movana da .csv con le sole righe


git-svn-id: svn://10.65.10.50/trunk@20245 c028cbd2-c16b-5b4b-a496-9718f37d4682
2010-03-19 14:24:00 +00:00

169 lines
3.1 KiB
Plaintext
Executable File

#include "ps1001100a.h"
TOOLBAR "" 0 0 0 2
#include <elabar.h>
ENDPAGE
PAGE "Importazione movimento analitico " 0 2 0 0
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 1 "@bParametri importazione"
END
STRING F_PATH 255 48
BEGIN
PROMPT 2 2 "Cartella origine dati "
FLAGS "M"
DSELECT
CHECKTYPE REQUIRED
END
STRING F_NAME 60 48
BEGIN
PROMPT 2 3 "File da importare (*.csv) "
FLAGS "B"
CHECKTYPE REQUIRED
END
STRING F_SEP_FIELD 1
BEGIN
PROMPT 2 4 "Separatore dei campi nel file .csv "
CHECKTYPE REQUIRED
END
STRING F_SEP_DEC 1
BEGIN
PROMPT 2 5 "Separatore decimale nel file .csv "
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 78 10
BEGIN
PROMPT 1 7 "@bParametri testata movimento"
END
LIST F_TIPO 1 25
BEGIN
PROMPT 2 8 "Tipo movimento "
ITEM " |Normale"
ITEM "P|Preventivo"
ITEM "V|Variazione preventivo"
END
DATE F_DATAREG
BEGIN
PROMPT 2 9 "Data di registrazione "
CHECKTYPE REQUIRED
FLAGS "A"
WARNING "La data di registrazione non appartiene ad un esercizio valido"
END
NUMBER F_ANNOES 4
BEGIN
PROMPT 54 9 "Esercizio "
FLAGS "DG"
END
DATE F_DATACOMP
BEGIN
PROMPT 2 10 "Data di competenza "
CHECKTYPE REQUIRED
WARNING "La data di competenza non appartiene ad un esercizio valido"
END
DATE F_DATAFCOMP
BEGIN
PROMPT 43 10 "Data di fine competenza "
WARNING "La data di fine competenza non puo' essere anteriore alla data di competenza"
END
BOOLEAN F_AUTOFCOMP
BEGIN
PROMPT 2 11 "Fine competenza coincidente con fine commessa di ogni riga"
MESSAGE FALSE ENABLE,F_DATAFCOMP
MESSAGE TRUE CLEAR,F_DATAFCOMP
END
STRING F_DESCR 50
BEGIN
PROMPT 2 12 "Descrizione "
END
STRINGA F_CODCAUS 3
BEGIN
PROMPT 2 13 "Causale "
USE LF_CAUSALI SELECT MOVIND!=''
INPUT CODCAUS F_CODCAUS
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCAUS CODCAUS
OUTPUT F_DESCAUS DESCR
CHECKTYPE REQUIRED
FLAGS "U"
END
STRINGA F_DESCAUS 50 40
BEGIN
PROMPT 24 13 ""
USE LF_CAUSALI KEY 2 SELECT MOVIND!=''
INPUT DESCR F_DESCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_CODCAUS
CHECKTYPE REQUIRED
END
STRING DLG_PROFILE 50
BEGIN
PROMPT 2 -2 "Profilo "
PSELECT
END
ENDPAGE
PAGE "Istruzioni " 0 2 0 0
TEXT -1
BEGIN
PROMPT 1 1 "@bIstruzioni"
END
TEXT -1
BEGIN
PROMPT 1 2 "_ Il file da importare DEVE essere in formato .csv. DEVE avere solo righe da importare (niente intestazioni o righe vuote!)"
END
TEXT -1
BEGIN
PROMPT 1 3 "_ Nel campo Cartella inserire il percorso completo della cartella che contiene il file da importare."
END
TEXT -1
BEGIN
PROMPT 1 4 "_ Nel campo File inserire il nome del file di tipo .csv da importare. Il nome NON deve contenere spazi."
END
TEXT -1
BEGIN
PROMPT 1 5 "_ Nel campo Separatore campi inserire il carattere di separazione tra i campi del file da importare (es. ';' o ',')."
END
TEXT -1
BEGIN
PROMPT 1 6 "_ Nel campo Separatore decimale inserire il carattere di separazione decimele degli importi (es. ',' o '.')."
END
TEXT -1
BEGIN
PROMPT 1 7 "_ I campi dei sepatratori dipendono dalle impostazioni del proprio computer. Si controllano aprendo il file di input con un editor di testo."
END
ENDPAGE
ENDMASK