b1b181a918
Files correlati : pd0610 pd061300a.msk Ricompilazione Demo : [ ] Commento : Aggiunto il programma che modifica le condizioni di pagamento sui documenti filtrati in base a numdoc, stato, da cliente a cliente, da data a data - Primo step: mancano alcuni test git-svn-id: svn://10.65.10.50/branches/R_10_00@21354 c028cbd2-c16b-5b4b-a496-9718f37d4682
178 lines
3.0 KiB
Plaintext
Executable File
178 lines
3.0 KiB
Plaintext
Executable File
#include "pd0610300a.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
#include <elabar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Elaborazione" -1 -1 80 0
|
|
|
|
GROUPBOX DLG_NULL 78 8
|
|
BEGIN
|
|
PROMPT 1 1 "@bParametri filtro"
|
|
END
|
|
|
|
STRING F_CODNUM 4
|
|
BEGIN
|
|
PROMPT 2 2 "Num. doc. "
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM CODTAB
|
|
OUTPUT F_DESNUM S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_DESNUM 50
|
|
BEGIN
|
|
PROMPT 25 2 ""
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_DESNUM
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODNUM
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_TIPODOC 4
|
|
BEGIN
|
|
PROMPT 2 3 "Tipo doc. "
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC CODTAB
|
|
OUTPUT F_DESTIPODOC S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_DESTIPODOC 50
|
|
BEGIN
|
|
PROMPT 25 3 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESTIPODOC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_STATO 1
|
|
BEGIN
|
|
PROMPT 2 4 "Stato "
|
|
USE %STD
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODTAB F_STATO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_STATO CODTAB
|
|
OUTPUT F_DESSTATO S0
|
|
FLAGS "U"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESSTATO 50
|
|
BEGIN
|
|
PROMPT 25 4 ""
|
|
USE %STD KEY 2
|
|
CHECKTYPE REQUIRED
|
|
INPUT S0 F_DESSTATO
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_STATO
|
|
FLAGS "U"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_DACODCF 6
|
|
BEGIN
|
|
PROMPT 2 5 "Da cliente "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C" SELECT
|
|
INPUT CODCF F_DACODCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|
OUTPUT F_DACODCF CODCF
|
|
OUTPUT F_DARAGSOC RAGSOC
|
|
END
|
|
|
|
STRING F_DARAGSOC 50
|
|
BEGIN
|
|
PROMPT 25 5 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C" SELECT
|
|
INPUT RAGSOC F_DARAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_DACODCF
|
|
END
|
|
|
|
NUMBER F_ACODCF 6
|
|
BEGIN
|
|
PROMPT 2 6 "A cliente "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C" SELECT
|
|
INPUT CODCF F_ACODCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|
OUTPUT F_ACODCF CODCF
|
|
OUTPUT F_ARAGSOC RAGSOC
|
|
END
|
|
|
|
STRING F_ARAGSOC 50
|
|
BEGIN
|
|
PROMPT 25 6 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C" SELECT
|
|
INPUT RAGSOC F_ARAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_ACODCF
|
|
END
|
|
|
|
DATE F_DADATA
|
|
BEGIN
|
|
PROMPT 2 7 "Filtra documenti dal "
|
|
END
|
|
|
|
DATE F_ADATA
|
|
BEGIN
|
|
PROMPT 37 7 "al "
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 9 "@bNuova Condizione"
|
|
END
|
|
|
|
NUMBER F_CODPAG 4
|
|
BEGIN
|
|
PROMPT 2 10 "Codice Pagamento"
|
|
USE %CPG
|
|
INPUT CODTAB F_CODPAG
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODPAG CODTAB
|
|
OUTPUT F_DESPAG S0
|
|
HELP "Codice condizione di pagamento concordata"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESPAG 50
|
|
BEGIN
|
|
PROMPT 25 10 ""
|
|
USE %CPG KEY 2
|
|
INPUT S0 F_DESPAG
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice pagamento" CODTAB
|
|
COPY OUTPUT F_CODPAG
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK |