campo-sirio/m770/77qs.uml

// Quadro S
#include "77qs.h"     

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE
//
// Lista modifiche
// 2.4.96 Messo CAB di 5. Abi e Cab zerofilled
//

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

PAGE "Quadro S" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER QSF_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "GRDP"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA QSF_CODDITTA
  OUTPUT QSF_RAGDITTA RAGSOC
  FIELD LF_QUAS->CODDITTA
  CHECKTYPE REQUIRED             
  KEY 1
END

STRING QSF_RAGDITTA 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "DP"
END

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

NUMBER QSF_NPROG 4
BEGIN
  PROMPT 1 5 "Numero  "  
  FIELD LF_QUAS->NPROG  
  USE LF_QUAS SELECT (CODDITTA=#QSF_CODDITTA)
  INPUT CODDITTA QSF_CODDITTA SELECT
  INPUT NPROG    QSF_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 QSF_NPROG      NPROG       
  CHECKTYPE REQUIRED
  KEY 1
END

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

LIST QSF_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 QSF_IMPOSTA 15
BEGIN
  PROMPT 2 9 ""    
  FIELD LF_QUAS->IMPOSTA
  PICTURE "."
  FLAGS "R"
  CHECKTYPE REQUIRED
  WARNING "Manca l'imposta o soprattassa"
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 26 8 "lavoratore dipendente "
END

NUMBER QSF_INTERDIP 15
BEGIN
  PROMPT 26 9 ""         
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAS->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 QSF_INTERDAT 15
BEGIN
  PROMPT 54 9 ""
  FIELD LF_QUAS->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

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

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

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

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

LIST QSF_TIPOVERS 1 18
BEGIN              
  PROMPT 2 12 ""
  ITEM " |Nessuno"   
  MESSAGE HIDE,G_DISTINTA@|HIDE,G_CC@|HIDE,G_ABICAB@
  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_QUAS->TIPOVERS
END

NUMBER QSF_CODTRIB 4
BEGIN
  PROMPT 23 12 "Codice tributo "
  FIELD LF_QUAS->CODTRIB
END

DATE QSF_DATAVERS 
BEGIN
  PROMPT 44 12 "Data versamento "
  FIELD LF_QUAS->DATAVERS  
  WARNING "Manca la data versamento"
  VALIDATE REQIF_FUNC 1 QSF_TIPOVERS
END

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

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

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

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

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

ENDPAGE

ENDMASK