campo-sirio/fe/fe0100a.uml

#include "fe0100a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 "Selezione"
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 3 "Genera"
  PICTURE TOOL_ELABORA
END

#include <helpbar.h>

ENDPAGE

PAGE "Dati rilevanti" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 0 "@bAttivit<69>"
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

NUMBER F_DITTA 5
BEGIN
  PROMPT 2 2 "Ditta    "
  FLAGS "DF"
END

STRING F_RAGSOCD 50
BEGIN
  PROMPT 26 2 ""
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_RAGSOCD RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "D"
END

NUMBER F_CODATT 5
BEGIN
  PROMPT 2 3 "Attivit<69> "
  USE LF_ATTIV
  INPUT CODDITTA F_DITTA SELECT
  INPUT CODATT F_CODATT
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Codice" CODATT
  DISPLAY "ATECO@8" CODATECO
  DISPLAY "Prev.@C" ATTPREV
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODATT CODATT
  OUTPUT F_DESCATT DESCR
  FLAGS "Z"
  CHECKTYPE REQUIRED
  GROUP 1
END

STRING F_DESCATT 50
BEGIN
  PROMPT 26 3 ""
  FLAGS "D"
END

BOOLEAN F_SENDALL
BEGIN
  PROMPT 2 4 "Invia anche le operazioni escluse dall'obbligo di comunicazione"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 6 "@bFiltro su selezione"
END

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

NUMBER F_CODCF 6
BEGIN
  PROMPT 16 7 ""
  USE 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
  GROUP 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 26 7 ""
  USE 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 8 "Occ. "
  USE OCCAS
  INPUT CFPI F_OCFPI
  DISPLAY "Codice@16" CFPI
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_OCFPI CFPI
  OUTPUT F_RAGOCC RAGSOC
  CHEKTYPE NORMAL
  GROUP 1
  MESSAGE EMPTY SHOW,F_RAGSOC|HIDE,F_RAGOCC
  MESSAGE       HIDE,F_RAGSOC|SHOW,F_RAGOCC
END

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

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 0 10 ""
  ITEM "Riga@6F"
  ITEM "Non\nInv.@2@F"
  ITEM "C/F@3F"
  ITEM "Codice@F"
  ITEM "Occasionale@16F"
  ITEM "Numero\nRegistraz.@9"
  ITEM "Data\nOperazione@10"
  ITEM "Mod.\nPag.@4"
  ITEM "Importo\ndovuto@12"
  ITEM "Imposta@12"
  ITEM "Natura\nOperazione@10"
  ITEM "Tipologia\nOperazione@10"
  ITEM "Importo Totale\nOperazione@12"
END

ENDPAGE
       
ENDMASK

PAGE "Riga" -1 -1 74 10

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

BOOLEAN A_IGNORA
BEGIN
  PROMPT 31 1 "Non inviare questa riga"
  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 16 2 ""
  USE CLIFO
  INPUT TIPOCF A_TIPOCF SELECT
  INPUT CODCF A_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Occasionale@C" OCCAS
  OUTPUT A_CODCF CODCF
  CHEKTYPE REQUIRED
  FIELD CODCF
END

STRING A_OCFPI 16
BEGIN
  PROMPT 32 2 "Occasionale "
  USE OCCAS
  INPUT CFPI A_OCFPI
  DISPLAY "Codice@16" CFPI
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT A_OCFPI CFPI
  CHEKTYPE NORMAL
  GROUP 3
  FIELD OCFPI
END

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

NUMBER A_NUMREG 7
BEGIN
  PROMPT 41 4 "N. operazione "
  FIELD NUMREG
END

LIST A_MODPAG 1 15
BEGIN
  PROMPT 1 2 ""
  ITEM "3|Non frazionato"
  ITEM "1|Acconto"
  ITEM "2|Saldo"
  FIELD MODPAG
END


CURRENCY A_IMPORTO 12
BEGIN
  PROMPT 1 5 "Importo dovuto "
  FIELD CORRISP
END

CURRENCY A_IMPOSTA 12
BEGIN
  PROMPT 41 5 "Imposta "
  FIELD IMPOSTA
END

LIST A_NATOPE 1 30
BEGIN
  PROMPT 1 6 "Tipologia imponibile  "
  ITEM "1|Imponibile"
  ITEM "2|Non imponibile"
  ITEM "3|Esente"
  ITEM "4|Imponibile con IVA non esposta"
  FIELD NATOPE
END

LIST A_TIPOPE 1 30
BEGIN
  PROMPT 1 7 "Tipologia operazione  "
  ITEM "1|Cessione di beni"
  ITEM "2|Prestazione di servizi"
  ITEM "3|Acquisto di beni"
  ITEM "4|Acquisto di servizi"
  FIELD TIPOPE
END

CURRENCY A_TOTALE 12
BEGIN
  PROMPT 1 8 "Totawe "
  FIELD TOTALE
END


ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK