campo-sirio/m770/77qp.uml

// Quadro P
#include "77qp.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 N" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER QPF_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "GRD"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA QPF_CODDITTA
  OUTPUT QPF_RAGDITTA RAGSOC
  FIELD LF_QUAP->CODDITTA
  CHECKTYPE REQUIRED             
  KEY 1
END

NUMBER QPF_NPROG 4
BEGIN
  PROMPT 1 5 "@bNumero  "  
  FIELD LF_QUAP->NPROG  
  USE LF_QUAP SELECT (CODDITTA=#QPF_CODDITTA)
  INPUT CODDITTA QPF_CODDITTA SELECT
  INPUT NPROG    QPF_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 QPF_NPROG    	NPROG       
  OUTPUT QPF_CODTRIB	CODTRIB
  OUTPUT QPF_DATAVERS	DATAVERS           
  OUTPUT QPF_TIPOVERS	TIPOVERS             
  OUTPUT QPF_INTERDIP	INTERDIP
  OUTPUT QPF_INTERDAT	INTERDAT
  OUTPUT QPF_IMPOSTA	IMPOSTA
  CHECKTYPE REQUIRED
  KEY 1
END  

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

NUMBER QPF_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 QPF_IMPOSTA 15
BEGIN
  PROMPT 2 9 ""    
  FIELD LF_QUAP->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 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

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 40 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<69> versamento "
END

LIST QPF_TIPOVERS 1 18
BEGIN              
  PROMPT 2 12 ""
  ITEM " |Nessuno"   
  MESSAGE SHOW,97|SHOW,99|HIDE,96|HIDE,98|ENABLE,QPF_SERIE|HIDE,NUM_SERIE@
  ITEM "B|Delega bancaria"
  MESSAGE HIDE,TEXT_NUM_SERIE@|SHOW,ABI_CAB@|ENABLE,ABI_CAB@|HIDE,NUM_SERIE@
  ITEM "D|Distinta"
  MESSAGE SHOW,TEXT_NUM_SERIE@|ENABLE,NUM_SERIE@|SHOW,NUM_SERIE@|HIDE,ABI_CAB@|DISABLE,ABI_CAB@
  ITEM "C|C/C Postale"                   
  MESSAGE SHOW,TEXT_NUM_SERIE@|CLEAR,QPF_ABI|CLEAR,QPF_SERIE|HIDE,ABI_CAB@
  MESSAGE DISABLE,QPF_SERIE|DISABLE,ABI_CAB@
  FIELD LF_QUAP->TIPOVERS
END

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

DATE QPF_DATAVERS 
BEGIN
  PROMPT 43 12 "Data versamento "
  FIELD LF_QUAP->DATAVERS  
END

STRING QPF_SERIE 5
BEGIN
  PROMPT 23 14 ""
  FIELD LF_QUAP->SERIE
  GROUP NUM_SERIE
END

STRING QPF_NUMERO 11
BEGIN
  PROMPT 58 14 ""
  FIELD LF_QUAP->NUMERO  
  GROUP NUM_SERIE
END

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

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


ENDPAGE

ENDMASK