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_RECALC 2 2
BEGIN
  PROMPT 1 3 "Ricalcola"
  PICTURE TOOL_RECALC
  GROUP 1
END

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

BUTTON DLG_EXPORT 2 2
BEGIN
  PROMPT 1 5 "Excel"
  PICTURE TOOL_EXCEL
  MODULE rs
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

LIST F_SHOWALL 1 25
BEGIN
  PROMPT 33 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
  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
  COPY OUTPUT F_CODCF
  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 "Riga@6F"
  ITEM "Non\nInv.@2@F"
  ITEM "C/F@2F"
  ITEM "Codice@F"
  ITEM "Occasionale@16F"
  ITEM "Ragione Sociale@24"
  ITEM "Numero\nRegistr.@7"
  ITEM "Data\nOperazione@10"
  ITEM "Mod.\nPag.@4"
  ITEM "Importo\ndovuto@12"
  ITEM "Imposta@12"
  ITEM "Tipo.\nOper.@4"
  ITEM "Contratto@18"
  ITEM "N. Reg.\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 "@bFiltri per invio"
END

LIST F_SENDALL 1 25
BEGIN
  PROMPT 2 2 "Movimenti "
  ITEM "1|Rilevanti"
  ITEM "7|Tutti"
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

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 69 13

NUMBER A_RIGA 7
BEGIN
  PROMPT 1 0 "Numero progressivo "
  FLAGS "D"
  FIELD PROGR
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 con codice nullo"
  ITEM "3| 3. Soggetto da non inserire in allegato"
  ITEM "4| 4. Soggetto residente in stato a fiscalit<69> agevolata"
  ITEM "5| 5. Soggetto residente all'estero"
  ITEM "6| 6. Movimento intra"
  ITEM "7| 7. Data movimento fuori dai limiti della comunicazione"
  ITEM "8| 8. Soggetto all'articolo 8 (del dpr 26-10-1972)"
  ITEM "9| 9. Passaggi interni"
  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
END

STRING A_OCFPI 16
BEGIN
  PROMPT 34 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
END

STRING A_RAGSOC 50 45
BEGIN
  PROMPT 1 3 "Ragione Sociale "
  FLAGS "D"
END

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

STRING A_COFI 16
BEGIN
  PROMPT 41 4 "C.F. "
  FLAGS "D"
END

DATE A_DATAREG
BEGIN
  PROMPT 1 5 "Data operazione "
  FIELD DATAREG
  CHEKTYPE REQUIRED
END

NUMBER A_NUMREG 7
BEGIN
  PROMPT 41 5 "N. operazione "
  FIELD NUMREG
  USE LF_MOV SELECT (TIPO==#A_TIPOCF)&&(BETWEEN(CODCF,#A_CODCF,#A_CODCF))
  JOIN LF_CLIFO INTO TIPOCF==TIPO CODCF==CODCF
  INPUT NUMREG A_NUMREG
  DISPLAY "Numero@7" NUMREG
  DISPLAY "Data@10" DATAREG
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT A_NUMREG NUMREG
  CHECKTYPE NORMAL
  ADD RUN cg2 -0
  MESSAGE EMPTY DISABLE,DLG_USER
  MESSAGE ENABLE,DLG_USER
END

LIST A_MODPAG 1 20
BEGIN
  PROMPT 1 6 "Modalit<69> di pagamento "
  ITEM "3|3 - Non frazionato"
  ITEM "1|1 - Acconto"
  ITEM "2|2 - Saldo"
  FIELD MODPAG
END

LIST A_TIPOPE 1 40
BEGIN
  PROMPT 1 8 "Tipologia operazione  "
  ITEM "1|1-Cessione e/o prestazione"
  ITEM "2|2-Acquisto e/o prestazione ricevuta"
  FIELD TIPOPE
END

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

CURRENCY A_IMPOSTA 12
BEGIN
  PROMPT 42 9 "Imposta "
  FIELD IMPOSTA
END

STRING A_CONTRATTO 18
BEGIN
  PROMPT 1 10 "Contratto      "
  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 NORMAL
  FIELD CONTRATTO
END

NUMBER A_NUMRETT 7
BEGIN
  PROMPT 1 12 "N. operazione da rettificare "
  FIELD NUMRETT
  COPY USE A_NUMREG
  INPUT NUMREG A_NUMRETT
  COPY DISPLAY A_NUMREG
  OUTPUT A_NUMRETT NUMREG
  CHECKTYPE SEARCH
  ADD RUN cg2 -0
  NUM_EXPR (#A_NUMRETT=0)||(#A_NUMRETT=9999999)||(#A_NUMRETT!=#A_NUMREG)
  WARNING "Inserire un numero registrazione diverso da quello principale"
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 3 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

ENDMASK