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 0 0 2
#include <relapbar.h>
ENDPAGE

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

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER DLG_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  USE LF_NDITTE 
  INPUT CODDITTA DLG_CODDITTA
  OUTPUT DLG_RAGDITTA RAGSOC
  FIELD LF_QUAF->CODDITTA
  KEY 1
  CHECKTYPE REQUIRED             
  FLAGS "GRD" 
  MESSAGE COPY,1@
END

STRING DLG_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 0 6
BEGIN
  PROMPT 0 4 ""
  ITEM "Causale"
  ITEM "Descrizione@35"
  ITEM "Aliquota"
  ITEM "Somme sogg.a rit.@15"
  ITEM "Ritenuta@15" 
  ITEM "Somma versata@15"
END

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

SPREADSHEET F_B 0 6
BEGIN
  PROMPT 0 13 ""
  ITEM "Causale"
  ITEM "Descrizione@35"
  ITEM "Aliquota"
  ITEM "Somme sogg.a rit.@15"
  ITEM "Ritenuta@15"
  ITEM "Somma versata@15"
END

ENDPAGE

PAGE "Prospetti C,D,E" -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 C"
END

SPREADSHEET F_C 0 6
BEGIN
  PROMPT 0 4 ""
  ITEM "Causale"
  ITEM "Descrizione@35"
  ITEM "Aliquota"
  ITEM "Somme sogg.a rit.@15"
  ITEM "Ritenuta@15"
  ITEM "Somma versata@15"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 12 "@bProspetto D"
END                         

NUMBER DLG_NULL 5
BEGIN
  PROMPT 1 80 "CODDITTA"
  FLAGS "D"
  FIELD PROSP_D->CODDITTA
  GROUP 1
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 80 "TIPOPRO"
  FLAGS "D"
  ITEM "D|D"
  FIELD PROSP_D->TIPOPRO
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 80 "NPROG"
  FLAGS "D"
  ITEM "1|1"
  FIELD PROSP_D->NPROG
END

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

NUMBER D_CAMBIAL 15
BEGIN
  PROMPT 60 13 ""
  PICTURE "."      
  FIELD PROSP_D->IMPCAMB
END

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

NUMBER D_PROVENTI 15
BEGIN        
  PROMPT 60 14 ""
  PICTURE "."              
  FIELD PROSP_D->SOGRIT
END

NUMBER D_ALI 5
BEGINE
  PROMPT 2 15 "Aliquota "  
  FIELD PROSP_D->ALIQUOTA
  PICTURE ".2"
  NUM_EXPR {(#D_ALI>=0) && (#D_ALI<=100)}
END

NUMBER D_ROP 15
BEGIN
  PROMPT 43 15 "Ritenuta operata "
  PICTURE "."              
  FIELD PROSP_D->ROPE
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 17 "@bProspetto E"
END                         

NUMBER DLG_NULL 5
BEGIN
  PROMPT 1 80 "CODDITTA"
  FLAGS "D"
  FIELD PROSP_E->CODDITTA
  GROUP 1
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 80 "TIPOPRO"
  FLAGS "D"
  ITEM "E|E"
  FIELD PROSP_E->TIPOPRO
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 80 "NPROG"
  FLAGS "D"
  ITEM "1|1"
  FIELD PROSP_E->NPROG
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 18 "Ammontare dei proventi imponibili"
END

NUMBER E_SOGG 15
BEGIN
  PROMPT 60 18 ""
  PICTURE "."             
  FIELD PROSP_E->SOGRIT
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 19 "Ritenuta operata"
END

NUMBER E_ROP 15
BEGIN
  PROMPT 60 19 ""
  PICTURE "."              
  FIELD PROSP_E->ROPE
END

ENDPAGE

PAGE "Prospetti F,G,H" -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

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 3 "@bProspetto F"
END            

NUMBER DLG_NULL 5
BEGIN
  PROMPT 1 80 "CODDITTA"
  FLAGS "D"
  FIELD PROSP_F->CODDITTA
  GROUP 1
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 80 "TIPOPRO"
  FLAGS "D"
  ITEM "F|F"
  FIELD PROSP_F->TIPOPRO
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 80 "NPROG"
  FLAGS "D"
  ITEM "1|1"
  FIELD PROSP_F->NPROG
END
             
NUMBER F_PLUSVAL 15
BEGIN
  PROMPT 2 4 "Ammontare delle plusvalenze imponibili "
  PICTURE "."             
  FIELD PROSP_F->SOGRIT
END

NUMBER F_ROP 15
BEGIN
  PROMPT 2 5 "Ritenuta operata                       "
  PICTURE "."              
  FIELD PROSP_F->ROPE
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 8 "@bProspetto G"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 1 80 "CODDITTA"
  FLAGS "D"
  FIELD PROSP_G->CODDITTA
  GROUP 1
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 80 "TIPOPRO"
  FLAGS "D"
  ITEM "G|G"
  FIELD PROSP_G->TIPOPRO
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 80 "NPROG"
  FLAGS "D"
  ITEM "1|1"
  FIELD PROSP_G->NPROG
END

NUMBER G_PROVENTI 15
BEGIN
  PROMPT 2 9 "Ammontare dei proventi imponibili      "
  PICTURE "."             
  FIELD PROSP_G->SOGRIT
END

NUMBER G_ROP 15
BEGIN
  PROMPT 2 10 "Ritenuta operata                       "
  PICTURE "."              
  FIELD PROSP_G->ROPE
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 13 "@bProspetto H"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 1 80 "CODDITTA"
  FLAGS "D"
  FIELD PROSP_H->CODDITTA
  GROUP 1
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 80 "TIPOPRO"
  FLAGS "D"
  ITEM "H|H"
  FIELD PROSP_H->TIPOPRO
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 80 "NPROG"
  FLAGS "D"
  ITEM "1|1"
  FIELD PROSP_H->NPROG
END

NUMBER H_PLUSVAL 15
BEGIN
  PROMPT 2 14 "Ammontare delle plusvalenze imponibili "
  PICTURE "."             
  FIELD PROSP_H->SOGRIT
END

NUMBER H_ROP 15
BEGIN
  PROMPT 2 15 "Prelievo operato                       "
  PICTURE "."              
  FIELD PROSP_H->ROPE
END

ENDPAGE

ENDMASK

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