campo-sirio/ve/ve4200a.uml
guy c70d24c617 Patch level : nopatch
Files correlati     : vearea.men ve4.exe
Ricompilazione Demo : [ ]
Commento            :
Aggiunto programma aggiornamento codici IVA


git-svn-id: svn://10.65.10.50/branches/R_10_00@22416 c028cbd2-c16b-5b4b-a496-9718f37d4682
2011-09-13 15:10:16 +00:00

96 lines
1.5 KiB
Plaintext

#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