Correzione MI3465 MI3466: aggiunta selezione tabella di

corrispondenza per trasferimento saldaconto extracontabile.


git-svn-id: svn://10.65.10.50/trunk@4220 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-03-18 11:56:34 +00:00
parent 844bc34d22
commit 88e48b99eb
2 changed files with 116 additions and 18 deletions

View File

@ -16,4 +16,11 @@
#define F_NOMEID 114
#define F_GHOST_FIELD 115
#define F_BOLLATO 116
#define F_CODICE 117
#define F_CODICE 117
#define F_CAU_FATT 118
#define F_CAU_NC 119
#define F_CAU_INC 120
#define F_CAU_ABB 121
#define F_CAU_INS 122
#define F_CAU_PAGINS 123

View File

@ -1,12 +1,12 @@
#include "batbind.h"
TOOLBAR "" 0 18 0 2
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella ditte per invio" -1 -1 78 18
PAGE "Tabella ditte per invio" -1 -1 78 20
NUMBER F_DITTAINV 5
BEGIN
@ -35,87 +35,178 @@ END
GROUPBOX DLG_NULL 76 8
BEGIN
PROMPT 1 4 "Archivi da inviare"
PROMPT 1 3 "Archivi da inviare"
END
BOOLEAN F_CAUSALI
BEGIN
PROMPT 2 5 "Tabella causali"
PROMPT 2 4 "Tabella causali"
FIELD %IND->B0
END
BOOLEAN F_CLIFO
BEGIN
PROMPT 2 6 "Anagrafica Clienti/Fornitori"
PROMPT 2 5 "Anagrafica Clienti/Fornitori"
FIELD %IND->B1
END
BOOLEAN F_PCON
BEGIN
PROMPT 2 7 "Anagrafica Piano dei Conti"
PROMPT 2 6 "Anagrafica Piano dei Conti"
FIELD %IND->B2
END
BOOLEAN F_MOV
BEGIN
PROMPT 2 8 "Movimenti Prima Nota"
PROMPT 2 7 "Movimenti Prima Nota"
FIELD %IND->B3
END
BOOLEAN F_IVA
BEGIN
PROMPT 2 9 "Movimenti Iva"
PROMPT 2 8 "Movimenti Iva"
FIELD %IND->B4
END
BOOLEAN F_FATT
BEGIN
PROMPT 2 10 "Scadenze Fattura / Pagamento Rate"
PROMPT 2 9 "Scadenze Fattura / Pagamento Rate"
FIELD %IND->B5
MESSAGE TRUE ENABLE,1@
MESSAGE FALSE CLEAR,1@
// FLAGS "D"
END
GROUPBOX DLG_NULL 76 5
BEGIN
PROMPT 1 11 "Causali di corrispondenza movimenti extracontabili"
END
STRING F_CAU_FATT 3
BEGIN
FLAGS "UZ"
PROMPT 2 12 "Fattura "
FIELD S5[1,3]
USE LF_CAUSALI SELECT TIPOMOV==1
INPUT CODCAUS F_CAU_FATT
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_FATT CODCAUS
CHECKTYPE NORMAL
GROUP 1
END
STRING F_CAU_NC 3
BEGIN
FLAGS "UZ"
PROMPT 2 13 "Nota di credito "
FIELD S5[4,6]
USE LF_CAUSALI SELECT TIPOMOV==2
INPUT CODCAUS F_CAU_NC
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_NC CODCAUS
CHECKTYPE NORMAL
GROUP 1
END
STRING F_CAU_INC 3
BEGIN
FLAGS "UZ"
PROMPT 2 14 "Incasso/Pagamento "
FIELD S5[7,9]
USE LF_CAUSALI SELECT TIPOMOV==3
INPUT CODCAUS F_CAU_INC
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_INC CODCAUS
CHECKTYPE NORMAL
GROUP 1
END
STRING F_CAU_ABB 3
BEGIN
FLAGS "UZ"
PROMPT 40 12 "Abbuono "
FIELD S5[10,12]
USE LF_CAUSALI SELECT TIPOMOV==4
INPUT CODCAUS F_CAU_ABB
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_ABB CODCAUS
CHECKTYPE NORMAL
GROUP 1
END
STRING F_CAU_INS 3
BEGIN
FLAGS "UZ"
PROMPT 40 13 "Insoluto "
FIELD S5[13,15]
USE LF_CAUSALI SELECT TIPOMOV==5
INPUT CODCAUS F_CAU_INS
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_INS CODCAUS
CHECKTYPE NORMAL
GROUP 1
END
STRING F_CAU_PAGINS 3
BEGIN
FLAGS "UZ"
PROMPT 40 14 "Pagamento insoluto "
FIELD S5[16,18]
USE LF_CAUSALI SELECT TIPOMOV==6
INPUT CODCAUS F_CAU_PAGINS
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_PAGINS CODCAUS
CHECKTYPE NORMAL
GROUP 1
END
BOOLEAN F_BOLLATO
BEGIN
PROMPT 1 12 "Imposta il flag di bollato"
PROMPT 1 16 "Imposta il flag di bollato"
FIELD %IND->B7
END
NUMBER F_NUMULINV 3
BEGIN
PROMPT 1 13 "N.ro ult.invio "
PROMPT 1 17 "N.ro ult.invio "
FIELD %IND->I0
FLAGS "RG"
END
DATE F_DATAULIN
BEGIN
PROMPT 46 13 "Data ultimo invio "
PROMPT 46 17 "Data ultimo invio "
FIELD %IND->D0
FLAGS "G"
END
STRING F_STATO 1
BEGIN
PROMPT 1 14 "Stato ultimo "
PROMPT 1 18 "Stato ultimo "
FIELD %IND->S6
FLAGS "GU"
END
STRING F_USELAB 1
BEGIN
PROMPT 20 14 ""
PROMPT 20 18 ""
FLAGS "GU"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 15 "invio "
PROMPT 1 19 "invio "
END
STRING F_CHIAVE 60
BEGIN
PROMPT 16 15 ""
PROMPT 16 19 ""
FLAGS "GU"
END
@ -124,7 +215,7 @@ BEGIN
PROMPT -1 -30 ""
FLAGS "DG"
END
ENDPAGE
ENDMASK