#include "cg1300.h"

PAGE "Aggiornamento codice attivita'" -1 -1 72 12

NUMBER F_CODDITTA 5
BEGIN
    PROMPT 1 1 "Ditta             "
    FLAGS "FRD"
    USE LF_NDITTE KEY 1  
    CHECKTYPE REQUIRED
    INPUT CODDITTA F_CODDITTA
    OUTPUT F_CODDITTA CODDITTA
    OUTPUT F_RAGSOC RAGSOC                  
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 1 2 "Ragione sociale   "
  FLAGS "D"
END

BOOLEAN F_PASS
BEGIN
  PROMPT 1 4 "Passaggio dati iva a nuova attivita' "
  HELP "Indicare se richiedere o no il passaggio dati dalla vecchia alla nuova attivita'"
  //MESSAGE TRUE ENABLE,F_DA|ENABLE,F_A|REQUIRED,F_ANNO
  MESSAGE TRUE SHOW,1@
  //MESSAGE FALSE DISABLE,F_DA|DISABLE,F_A|NORMAL,F_ANNO
  MESSAGE FALSE HIDE,1@|RESET,1@
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 5 "Anno liquidazione iva "
  HELP "Introdurre l'anno di liquidazione iva"
  GROUP 1
  FLAGS "A"
  VALIDATE FIXLEN_FUNC 4
  CHECKTYPE REQUIRED
//VALIDATE REQIF_FUNC 1 F_PASS
END

STRING F_DA 5
BEGIN
  PROMPT 1 7 "DA "
  HELP "Introdurre il codice della vecchia attivita'"
  GROUP 1
  FLAGS "RZ"
  USE LF_ATTIV
  JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT CODATT F_DA
  DISPLAY "Codice attivita'" LF_ATTIV->CODATT
  DISPLAY "Descrizione @40" LF_ATTIV->DESCR
  OUTPUT F_DA LF_ATTIV->CODATT
  OUTPUT F_DENATTV LF_ATTIV->DESCR 
  CHECKTYPE REQUIRED
  WARNING "Attivita' assente"
END

STRING F_DENATTV 40
BEGIN
  PROMPT 12 7 ""
  GROUP 1
  FLAGS "D"
END

STRING F_A 5
BEGIN
  PROMPT 1 8 "A  " 
  HELP "Introdurre il codice della nuova attivita'"
  GROUP 1
  FLAGS "RZ"
  USE LF_ATTIV
  JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT CODATT F_A
  DISPLAY "Codice attivita'" LF_ATTIV->CODATT
  DISPLAY "Descrizione @40" LF_ATTIV->DESCR
  OUTPUT F_A LF_ATTIV->CODATT
  OUTPUT F_DENATTN LF_ATTIV->DESCR
  CHECKTYPE REQUIRED
  WARNING "Attivita' assente"
//VALIDATE REQIF_FUNC 1 F_PASS
END

STRING F_DENATTN 40
BEGIN
  PROMPT 12 8 ""
  GROUP 1
  FLAGS "D"
END

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

BUTTON DLG_CANCEL 9 2
BEGIN
 PROMPT -22 -1 ""  
END

ENDPAGE

ENDMASK







