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