#include "ve4200a.h"

PAGE "Aggiornamento codice IVA" -1 -1 37 13

RADIOBUTTON F_FILE 2 34
BEGIN
  PROMPT 1 0 "@bArchivio da elaborare"
  ITEM "47|Anagrafica di magazzino"
  ITEM "53|Condizioni di vendita"
  ITEM "33|Documenti"
END

GROUPBOX DLG_NULL 34 5
BEGIN
  PROMPT 1 5 "@bParametri di selezione"
END

DATE F_DAL 
BEGIN
  PROMPT 2 6 "Data iniziale "
  CHEKCTYPE REQUIRED
  FLAGS "A"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 7 "Numerazione   "
  FLAGS "U"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_CODNUM CODTAB
  CHECKTYPE REQUIRED
END

STRING F_STATO 1
BEGIN
  PROMPT 2 8 "Stato         "
  FLAGS "U"
  USE %STD
  INPUT CODTAB F_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_STATO CODTAB
  CHECKTYPE REQUIRED
END


GROUPBOX DLG_NULL 34 4
BEGIN
  PROMPT 1 10 "@bParametri di elaborazione"
END

STRING F_OLDCODIVA 4
BEGIN
  PROMPT 2 11 "Vecchio codice IVA "
  FLAGS "U"
  USE %IVA
  INPUT CODTAB F_OLDCODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_OLDCODIVA CODTAB
  CHECKTYPE REQUIRED
END

STRING F_NEWCODIVA 4
BEGIN
  PROMPT 2 12 "Nuovo codice IVA   "
  FLAGS "U"
  COPY USE F_OLDCODIVA
  INPUT CODTAB F_NEWCODIVA
  COPY DISPLAY F_OLDCODIVA
  OUTPUT F_NEWCODIVA CODTAB
  CHECKTYPE REQUIRED
  STR_EXPR #F_NECODIVA!=#F_OLDCODIVA
  WARNING "Inserire un codice diverso dal precedente"
END

STRING DLG_PROFILE 256 24
BEGIN
  PROMPT 1 -1 "Profilo "
  PSELECT
  FLAGS "H"
END

ENDPAGE

TOOLBAR "" 0 0 0 2

#include <elabar.h>

ENDPAGE

ENDMASK