campo-sirio/m770/77qp.uml

// Quadro P
#include "77qp.h"   

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

#define G_ABICAB      7
#define G_DISTINTA    8
#define G_CC          9

PAGE "Quadro P" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER QPF_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "GRDP"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA QPF_CODDITTA
  OUTPUT QPF_RAGDITTA RAGSOC
  FIELD LF_QUAP->CODDITTA
  CHECKTYPE REQUIRED             
  KEY 1
END
   
STRING QPF_RAGDITTA 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "DP"
END

NUMBER QPF_ANNODIC 4
BEGIN
  PROMPT 52 3 "Anno dichiarazione "
  FLAGS "DRP"
END   

NUMBER QPF_NPROG 4
BEGIN
  PROMPT 2 5 "Numero   "  
  FIELD LF_QUAP->NPROG  
  USE LF_QUAP SELECT (CODDITTA=#QPF_CODDITTA)
  INPUT CODDITTA QPF_CODDITTA SELECT
  INPUT NPROG    QPF_NPROG 
  DISPLAY "Num."                        NPROG
  DISPLAY "Imposta versata"             IMPOSTA
  DISPLAY "Interessi dipendente"        INTERDIP
  DISPLAY "Interessi datore di lavoro"  INTERDAT
  DISPLAY "Tipo"                        TIPOVERS
  DISPLAY "Codice tributo"              CODTRIB 
  DISPLAY "Data versamento"             DATAVERS
  DISPLAY "Serie/ABI"                   SERIE
  DISPLAY "Numero/Bollettino/CAB"       NUMERO
  OUTPUT QPF_NPROG    NPROG       
  CHECKTYPE REQUIRED
  KEY 1
END

DATE QPF_DATACON
BEGIN
  PROMPT 26 80 "Data conguaglio "
  FLAGS "D"
  FIELD MESECONG
END  

LIST QPF_MESECON 1 12
BEGIN
  PROMPT 26 5 "Mese conguaglio             "
  FLAGS "M"
  FIELD MESECONG[4,5]
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "Imposta o soprattassa"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "versata"
END

NUMBER QPF_IMPOSTA 15
BEGIN
  PROMPT 2 9 ""    
  FIELD LF_QUAP->IMPOSTA
  PICTURE "."
  FLAGS "R"
  CHECKTYPE REQUIRED
  WARNING "Manca l-immposta o soppratassa versata"
END

TEXT DLG_NULL
BEGIN
  PROMPT 26 7 "Interessi a carico del"
END

TEXT DLG_NULL
BEGIN
  PROMPT 26 8 "lavoratore dipendente "
END

NUMBER QPF_INTERDIP 15
BEGIN
  PROMPT 26 9 ""         
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAP->INTERDIP
END

TEXT DLG_NULL
BEGIN
  PROMPT 54 7 "Interessi a carico del"
END

TEXT DLG_NULL
BEGIN
  PROMPT 54 8 "datore di lavoro"
END

NUMBER QPF_INTERDAT 15
BEGIN
  PROMPT 54 9 ""
  FIELD LF_QUAP->INTERDAT
  PICTURE "."  
  FLAGS "R"         
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 10 ""
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "Modalit<69> versamento "
END

LIST QPF_TIPOVERS 1 18
BEGIN              
  PROMPT 2 12 ""
  ITEM " |Nessuno"   
  MESSAGE HIDE,G_DISTINTA@|HIDE,G_ABICAB@|HIDE,G_CC@
  ITEM "B|Delega bancaria"
  MESSAGE RESET,G_CC@|HIDE,G_CC@|RESET,G_DISTINTA@|HIDE,G_DISTINTA@|SHOW,G_ABICAB@
  ITEM "D|Distinta"
  MESSAGE RESET,G_CC@|HIDE,G_CC@|RESET,G_ABICAB@|HIDE,G_ABICAB@|SHOW,G_DISTINTA@
  ITEM "C|C/C Postale"                   
  MESSAGE RESET,G_DISTINTA@|HIDE,G_DISTINTA@|RESET,G_ABICAB@|HIDE,G_ABICAB@|SHOW,G_CC@
  FIELD LF_QUAP->TIPOVERS
END

NUMBER QPF_CODTRIB 4
BEGIN
  PROMPT 23 12 "Codice tributo "
  FIELD LF_QUAP->CODTRIB
END

DATE QPF_DATAVERS 
BEGIN
  PROMPT 44 12 "Data versamento "
  FIELD LF_QUAP->DATAVERS           
  WARNING "Manca la data versamento"
  VALIDATE REQIF_FUNC 1 QPF_TIPOVERS
END                  

TEXT DLG_NULL
BEGIN
  PROMPT 2 14 "Numero serie "             
  GROUP G_DISTINTA
END

TEXT DLG_NULL
BEGIN
  PROMPT 40 14 "Numero quietanza "
  GROUP G_DISTINTA G_CC
END

STRING QPF_SERIE 5
BEGIN
  PROMPT 23 14 ""
  FIELD LF_QUAP->SERIE
  WARNING "Manca la serie"
  CHECKTYPE REQUIRED
  GROUP G_DISTINTA
END

STRING QPF_NUMERO 11
BEGIN
  PROMPT 58 14 ""        
  WARNING "Manca il numero"
  CHECKTYPE REQUIRED
  FIELD LF_QUAP->NUMERO  
  GROUP G_DISTINTA
END 

TEXT DLG_NULL
BEGIN
  PROMPT 2 14 "Codice ABI "
  GROUP G_ABICAB
END

NUMBER QPF_ABI 5
BEGIN
  PROMPT 23 14 ""
  FIELD LF_QUAP->SERIE    
  USE %BAN SELECT CODTAB ?= "??????????"
  INPUT CODTAB[1,5] QPF_ABI
  INPUT CODTAB[6,10] QPF_CAB
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT QPF_ABI CODTAB[1,5]
  OUTPUT QPF_CAB CODTAB[6,10]
  CHECKTYPE REQUIRED
  WARNING "Manca il codice ABI"
  FLAGS "Z"
  GROUP G_ABICAB
END                             

TEXT DLG_NULL
BEGIN
  PROMPT 42 14 "Codice CAB "
  GROUP G_ABICAB
END

NUMBER QPF_CAB 5
BEGIN
  PROMPT 58 14 ""
  FIELD LF_QUAP->NUMERO
  COPY ALL QPF_ABI
  WARNING "Manca il codice CAB"
  CHECKTYPE REQUIRED
  FLAGS "Z"
  GROUP G_ABICAB
END

STRING QPF_CCQUIETANZA 11
BEGIN
  PROMPT 58 14 ""        
  WARNING "Manca il numero quietanza"
  CHECKTYPE REQUIRED
  FIELD LF_QUAP->NUMERO  
  GROUP G_CC
END

ENDPAGE

ENDMASK