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

Correzione MI3465 e MI3466, relativi all'invio saldaconto

Browse Source 
extracontabile a sistema: aggiunta la possibilita' di memorizzare
anche la causale sul saldaconto extracontabile.


git-svn-id: svn://10.65.10.50/trunk@4217 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-03-18 11:42:09 +00:00
parent b8fa6fa779
commit 4067e2329b
3 changed files with 64 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
sc/sc0100p.h
View File

@ -1,37 +1,38 @@
#ifndef __SC0100_H #ifndef __SC0100_H
#define __SC0100_H #define __SC0100_H
#define E_CODDITTA 301 #define E_CODDITTA 301
#define E_RAGSOC 302 #define E_RAGSOC 302
#define E_DATAREG 303 #define E_DATAREG 303
#define E_DOCUMENTO 304 #define E_DOCUMENTO 304
#define E_TIPOMOV 305 #define E_TIPOMOV 305
#define E_DESCR 306 #define E_DESCR 306
#define E_DATADOC 307 #define E_DATADOC 307
#define E_NUMDOC 308 #define E_NUMDOC 308
#define E_CLIFO 309 #define E_CLIFO 309
#define E_CLIENTE 310 #define E_CLIENTE 310
#define E_RAGSOCCLIENTE 311 #define E_RAGSOCCLIENTE 311
#define E_STATOPAIV 312 #define E_STATOPAIV 312
#define E_PIVACLIENTE 313 #define E_PIVACLIENTE 313
#define E_COFICLIENTE 314 #define E_COFICLIENTE 314
#define E_FORNITORE 315 #define E_FORNITORE 315
#define E_RAGSOCFORNITORE 316 #define E_RAGSOCFORNITORE 316
#define E_PIVAFORNITORE 317 #define E_PIVAFORNITORE 317
#define E_COFIFORNITORE 318 #define E_COFIFORNITORE 318
#define E_TOTALE 319 #define E_TOTALE 319
#define E_CODPAG 320 #define E_CODPAG 320
#define E_DESPAG 321 #define E_DESPAG 321
#define E_ANNORIF 322 #define E_ANNORIF 322
#define E_NUMRIF 323 #define E_NUMRIF 323
#define E_DESCAGG 324 #define E_DESCAGG 324
#define E_SEZIONE 325 #define E_SEZIONE 325
#define E_TOTDOCVAl 326 #define E_TOTDOCVAl 326
#define E_VALUTA 327 #define E_VALUTA 327
#define E_DATACAMBIO 328 #define E_DATACAMBIO 328
#define E_CAMBIO 329 #define E_CAMBIO 329
#define E_TOTDOCVAL 330 #define E_TOTDOCVAL 330
#define E_IMPOSTE 331 #define E_IMPOSTE 331
#define E_CODCAUS 332
#endif #define E_CAUDES 333
#endif

28
sc/sc0100p.uml
View File

@ -83,9 +83,31 @@ BEGIN
FIELD LF_PARTITE->TIPOMOV FIELD LF_PARTITE->TIPOMOV
END END
STRING E_CODCAUS 3
BEGIN
PROMPT 1 6 "Codice causale "
FLAGS "UZ"
FIELD LF_PARTITE->CODCAUS
USE LF_CAUSALI SELECT TIPOMOV==#E_TIPOMOV
INPUT CODCAUS E_CODCAUS
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT E_CODCAUS CODCAUS
OUTPUT E_CAUDES DESCR
CHECKTYPE NORMAL
MESSAGE EMPTY CLEAR,E_CAUDES
ADD RUN cg0 -4
END
STRING E_CAUDES 50
BEGIN
FLAGS "D"
PROMPT 25 6 ""
END
STRING E_DESCAGG 5 STRING E_DESCAGG 5
BEGIN BEGIN
PROMPT 1 6 "Descrizione " PROMPT 1 7 "Descrizione "
FLAGS "UZ" FLAGS "UZ"
USE %DPN USE %DPN
INPUT CODTAB E_DESCAGG INPUT CODTAB E_DESCAGG
@ -98,7 +120,7 @@ END
STRING E_DESCR 50 STRING E_DESCR 50
BEGIN BEGIN
PROMPT 25 6 "" PROMPT 25 7 ""
FIELD LF_PARTITE->DESCR FIELD LF_PARTITE->DESCR
USE %DPN KEY 2 USE %DPN KEY 2
INPUT S0 E_DESCR INPUT S0 E_DESCR
@ -119,7 +141,7 @@ END
NUMBER E_CLIENTE 6 NUMBER E_CLIENTE 6
BEGIN BEGIN
PROMPT 1 8 "Cliente " PROMPT 1 8 "Cliente "
FIELD LF_PARTITE->SOTTOCONTO FIELD LF_PARTITE->SOTTOCONTO
FLAGS "DG" FLAGS "DG"
GROUP 1 GROUP 1

1
sc/sc0101.cpp
View File

@ -775,6 +775,7 @@ void TFattura_mask::write_scadenze() const
partita.put(PART_SEZ, get(E_SEZIONE)); partita.put(PART_SEZ, get(E_SEZIONE));
partita.put(PART_IMPTOTDOC, get(E_TOTALE)); partita.put(PART_IMPTOTDOC, get(E_TOTALE));
partita.put(PART_IMPTOTVAL, get(E_TOTDOCVAL)); partita.put(PART_IMPTOTVAL, get(E_TOTDOCVAL));
partita.put(PART_CODCAUS, get(E_CODCAUS));
cambio.put(partita); cambio.put(partita);
const bool in_valuta = cambio.in_valuta(); const bool in_valuta = cambio.in_valuta();