campo-sirio/src/tf/tf0400a.uml

#include "tf0400a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_RECALC 2 2
BEGIN
  PROMPT 1 1 "Aggiorna"
  PICTURE TOOL_CONVERT 
END

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "Salva"
  PICTURE TOOL_SAVEREC 
END

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

#include <helpbar.h>
ENDPAGE

PAGE "Controlli Spesometro" 0 2 0 0

LIST F_TIPOCONTROLLO 35 35
BEGIN
  PROMPT 1 0 "Controllo da effettuare"
  ITEM "0|Movimenti esclusi"
  ITEM "1|Differenze Prima Nota/Spesometro"
  ITEM "2|Visualizza tutti i movimenti Spesometro"
  FLAGS ""
END

LIST F_FLAG 35
BEGIN
  PROMPT 1 1 "Stato movimento        "
  ITEM "0|Tutti"
  ITEM "1|Da inviare"
  ITEM "2|Inviati"
  ITEM "3|Disabilitati"
  FLAGS ""
END

DATE F_DATAINI
BEGIN
  PROMPT 65 0 "Data iniziale:"
  VALIDATE DATE_CMP_FUNC <= F_DATAFIN
  WARNING "La data iniziale non pu<70> essere maggiore della data finale"
END

DATE F_DATAFIN
BEGIN
  PROMPT 65 1 "Data Finale:  "
  VALIDATE DATE_CMP_FUNC >= F_DATAINI
  WARNING "La data finale non pu<70> essere minore della data iniziale"
END

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

NUMBER F_CODCF 6
BEGIN
  PROMPT 18 3 "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 ""
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 ""
END

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

ENDPAGE
ENDMASK

PAGE "Riga" -1 -1 69 14
BOOLEAN A_ELIMINA
BEGIN
  PROMPT 52 10 "Elimina"
  FIELD SPEDITA
  FLAGS "D"
END

BOOLEAN A_SPEDITA
BEGIN
  PROMPT 52 10 "Gia' spedita"
  FIELD SPEDITA
  FLAGS "D"
END

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

DATE A_DATAREG
BEGIN
  PROMPT 26 0 "Data reg."
  FIELD DATAREG
  FLAGS "D"
END

STRING A_TIPOCF 1
BEGIN
  PROMPT 1 1 "Tipo C/F   "
  FIELD TIPOCF
  FLAGS "D"
END

NUMBER A_CODCF 6
BEGIN
  PROMPT 26 1 "Cod. C/F"
  FIELD CODCF
  FLAGS "D"
END

STRING A_OCFPI 16
BEGIN
  PROMPT 44 1 "Occas."
  FIELD OCFPI
  FLAGS "D"
END

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

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

STRING A_RAGSOCRFSO 50 47
BEGIN
  FIELD RAGSOCRFSO
  PROMPT 1 5 "Rag. Soc. RF/SO"
  HELP "Ragione Sociale RF/SO"
  FLAGS "D"
END

STRING A_TIPODOC 2
BEGIN
  PROMPT 23 6 "Tipo doc. "
  FIELD TIPODOC
  FLAGS "D"
END

STRING A_NUMDOC 7
BEGIN
  PROMPT 42 6 "Num. doc. "
  FIELD NUMDOC
  FLAGS "D"
END

DATE A_DATADOC
BEGIN
  PROMPT 1 6 "Data doc."
  FIELD DATADOC
  FLAGS "D"
END

STRING A_NATURA 2
BEGIN
  PROMPT 20 7 "Natura IVA"
  FIELD S12
  FLAGS "D"
END

STRING A_ALIQUOTA 4
BEGIN
 PROMPT 1 7 "Aliquota "
  HELP "Codice aliquota"
  FIELD CODTAB
  FLAGS "D"
END

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

NUMBER A_IMPONIBILE 12 2
BEGIN
  PROMPT 42 8 "Imponibile"
  FIELD IMPORTO
  FLAGS "D"
END

NUMBER A_IMPOSTA 12 2
BEGIN
 PROMPT 42 9 "Imposta   "
  FIELD IMPOSTA
  FLAGS "D"
END

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

BOOLEAN A_AUTOFATT
BEGIN
 PROMPT 25 9 "Autofattura"
  FIELD AUTOFATT
  FLAGS "D"
END

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

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

ENDMASK