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

Corretta gestione descrizione riga causali non esistente

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2271 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-12-11 17:35:40 +00:00
parent 67a82cd002
commit 837b4c0c46
3 changed files with 114 additions and 120 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

218
cg/cg2100n.uml
View File

@ -1,109 +1,109 @@
#include "cg2100p.h" #include "cg2100p.h"
PAGE "Nuova partita" -1 -1 48 10 PAGE "Nuova partita" -1 -1 48 10
RADIOBUTTON P_NUOVO 1 21 RADIOBUTTON P_NUOVO 1 21
BEGIN BEGIN
PROMPT 0 0 "@BTipo movimento" PROMPT 0 0 "@BTipo movimento"
ITEM "1|Fattura" ITEM "1|Fattura"
MESSAGE ENABLE,P_CODPAG MESSAGE ENABLE,P_CODPAG
ITEM "2|Nota credito" ITEM "2|Nota credito"
MESSAGE DISABLE,P_CODPAG MESSAGE DISABLE,P_CODPAG
ITEM "3|Incasso/pagamento " ITEM "3|Incasso/pagamento "
MESSAGE DISABLE,P_CODPAG MESSAGE DISABLE,P_CODPAG
ITEM "5|Insoluto" ITEM "5|Insoluto"
MESSAGE DISABLE,P_CODPAG MESSAGE DISABLE,P_CODPAG
ITEM "6|Pagamento insoluto" ITEM "6|Pagamento insoluto"
MESSAGE DISABLE,P_CODPAG MESSAGE DISABLE,P_CODPAG
GROUP 1 GROUP 1
END END
NUMBER P_ANNO 4 NUMBER P_ANNO 4
BEGIN BEGIN
PROMPT 22 1 "Partita " PROMPT 22 1 "Partita "
FLAGS "A" FLAGS "A"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Inserire l'anno di riferimento partita" WARNING "Inserire l'anno di riferimento partita"
END END
STRING P_NUMERO 7 STRING P_NUMERO 7
BEGIN BEGIN
PROMPT 40 1 "" PROMPT 40 1 ""
FLAGS "U" FLAGS "U"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Inserire il numero di riferimento partita" WARNING "Inserire il numero di riferimento partita"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 22 2 "Sezione" PROMPT 22 2 "Sezione"
END END
RADIOBUTTON P_SEZIONE 1 20 RADIOBUTTON P_SEZIONE 1 19
BEGIN BEGIN
PROMPT 31 1 "" PROMPT 31 1 ""
ITEM "D|Dare" ITEM "D|Dare"
ITEM "A|Avere" ITEM "A|Avere"
FLAGS "Z" FLAGS "Z"
GROUP 1 GROUP 1
END END
NUMBER P_RESIDUO 15 NUMBER P_RESIDUO 15
BEGIN BEGIN
PROMPT 22 3 "Importo " PROMPT 22 3 "Importo "
PICTURE "." PICTURE "."
GROUP 1 GROUP 1
END END
STRING P_CODPAG 4 STRING P_CODPAG 4
BEGIN BEGIN
PROMPT 22 4 "Pagamento " PROMPT 22 4 "Pagamento "
FLAGS "UZ" FLAGS "UZ"
USE %CPG USE %CPG
INPUT CODTAB P_CODPAG INPUT CODTAB P_CODPAG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT P_CODPAG CODTAB OUTPUT P_CODPAG CODTAB
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN ba3 -6 ADD RUN ba3 -6
GROUP 1 GROUP 1
WARNING "Codice pagamento assente" WARNING "Codice pagamento assente"
END END
STRING P_NUMDOC 7 STRING P_NUMDOC 7
BEGIN BEGIN
PROMPT 22 5 "Documento " PROMPT 22 5 "Documento "
FLAGS "U" FLAGS "U"
GROUP 1 GROUP 1
END END
DATE P_DATADOC DATE P_DATADOC
BEGIN BEGIN
PROMPT 22 6 "Data " PROMPT 22 6 "Data "
FLAGS "A" FLAGS "A"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Inserire una data per il movimento extra-contabile" WARNING "Inserire una data per il movimento extra-contabile"
GROUP 1 GROUP 1
END END
STRING P_DESCR 50 34 STRING P_DESCR 50 34
BEGIN BEGIN
PROMPT 1 7 "Descrizione " PROMPT 1 7 "Descrizione "
WARNING "Inserire una descrizione per il movimento extra-contabile" WARNING "Inserire una descrizione per il movimento extra-contabile"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
GROUP 1 GROUP 1
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

8
cg/cg2103.cpp
View File

@ -338,10 +338,12 @@ TBill& TCausale::bill(int num, TBill& conto) const
const char* TCausale::desc_agg(int num) const const char* TCausale::desc_agg(int num) const
{ {
const TRectype& rec = row(num); const TRectype* rec = (const TRectype*)objptr(num);
TString16 cod(rec.get(RCA_CODDESC)); if (rec == NULL)
return "";
TTable da("%DPN"); TTable da("%DPN");
const char* cod = rec->get(RCA_CODDESC);
da.put("CODTAB", cod); da.put("CODTAB", cod);
if (da.read() != NOERR) if (da.read() != NOERR)
da.zero(); da.zero();

8
cg/cg2105.cpp
View File

@ -287,14 +287,6 @@ TGame_mask::TGame_mask(const TBill& bill, long numreg, int riga)
<< ' ' << _conto.sottoconto() << ' ' << ((TBill&)_conto).descrizione(); << ' ' << _conto.sottoconto() << ' ' << ((TBill&)_conto).descrizione();
set(P_DESCR, descr); set(P_DESCR, descr);
/*
const char tipocf[2] = { _conto.tipo(), '\0' };
set(P_TIPOC, tipocf);
set(P_GRUPPO, _conto.gruppo());
set(P_CONTO, _conto.conto());
set(P_SOTTOCONTO, _conto.sottoconto());
set(P_DESCR, ((TBill&)_conto).descrizione());
*/
TValuta val; TValuta val;
#ifndef __EXTRA__ #ifndef __EXTRA__
TMask& cm = app().curr_mask(); TMask& cm = app().curr_mask();