campo-sirio/ps/ps0713300a.uml

#include "ps0713300a.h"

TOOLBAR "" 0 0 0 2

#include <elabar.h>

ENDPAGE

PAGE "Importazione fatture" 0 0 0 0

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

GROUPBOX DLG_NULL 90 4
BEGIN
  PROMPT 1 1 "@bParametri Sorgente"
END

STRING F_PATH 255 50
BEGIN
  PROMPT 2 2 "Cartella "
  DSELECT
  CHECKTYPE REQUIRED
  FIELD ComInPath
END

STRING F_NAME 255 50
BEGIN
  PROMPT 2 3 "File     "
  FSELECT "*.csv"
  FIELD ComInFile
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 90 9
BEGIN
  PROMPT 1 5 "@bParametri per l'importazione"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 6 "Numerazione"
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE REQUIRED
  FLAG "UPA"
  WARNING "Numerazione assente"
END

STRING F_DESNUM 50
BEGIN
  PROMPT 25 6 "Descrizione "
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 7 "Tipo       "
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  OUTPUT F_DESTIPODOC S0
  CHECKTYPE REQUIRED
  FLAG "UP"
END

STRING F_DESTIPODOC 50
BEGIN
  PROMPT 25 7 "Descrizione "
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOC
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOC
END
 
 STRING F_CODCF 4
BEGIN
  PROMPT 2 8 "Fornitore  "
  FLAG "UR"
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_CODCF
  DISPLAY "Codice fornitore," CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_FRAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_FRAGSOC 50
BEGIN
  PROMPT 25 8 "Ragione Soc."
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_FRAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fornitore," CODCF
  COPY OUTPUT F_CODCF  
END

DATE F_DATAREG
BEGIN
  PROMPT 2 9 "Data reg. ."
  CHECKTYPE REQUIRED
END

STRING F_CODSP1 8
BEGIN
  PROMPT 2 10 "Spesa 1    "
  USE SPP SELECT S6=="P"
  INPUT CODTAB F_CODSP1
  DISPLAY "Codice spesa" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODSP1 CODTAB
  OUTPUT F_DESCRSP1 S0
  OUTPUT F_PERCSP1 R2
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING F_DESCRSP1 50 35
BEGIN
  PROMPT 25 10 "Descrizione "
  USE SPP KEY 2 SELECT S6=="P"
  INPUT S0 F_DESCRSP1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice spesa" CODTAB
  COPY OUTPUT F_CODSP1
END

NUMBER F_PERCSP1 6 2
BEGIN
  PROMPT 74 10 "Perc. "
END

STRING F_CODSP2 8
BEGIN
  PROMPT 2 11 "Spesa 2    "
  COPY USE F_CODSP1
  INPUT CODTAB F_CODSP2
  COPY DISPLAY F_CODSP1
  OUTPUT F_CODSP2 CODTAB
  OUTPUT F_DESCRSP2 S0
  OUTPUT F_PERCSP2 R2
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING F_DESCRSP2 50 35
BEGIN
  PROMPT 25 11 "Descrizione "
  COPY USE F_DESCRSP1
  INPUT S0 F_DESCRSP2
  COPY DISPLAY F_DESCRSP1
  COPY OUTPUT F_CODSP2
END

NUMBER F_PERCSP2 6 2
BEGIN
  PROMPT 74 11 "Perc. "
END

STRING F_CODSP3 8
BEGIN
  PROMPT 2 12 "Spesa 3    "
  COPY USE F_CODSP1
  INPUT CODTAB F_CODSP3
  COPY DISPLAY F_CODSP1
  OUTPUT F_CODSP3 CODTAB
  OUTPUT F_DESCRSP3 S0
  OUTPUT F_PERCSP3 R2
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING F_DESCRSP3 50 35
BEGIN
  PROMPT 25 12 "Descrizione "
  COPY USE F_DESCRSP1
  INPUT S0 F_DESCRSP3
  COPY DISPLAY F_DESCRSP1
  COPY OUTPUT F_CODSP3
END

NUMBER F_PERCSP3 6 2
BEGIN
  PROMPT 74 12 "Perc. "
END

ENDPAGE

ENDMASK