campo-sirio/src/tf/tf0100a.uml

#include "tf0100a.h"

TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_RECALC 2 2
BEGIN
  PROMPT 1 1 "Carica"
  PICTURE TOOL_CONVERT 
END

BUTTON DLG_ARCHIVE 2 2
BEGIN 
  PROMPT 2 1 "Controlla"
  PICTURE TOOL_SMILE
END

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

BUTTON DLG_EDIT 10 2
BEGIN
  PROMPT 3 1 "E~xcel"
  PICTURE TOOL_EXCEL
END

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 "Esporta"
  PICTURE TOOL_ELABORA
END

BUTTON DLG_EMAIL 2 2
BEGIN
  PROMPT 1 1 "Crea XML"
  PICTURE TOOL_EMAIL 
END

#include <helpbar.h>
ENDPAGE

PAGE "Impostazioni" 0 2 0 0

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

DATE F_DATAFIN
BEGIN
  PROMPT 40 1 "Data Finale:  "
  CHECKTYPE REQUIRED
  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 4 "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


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

GROUPBOX DLG_NULL 65 4
BEGIN
  PROMPT 30 6 "Tipi documento selezionati" 
END

BOOLEAN B_TIPO_AUTOFATT
BEGIN
  PROMPT 31 7 "Autofattura"
  FLAGS ""
END
BOOLEAN B_TIPO_FATTACQ
BEGIN
  PROMPT 45 7 "Fatt d'Acq"
  FLAGS ""
END
BOOLEAN B_TIPO_FATTFISC
BEGIN
  PROMPT 60 7 "Fatt Fisc"
  FLAGS ""
END
BOOLEAN B_TIPO_FATTVEN
BEGIN
  PROMPT 75 7 "Fatt Ven"
  FLAGS ""
END
BOOLEAN B_TIPO_NOTC
BEGIN
  PROMPT 31 8 "Nota Cred"
  FLAGS ""
END
BOOLEAN B_TIPO_NOTD
BEGIN
  PROMPT 45 8 "Nota Deb"
  FLAGS ""
END
BOOLEAN B_TIPO_BOLLADOG
BEGIN
  PROMPT 60 8 "Bolla Dog"
  FLAGS ""
END
BOOLEAN B_TIPO_STORDOC
BEGIN
  PROMPT 75 8 "Storno Doc"
  FLAGS ""
END

ENDPAGE

PAGE "Trasferimento Fatture" 0 2 0 0

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 0 0 "Righe movimenti"
  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 "Inviare@5"
  ITEM "Forzata@10"
  ITEM "N.\nRegistraz.@10"
  ITEM "Codici Errori@10"

END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 69 14

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

LIST A_INVIO 1 15
BEGIN
  PROMPT 1 10 "Da inviare"
  ITEM "X|X, Da Inviare"
  ITEM "N|N, Disabilitato"
  ITEM "F|F, Forzato"
  ITEM "E|E, Errato"
  FIELD INVIO
END

BOOLEAN A_FORZATA
BEGIN
  PROMPT 30 10 "Forzatura manuale"
  FIELD FORZATURA
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
  CHEKTYPE REQUIRED
END

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

NUMBER A_CODCF 6
BEGIN
  PROMPT 26 1 "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
  OUTPUT A_RAGSOC	RAGSOC
  OUTPUT A_PAIV		PAIV
  OUTPUT A_COFI		COFI
  ADD RUN cg0 -1
  FIELD CODCF
END

STRING A_OCFPI 16
BEGIN
  PROMPT 44 1 "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
  OUTPUT A_RAGSOC	RAGSOC
  OUTPUT A_PAIV		PAIV
  OUTPUT A_COFI		COFI
  CHEKTYPE NORMAL
  GROUP 3
  ADD RUN cg0 -6
  FIELD OCFPI
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
  USE %TPD
  INPUT CODTAB A_TIPODOC
  DISPLAY "Tipo " CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT A_TIPODOC CODTAB
  WARNING "Tipo documento errato"
  CHECKTYPE REQUIRED
  FLAGS "U"
  ADD NONE
END

STRING A_NUMDOC 7
BEGIN
  PROMPT 42 6 "Num. doc. "
  FLAGS "U"
  FIELD NUMDOC
  CHEKTYPE REQUIRED
END

DATE A_DATADOC
BEGIN
  PROMPT 1 6 "Data doc."
  FIELD DATADOC
  CHEKTYPE REQUIRED
END

LIST A_NATURA 1 35
BEGIN
  PROMPT 20 7 "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"
END

STRING A_ALIQUOTA 4
BEGIN
 PROMPT 1 7 "Aliquota "
  HELP "Codice aliquota"
  FIELD CODTAB
  KEY 1
  USE %IVA
  FLAGS "U"
  INPUT CODTAB A_ALIQUOTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" S1
  DISPLAY "%@5" R0
  DISPLAY "Vent." S6
  DISPLAY "Sospeso" B2
  OUTPUT A_ALIQUOTA CODTAB
  CHECKTYPE REQUIRED
  VALIDATE ZEROFILL_FUNC 2
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"
END

NUMBER A_IMPOSTA 12 2
BEGIN
 PROMPT 42 9 "Imposta   "
END

BOOLEAN A_REVERSE
BEGIN
  PROMPT 1 9 "Reverse charge"
END

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

STRING A_CODERR 10
BEGIN
  PROMPT 0 13 "Codici errori"
  //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_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  PICTURE TOOL_DELREC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

ENDMASK