diff --git a/cg/cg2100n.uml b/cg/cg2100n.uml index f358a323e..6d59cf033 100755 --- a/cg/cg2100n.uml +++ b/cg/cg2100n.uml @@ -1,109 +1,109 @@ -#include "cg2100p.h" - -PAGE "Nuova partita" -1 -1 48 10 - -RADIOBUTTON P_NUOVO 1 21 -BEGIN - PROMPT 0 0 "@BTipo movimento" - ITEM "1|Fattura" - MESSAGE ENABLE,P_CODPAG - ITEM "2|Nota credito" - MESSAGE DISABLE,P_CODPAG - ITEM "3|Incasso/pagamento " - MESSAGE DISABLE,P_CODPAG - ITEM "5|Insoluto" - MESSAGE DISABLE,P_CODPAG - ITEM "6|Pagamento insoluto" - MESSAGE DISABLE,P_CODPAG - GROUP 1 -END - -NUMBER P_ANNO 4 -BEGIN - PROMPT 22 1 "Partita " - FLAGS "A" - CHECKTYPE REQUIRED - WARNING "Inserire l'anno di riferimento partita" -END - -STRING P_NUMERO 7 -BEGIN - PROMPT 40 1 "" - FLAGS "U" - CHECKTYPE REQUIRED - WARNING "Inserire il numero di riferimento partita" -END - -TEXT DLG_NULL -BEGIN - PROMPT 22 2 "Sezione" -END - -RADIOBUTTON P_SEZIONE 1 20 -BEGIN - PROMPT 31 1 "" - ITEM "D|Dare" - ITEM "A|Avere" - FLAGS "Z" - GROUP 1 -END - -NUMBER P_RESIDUO 15 -BEGIN - PROMPT 22 3 "Importo " - PICTURE "." - GROUP 1 -END - -STRING P_CODPAG 4 -BEGIN - PROMPT 22 4 "Pagamento " - FLAGS "UZ" - USE %CPG - INPUT CODTAB P_CODPAG - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT P_CODPAG CODTAB - CHECKTYPE REQUIRED - ADD RUN ba3 -6 - GROUP 1 - WARNING "Codice pagamento assente" -END - -STRING P_NUMDOC 7 -BEGIN - PROMPT 22 5 "Documento " - FLAGS "U" - GROUP 1 -END - -DATE P_DATADOC -BEGIN - PROMPT 22 6 "Data " - FLAGS "A" - CHECKTYPE REQUIRED - WARNING "Inserire una data per il movimento extra-contabile" - GROUP 1 -END - -STRING P_DESCR 50 34 -BEGIN - PROMPT 1 7 "Descrizione " - WARNING "Inserire una descrizione per il movimento extra-contabile" - CHECKTYPE REQUIRED - GROUP 1 -END - -BUTTON DLG_OK 10 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_CANCEL 10 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -ENDMASK \ No newline at end of file +#include "cg2100p.h" + +PAGE "Nuova partita" -1 -1 48 10 + +RADIOBUTTON P_NUOVO 1 21 +BEGIN + PROMPT 0 0 "@BTipo movimento" + ITEM "1|Fattura" + MESSAGE ENABLE,P_CODPAG + ITEM "2|Nota credito" + MESSAGE DISABLE,P_CODPAG + ITEM "3|Incasso/pagamento " + MESSAGE DISABLE,P_CODPAG + ITEM "5|Insoluto" + MESSAGE DISABLE,P_CODPAG + ITEM "6|Pagamento insoluto" + MESSAGE DISABLE,P_CODPAG + GROUP 1 +END + +NUMBER P_ANNO 4 +BEGIN + PROMPT 22 1 "Partita " + FLAGS "A" + CHECKTYPE REQUIRED + WARNING "Inserire l'anno di riferimento partita" +END + +STRING P_NUMERO 7 +BEGIN + PROMPT 40 1 "" + FLAGS "U" + CHECKTYPE REQUIRED + WARNING "Inserire il numero di riferimento partita" +END + +TEXT DLG_NULL +BEGIN + PROMPT 22 2 "Sezione" +END + +RADIOBUTTON P_SEZIONE 1 19 +BEGIN + PROMPT 31 1 "" + ITEM "D|Dare" + ITEM "A|Avere" + FLAGS "Z" + GROUP 1 +END + +NUMBER P_RESIDUO 15 +BEGIN + PROMPT 22 3 "Importo " + PICTURE "." + GROUP 1 +END + +STRING P_CODPAG 4 +BEGIN + PROMPT 22 4 "Pagamento " + FLAGS "UZ" + USE %CPG + INPUT CODTAB P_CODPAG + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT P_CODPAG CODTAB + CHECKTYPE REQUIRED + ADD RUN ba3 -6 + GROUP 1 + WARNING "Codice pagamento assente" +END + +STRING P_NUMDOC 7 +BEGIN + PROMPT 22 5 "Documento " + FLAGS "U" + GROUP 1 +END + +DATE P_DATADOC +BEGIN + PROMPT 22 6 "Data " + FLAGS "A" + CHECKTYPE REQUIRED + WARNING "Inserire una data per il movimento extra-contabile" + GROUP 1 +END + +STRING P_DESCR 50 34 +BEGIN + PROMPT 1 7 "Descrizione " + WARNING "Inserire una descrizione per il movimento extra-contabile" + CHECKTYPE REQUIRED + GROUP 1 +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_CANCEL 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +ENDMASK diff --git a/cg/cg2103.cpp b/cg/cg2103.cpp index 56abdc4a8..60ce01fdf 100755 --- a/cg/cg2103.cpp +++ b/cg/cg2103.cpp @@ -338,10 +338,12 @@ TBill& TCausale::bill(int num, TBill& conto) const const char* TCausale::desc_agg(int num) const { - const TRectype& rec = row(num); - TString16 cod(rec.get(RCA_CODDESC)); - + const TRectype* rec = (const TRectype*)objptr(num); + if (rec == NULL) + return ""; + TTable da("%DPN"); + const char* cod = rec->get(RCA_CODDESC); da.put("CODTAB", cod); if (da.read() != NOERR) da.zero(); diff --git a/cg/cg2105.cpp b/cg/cg2105.cpp index 60d0c99ad..e4721c56c 100755 --- a/cg/cg2105.cpp +++ b/cg/cg2105.cpp @@ -287,14 +287,6 @@ TGame_mask::TGame_mask(const TBill& bill, long numreg, int riga) << ' ' << _conto.sottoconto() << ' ' << ((TBill&)_conto).descrizione(); 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; #ifndef __EXTRA__ TMask& cm = app().curr_mask();