campo-sirio/ba/ba3a00a.uml
alex 834bc1e30d Patch level : xx no patch
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Correzzione relaitive al riporto precedente


git-svn-id: svn://10.65.10.50/trunk@9672 c028cbd2-c16b-5b4b-a496-9718f37d4682
2001-05-07 13:28:51 +00:00

46 lines
762 B
Plaintext
Executable File

#include "ba3a00a.h"
PAGE "Stampa condizioni di pagamento" -1 -1 35 6
STRING F_INIZIO 4
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U#"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD CODTAB
USE %CPG
INPUT CODTAB F_INIZIO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO CODTAB
GROUP 1
ADD NONE
END
STRING F_FINE 4
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U#"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD CODTAB
COPY USE F_INIZIO
INPUT CODTAB F_FINE
COPY DISPLAY F_INIZIO
OUTPUT F_FINE CODTAB
GROUP 2
ADD NONE
END
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK