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_NULL 2 2
BEGIN
END

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

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

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

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

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

#include <helpbar.h>

ENDPAGE

PAGE "Dati rilevanti" 0 2 0 0

GROUPBOX DLG_NULL 78 5
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>=2010
  WARNING "Anno non valido"
END

DATE F_DATA 
BEGIN
  PROMPT 15 1 "Data limite "
  CHECKTYPE REQUIRED
END

LIST F_SHOWALL 1 13
BEGIN
  PROMPT 45 1 "Mostra movimenti "
  ITEM "1|Rilevanti"
  ITEM "2|NON rilevanti"
  ITEM "4|Scartati"
  ITEM "7|Tutti"
  GROUP 1
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

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 0 5 ""
  ITEM "Numero\nRegistraz.@7F"
  ITEM "Forzata@C"
  ITEM "Non\nInv.@2@F"
  ITEM "C/F@2F"
  ITEM "Codice@F"
  ITEM "Occasionale@16F"
  ITEM "Ragione Sociale@24"
  ITEM "Data\nOperazione@10"
  ITEM "Numero\nDocum.@7"
  ITEM "Importo\ndovuto@12"
  ITEM "Imposta@12"
  ITEM "Mod.\nPag.@4"
  ITEM "Contratto@18"
  ITEM "Data Doc.\nrettif.@10"
  ITEM "N. Doc.\nrettif.@7"
  ITEM "Partita IVA@15"
  ITEM "Codice Fiscale@17"
  DEFAULT "*"  // Impedisce il salvataggio su profilo .ini
END

ENDPAGE
       
PAGE "Opzioni" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bOpzioni per invio"
END

LIST F_SENDALL 1 25
BEGIN
  PROMPT 2 2 "Movimenti "
  ITEM "1|Rilevanti"
  ITEM "7|Tutti"
END

BOOLEAN F_DEFINITIVO
BEGIN
  PROMPT 50 2 "Invio definitivo"
END

STRING F_OUTFOLDER 255 50
BEGIN
  PROMPT 2 3 "Cartella  "
  DSELECT
  CHECKTYPE REQUIRED
  WARNING "Specificare una cartella di destinazione valida"
END

NUMBER F_MAXREC 5
BEGIN
  PROMPT 2 4 "Numero massimo di record per file "
  NUM_EXPR (#THIS_FIELD>=100)&&(#THIS_FIELD<=15000)
  FLAGS "U"
  CHECKTYPE REQUIRED
  WARNING "Specificare una valore compreso tra 100 e 15000"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 6 "@bDati del soggetto che assume l'impegno alla presentazione telematica"
END

LIST F_INTER_COM 1 20
BEGIN
  PROMPT 2 7 "Comunicazione predisposta da "
  ITEM "|"
  ITEM "1|contribuente"
  ITEM "2|chi effettua l'invio"
END

STRING F_INTER_COFI 16
BEGIN
  PROMPT 2 8 "Codice fiscale dell'intermediario   "
  FLAGS "U"
END

NUMBER F_INTER_CAF 5
BEGIN
  PROMPT 2 9 "Numero iscrizione all'albo C.A.F.   "
END

DATE F_INTER_DATE 
BEGIN
  PROMPT 2 10 "Data dell'impegno alla trasmissione "
END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 69 11

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 "Non inv."
  ITEM "| 0. Rilevante al fine della dichiarazione"
  ITEM "1| 1. Importo inferiore al limite della comunicazione"
  ITEM "2| 2. Soggetto da non inserire in allegato"
  ITEM "3| 3. Soggetto residente in stato a fiscalit<69> agevolata"
  ITEM "4| 4. Soggetto residente all'estero"
  ITEM "5| 5. Movimento intra"
  ITEM "6| 6. Soggetto all'articolo 8 (del dpr 26-10-1972)"
  ITEM "7| 7. Data movimento fuori dai limiti della comunicazione"
  ITEM "8| 8. Passaggi interni"
  ITEM "9| 9. Gi<47> inviato"
  ITEM "10|10.Altri motivi"
  FIELD IGNORA
END

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

NUMBER A_CODCF 6
BEGIN
  PROMPT 17 2 ""
  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 2 "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 3 "Ragione Sociale "
  FLAGS "D"
END

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

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

DATE A_DATAREG
BEGIN
  PROMPT 29 5 "Data "
  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
  FIELD DATAREG
  VALIDATE NOT_EMPTY_FUNC
END

STRING A_NUMDOC 7
BEGIN
  PROMPT 49 5 "Fattura "
  FLAGS "U"
  COPY ALL A_DATAREG
  ADD RUN cg2 -0
  FIELD NUMDOC
END

LIST A_MODPAG 1 20
BEGIN
  PROMPT 1 6 "Modalit<69> di pagamento "
  ITEM "1|1 - Non frazionato"
    MESSAGE DISABLE,A_CONTRATTO|ENABLE,A_DATARETT|ENABLE,A_NUMRETT
  ITEM "2|2 - Frazionato"
    MESSAGE ENABLE,A_CONTRATTO|DISABLE,A_DATARETT|DISABLE,A_NUMRETT
  ITEM "3|3 - Periodico"
    MESSAGE ENABLE,A_CONTRATTO|DISABLE,A_DATARETT|DISABLE,A_NUMRETT
  FIELD MODPAG
END

STRING A_CONTRATTO 18
BEGIN
  PROMPT 1 7 "Contratto riferimento "
  USE &CON
  INPUT CODTAB[1,1] A_TIPOCF SELECT
  INPUT CODTAB[2,7] A_CODCF SELECT
  INPUT CODTAB[8,25] A_CONTRATTO
  DISPLAY "Contratto@18" CODTAB[8,25]
  DISPLAY "Descrizione@50" S0
  OUTPUT A_CONTRATTO CODTAB[8,25]
  ADD RUN fe0 -1 &CON
  CHEKCTYPE REQUIRED
  FIELD CONTRATTO
END

DATE A_DATARETT
BEGIN
  PROMPT 1 8 "Documento rettificato "
  FIELD DATARETT
  USE LF_MOV KEY 3
  INPUT TIPO A_TIPOCF SELECT
  INPUT CODCF A_CODCF SELECT
  INPUT DATAREG A_DATARETT
  COPY DISPLAY A_DATAREG
  OUTPUT A_DATARETT DATADOC
  OUTPUT A_NUMRETT NUMDOC
  ADD RUN cg2 -0
  NUM_EXPR IF((#A_IMPORTO<0)&&(#A_IGNORA<=0);#A_DATARETT!="";1)
  WARNING "Inserire la data della fattura rettificata"
END

STRING A_NUMRETT 7
BEGIN
  PROMPT 50 8 "Numero "
  FIELD NUMRETT
  COPY ALL A_DATARETT
  ADD RUN cg2 -0
  VALIDATE REQIF_FUNC 1 A_DATARETT
  WARNING "Inserire il numero della fattura rettificata"
END

CURRENCY A_IMPORTO 12
BEGIN
  PROMPT 1 10 "Importo dovuto        "
  FIELD IMPORTO
END

CURRENCY A_IMPOSTA 12
BEGIN
  PROMPT 44 10 "Imposta "
  FIELD IMPOSTA
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