root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzione MI3583: aggiunto codice pagamento per invio a sistema

Browse Source 
Note di  credito.


git-svn-id: svn://10.65.10.50/trunk@4280 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-04-14 09:58:05 +00:00
parent c3ef2f940e
commit a90bec5d09
2 changed files with 27 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ba/batbind.h
View File

@ -20,7 +20,7 @@
#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
#define F_CAU_INS 121
#define F_CAU_PAGINS 122
#define F_CPAG_NC 123

43
ba/batbind.uml
View File

@ -93,6 +93,7 @@ BEGIN
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_FATT CODCAUS
CHECKTYPE NORMAL
ADD RUN cg0 -4
GROUP 1
END
@ -107,6 +108,7 @@ BEGIN
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_NC CODCAUS
CHECKTYPE NORMAL
ADD RUN cg0 -4
GROUP 1
END
@ -121,51 +123,54 @@ BEGIN
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
ADD RUN cg0 -4
GROUP 1
END
STRING F_CAU_INS 3
BEGIN
FLAGS "UZ"
PROMPT 40 13 "Insoluto "
FIELD S5[13,15]
PROMPT 40 12 "Insoluto "
FIELD S5[10,12]
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
ADD RUN cg0 -4
GROUP 1
END
STRING F_CAU_PAGINS 3
BEGIN
FLAGS "UZ"
PROMPT 40 14 "Pagamento insoluto "
FIELD S5[16,18]
PROMPT 40 13 "Pagamento insoluto "
FIELD S5[13,15]
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
ADD RUN cg0 -4
GROUP 1
END
STRING F_CPAG_NC 2
BEGIN
FLAGS "UZ"
PROMPT 38 16 "Cod. pag. per note di credito "
FIELD S7
USE %CPG SELECT (CODTAB?="??") && (S4=="1")
INPUT CODTAB F_CPAG_NC
DISPLAY "Cod. pagamento" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CPAG_NC CODTAB
CHECKTYPE NORMAL
ADD RUN ba3 -6
END
BOOLEAN F_BOLLATO
BEGIN
PROMPT 1 16 "Imposta il flag di bollato"
@ -181,7 +186,7 @@ END
DATE F_DATAULIN
BEGIN
PROMPT 46 17 "Data ultimo invio "
PROMPT 38 17 "Data ultimo invio "
FIELD %IND->D0
FLAGS "G"
END