campo-sirio/m770/77qs.uml

// Quadro S
#include "77qs.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.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 "MODULO 770 - 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 "GRD"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA QSF_CODDITTA
  OUTPUT QSF_RAGDITTA RAGSOC
  FIELD LF_QUAS->CODDITTA
  CHECKTYPE REQUIRED             
  KEY 1
END

NUMBER QSF_NPROG 4
BEGIN
  PROMPT 1 5 "@bNumero  "  
  FIELD LF_QUAS->NPROG  
  USE LF_QUAS SELECT (CODDITTA=#QSF_CODDITTA)
  INPUT CODDITTA QSF_CODDITTA SELECT
  INPUT NPROG    QSF_NPROG 
  DISPLAY "N°"													NPROG
  DISPLAY "Imposta versata"							IMPOSTA
  DISPLAY "Data versamento" 						DATAVERS
  DISPLAY "Tipo" 												TIPOVERS
  DISPLAY "Codice tributo" 							CODTRIB
  DISPLAY "Interessi dipendente" 				INTERDIP
  DISPLAY "Interessi datore di lavoro" 	INTERDAT
  DISPLAY "Serie/ABI" 									SERIE
  DISPLAY "Numero/Bollettino/CAB"				NUMERO
  OUTPUT QSF_NPROG    	NPROG       
  CHECKTYPE REQUIRED
  KEY 1
END  

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

NUMBER QSF_ANNODIC 4
BEGIN
  PROMPT 52 4 "Anno dichiarazione "
  FLAGS "DR"
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"
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

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

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

TEXT 98
BEGIN
  PROMPT 42 14 "Numero quietanza "
  GROUP G_DISTINTA G_CC
END

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

GROUPBOX DLG_NULL 0 6
BEGIN
  PROMPT 1 10 ""
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "Modalità versamento "
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 22 12 "Codice tributo "
  FIELD LF_QUAS->CODTRIB
END

DATE QSF_DATAVERS 
BEGIN
  PROMPT 43 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"
  VALIDATE REQIF_FUNC 1 QSF_TIPOVERS
END

STRING QSF_NUMERO 11
BEGIN
  PROMPT 58 14 ""
  FIELD LF_QUAS->NUMERO  
  WARNING "Manca il numero"
  VALIDATE REQIF_FUNC 1 QSF_TIPOVERS
  GROUP G_DISTINTA
END

NUMBER QSF_ABI 5
BEGIN
  PROMPT 23 14 ""
  FIELD LF_QUAS->SERIE    
  WARNING "Manca il codice ABI"
  VALIDATE REQIF_FUNC 1 QSF_TIPOVERS
  FLAGS "Z"
  GROUP G_ABICAB
END                             

NUMBER QSF_CAB 5
BEGIN
  PROMPT 58 14 ""
  FIELD LF_QUAS->NUMERO       
  WARNING "Manca il codice CAB"
  VALIDATE REQIF_FUNC 1 QSF_TIPOVERS
  FLAGS "Z"
  GROUP G_ABICAB
END

STRING QSF_CCQUIETANZA 11
BEGIN
  PROMPT 58 14 ""
  FIELD LF_QUAS->NUMERO  
  WARNING "Manca il numero quietanza"
  VALIDATE REQIF_FUNC 1 QSF_TIPOVERS
  GROUP G_CC
END

ENDPAGE

ENDMASK