campo-sirio/m770/77qgda.uml

// Distinta quadro G
#include "77qgd.h"       

TOOLBAR "" 0 19 0 3
#include <toolbar.h>

BUTTON DLG_GENERA 24 1
BEGIN
  PROMPT -11 0 "~Generazione da schede"
END

ENDPAGE

PAGE "Distinta quadro G" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
    PROMPT 3 1 "Ditta  "
    FLAGS "GRD"
    KEY 1
    CHECKTYPE REQUIRED             
    USE LF_NDITTE KEY 1
    INPUT CODDITTA F_CODDITTA
    OUTPUT F_RAGDITTA RAGSOC
    FIELD CODDITTA
END

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

NUMBER F_ANNODIC 4
BEGIN
    PROMPT 52 3 "Anno dichiarazione "
    FLAGS "DR"
END

GROUPBOX DLG_NULL 78 5
BEGIN
    PROMPT 1 4 ""
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 5 "@bDati percipiente "
END

LIST F_TIPOA 1 12
BEGIN
  PROMPT 2 6 ""    
  ITEM "F|Fisica"
  ITEM "G|Giuridica"   
  FIELD TIPOA
  KEY 1
END

NUMBER F_CODANAGRPERC 5
BEGIN
  PROMPT 17 6 "" 
  FIELD CODANAGR
  USE LF_QUAGD SELECT NPROG=1
  JOIN LF_ANAG INTO TIPOA=TIPOA CODANAGR=CODANAGR  
  INPUT CODDITTA  F_CODDITTA SELECT
  INPUT TIPOA F_TIPOA SELECT
  INPUT CODANAGR F_CODANAGRPERC
  INPUT NPROG F_NPROG
  DISPLAY "Tipo " TIPOA
  DISPLAY "Codice " CODANAGR
  DISPLAY "Cognome - Nome o Ragione sociale@50" LF_ANAG->RAGSOC
  OUTPUT F_TIPOA TIPOA
  OUTPUT F_CODANAGRPERC CODANAGR
  OUTPUT F_CODANAGRCOM CODANAGR
  CHECKTYPE REQUIRED        
  MESSAGE COPY,F_CODANAGRCOM
  ADD RUN 775 -0
  GROUP 2
  KEY 1
END

NUMBER F_CODANAGRCOM 5
BEGIN
  PROMPT 17 6 "" 
  FIELD CODANAGR
  USE LF_ANAG 
  INPUT TIPOA F_TIPOA SELECT
  INPUT CODANAGR F_CODANAGRCOM
  DISPLAY "Tipo " TIPOA
  DISPLAY "Codice " CODANAGR
  DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
  OUTPUT F_TIPOA TIPOA
  OUTPUT F_CODANAGRCOM CODANAGR
  OUTPUT F_RAGSOCCOM RAGSOC
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_CODANAGRPERC  
  ADD RUN BA4 -1
  KEY 1
  GROUP 1
END

STRING F_RAGSOCCOM 50
BEGIN
  PROMPT 25 6 ""
  FLAGS "D"
  USE LF_ANAG KEY 2 
  INPUT TIPOA F_TIPOA SELECT
  INPUT RAGSOC F_RAGSOCCOM
  DISPLAY "Cognome e nome / Ragione sociale@50" RAGSOC
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR
  OUTPUT F_RAGSOCCOM RAGSOC
  OUTPUT F_CODANAGRCOM CODANAGR
  OUTPUT F_TIPOA TIPOA
  CHECKTYPE REQUIRED
  ADD RUN BA4 -1
  KEY 2
END            

LIST F_NPROG 1 
BEGIN
  PROMPT 0 80 ""
  FLAGS "D"
  ITEM "1|1"
  FIELD NPROG
  KEY 1
END

SPREADSHEET F_RIGHE 78
BEGIN      
  PROMPT 1 9 ""
//  FLAGS "A"
//  USE LF_QUAGD KEY NPROG
//  INPUT CODDITTA F_CODDITTA
//  INPUT TIPOA F_TIPOA
//  INPUT CODANAGR F_CODANAGRPERC
  ITEM "Quote@6"
  ITEM "Utili spettanti@15"
  ITEM "Ritenute sugli\nutili spettanti@15"
  ITEM "Utili pagati@15"
  ITEM "Ritenute sugli\nutili pagati@15"
END

ENDPAGE

ENDMASK

PAGE "RIGA 1" -1 -1 57 8

NUMBER 101 6 2
BEGIN
  PROMPT 1 1 "Percentuale quote                               "
  FIELD NUMQUOTE      
  PICTURE ".2"  
  NUM_EXPR {(#THIS_FIELD>=0)&&(#THIS_FIELD<=100)}
  WARNING "La percentuale deve essere compresa tra 0 e 100"
END

NUMBER 102 15
BEGIN
  PROMPT 1 2 "Utili spettanti                        "
  FIELD UTSPETT
  PICTURE "."  
END

NUMBER 103 15
BEGIN
  PROMPT 1 3 "Ritenute operate sugli utili spettanti "
  FIELD ROPESPET
  PICTURE "."
END

NUMBER 104 15
BEGIN
  PROMPT 1 4 "Utili pagati                           "
  FIELD UTPAG
  PICTURE "."  
END

NUMBER 105 15
BEGIN
  PROMPT 1 5 "Ritenute operate sugli utili pagati    "
  FIELD ROPE
  PICTURE "."
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK