campo-sirio/src/fp/fp0100a.uml

#include "fp0100a.h"

TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>

ENDPAGE

PAGE "Configurazione FP (1)" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 1 "@BDatabase"
END

STRING F_INDIRIZZO 50
BEGIN
  PROMPT 2 2 "Indirizzo "
  FLAGS ""
  CHECKTYPE REQUIRED
END


STRING F_DATABASE 15
BEGIN
  PROMPT 2 3 "Nome      "
  FLAGS ""
  CHECKTYPE REQUIRED
END

STRING F_USER 15
BEGIN
  PROMPT 2 4 "Utente    "
  FLAGS ""
  CHECKTYPE REQUIRED
END

STRING F_PASSWORD 15
BEGIN
  PROMPT 2 5 "Password  "
  FLAGS "*"
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 7 "@BTrasmittente"
END

STRING F_COFI 16
BEGIN
  PROMPT 2 8 "Codice fiscale trasmittente "
  CHECKTYPE REQUIRED
END

BOOLEAN F_F8
BEGIN
  PROMPT 50 8 "Gestione F8"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 10 "@BConfigurazione Allegati"
END

BOOLEAN F_ESPORTAALLEG
BEGIN
  PROMPT 2 11 "Abilita esportazione allegati"
END

BOOLEAN F_ESPORTADOC
BEGIN
  PROMPT 2 12 "Allega pdf documento nell'XML"
  FLAGS "D"
  MODULE RS
END

STRING F_FLDDEST 250 50
BEGIN
  PROMPT 2 13 "Destinazione Server  "
  FLAGS ""
END

STRING F_FLDUSRDEST 250 50
BEGIN
  PROMPT 2 14 "Destinazione User    "
  DSELECT
  FLAGS ""
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 16 "@BInizio Fatturazione Elettronica"
END

DATE F_STARTFATTEL
BEGIN
	PROMPT 2 17 "Data inizio (default 01-01-2019)"
END

ENDPAGE

PAGE "Configurazione (2) " 0 2 0 0

SPREADSHEET F_FORMPERS 60 6
BEGIN
  PROMPT 1 1 "Personalizzazioni calcolo tipi righe "
  ITEM "Tipo\nDoc@4"
  ITEM "Tipo\nRiga@4"
  ITEM "Qta"
  ITEM "Prezzo"
  ITEM "Imponibile"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 8 "@BControlli preventivi"
END

BOOLEAN F_CHECK_NOT_BLOCK
BEGIN
  PROMPT 2 9 "Rendi controlli XML non bloccanti"
END

BOOLEAN F_CHECK_NO_EXPORT_PRONTO
BEGIN
  PROMPT 2 10 "Esporta i documenti in stato diagnosticato"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 12 "@BPersonalizzazioni documento"
END

BOOLEAN F_CHECK_NO_SCONTI
BEGIN
  PROMPT 2 13 "Non esporre sconti in fattura"
END

SPREADSHEET F_NPFSHEET 60 6
BEGIN
	PROMPT 1 15 "Inserimento\nNote piede fattura"
	ITEM "Tipo\nDoc@4"
	ITEM "Nota piede\nFattura@15"
END

ENDPAGE

PAGE "Assistenza FP" 0 2 0 0

BUTTON F_SETPATCH 15 2
BEGIN
  PROMPT 1 1 "Imposta livello patch"
  FLAGS "D"
END

BUTTON F_ENPTYTABLE 15 2
BEGIN
  PROMPT 20 1 "Svuota Tabelle"
  FLAGS "D"
END

BUTTON F_DROPTABLE 15 2
BEGIN
  PROMPT 40 1 "Cancella Tabelle"
  FLAGS "D"
END

BUTTON F_REBORNDB 15 2
BEGIN
  PROMPT 60 1 "Ricrea DB"
  FLAGS "D"
END

ENDPAGE

ENDMASK

PAGE "Elementi spredsheet" -1 -1 60 12

STRING S_TIPODOC 4
BEGIN
  PROMPT 1 1  "Tipo doc "
  HELP "Lasciare libero per tutti i tipo documento"
  USE %TIP
  SELECT S3[37,40]!=""
  INPUT CODTAB S_TIPODOC
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo SDI@10" S3[37,40]
  OUTPUT S_TIPODOC CODTAB
  FLAG "UPA"
END

STRING S_TIPORIGA 4
BEGIN
	PROMPT 1 2  "Tipo riga "
	USE %TRI
	INPUT CODTAB S_TIPORIGA
	DISPLAY "Codice@10" CODTAB
	DISPLAY "Descrizione@50" S0
	OUTPUT S_TIPORIGA CODTAB
	CHECKTYPE REQUIRED
END

STRING S_QTA 10
BEGIN
	PROMPT 1 3 "Qta"
END

STRING S_PREZZO 10
BEGIN
	PROMPT 1 4 "Prezzo"
	USE %FRR
	INPUT CODTAB S_PREZZO
	DISPLAY "Codice@10" CODTAB
	DISPLAY "Descrizione@50" S0
	OUTPUT S_PREZZO CODTAB
END

STRING S_IMPONIBILE 10
BEGIN
	PROMPT 1 5 "Imponibile"
	USE %FRR
	INPUT CODTAB S_IMPONIBILE
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@50" S0
	OUTPUT S_IMPONIBILE CODTAB
END

ENDPAGE

TOOLBAR "Riga" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END


BUTTON DLG_CANCEL 2 2 
BEGIN
  PROMPT 1 1 ""
END

ENDPAGE

ENDMASK


PAGE "Elementi NPF" -1 -1 60 12

STRING S_DOC 4
BEGIN
	PROMPT 1 1  "Tipo doc "
  HELP "Lasciare libero per tutti i tipo documento"
  USE %TIP
  SELECT S3[37,40]!=""
  INPUT CODTAB S_TIPODOC
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo SDI@10" S3[37,40]
  OUTPUT S_TIPODOC CODTAB
  FLAG "UPA"
END

MEMO S_NOTAPF 0 0
BEGIN
	PROMPT 1 6 "Nota piede fattura"
END

ENDPAGE

TOOLBAR "Riga" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END


BUTTON DLG_CANCEL 2 2 
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
	PROMPT 1 1 "ELIMINA NOTA"
END

ENDPAGE

ENDMASK