campo-sirio/m770/771230e1.uml

#include "771230.h"
TOOLBAR "" 0 19 0 3
#include <toolbar.h>
ENDPAGE

PAGE "Quadro E1" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "Percipiente"
END

NUMBER F_CODDITTA 5
BEGIN  
  PROMPT 4 2 "Ditta  "
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGDITTA RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "DG"
  FIELD CODDITTA
  KEY 1
END

STRING F_RAGDITTA 50
BEGIN
  PROMPT 24 2 ""
  FLAGS "D"
END

LIST F_TIPOA 1 17
BEGIN
  PROMPT 4 3 "Tipo percipiente    "
  FIELD TIPOA
  ITEM "F|Persona Fisica"
  ITEM "G|Persona Giuridica"
  KEY 1
END

NUMBER F_CODANAGR 5
BEGIN
  PROMPT 4 4 "Codice "
  FIELD CODANAGR
  USE LF_ANAG
  INPUT TIPOA F_TIPOA SELECT
  INPUT CODANAGR F_CODANAGR
  DISPLAY "Codice" CODANAGR
  DISPLAY "Denominazione@50" RAGSOC
  OUTPUT F_CODANAGR CODANAGR
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN ba4 -1 F
  KEY 1
END

LIST F_NUMPROG 1 6
BEGIN
  PROMPT 0 80 "Numero "
  FIELD NPROG
  ITEM "1|Riga 1"
  FLAGS "D"
  KEY 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 24 4 ""    
  FLAGS "D"
  USE LF_ANAG KEY 2
  INPUT TIPOA F_TIPOA SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Denominazione@50" RAGSOC
  DISPLAY "Codice" CODANAGR
  COPY OUTPUT F_CODANAGR
  CHECKTYPE NORMAL
  ADD RUN ba4 -1 F
END

SPREADSHEET F_PROSPETTO 66 5
BEGIN
  PROMPT 1 6 ""
  ITEM "Causale"
  ITEM "Ammontare\ncomplessivo@15"
  ITEM "Ammontare somme\nsogg. riten.@15"
  ITEM "Ritenute\noperate@15"
END

SPREADSHEET F_RIGHE 0 8
BEGIN
  PROMPT 0 12 ""
  ITEM "Cod.\ncau.@4"
  ITEM "Descrizione@35"
  ITEM "Cau."
  ITEM "Somme\ncorrisposte@15"
  ITEM "Ammontare\npremi@15"
  ITEM "Aliquota"
  ITEM "Ritenute\noperate@15"
  ITEM "Netto\ncorrisposto@15"
  FLAGS "A"
  USE LF_QUAE1 KEY NPROG
  INPUT CODDITTA F_CODDITTA
  INPUT TIPOA    F_TIPOA
  INPUT CODANAGR F_CODANAGR
END       

ENDPAGE

ENDMASK

PAGE "PROSPETTO 1" -1 -1 58 7

LIST 101 1
BEGIN
  PROMPT 1 1 "Causale "
  ITEM "C|C"
  ITEM "D|D"
  FLAGS "D"
END

NUMBER 102 15
BEGIN
  PROMPT 1 2 "Ammontare complessivo               "
  PICTURE "."
END
   
NUMBER 103 15
BEGIN
  PROMPT 1 3 "Ammontare somme soggette a ritenuta "
  PICTURE "."
END

NUMBER 104 15
BEGIN
  PROMPT 1 4 "Ritenute operate                    "
  PICTURE "."                                     
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 "~Conferma"
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 "Annulla"
END

ENDPAGE

ENDMASK

PAGE "RIGA 1" -1 -1 58 11

NUMBER 101 2
BEGIN
  PROMPT 1 1 "Causale  "
  USE %CA7 SELECT ((I0!="1015")&&(S1="E1")) 
  INPUT CODTAB 101
  DISPLAY "Codice" CODTAB 
  DISPLAY "Descrizione@35" S0  
  OUTPUT 101 CODTAB
  OUTPUT 102 S0
  OUTPUT 106 R0
  CHECKTYPE NORMAL
  FLAGS "Z"    
  WARNING "Causale errata"
  FIELD CODCAUS
  ADD RUN 773mod -3 %CA7
  FIELD CODCAUS
END

STRING 102 35
BEGIN  
  PROMPT 20 1 ""
  USE %CA7 KEY 2 SELECT ((I0!="1015")&&(S1="E1")) 
  INPUT S0 102
  DISPLAY "Descrizione@45" S0  
  DISPLAY "Codice" CODTAB 
  COPY OUTPUT 101
  ADD RUN 773mod -3 %CA7
END

STRING 103 1
BEGIN  
  PROMPT 1 2 "11. Causale quadro "
  FLAGS "U"
  SHEET "Cod.|Descrizione@256"
  INPUT 103
  ITEM "A|somme derivanti da riscatto di contratti di assicurazione sulla vita"
  ITEM "B|capitali corrisposti in dipendenza di contratti di soggetti che esercitano attivita' commerciali (omissis...)"
  OUTPUT 103    
  WANING "La causale deve essere specificata"
  FIELD CAUSALE
END

NUMBER 104 15
BEGIN
  PROMPT 1 3 "12. Somme corrisposte                    "
  PICTURE "."     
  FIELD SOMME
  MESSAGE CHECK,108
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 4 "13. Ammontare complessivo dei premi riscossi sui quali"
END

NUMBER 105 15
BEGIN
  PROMPT 1 5 "    le ritenute sono state commisurate   "
  PICTURE "."     
  FIELD AMMONTARE
END

NUMBER 106 6 2
BEGIN
  PROMPT 1 6 "14. Aliquota                                      "
  NUM_EXPR {(#THIS_FIELD>=0)&&(#THIS_FIELD<=100)}
  WARNING "L'aliquota deve essere compresa tra 0 e 100"
  FIELD PERC
END

NUMBER 107 15
BEGIN
  PROMPT 1 7 "15. Ritenute operate                     "
  PICTURE "."
  FIELD IMPORTO       
  MESSAGE CHECK,108
END

NUMBER 108 15
BEGIN
  PROMPT 1 8 "16. Netto corrisposto (12 - 15)          "
  FLAGS "D"
  NUM_CALC {#104-#107}
  PICTURE "."
  FIELD NETTO
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 "~Conferma"
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 "~Elimina"
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 "Annulla"
END

ENDPAGE

ENDMASK