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	ABI_CAB			7
#define	NUM_SERIE		8
#define	TEXT_NUM_SERIE	9
#define	TEXT_ABI_CAB	6

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       
  OUTPUT QSF_CODTRIB	CODTRIB
  OUTPUT QSF_DATAVERS	DATAVERS           
  OUTPUT QSF_TIPOVERS	TIPOVERS             
  OUTPUT QSF_INTERDIP	INTERDIP
  OUTPUT QSF_INTERDAT	INTERDAT
  OUTPUT QSF_IMPOSTA	IMPOSTA
  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 TEXT_NUM_SERIE
END

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

TEXT 98
BEGIN
  PROMPT 42 14 "Numero quietanza "
  GROUP TEXT_NUM_SERIE
END

TEXT 99
BEGIN
  PROMPT 42 14 "Codice CAB "
  GROUP ABI_CAB
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 SHOW,97|SHOW,99|HIDE,96|HIDE,98|ENABLE,QSF_SERIE|HIDE,NUM_SERIE@
  ITEM "B|Delega bancaria"               
  MESSAGE HIDE,TEXT_NUM_SERIE@|SHOW,ABI_CAB@|ENABLE,ABI_CAB@|DISABLE,NUM_SERIE@|HIDE,NUM_SERIE@
  ITEM "D|Distinta"
  MESSAGE SHOW,TEXT_NUM_SERIE@|HIDE,ABI_CAB@|SHOW,NUM_SERIE@|ENABLE,NUM_SERIE@|DISABLE,ABI_CAB@
  ITEM "C|C/C Postale"                   
  MESSAGE SHOW,TEXT_NUM_SERIE@|CLEAR,QSF_ABI|CLEAR,QSF_SERIE|HIDE,ABI_CAB@|DISABLE,QSF_SERIE|DISABLE,ABI_CAB@
  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  
END

STRING QSF_SERIE 5
BEGIN
  PROMPT 23 14 ""
  FIELD LF_QUAS->SERIE
  GROUP NUM_SERIE
END

STRING QSF_NUMERO 11
BEGIN
  PROMPT 58 14 ""
  FIELD LF_QUAS->NUMERO      
  GROUP NUM_SERIE
END

NUMBER QSF_ABI 5
BEGIN
  PROMPT 23 14 ""
  FIELD LF_QUAS->SERIE  
  FLAGS "Z"
  GROUP ABI_CAB
END                             

NUMBER QSF_CAB 5
BEGIN
  PROMPT 58 14 ""
  FIELD LF_QUAS->NUMERO
  FLAGS "Z"
  GROUP ABI_CAB
END


ENDPAGE

ENDMASK