campo-sirio/src/tf/tf0100a.uml

#include "tf0100a.h"

TOOLBAR "topbar" 0 0 0 2
#include <elabar.h>
ENDPAGE

PAGE "Impostazioni" 0 2 0 0

DATE F_DATAINI
BEGIN
  PROMPT 1 0 "Data iniziale:"
  CHECKTYPE REQUIRED
END

DATE F_DATAFIN
BEGIN
  PROMPT 40 0 "Data Finale:  "
  CHECKTYPE REQUIRED
END

RADIOBUTTON F_TIPOCF 15
BEGIN
  PROMPT 1 2 "Tipo C/F"
  ITEM "T|Tutti"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 18 4 "Codice:"
  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
  GROUP 1
  FLAGS "D"
END

STRING F_RAGSOC 50 49
BEGIN
  PROMPT 18 5 "R.Soc: "
  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
  FLAGS "D"
END


RADIOBUTTON F_FATTSEL 25
BEGIN
  PROMPT 1 7 "Fatture da visualizzare"
  ITEM "0|Da inviare"
  ITEM "1|Inviate"
  ITEM "2|Tutti"
END

ENDPAGE

PAGE "Trasferimento Fatture" 0 2 0 0

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 0 0 ""
  ITEM "Spedita@3F"
  ITEM "Invio@3F"
  ITEM "Mod.@3F"
  ITEM "N.\nRegistraz.@7F"
  ITEM "N.Riga@3F"
  ITEM "C/F@2F"
  ITEM "Codice@6F"
  ITEM "Occas.@3"
  ITEM "Ragione Sociale@35"
  ITEM "RF/SO@6"
  ITEM "Tipo\nDocum.@2"
  ITEM "Numero\nDocum.@5"
  ITEM "Data\nDocum.@10"
  ITEM "Natura\nIVA@4"
  ITEM "Aliquota@4"
  ITEM "% Detr.@6"
  ITEM "Imponibile@10"
  ITEM "Imposta@10"
  ITEM "Rev.\nCharge@4"
  ITEM "Auto\nfatt.@3"
  ITEM "Partita IVA@11"
  ITEM "Codice Fiscale@15"
  DEFAULT "*"  // Impedisce il salvataggio su profilo .ini
END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 69 10

BOOLEAN A_SPEDITA
BEGIN
  PROMPT 40 9 "Gia' spedita"
  FIELD SPEDITA
  FLAGS "D"
END

BOOLEAN A_INVIO
BEGIN
  PROMPT 40 9 "Da inviare"
  FIELD INVIO
END

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

NUMBER A_NUMERO 7
BEGIN
  PROMPT 1 0 "N.Movimento"
  FLAGS "D"
  FIELD PROGR
END

NUMBER A_NUMRIGA 3
BEGIN
  PROMPT 25 0 "N.Riga"
  FLAGS "D"
  FIELD PROGR
END

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

NUMBER A_CODCF 6
BEGIN
  PROMPT 23 2 "Cod. C/F"
  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 "DG"
END

STRING A_OCFPI 16
BEGIN
  PROMPT 43 2 "Occas."
  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 "DG"
END

STRING A_RAGSOC 50 47
BEGIN
  FIELD RAGSOC
  PROMPT 1 3 "Ragione Sociale "
  FLAGS "D"
END

STRING A_RFSO 6
BEGIN
  FIELD RFSO
  PROMPT 30 16 "Codice RF/SO:"
  HELP "Codice Rappresentante Fiscale o Stabile Organizzazione"
  FLAGS "D"
END

STRING A_TIPODOC 2
BEGIN
  PROMPT 23 5 "Tipo doc. "
  FLAGS "U"
  FIELD TIPODOC
END

STRING A_NUMDOC 7
BEGIN
  PROMPT 23 5 "Num. doc. "
  FLAGS "U"
  FIELD NUMDOC
END

DATE A_DATADOC
BEGIN
  PROMPT 1 5 "Data doc. "
  FIELD DATADOC
END

LIST A_NATURA 1 35
BEGIN
  PROMPT 1 6 "Natura IVA"
  ITEM "|IVA ordinaria"
  ITEM "N1|N1 - IVA esclusa ex art 15"
  ITEM "N2|N2 - IVA non soggetta"
  ITEM "N3|N3 - IVA non imponibile"
  ITEM "N4|N4 - IVA esente"
  ITEM "N5|N5 - IVA in regime del margine"
  ITEM "N6|N6 - IVA in reverse charge"
  ITEM "N7|N7 - IVA assolta in altro stato U3"
  FIELD S12
END

NUMBER A_ALIQUOTA 6 2
BEGIN
 PROMPT 25 7 "Aliquota "
  HELP "Percentuale di imposta"
  FLAGS "D"
END

STRING A_DETRAIB 6
BEGIN
 PROMPT 25 7 "% Detraibilita' "
  HELP "Percentuale di detraibilita'"
  FLAGS "D"
END


CURRENCY A_IMPONIBILE 12
BEGIN
  PROMPT 1 7 "Imponibile"
  FIELD IMPORTO
END

CURRENCY A_IMPOSTA 12
BEGIN
 PROMPT 45 7 "Imposta"
  FIELD IMPOSTA
END

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

BOOLEAN A_AUTOFATT
BEGIN
 PROMPT 25 9 "Autofattura"
  FIELD AUTOFATT
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

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_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

ENDMASK