campo-sirio/ps/ps1001100a.uml

#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

NUMBER F_NUMREGCA 7
BEGIN
  PROMPT 2 8 "Movimento analitico da aggiornare o creare "
  USE MOVANA
  INPUT NUMREG F_NUMREGCA
  DISPLAY "Numreg" NUMREG
  DISPLAY "Anno" ANNOES
  DISPLAY "Data Reg@10" DATAREG
  DISPLAY "Data Comp@10" DATACOMP
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_NUMREGCA NUMREG
  OUTPUT F_TIPO TIPOMOV
  OUTPUT F_DATAREG DATAREG
  OUTPUT F_ANNOES ANNOES
  OUTPUT F_DATACOMP DATAFCOMP
  OUTPUT F_DATAFCOMP DATAFCOMP
  OUTPUT F_AUTOFCOMP AUTOFCOMP
  OUTPUT F_DESCR DESCR
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_TOTMOV TOTDOC
  OUTPUT F_TOTMOV_SEZ SEZIONE
  CHECKTYPE SEARCH
END

LIST F_TIPO 1 25
BEGIN
  PROMPT 2 9 "Tipo movimento        "
  ITEM " |Normale" 
  ITEM "P|Preventivo" 
  ITEM "V|Variazione preventivo" 
END

DATE F_DATAREG
BEGIN
  PROMPT 2 10 "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 10 "Esercizio    "
  FLAGS "DG"
END

DATE F_DATACOMP
BEGIN
  PROMPT 2 11 "Data di competenza    "
  CHECKTYPE REQUIRED
  WARNING "La data di competenza non appartiene ad un esercizio valido"
END

DATE F_DATAFCOMP
BEGIN
  PROMPT 43 11 "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 12 "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 13 "Descrizione           "
END

STRINGA F_CODCAUS 3
BEGIN
  PROMPT 2 14 "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 14 ""
  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

CURRENCY F_TOTMOV 18
BEGIN
  PROMPT 2 15 "Totale movimento "
END

LIST F_TOTMOV_SEZ 1 5
BEGIN
  PROMPT 40 15 ""
  ITEM "D|Dare"
  ITEM "A|Avere"
END

STRING DLG_PROFILE 50
BEGIN
  PROMPT 2 -2 "Profilo "
  PSELECT
END

ENDPAGE



PAGE "Istruzioni " 0 2 0 0

GROUPBOX DLG_NULL 80 15
BEGIN
  PROMPT 0 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"
END

TEXT -1
BEGIN
  PROMPT 1 8 "  con un editor di testo."
END

TEXT -1
BEGIN
  PROMPT 1 9 "@bGestione movimento"
END

TEXT -1
BEGIN
  PROMPT 1 10 "_ Selezionando un movimento analitico gi<67> esistente, sar<61> sovrascritto con i dati di testata eventualmente modificati "
END

TEXT -1
BEGIN
  PROMPT 1 11 "  e con le righe importate."
END

TEXT -1
BEGIN
  PROMPT 1 12 "@bTracciato record file da importare"
END

TEXT -1
BEGIN
  PROMPT 1 13 "COMMESSA ; SEDE ; IMPORTO ; SEZIONE ; GRUPPO ; CONTO ; SOTTOCONTO"
END

ENDPAGE

ENDMASK