#include "776100a.h"

PAGE "Selezione Ditta" -1 -1 64 8

LISTBOX F_TIPOQUA 2
BEGIN                   
  PROMPT 90 90 ""
  KEY 1
  FIELD LF_BASE->TIPOQUA
END

/*
NUMBER F_CODDIC 6
BEGIN
  PROMPT 1 3 "Codic "
//  FLAGS "D"
  KEY 1
  FIELD LF_BASE->CODDIC
//  CHECKTYPE REQUIRED
END
*/

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Codice    "
  HELP "Codice della ditta da selezionare"
//  FLAGS "R"
  USE LF_BASE KEY 1 SELECT (TIPOQUA!="D")
  JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA
  INPUT TIPOQUA  F_TIPOQUA
  INPUT CODDITTA F_CODDITTA
//  INPUT CODDIC  F_CODDIC
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
  OUTPUT F_TIPOQUA	TIPOQUA
//  OUTPUT F_CODDIC	CODDIC
  OUTPUT F_CODDITTA CODDITTA     
  OUTPUT F_RAGDITTA LF_NDITTE->RAGSOC
  FIELD LF_BASE->CODDITTA
  HELP "Inserire la ditta"
  WARNING "Manca la ditta"
  CHECKTYPE REQUIRED
  KEY 1
  GROUP 1
END

STRING F_RAGDITTA 50
BEGIN
  PROMPT 1 2 "Rag. Soc. "
  USE LF_NDITTE KEY 2 
  JOIN LF_BASE TO LF_NDITTE KEY 1 INTO CODDITTA=CODDITTA 
  HELP "Ragione sociale della ditta da selezionare"
  INPUT RAGSOC F_RAGDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODDITTA
  OUTPUT F_CODDITTA CODDITTA     
  OUTPUT F_RAGDITTA LF_NDITTE->RAGSOC
  KEY 2
  GROUP 1
END

NUMBER F_ANNODIC 4
BEGIN
  PROMPT 1 4 "Anno dichiarazione "
  FLAGS "D"
END

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_NULL 20 2
BEGIN
  PROMTP -22 -1 "Menu' precedente"  
  MESSAGE EXIT,K_QUIT
END

ENDPAGE

ENDMASK

