campo-sirio/m770/771231a.uml

#include "771231a.h"
TOOLBAR "" 0 20 0 2
#include "toolb_77.h"
ENDPAGE

PAGE "Modello 770 - Quadro F" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGDITTA RAGSOC
  FIELD LF_QUAF->CODDITTA
  KEY 1
  CHECKTYPE REQUIRED             
  FLAGS "GR"
END

STRING F_RAGDITTA 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "D"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 1 3 "@bProspetto A"
END

SPREADSHEET F_A 0 8
BEGIN
  PROMPT 0 4 ""
  ITEM "Causale"
  ITEM "Descrizione@50"
  ITEM "Aliquota"
  ITEM "Sogg. a rit.@15"
  ITEM "Ritenuta@15"
  ITEM "Totale acconti@15"
  ITEM "Vers. a saldo@15"
  ITEM "Somma versata@15"
END

GROUPBOX DLG_NULL 78 6
BEGIN
    PROMPT 1 12 ""
END

TEXT DLG_NULL
BEGIN
  PROMPT 3 13 "A1  Importo di col.7 ..."
END

NUMBER F_A1 15
BEGIN
  PROMPT 60 13 ""
  PICTURE "."
  FIELD LF_QUAF->A1
END

TEXT DLG_NULL
BEGIN
  PROMPT 3 14 "A2  Importo di col.7 di cui si chiede il rimborso"
END

NUMBER F_A2 15
BEGIN
  PROMPT 60 14 ""
  PICTURE "."      
  FIELD LF_QUAF->A2  
END

TEXT DLG_NULL
BEGIN
  PROMPT 3 15 "A3  Somme soggette a ritenuta ..."
END

NUMBER F_A3 15
BEGIN
  PROMPT 60 15 ""
  PICTURE "."      
  FIELD LF_QUAF->A3  
END

TEXT DLG_NULL
BEGIN
  PROMPT 3 16 "A4  Ritenute operate ..."
END

NUMBER F_A4 15
BEGIN
  PROMPT 60 16 ""
  PICTURE "."      
  FIELD LF_QUAF->A4  
END

ENDPAGE

PAGE "Modello 770 - Quadro F" -1 -1 78 18

TEXT DLG_NULL
BEGIN
  PROMPT 1 0 "@bProspetto B"
END

SPREADSHEET F_B 78 6
BEGIN
  PROMPT 0 1 ""
  ITEM "Causale"
  ITEM "Descrizione@50"
  ITEM "Aliquota"
  ITEM "Somme sogg.a rit.@15"
  ITEM "Ritenuta@15"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 8 "@bProspetto C"
END

SPREADSHEET F_C 78 6
BEGIN
  PROMPT 0 9 ""
  ITEM "Causale"
  ITEM "Descrizione@50"
  ITEM "Aliquota"
  ITEM "Somme sogg.a rit.@15"
  ITEM "Ritenuta@15"
END

ENDPAGE

PAGE "Modello 770 - Quadro F" -1 -1 78 18

TEXT DLG_NULL
BEGIN
  PROMPT 1 0 "@bProspetto D"
END

SPREADSHEET F_D 78 6
BEGIN
  PROMPT 0 1 ""
  ITEM "Causale"
  ITEM "Descrizione@50"
  ITEM "Aliquota"
  ITEM "Somme sogg.a rit.@15"
  ITEM "Ritenuta@15"
END

GROUPBOX DLG_NULL 0 5
BEGIN
  PROMPT 1 8 "@bProspetto E"
END                         

TEXT DLG_NULL 
BEGIN
  PROMPT 2 9 "Importo complessivo delle cambiali "
END

NUMBER E_CAMBIAL 15
BEGIN
  PROMPT 60 9 ""
  PICTURE "."      
  FIELD LF_QUAF->E_CAMBIALI
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 10 "Proventi soggetti a ritenuta "
END

NUMBER E_PROVENTI 15
BEGIN        
  PROMPT 60 10 ""
  PICTURE "."              
  FIELD LF_QUAF->E_SOGRIT
END

NUMBER E_ALI 5
BEGINE
  PROMPT 2 11 "Aliquota "  
  FIELD LF_QUAF->E_ALIQUOTA
  PICTURE ".2"
  NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
END

NUMBER E_ROP 15
BEGIN
  PROMPT 43 11 "Ritenuta operata "
  PICTURE "."              
  FIELD LF_QUAF->E_ROPE
END

GROUPBOX DLG_NULL 0 5
BEGIN
  PROMPT 1 13 "@bProspetto F"
END                         

STRING F_CODCAU 2
BEGIN
  PROMPT 2 14 "Causale "
  USE %CA7 SELECT (S1="F")
  VALIDATE REQIF_FUNC 3 F_SOGG F_ALI F_ROP
  INPUT CODTAB F_CODCAU
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione @60" S0
  DISPLAY "Codice tributo" I0
  DISPLAY "Articolo di bilancio" I3
  DISPLAY "C.T."    B2
  DISPLAY "I.C."    B1
  DISPLAY "R.A."    B0
  OUTPUT 	F_CODCAU   	CODTAB  
  OUTPUT 	F_DESCRCAUS S0
  OUTPUT	F_ALI				R0
  FLAGS "Z"    
  WARNING "Manca la causale"            
  CHECKTYPE NORMAL
  ADD RUN 773mod -3 %CA7    
  FIELD LF_QUAF->F_CODCAUS
END

STRING F_DESCRCAUS 60
BEGIN
  PROMPT 16 14 ""
  FLAGS "D"
END

NUMBER F_SOGG 15
BEGIN
  PROMPT 2 15 "Somme soggette a ritenuta  "
  PICTURE "."             
  FIELD LF_QUAF->F_SOGRIT
END

NUMBER F_ALI 5
BEGIN
  PROMPT 51 15 "Aliquota "
  PICTURE ".2"
  NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
  FIELD LF_QUAF->F_ALIQUOTA
END

NUMBER F_ROP 15
BEGIN
  PROMPT 2 16 "Ritenuta operata           "
  PICTURE "."              
  FIELD LF_QUAF->F_ROPE
END

ENDPAGE

ENDMASK

#include "771231b.uml"	// mask prospetto A
#include "771231c.uml"	// prospetto B
#include "771231c.uml"	// prospetto C
#include "771231c.uml"	// prospetto D