campo-sirio/m770/776600a.uml

// 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

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

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 "~Registra"   
  MESSAGE EXIT,K_SAVE   
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
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   

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

ENDPAGE

ENDMASK