campo-sirio/fe/fe0100a.uml

#include "fe0100a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 "Aggiorna"
  PICTURE TOOL_CONVERT 
END
 
BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "Registra"
  PICTURE TOOL_SAVEREC
  FLAGS "D"
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 1 2 "Annulla"
END

BUTTON DLG_LINK 2 2
BEGIN
  PROMPT 1 3 "Ditta"
  PICTURE TOOL_LINK
END

BUTTON DLG_NULL 2 2
BEGIN
END

BUTTON DLG_RECALC 2 2
BEGIN
  PROMPT 1 5 "Ricalcola"
  PICTURE TOOL_RECALC
END

BUTTON DLG_EXPORT 2 2
BEGIN
  PROMPT 1 6 "Excel"
  PICTURE TOOL_EXCEL
  MODULE rs
END

BUTTON DLG_ELABORA 2 2
BEGIN
  PROMPT 1 7 "Invia"
  PICTURE TOOL_EXPORT
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 1 8 "Azzera Invio"
  PICTURE TOOL_RESET
END

BUTTON DLG_PREVIEW 2 2
BEGIN
  PROMPT 1 9 "Anteprima"
  PICTURE TOOL_PREVIEW
END

#include <helpbar.h>

ENDPAGE

PAGE "Comunicazione Polivalente" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 0 "@bFiltri di visualizzazione"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 1 "Anno  "
  CHECKTYPE REQUIRED
  FLAGS "AU"
  GROUP 1
  NUM_EXPR #THIS_FIELD>=2012
  WARNING "Anno non valido"
END

LIST F_TIPO 2 10
BEGIN
  PROMPT 21 1 "Tipo "
  ITEM "FE|Spesometro"
    MESSAGE HIDE,F_PERIODO
  ITEM "BL|Black List"  
    MESSAGE SHOW,F_PERIODO
  ITEM "XX|Ignorati"  
    MESSAGE HIDE,F_PERIODO
  ITEM "IN|Inviati"  
    MESSAGE HIDE,F_PERIODO
  ITEM "**|Tutti"  
    MESSAGE HIDE,F_PERIODO
END

LIST F_PERIODO 2 16
BEGIN
  PROMPT 51 1 "Periodo "
  ITEM "|Annuale"
  ITEM "T1|I   Trimestre"
  ITEM "T2|II  Trimestre"
  ITEM "T3|III Trimestre"
  ITEM "T4|IV  Trimestre"
  FLAGS "M"
END

LIST F_TIPOCF 1 10
BEGIN
  PROMPT 2 2 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  GROUP 1
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 16 2 ""
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Occasionale@C" OCCAS
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Partita IVA@15" PAIV
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHEKTYPE NORMAL
  ADD RUN CG0 -1
  GROUP 1
END

STRING F_RAGSOC 50 49
BEGIN
  PROMPT 26 2 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Partita IVA@15" PAIV
  COPY OUTPUT F_CODCF
  ADD RUN CG0 -1
  GROUP 1
END

STRING F_OCFPI 16
BEGIN
  PROMPT 2 3 "Occ."
  USE LF_OCCAS
  INPUT CFPI F_OCFPI
  DISPLAY "Codice@16" CFPI
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_OCFPI CFPI
  OUTPUT F_RAGOCC RAGSOC
  CHEKTYPE NORMAL
  ADD RUN cg0 -6
  GROUP 1
  MESSAGE EMPTY SHOW,F_RAGSOC|HIDE,F_RAGOCC
  MESSAGE       HIDE,F_RAGSOC|SHOW,F_RAGOCC
END

STRING F_RAGOCC 50 49
BEGIN
  PROMPT 26 3 ""
  FLAGS "H"
  GROUP 1
END

STRING F_OUTFOLDER 255 45
BEGIN
  PROMPT 2 4 "Cartella  "
  DSELECT
  CHECKTYPE REQUIRED
  FLAGS "M"
  WARNING "Specificare una cartella di destinazione valida"
END

BOOLEAN F_DEFINITIVO
BEGIN
  PROMPT 65 4 "Definitivo"
END

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 0 6 ""
  ITEM "Numero\nRegistraz.@7F"
  ITEM "Forzata@C"
  ITEM "Ignora@5"
  ITEM "Tipo@2@F"
  ITEM "C/F@2F"
  ITEM "Codice@F"
  ITEM "Occasionale@16F"
  ITEM "Ragione Sociale@32"
  ITEM "Data\nOperazione@10"
  ITEM "Numero\nDocum.@7"
  ITEM "Data\nDocum.@10"
  ITEM "Tipo\nIVA@4"
  ITEM "Imponibile@12"
  ITEM "Imposta@12"
  ITEM "Noleggio@10"
  ITEM "Rev.\nCharge@7"
  ITEM "Auto\nfatt.@6"
  ITEM "Servizi\nEsteri@6"
  ITEM "Operaz.\nTurismo@6"
  ITEM "Scheda\nCarbur.@6"
  ITEM "Fatt.\nRiep.@6"
  ITEM "Op. Att.\nAggreg.@6"
  ITEM "Op. Pass.\nAggreg.@6"
  ITEM "Partita IVA@15"
  ITEM "Codice Fiscale@16"
  DEFAULT "*"  // Impedisce il salvataggio su profilo .ini
END

ENDPAGE
       
ENDMASK

PAGE "Riga" -1 -1 69 14

NUMBER A_RIGA 7
BEGIN
  PROMPT 1 0 "Numero progressivo "
  FLAGS "D"
  FIELD PROGR
END

BOOLEAN A_FORZATA
BEGIN
  PROMPT 40 0 "Forzatura manuale"
  FIELD FORZATURA
END

