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