campo-sirio/m770/771231a.uml

// Gruppi utilizzati :
// 1 - identifica il codice ditta di intestazione da replicare sulle pagine 
// 2 - identifica la descrizione ditta di intestazione da replicare sulle pagine

#include "771231a.h"   

TOOLBAR "" 0 20 0 2
#include "toolbar.h"
ENDPAGE

PAGE "Prospetto A" -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 
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGDITTA RAGSOC
  FIELD LF_QUAF->CODDITTA
  KEY 1
  CHECKTYPE REQUIRED             
  FLAGS "GRD" 
  MESSAGE COPY,1@
END

STRING F_RAGDITTA 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "D"
  MESSAGE COPY,2@
END

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

SPREADSHEET F_A 78 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 0 6
BEGIN
    PROMPT 1 13 ""
END

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

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

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

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

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

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

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

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

ENDPAGE

PAGE "Prospetto B,C" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 3 1 "Ditta  "      
  FLAGS "RD"
  GROUP 1
END

STRING DLG_NULL 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "D"
  GROUP 2
END

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

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

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

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

ENDPAGE

PAGE "Prospetto D,E,F" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 3 1 "Ditta  "      
  FLAGS "RD"
  GROUP 1
END

STRING DLG_NULL 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "D"
  GROUP 2
END

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

SPREADSHEET F_D 78 6
BEGIN
  PROMPT 0 4 ""
  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 11 "@bProspetto E"
END                         

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

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

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

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

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

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

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

STRING F_CODCAU 2
BEGIN
  PROMPT 2 17 "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 17 ""
  FLAGS "D"
END

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

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

NUMBER F_ROP 15
BEGIN
  PROMPT 2 19 "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