LIST A_IGNORA 2 55
BEGIN
  PROMPT 1 1 "Ignora  "
  ITEM "|"
  ITEM "1| 1. Importo non rilevante"
  ITEM "2| 2. Soggetto da non inserire in allegato"
  ITEM "3| 3. Residente in un paese della black list"
  ITEM "4| 4. Soggetto residente all'estero"
  ITEM "5| 5. Movimento intra"
  ITEM "7| 7. Data movimento fuori dai limiti della comunicazione"
  ITEM "9| 9. Gi<47> inviato"
  ITEM "10|10.Altri motivi"
  FIELD IGNORA
END

STRING A_TIPO 2
BEGIN
  PROMPT 1 2 "Tipo "
  FIELD TIPOPE
  FLAGS "U"
  STR_EXPR LEN(#THIS_FIELD)==2
  WARNING "Tipo record di lunghezza errata"
  CHECKTYPE REQUIRED
END

LIST A_TIPOCF 1 10
BEGIN
  PROMPT 1 3 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FIELD TIPOCF
END

NUMBER A_CODCF 6
BEGIN
  PROMPT 17 3 ""
  USE LF_CLIFO
  INPUT TIPOCF A_TIPOCF SELECT
  INPUT CODCF A_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Occasionale@C" OCCAS
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Codice fiscale@16" COFI
  OUTPUT A_CODCF CODCF
  CHEKTYPE REQUIRED
  ADD RUN cg0 -1
  FIELD CODCF
  FLAGS "G"
END

STRING A_OCFPI 16
BEGIN
  PROMPT 36 3 "Occasionale "
  USE LF_OCCAS
  INPUT CFPI A_OCFPI
  DISPLAY "Codice@16" CFPI
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Codice fiscale@16" COFI
  OUTPUT A_OCFPI CFPI
  CHEKTYPE NORMAL
  GROUP 3
  ADD RUN cg0 -6
  FIELD OCFPI
  FLAGS "G"
END

STRING A_RAGSOC 50 47
BEGIN
  PROMPT 1 4 "Ragione Sociale "
  FLAGS "D"
END

STRING A_PAIV 12
BEGIN
  PROMPT 1 5 "Partita IVA     "
  FLAGS "D"
END

STRING A_COFI 16
BEGIN
  PROMPT 33 5 "Codice Fiscale "
  FLAGS "D"
END

DATE A_DATAREG
BEGIN
  PROMPT 1 6 "Data reg. "
  USE LF_MOV KEY 3
  INPUT TIPO A_TIPOCF SELECT
  INPUT CODCF A_CODCF SELECT
  INPUT DATAREG A_DATAREG
  DISPLAY "Data.Reg.@10" DATAREG
  DISPLAY "Num.Reg.@7" NUMREG
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Data Doc.@10" DATADOC
  DISPLAY "Num.Doc.@7" NUMDOC
  OUTPUT A_DATAREG DATAREG
  OUTPUT A_NUMDOC NUMDOC
  OUTPUT A_DATADOC DATADOC
  FIELD DATAREG
  VALIDATE NOT_EMPTY_FUNC
END

DATE A_DATADOC
BEGIN
  PROMPT 27 6 "Data doc. "
  FIELD DATADOC
END

STRING A_NUMDOC 7
BEGIN
  PROMPT 49 6 "Num. doc. "
  FLAGS "U"
  FIELD NUMDOC
END

LIST A_NOLEGGIO 1 12
BEGIN
  PROMPT 1 7 "Noleggio  "
  ITEM " |Nessuno"
  ITEM "A|Automobile"
  ITEM "B|Camper"
  ITEM "C|Altro"
  ITEM "D|Diporto"
  ITEM "E|Aeromobile"
  FIELD NOLEGGIO
END

LIST A_TIPOIVA 1 24
BEGIN
  PROMPT 27 7 "Tipo IVA  "
  ITEM "1|Imponibile"
  ITEM "2|Non imponibile"
  ITEM "3|Esente"
  ITEM "4|Non esposta in fattura"
  ITEM "5|Margine"
  FIELD TIPOIVA
END

CURRENCY A_IMPORTO 12
BEGIN
  PROMPT 1 8 "Imponibile "
  FIELD IMPORTO
END

CURRENCY A_IMPOSTA 12
BEGIN
  PROMPT 44 8 "Imposta "
  FIELD IMPOSTA
END

BOOLEAN A_REVERSE
BEGIN
  PROMPT 1 9 "Reverse charge"
  FIELD REVERSE
END

BOOLEAN A_AUTOFATT
BEGIN
  PROMPT 38 9 "Autofattura"
  FIELD AUTOFATT
END

BOOLEAN A_SERVIZI
BEGIN
  PROMPT 1 10 "Acquisto servizi all'estero"
  FIELD SERVIZI
END

BOOLEAN A_TURISMO
BEGIN
  PROMPT 38 10 "Operazioni turismo"
  FIELD TURISMO
END

BOOLEAN A_CARBURAN
BEGIN
  PROMPT 1 11 "Scheda carburanti"
  FIELD CARBURAN
END

BOOLEAN A_RIEPILOG
BEGIN
  PROMPT 38 11 "Fattura riepilogativa"
  FIELD RIEPILOG
END

NUMBER A_ATTAGG 4
BEGIN
  PROMPT 1 12 "Operazioni aggregate:  Attive "
  FIELD ATTAGG
END

NUMBER A_PASAGG 4
BEGIN
  PROMPT 44 12 "Passive "
  FIELD PASAGG
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_USER 2 2
BEGIN
  PROMPT 2 1 "Collega"
  PICTURE TOOL_LINK
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  PICTURE TOOL_DELREC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

ENDMASK