fc5ba87cdd
Files correlati : Ricompilazione Demo : [ ] Commento : riporto dalla 11 git-svn-id: svn://10.65.10.50/branches/R_10_00@20915 c028cbd2-c16b-5b4b-a496-9718f37d4682
168 lines
2.7 KiB
Plaintext
Executable File
168 lines
2.7 KiB
Plaintext
Executable File
#include "ha0500a.h"
|
|
|
|
PAGE "Generazione NAC" -1 -1 78 11
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 1 1 "@bParametri documenti"
|
|
END
|
|
|
|
STRING F_CODAGE 6
|
|
BEGIN
|
|
PROMPT 2 2 "Agente "
|
|
FLAGS "U"
|
|
USE LF_AGENTI
|
|
INPUT CODAGE F_CODAGE
|
|
DISPLAY "Codice" CODAGE
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|
OUTPUT F_CODAGE CODAGE
|
|
OUTPUT F_DESCRAGE RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCRAGE 50
|
|
BEGIN
|
|
PROMPT 22 2 ""
|
|
USE LF_AGENTI KEY 2
|
|
INPUT RAGSOC F_DESCRAGE
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|
DISPLAY "Codice" CODAGE
|
|
COPY OUTPUT F_CODAGE
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODCF 6
|
|
BEGIN
|
|
PROMPT 2 3 "Cliente "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 22 3 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_CODCF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
DATE F_DADATA
|
|
BEGIN
|
|
PROMPT 2 4 "Da data "
|
|
END
|
|
|
|
DATE F_ADATA
|
|
BEGIN
|
|
PROMPT 22 4 "A data "
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE DATE_CMP_FUNC >= F_DADATA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 6 "@bParametri elaborazione"
|
|
END
|
|
|
|
DATE F_DATAELAB
|
|
BEGIN
|
|
PROMPT 2 7 "Data elaborazione "
|
|
FLAGS "A"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
BOOLEAN F_DEFINITIVO
|
|
BEGIN
|
|
PROMPT 40 7 "Definitivo"
|
|
END
|
|
|
|
/*RADIOBUTTON F_TIPOCONTR 1 72
|
|
BEGIN
|
|
PROMPT 2 8 "@bTipi contratto da elaborare"
|
|
ITEM "A|Anticipo"
|
|
ITEM "P|Posticipo"
|
|
ITEM "R|Rifatturazione"
|
|
FLAGS "Z"
|
|
END
|
|
|
|
STRING F_CODNUM_NAC 4
|
|
BEGIN
|
|
PROMPT 2 11 "Num. doc. NAC "
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM_NAC
|
|
DISPLAY "Codice@8" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM_NAC CODTAB
|
|
OUTPUT F_DESCRNUM_NAC S0
|
|
FLAGS "DG"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESCRNUM_NAC 50 43
|
|
BEGIN
|
|
PROMPT 29 11 ""
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_DESCRNUM_NAC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@8" CODTAB
|
|
COPY OUTPUT F_CODNUM_NAC
|
|
FLAGS "DG"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODTIPO_NAC 4
|
|
BEGIN
|
|
PROMPT 2 12 "Tipo doc. NAC "
|
|
USE %TIP
|
|
INPUT CODTAB F_CODTIPO_NAC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODTIPO_NAC CODTAB
|
|
OUTPUT F_DESCRTIPO_NAC S0
|
|
FLAGS "DG"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESCRTIPO_NAC 50 43
|
|
BEGIN
|
|
PROMPT 29 12 ""
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESCRTIPO_NAC
|
|
DISPLAY "Descrizione@60" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODTIPO_NAC
|
|
FLAGS "DG"
|
|
CHECKTYPE NORMAL
|
|
END*/
|
|
|
|
BOOLEAN F_KILLPROVV
|
|
BEGIN
|
|
PROMPT 1 9 "Eliminare tutte le note di accredito provvisorie"
|
|
END
|
|
|
|
STRING DLG_PROFILE 50
|
|
BEGIN
|
|
PROMPT 1 -1 "Profilo "
|
|
PSELECT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
#include <elabar.h>
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|