Aggiunto invio contabilita'

git-svn-id: svn://10.65.10.50/trunk@1268 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-04-19 07:50:14 +00:00
parent 02999b5693
commit b5a0e2252c
2 changed files with 135 additions and 0 deletions

17
ba/batbind.h Executable file
View File

@ -0,0 +1,17 @@
// Campi maschera tabella ditte per invio
#define F_DITTAINV 101
#define F_CAUSALI 102
#define F_CLIFO 103
#define F_PCON 104
#define F_MOV 105
#define F_IVA 106
#define F_FATT 107
#define F_NUMULINV 108
#define F_DATAULIN 109
#define F_STATO 110
#define F_RAGSOC 111
#define F_USELAB 112
#define F_CHIAVE 113
#define F_NOMEID 114
#define F_GHOST_FIELD 115

118
ba/batbind.uml Executable file
View File

@ -0,0 +1,118 @@
#include "batbind.h"
TOOLBAR "" 0 18 0 3
#include <toolbar.h>
ENDPAGE
PAGE "Tabella ditte per invio" -1 -1 78 18
NUMBER F_DITTAINV 5
BEGIN
PROMPT 2 1 "Codice ditta inviante "
FIELD %IND->CODTAB
FLAGS "Z"
KEY 1
USE %IND
INPUT CODTAB[1,5] F_DITTAINV
DISPLAY "Codice ditta inviante" CODTAB
DISPLAY "Ultimo numero invio" I0
DISPLAY "Ultima data invio" D0
DISPLAY "Stato ultimo tras." S6
OUTPUT F_DITTAINV CODTAB
OUTPUT F_NUMULINV I0
OUTPUT F_DATAULIN D0
OUTPUT F_STATO S6
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
FLAGS "D"
END
GROUPBOX DLG_NULL 76 8
BEGIN
PROMPT 1 4 "Archivi da inviare"
END
BOOLEAN F_CAUSALI
BEGIN
PROMPT 2 5 "Tabella causali"
FIELD %IND->B0
END
BOOLEAN F_CLIFO
BEGIN
PROMPT 2 6 "Anagrafico Clienti/Fornitori"
FIELD %IND->B1
END
BOOLEAN F_PCON
BEGIN
PROMPT 2 7 "Anagrafico Piano dei Conti"
FIELD %IND->B2
END
BOOLEAN F_MOV
BEGIN
PROMPT 2 8 "Movimenti Prima Nota"
FIELD %IND->B3
END
BOOLEAN F_IVA
BEGIN
PROMPT 2 9 "Movimenti Iva"
FIELD %IND->B4
END
BOOLEAN F_FATT
BEGIN
PROMPT 2 10 "Scadenze Fattura / Pagamento Rate"
FIELD %IND->B5
// FLAGS "D"
END
NUMBER F_NUMULINV 3
BEGIN
PROMPT 2 13 "Numero ultimo invio "
FIELD %IND->I0
FLAGS "RG"
END
DATE F_DATAULIN
BEGIN
PROMPT 44 13 "Data ultimo invio "
FIELD %IND->D0
FLAGS "G"
END
STRING F_STATO 1
BEGIN
PROMPT 2 14 "Stato ultimo invio "
FIELD %IND->S6
FLAGS "G"
END
STRING F_USELAB 1
BEGIN
PROMPT 26 14 ""
FLAGS "G"
END
STRING F_CHIAVE 15
BEGIN
PROMPT 29 14 ""
FLAGS "G"
END
STRING F_GHOST_FIELD 1
BEGIN
PROMPT -1 -30 ""
END
ENDPAGE
ENDMASK