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 4 "Genera"
  PICTURE TOOL_ELABORA
END

BUTTON DLG_EXPORT 2 2
BEGIN
  PROMPT 1 5 "Excel"
  PICTURE TOOL_EXCEL
END

#include <helpbar.h>

ENDPAGE

PAGE "Dati rilevanti" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 0 "@bDitta"
END

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

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

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 2 "Anno  "
  CHECKTYPE REQUIRED
  FLAGS "AU"
  GROUP 1
  NUM_EXPR #THIS_FIELD>=2010
  WARNING "Anno non valido"
END

BOOLEAN F_SENDALL
BEGIN
  PROMPT 15 2 "Invia anche 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
  ADD RUN CG0 -1
  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@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 "Nat.\nOper.@4"
  ITEM "Tipo.\nOper.@4"
  ITEM "Contratto@18"
  ITEM "Importo Tot.\nOperazione@12"
  ITEM "Imposta Tot.\nOperazione@12"
  ITEM "N. Reg.\nrettif.@7"
  ITEM "Partita IVA@15"
  ITEM "Codice Fiscale@17"
END

ENDPAGE
       
ENDMASK

PAGE "Riga" -1 -1 69 13

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

BOOLEAN A_IGNORA
BEGIN
  PROMPT 31 1 "Esclusa da invio"
  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 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
  FIELD CODCF
END

STRING A_OCFPI 16
BEGIN
  PROMPT 34 2 "Occasionale "
  USE 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
  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 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
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_NATOPE 1 35
BEGIN
  PROMPT 1 7 "Natura operazione     "
  ITEM "1|1 - Imponibile"
  ITEM "2|2 - Non imponibile"
  ITEM "3|3 - Esente"
  ITEM "4|4 - Imponibile con IVA non esposta"
  ITEM "5|5 - Imponibile con IVA a margine"
  FIELD NATOPE
END

LIST A_TIPOPE 1 30
BEGIN
  PROMPT 1 8 "Tipologia operazione  "
  ITEM "1|1 - Cessione di beni"
  ITEM "2|2 - Prestazione di servizi"
  ITEM "3|3 - Acquisto di beni"
  ITEM "4|4 - Acquisto di servizi"
  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
  MESSAGE EMPTY DISABLE,A_IMPORTOTOT|DISABLE,A_IMPOSTATOT
  MESSAGE ENABLE,A_IMPORTOTOT|ENABLE,A_IMPOSTATOT
END

CURRENCY A_IMPORTOTOT 12
BEGIN
  PROMPT 1 11 "Totale         "
  FIELD IMPORTOTOT
END

CURRENCY A_IMPOSTATOT 12
BEGIN
  PROMPT 42 11 "Imposte "
  FIELD IMPOSTATOT
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 NORMAL
  ADD RUN cg2 -0
  NUM_EXPR (#A_NUMRETT=0)||(#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_DELREC 2 2
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK