Patch level : no patch (per roberto

Files correlati     : si0.exe
Ricompilazione Demo : [ ]
Commento            :
Liste pagamenti per Sipag
bisogna fare i form (Clienti->Documenti->Righe documento) e evenutalmente aggiornare i filtri
 nel programma.
chiamata si0 -1 <nome form> (si0200a si0200b si0200c si0200d)


git-svn-id: svn://10.65.10.50/trunk@9969 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2001-12-18 15:15:54 +00:00
parent d6ca44f622
commit 1df7e51643
3 changed files with 358 additions and 1705 deletions

File diff suppressed because it is too large Load Diff

View File

@ -1,6 +1,20 @@
// trasferimento dati a CT Bologna
// definizione campi per maschera di selezione
#define F_CODNUM 101
#define F_ANNO 102
#define F_PROVV 103
#define F_DA_NDOC 106
#define F_A_NDOC 107
//#define F_TRASFERIMENTO 101 // trasferimento totale o parziale
#define F_DATAINI 101 // data inizio modifiche per trasferimento parziale
#define F_FILENAME 102 // nome del file dove scaricare i dati
#define F_DA_DATADOC 108
#define F_A_DATADOC 109
#define F_TIPOCF 110
#define F_CODFR 111
#define F_CODTO 112
#define F_RAGSOCFR 113
#define F_RAGSOCTO 114
#define F_SERVFR 115
#define F_SERVTO 116
#define F_SHEETNUMS 201
#define GROUP_IMPORTI 31

View File

@ -1,237 +1,228 @@
TO "" 0 -3 0 2
ST 30 70 50
BE
PR 2 -3 "Profilo "
PSELECT
GR 1
EN
BU 24 10 2
BE
PR -12 -1 "~Stampa"
ME EXIT,13
EN
BU 2 10 2
BE
PR -22 -1 ""
EN
EN
#include "si0200a.h"
TOOLBAR "" 0 -3 0 2
STRING DLG_PROFILE 70 50
BEGIN
PR 2 -3 "Profilo "
PSELECT
GR 1
END
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PA "Stampe Pagamenti" -1 2 80 20
NU 102 4 0
BE
PR 2 1 "Anno "
FLAG "P"
CH REQUIRED
EN
LI 103 12
BE
PR 25 1 "Tipo numerazione "
IT "D|Definitiva"
IT "P|Provvisoria"
FLAG "P"
EN
SPREADSHEET 201 78 4
BE
PR 1 2 ""
IT "Cod. num."
IT "Stato 1"
IT "Stato 2"
IT "Stato 3"
IT "Stato 4"
IT "Stato 5"
IT "Stato 6"
EN
NUMBER F_ANNO 4 0
BEGIN
PROMPT 2 1 "Anno "
FLAG "P"
CHECKTYPE REQUIRED
END
LI 110 1 9
BE
PR 2 7 "Tipo "
IT "C|Clienti"
IT "F|Fornitori"
EN
LIST F_PROVV 12
BEGIN
PROMPT 25 1 "Tipo numerazione "
ITEM "D|Definitiva"
ITEM "P|Provvisoria"
FLAG "P"
END
NU 111 6
BE
PR 68 8 ""
FL "B"
EN
NU 112 6
BE
PR 68 9 ""
FL "B"
EN
SPREADSHEET F_SHEETNUMS 55 8
BEGIN
PROMPT 1 2 ""
ITEM "Cod. num."
ITEM "Stato 1"
ITEM "Stato 2"
ITEM "Stato 3"
ITEM "Stato 4"
ITEM "Stato 5"
ITEM "Stato 6"
END
ST 119 50 50
BE
PR 2 8 "Dal Cliente "
US 20 KE 2
IN TIPOCF 110
IN RAGSOC 119
DI "Ragione Sociale@50" RAGSOC
DI "Codice " CODCF
OU 111 CODCF
OU 119 RAGSOC
EN
ST 120 50 50
BE
PR 2 9 "Al Cliente "
US 20 KE 2
IN TIPOCF 110
IN RAGSOC 120
DI "Ragione Sociale@50" RAGSOC
DI "Codice " CODCF
OU 112 CODCF
OU 120 RAGSOC
EN
ST 121 20
BE
PR 2 10 "Dal Servizio "
US 47 KE 1
IN CODART 121
DI "Codice " CODART
DI "Descrizione@50" DESCR
OU 121 CODART
EN
ST 122 20
BE
PR 2 11 "Al Servizio "
US 47 KE 1
IN CODART 122
DI "Codice " CODART
DI "Descrizione@50" DESCR
OU 122 CODART
EN
LIST F_TIPOCF 1 9
BEGIN
PROMPT 2 10 "Tipo "
ITEM "C|Clienti"
ITEM "F|Fornitori"
END
DA 108
BE
PR 2 12 "Dalla Data "
EN
DA 109
BE
PR 27 12 "Alla Data "
EN
STRING F_RAGSOCFR 50
BEGIN
PROMPT 2 11 "Dal Cliente "
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOCF SELECT
INPUT RAGSOC F_RAGSOCFR
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice " CODCF
OUTPUT F_RAGSOCFR RAGSOC
OUTPUT F_CODFR CODCF
END
NUMBER F_CODFR 6
BEGIN
PROMPT 68 11 "Da codice "
USE LF_CLIFO
INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODFR
DISPLAY "Codice " CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
COPY OUTPUT F_RAGSOCFR
END
ST 113 5
STRING F_RAGSOCTO 50
BE
PR 25 16 "Scelte n. "
FL "DR"
EN
PROMPT 2 12 "Al Cliente "
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOCF SELECT
INPUT RAGSOC F_RAGSOCTO
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice " CODCF
OUTPUT F_RAGSOCTO RAGSOC
OUTPUT F_CODTO CODCF
END
BU 114 10 2
BE
PR 45 16 "~Selezione"
PI 115
EN
BU 115 10
BE
PR 45 18 "A~zzera"
EN
RA 116 20
BE
PR 2 15 "Stampa documenti"
IT "1|Valuta ditta"
ME CLEAR,117
IT "2|In valuta"
ME ENABLE,117
IT "3|Tutti"
ME CLEAR,117
EN
ST 117 3
BE
PR 25 17 "Cod. val. "
FL "U"
US %VAL
IN CODTAB 117
DI "Codice" CODTAB
DI "Descrizione@50" S0
OU 117 CODTAB
CH REQUIRED
EN
BO 118
BE
PR 25 18 "Dettaglio righe"
EN
EN
NUMBER F_CODTO 6
BEGIN
PROMPT 68 12 "A codice "
USE LF_CLIFO
INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODTO
DISPLAY "Codice " CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
COPY OUTPUT F_RAGSOCTO
END
STRING F_SERVFR 20
BEGIN
PROMPT 2 13 "Dal Servizio "
USE 47
INPUT CODART F_SERVFR
DISPLAY "Codice " CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SERVFR CODART
END
STRING F_SERVTO 20
BEGIN
PR 2 14 "Al Servizio "
USE 47
INPUT CODART F_SERVTO
DISPLAY "Codice " CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SERVTO CODART
END
DATE F_DA_DATADOC
BEGIN
PROMPT 2 15 "Dalla Data "
END
DATE F_A_DATADOC
BEGIN
PROMPT 27 15 "Alla Data "
END
ENDPAGE
ENDMASK
PA "" -1 -1 75 10
ST 101 4
BE
PR 1 1 "Codice numerazione "
FLAG "U"
US %NUM
IN CODTAB 101
DI "Cod. Num." CODTAB
DI "Descrizione@50" S0
OU 101 CODTAB
CH NORMAL
EN
ST 102 1
BE
PR 1 3 "Stato 1 "
US %STD
IN CODTAB 102
DI "Stato" CODTAB
DI "Descrizione@50" S0
OU 102 CODTAB
CH NORMAL
EN
ST 103 1
BE
PR 1 4 "Stato 2 "
US %STD
IN CODTAB 103
DI "Stato" CODTAB
DI "Descrizione@50" S0
OU 103 CODTAB
CH NORMAL
EN
ST 104 1
BE
PR 1 5 "Stato 3 "
US %STD
IN CODTAB 104
DI "Stato" CODTAB
DI "Descrizione@50" S0
OU 104 CODTAB
CH NORMAL
EN
ST 105 1
BE
PR 1 6 "Stato 4 "
US %STD
IN CODTAB 105
DI "Stato" CODTAB
DI "Descrizione@50" S0
OU 105 CODTAB
CH NORMAL
EN
ST 106 1
BE
PR 1 7 "Stato 5 "
US %STD
IN CODTAB 106
DI "Stato" CODTAB
DI "Descrizione@50" S0
OU 106 CODTAB
CH NORMAL
EN
ST 107 1
BE
PR 1 8 "Stato 6 "
US %STD
IN CODTAB 107
DI "Stato" CODTAB
DI "Descrizione@50" S0
OU 107 CODTAB
CH NORMAL
EN
BU 1 9 2
BE
PR -12 -1 ""
EN
BU 2 9 2
BE
PR -22 -1 ""
EN
EN
PAGE "" -1 -1 75 10
STRING 101 4
BEGIN
PROMPT 1 1 "Codice numerazione "
FLAG "U"
USE %NUM
INPUT CODTAB 101
DISPLAY "Cod. Num." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 101 CODTAB
CHECKTYPE NORMAL
END
STRING 102 1
BEGIN
PROMPT 1 3 "Stato 1 "
USE %STD
INPUT CODTAB 102
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 102 CODTAB
CHECKTYPE NORMAL
END
STRING 103 1
BEGIN
PROMPT 1 4 "Stato 2 "
USE %STD
INPUT CODTAB 103
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 103 CODTAB
CHECKTYPE NORMAL
END
STRING 104 1
BEGIN
PROMPT 1 5 "Stato 3 "
USE %STD
INPUT CODTAB 104
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 104 CODTAB
CHECKTYPE NORMAL
END
STRING 105 1
BEGIN
PROMPT 1 6 "Stato 4 "
USE %STD
INPUT CODTAB 105
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 105 CODTAB
CHECKTYPE NORMAL
END
STRING 106 1
BEGIN
PROMPT 1 7 "Stato 5 "
USE %STD
INPUT CODTAB 106
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 106 CODTAB
CHECKTYPE NORMAL
END
STRING 107 1
BEGIN
PROMPT 1 8 "Stato 6 "
USE %STD
INPUT CODTAB 107
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 107 CODTAB
CHECKTYPE NORMAL
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK