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	G_ABICAB			7
#define	G_DISTINTA		8
#define	G_CC					9

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       
  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 G_DISTINTA
END

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

TEXT 98
BEGIN
  PROMPT 40 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 QPF_TIPOVERS 1 18
BEGIN              
  PROMPT 2 12 ""
  ITEM " |Nessuno"   
  MESSAGE HIDE,G_DISTINTA@|HIDE,G_ABICAB@|HIDE,G_CC@
  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_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           
  WARNING "Manca la data versamento"
  VALIDATE REQIF_FUNC 1 QPF_TIPOVERS
END

STRING QPF_SERIE 5
BEGIN
  PROMPT 23 14 ""
  FIELD LF_QUAP->SERIE
  WARNING "Manca la serie"
  VALIDATE REQIF_FUNC 1 QPF_TIPOVERS
  GROUP G_DISTINTA
END

STRING QPF_NUMERO 11
BEGIN
  PROMPT 58 14 ""        
  WARNING "Manca il numero"
  VALIDATE REQIF_FUNC 1 QPF_TIPOVERS
  FIELD LF_QUAP->NUMERO  
  GROUP G_DISTINTA
END

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

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

STRING QPF_CCQUIETANZA 11
BEGIN
  PROMPT 58 14 ""        
  WARNING "Manca il numero quietanza"
  VALIDATE REQIF_FUNC 1 QPF_TIPOVERS
  FIELD LF_QUAP->NUMERO  
  GROUP G_CC
END

ENDPAGE

ENDMASK