campo-sirio/ps/pg0069100a.uml

#include "pg0069100a.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 10 2
BEGIN
	PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
	PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Importazione documenti Nautilus" -1 -1 78 19

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 "@bParametri file da importare"
END

STRING F_PATH 255 64
BEGIN
  PROMPT 2 2 "Percorso "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
  FIELD PATH
END

STRING F_NAME 64
BEGIN
  PROMPT 2 3 "Nome     "
  FSELECT "*.txt"
  CHECKTYPE REQUIRED
  FIELD NAME
END

STRING F_CODCAUS 4
BEGIN
  PROMPT 2 5 "Causale "
  FLAGS "U"
  USE LF_CAUSALI
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@60" DESCR
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -4
  FIELD CODCAUS
END

STRING F_DESCR 50
BEGIN
  PROMPT 17 5 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione@60" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CODCAUS
  CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 7 "@bParametri IVA merce esente"
END

STRING F_CODIVA_ES 4
BEGIN
  PROMPT 2 8 "Codice IVA "
  USE %IVA KEY 1
  FLAGS "U"
  INPUT CODTAB F_CODIVA_ES
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIVA_ES CODTAB
  OUTPUT F_DES_CODIVA_ES S0
  CHECKTYPE NORMAL
  FIELD IVA_ESENTE
END

STRING F_DES_CODIVA_ES 50
BEGIN
  PROMPT 20 8 ""
  USE %IVA KEY 2
  INPUT S0 F_DES_CODIVA_ES 
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODIVA_ES
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 10 "@bParametri IVA spese"
END

STRING F_CODIVA_SP 4
BEGIN
  PROMPT 2 11 "Codice IVA "
  USE %IVA KEY 1
  FLAGS "U"
  INPUT CODTAB F_CODIVA_SP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIVA_SP CODTAB
  OUTPUT F_DES_CODIVA_SP S0
  CHECKTYPE NORMAL
  FIELD IVA_SPESE
END

STRING F_DES_CODIVA_SP 50
BEGIN
  PROMPT 20 11 ""
  USE %IVA KEY 2
  INPUT S0 F_DES_CODIVA_SP 
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODIVA_SP
  CHECKTYPE SEARCH
END


NUMBER F_GRUPPO_SP 3
BEGIN
  PROMPT 2 12 "Gruppo "
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO F_GRUPPO_SP 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO_SP GRUPPO    
  CHECKTYPE NORMAL
  FIELD GR_IS
END

NUMBER F_CONTO_SP 3
BEGIN
  PROMPT 15 12 "Conto "
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
  INPUT GRUPPO F_GRUPPO_SP 
  INPUT CONTO  F_CONTO_SP    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR   
  OUTPUT F_CONTO_SP CONTO  
  OUTPUT F_GRUPPO_SP GRUPPO
  CHECKTYPE NORMAL
  FIELD CO_IS
END

NUMBER F_SOTTOCONTO_SP 6
BEGIN
  PROMPT 27 12 "Sottoc. "
  USE LF_PCON
  INPUT GRUPPO F_GRUPPO_SP 
  INPUT CONTO  F_CONTO_SP 
  INPUT SOTTOCONTO F_SOTTOCONTO_SP
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOTTOCONTO_SP SOTTOCONTO
  OUTPUT F_GRUPPO_SP GRUPPO
  OUTPUT F_CONTO_SP CONTO  
  OUTPUT F_DESCRIZIONE_SP DESCR
  CHECKTYPE NORMAL
  FIELD SC_IS
END

STRING F_DESCRIZIONE_SP 50
BEGIN
  PROMPT 2 13 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_DESCRIZIONE_SP
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT F_SOTTOCONTO_SP SOTTOCONTO
  OUTPUT F_CONTO_SP CONTO
  OUTPUT F_GRUPPO_SP GRUPPO
  OUTPUT F_DESCRIZIONE_SP DESCR
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 15 "@bParametri IVA trasporto"
END

STRING F_CODIVA_TR 4
BEGIN
  PROMPT 2 16 "Codice IVA "
  USE %IVA KEY 1
  FLAGS "U"
  INPUT CODTAB F_CODIVA_TR
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIVA_TR CODTAB
  OUTPUT F_DES_CODIVA_TR S0
  CHECKTYPE NORMAL
  FIELD IVA_TRASP
END

STRING F_DES_CODIVA_TR 50
BEGIN
  PROMPT 20 16 ""
  USE %IVA KEY 2
  INPUT S0 F_DES_CODIVA_TR 
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODIVA_TR
  CHECKTYPE SEARCH
END

NUMBER F_GRUPPO_TR 3
BEGIN
  PROMPT 2 17 "Gruppo "
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO F_GRUPPO_TR 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO_TR GRUPPO    
  CHECKTYPE NORMAL
  FIELD GR_IT
END

NUMBER F_CONTO_TR 3
BEGIN
  PROMPT 15 17 "Conto "
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
  INPUT GRUPPO F_GRUPPO_TR 
  INPUT CONTO  F_CONTO_TR    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR   
  OUTPUT F_CONTO_TR CONTO  
  OUTPUT F_GRUPPO_TR GRUPPO
  CHECKTYPE NORMAL
  FIELD CO_IT 
END

NUMBER F_SOTTOCONTO_TR 6
BEGIN
  PROMPT 27 17 "Sottoc. "
  USE LF_PCON
  INPUT GRUPPO F_GRUPPO_TR 
  INPUT CONTO  F_CONTO_TR 
  INPUT SOTTOCONTO F_SOTTOCONTO_TR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOTTOCONTO_TR SOTTOCONTO
  OUTPUT F_GRUPPO_TR GRUPPO
  OUTPUT F_CONTO_TR CONTO  
  OUTPUT F_DESCRIZIONE_TR DESCR
  CHECKTYPE NORMAL
  FIELD SC_IT
END

STRING F_DESCRIZIONE_TR 50
BEGIN
  PROMPT 2 18 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_DESCRIZIONE_TR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT F_SOTTOCONTO_TR SOTTOCONTO
  OUTPUT F_CONTO_TR CONTO
  OUTPUT F_GRUPPO_TR GRUPPO
  OUTPUT F_DESCRIZIONE_TR DESCR
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK