// 776600a.uml  - Gestione estinti-dichiaranti

#include "776600a.h"

PAGE "Gestione dichiarante / estinti" -1 -1 78 8

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

STRING F_TIPOQUA 2
BEGIN
  PROMPT 80 80 ""
  FIELD LF_BASE->TIPOQUA
  KEY 1
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "              
  USE LF_BASE KEY 1
  JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
  OUTPUT F_CODDIC CODDITTA  
  OUTPUT F_RAGDITTA LF_NDITTE->RAGSOC
  FLAGS "DG"
  FIELD LF_BASE->CODDITTA
  CHECKTYPE REQUIRED
END

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

// serve solo per costruire un Browse_sheet. v. 776600.cpp
NUMBER F_CODDIC_DUMMY 5
BEGIN
  PROMPT 1 1 ""
  USE LF_BASE KEY 2 
  JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
  OUTPUT F_CODDIC CODDITTA  
  FLAGS "HG"
END

NUMBER F_CODDIC 5
BEGIN
  PROMPT 1 3 "Soggetto dichiarante "
  USE LF_BASE KEY 1 SELECT ((CODDITTA!=#F_CODDITTA)&&(CODDIC="")&&(TIPOQUA!="D"))
  JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA
  INPUT TIPOQUA  F_TIPOQUA
  INPUT CODDITTA F_CODDIC
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
  OUTPUT F_CODDIC CODDITTA  
  OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
  FIELD LF_BASE->CODDIC
  WARNING "Ditta dichiarante non valida"
  HELP "Indicare la ditta dichiarante"
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 1 4 "Ragione              "
  FLAGS "D"
END

BUTTON DLG_SAVEREC 9 2
BEGIN
  PROMPT -13 -1 ""   
  MESSAGE EXIT,K_SAVE  
END

BUTTON DLG_QUIT 8 2
BEGIN
  PROMPT -23 -1 ""   
  MESSAGE EXIT,K_QUIT  
END

BUTTON F_ESTINTI 16 2
BEGIN
  PROMPT -33 -1 "~Soggetti estinti"
END

/***
BUTTON DLG_NULL 20 2
BEGIN
  PROMPT -44 -1 "Menu' precedente"  
  MESSAGE EXIT,K_QUIT
END
****/

ENDPAGE

ENDMASK