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 "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  

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

GROUPBOX DLG_NULL 0 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"
  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