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

Patch level : 2.0 552

Browse Source 
Files correlati     : or1.exe or1100d.frm
Ricompilazione Demo : [ ]
Commento            :

GF20063
La stampa ordini per articolo riporta le  qtà  ordinata ed evasa solo fino
alle decine non riportando quindi le centinaia e le migliaia.., inoltre mi
riporta sulla destra dei totali fuori dal prefincato anche se non ho fleggato
VISUALIZZA COLONNE VALORI, PREZZO, RESIDUO E GIACENZA e se spunto quest'ultime
il prefincato per queste colonne non appare.


git-svn-id: svn://10.65.10.50/trunk@11377 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2003-08-07 12:12:55 +00:00
parent 37a7974c05
commit 703a958c6a
2 changed files with 100 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
or/or1100.cpp
View File

@ -71,7 +71,9 @@ protected:
void filter_for_number(); void filter_for_number();
void filter_for_clifo_agent(); void filter_for_clifo_agent();
void filter_for_articolo(); void filter_for_articolo();
void show_body_field(short id, bool on); // Attiva un campo del body (sole se esiste!)
void show_body_field_for_clifo_agent(short id, bool on);
void show_body_field_for_articolo(short id, bool on);
public: public:
TStampa_ordini() {}; TStampa_ordini() {};
@ -503,7 +505,7 @@ void TStampa_ordini::filter_for_number()
ssec.printsection().find_field(BODY_COL_12 + id).show(_opz_giacenza); ssec.printsection().find_field(BODY_COL_12 + id).show(_opz_giacenza);
} }
void TStampa_ordini::show_body_field(short id, bool on) void TStampa_ordini::show_body_field_for_clifo_agent(short id, bool on)
{ {
TForm_item* i = _frm->exist_field('B', odd_page, id); TForm_item* i = _frm->exist_field('B', odd_page, id);
if (i != NULL) if (i != NULL)
@ -803,15 +805,33 @@ void TStampa_ordini::filter_for_clifo_agent()
} }
} }
// Abilitazione intestazioni di colonna // Abilitazione intestazioni di colonna
show_body_field(BODY_COL_5, _opz_valore); show_body_field_for_clifo_agent(BODY_COL_5, _opz_valore);
show_body_field(BODY_COL_6, _opz_valore); show_body_field_for_clifo_agent(BODY_COL_6, _opz_valore);
show_body_field(BODY_COL_10, _opz_prezzo); show_body_field_for_clifo_agent(BODY_COL_10, _opz_prezzo);
show_body_field(BODY_COL_11, _opz_residuo); show_body_field_for_clifo_agent(BODY_COL_11, _opz_residuo);
show_body_field(BODY_COL_12, _opz_giacenza); show_body_field_for_clifo_agent(BODY_COL_12, _opz_giacenza);
set_totvaluta_items(); set_totvaluta_items();
} }
void TStampa_ordini::show_body_field_for_articolo(short id, bool on)
{
TForm_item* i = _frm->exist_field('B', odd_page, id);
if (i != NULL)
{
i->enable(on);
i = _frm->exist_field('B', odd_page, id+400);
if (i != NULL)
i->enable(on);
TForm_subsection& asec = (TForm_subsection&)_frm->find_field('B', odd_page, "TOTVAL1");
i = asec.printsection().exist_field(id+500);
if (i != NULL)
i->enable(on);
}
}
void TStampa_ordini::filter_for_articolo() void TStampa_ordini::filter_for_articolo()
{ {
CHECK(_frm, "Form non valido"); CHECK(_frm, "Form non valido");
@ -971,20 +991,12 @@ void TStampa_ordini::filter_for_articolo()
_frm->find_field('B',odd_page,id).enable(); _frm->find_field('B',odd_page,id).enable();
// Abilitazione intestazioni di colonna // Abilitazione intestazioni di colonna
show_body_field(BODY_COL_5,_opz_valore); show_body_field_for_articolo(BODY_COL_5,_opz_valore);
show_body_field(BODY_COL_6,_opz_valore); show_body_field_for_articolo(BODY_COL_6,_opz_valore);
show_body_field(BODY_COL_10,_opz_prezzo); show_body_field_for_articolo(BODY_COL_10,_opz_prezzo);
show_body_field(BODY_COL_11,_opz_residuo); show_body_field_for_articolo(BODY_COL_11,_opz_residuo);
show_body_field(BODY_COL_12,_opz_giacenza); show_body_field_for_articolo(BODY_COL_12,_opz_giacenza);
// Abilitazione intestazioni di riga
TForm_subsection& asec = (TForm_subsection&)_frm->find_field('B', odd_page, "ARTMAIN"); // Sottosezione padre
asec.printsection().find_field(BODY_COL_5 + 400).show(_opz_valore);
asec.printsection().find_field(BODY_COL_6 + 400).show(_opz_valore);
asec.printsection().find_field(BODY_COL_10 + 400).show(_opz_prezzo);
asec.printsection().find_field(BODY_COL_11 + 400).show(_opz_residuo);
asec.printsection().find_field(BODY_COL_12 + 400).show(_opz_giacenza);
set_totvaluta_items(); set_totvaluta_items();
} }
@ -1065,18 +1077,10 @@ void TStampa_ordini::main_loop()
switch (_tipo) switch (_tipo)
{ {
case clifo: case clifo: form_name = "or1100b"; break;
form_name = "or1100b"; case agente: form_name = "or1100c"; break;
break; case articolo: form_name = "or1100d"; break;
case agente: default: form_name = "or1100a"; break;
form_name = "or1100c";
break;
case articolo:
form_name = "or1100d";
break;
default:
form_name = "or1100a";
break;
} }
_frm = new TOrdine_form(form_name); _frm = new TOrdine_form(form_name);

89
or/or1100d.frm
View File

@ -1,6 +1,7 @@
// Form per la stampa ordini per articolo // Form per la stampa ordini per articolo
#include "or1100a.h" #include "or1100a.h"
// Cursor sorting on main file is set also in application // Cursor sorting on main file is set also in application
//USE LF_RIGHEDOC BY CODART LIVELLO CODMAG DATACONS
USE LF_RIGHEDOC BY CODART LIVELLO CODMAG ANNO NDOC DATACONS USE LF_RIGHEDOC BY CODART LIVELLO CODMAG ANNO NDOC DATACONS
JOIN LF_DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC JOIN LF_DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN LF_ANAMAG INTO CODART==CODART JOIN LF_ANAMAG INTO CODART==CODART
@ -10,11 +11,13 @@ DESCRIPTION
BEGIN BEGIN
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
END END
SECTION HEADER ODD 6 SECTION HEADER ODD 6
STRINGA 1 40 1 STRINGA 1 40 1
@ -49,7 +52,7 @@ END //HEADER
SECTION BODY ODD 4 COLUMNWISE SECTION BODY ODD 4 COLUMNWISE
STRINGA 1 10 STRINGA BODY_COL_1 20
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "Codice" "Codice" SPECIAL STRINGA INTESTAZIONE "Codice" "Codice"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@ -61,7 +64,7 @@ BEGIN
MESSAGE RESET,508|RESET,509|RESET,511 MESSAGE RESET,508|RESET,509|RESET,511
END END
STRING 2 40 STRING BODY_COL_2 40
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "Descrizione" "Descrizione" SPECIAL STRINGA INTESTAZIONE "Descrizione" "Descrizione"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@ -69,9 +72,10 @@ BEGIN
KEY "Descrizione art." KEY "Descrizione art."
PROMPT 2 1 "" PROMPT 2 1 ""
FIELD LF_RIGHEDOC->DESCR FIELD LF_RIGHEDOC->DESCR
//MESSAGE _ORDINE,DESCRIZIONE
END END
STRINGA 3 4 STRINGA BODY_COL_3 4
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "Val." "Val." SPECIAL STRINGA INTESTAZIONE "Val." "Val."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@ -80,7 +84,7 @@ BEGIN
PROMPT 3 1 "" PROMPT 3 1 ""
END END
DATA 4 10 DATA BODY_COL_4 10
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "Data cons." "Data cons." SPECIAL STRINGA INTESTAZIONE "Data cons." "Data cons."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@ -109,7 +113,7 @@ BEGIN
PROMPT 6 1 "" PROMPT 6 1 ""
END END
STRINGA 7 4 STRINGA BODY_COL_7 4
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "UM" "UM" SPECIAL STRINGA INTESTAZIONE "UM" "UM"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@ -119,7 +123,7 @@ BEGIN
GROUP G_DETTAGLIO GROUP G_DETTAGLIO
END END
STRINGA 8 13 STRINGA BODY_COL_8 15
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "Q.ta Ordinata" "Q.ta Ordinata" SPECIAL STRINGA INTESTAZIONE "Q.ta Ordinata" "Q.ta Ordinata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@ -129,7 +133,7 @@ BEGIN
GROUP G_DETTAGLIO GROUP G_DETTAGLIO
END END
STRINGA 9 13 STRINGA BODY_COL_9 15
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "Q.ta Evasa" "Q.ta Evasa" SPECIAL STRINGA INTESTAZIONE "Q.ta Evasa" "Q.ta Evasa"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@ -139,6 +143,36 @@ BEGIN
GROUP G_DETTAGLIO GROUP G_DETTAGLIO
END END
STRINGA BODY_COL_10 13
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CPr. scontato" "Prezzo un. scontato"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Prezzo un. scontato" // Solo intestazione
PROMPT 10 1 ""
GROUP G_DETTAGLIO
END
STRINGA BODY_COL_11 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CResiduo" "Residuo"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Residuo" // Solo intestazione
PROMPT 11 1 ""
GROUP G_DETTAGLIO
END
STRINGA BODY_COL_12 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CGiac. Att." "Giacenza attuale"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Giacenza attuale" // Solo intestazione
PROMPT 12 1 ""
GROUP G_DETTAGLIO
END
// Raggruppamento righe documenti per lo stesso codice articolo // Raggruppamento righe documenti per lo stesso codice articolo
SECTION ARTMAIN 2 1 1 FILE LF_RIGHEDOC GROUP CODART SECTION ARTMAIN 2 1 1 FILE LF_RIGHEDOC GROUP CODART
@ -160,6 +194,7 @@ SECTION ARTICOLI 1 0 0 FILE LF_RIGHEDOC GROUP ANNO+NDOC+CODVAL+DATACONS
BEGIN BEGIN
KEY "Descrizione" KEY "Descrizione"
PROMPT 2 1 "" PROMPT 2 1 ""
// MESSAGE _ORDINE,DESCRIZIONE|COPY,402
MESSAGE _STREXPR,LF_DOC->CODNUM+"/"+LF_DOC->ANNO+"-"+LF_DOC->NDOC+" del "+LF_DOC->DATADOC|COPY,402 MESSAGE _STREXPR,LF_DOC->CODNUM+"/"+LF_DOC->ANNO+"-"+LF_DOC->NDOC+" del "+LF_DOC->DATADOC|COPY,402
FLAGS "H" FLAGS "H"
END END
@ -206,14 +241,14 @@ SECTION ARTICOLI 1 0 0 FILE LF_RIGHEDOC GROUP ANNO+NDOC+CODVAL+DATACONS
MESSAGE _ORDINE,SELECTUM|COPY,407 MESSAGE _ORDINE,SELECTUM|COPY,407
FLAGS "H" FLAGS "H"
END END
NUMBER 308 13 NUMBER 308 15
BEGIN BEGIN
KEY "Q.ta Ordinata" KEY "Q.ta Ordinata"
PROMPT 8 1 "" PROMPT 8 1 ""
MESSAGE _ORDINE,QTA|_ORDINE,CONVUM|ADD,408 MESSAGE _ORDINE,QTA|_ORDINE,CONVUM|ADD,408
FLAGS "H" FLAGS "H"
END END
NUMBER 309 13 NUMBER 309 15
BEGIN BEGIN
KEY "Q.ta Evasa" KEY "Q.ta Evasa"
PROMPT 9 1 "" PROMPT 9 1 ""
@ -245,7 +280,7 @@ SECTION ARTICOLI 1 0 0 FILE LF_RIGHEDOC GROUP ANNO+NDOC+CODVAL+DATACONS
END // END SECTION ARTICOLI END // END SECTION ARTICOLI
// Totalizers for previous section // Totalizers for previous section
NUMBER 401 10 NUMBER 401 20
BEGIN BEGIN
PROMPT 1 1 "" PROMPT 1 1 ""
FLAGS "D" FLAGS "D"
@ -296,20 +331,20 @@ STRINGA 407 4
MESSAGE COPY,507 MESSAGE COPY,507
GROUP G_TOTALEART GROUP G_TOTALEART
END END
NUMBER 408 13 NUMBER 408 15
BEGIN BEGIN
KEY "Q.ta Ordinata" KEY "Q.ta Ordinata"
PROMPT 8 1 "" PROMPT 8 1 ""
PICTURE "#@,@@@" PICTURE "########@,@@@@@"
FLAGS "D" FLAGS "D"
MESSAGE ADD,508 MESSAGE ADD,508
GROUP G_TOTALEART GROUP G_TOTALEART
END END
NUMBER 409 13 NUMBER 409 15
BEGIN BEGIN
KEY "Q.ta Evasa" KEY "Q.ta Evasa"
PROMPT 9 1 "" PROMPT 9 1 ""
PICTURE "#@,@@@" PICTURE "########@,@@@@@"
FLAGS "D" FLAGS "D"
MESSAGE ADD,509 MESSAGE ADD,509
GROUP G_TOTALEART GROUP G_TOTALEART
@ -327,7 +362,7 @@ NUMBER 411 15
BEGIN BEGIN
KEY "Residuo" KEY "Residuo"
PROMPT 11 1 "" PROMPT 11 1 ""
PICTURE "########@,@@@" PICTURE "########@,@@@@@"
FLAGS "D" FLAGS "D"
MESSAGE ADD,511 MESSAGE ADD,511
GROUP G_TOTALEART GROUP G_TOTALEART
@ -336,6 +371,10 @@ NUMBER 412 15
BEGIN BEGIN
KEY "Giac. attuale" KEY "Giac. attuale"
PROMPT 12 1 "" PROMPT 12 1 ""
// PICTURE "########@,@@@@@"
// FLAGS "H"
// MESSAGE COPY,512
// GROUP G_TOTALEART
END END
END // SEZIONE ARTMAIN END // SEZIONE ARTMAIN
@ -343,7 +382,7 @@ END // SEZIONE ARTMAIN
SECTION TOTVAL1 3 0 1 GROUP SECTION TOTVAL1 3 0 1 GROUP
FLAGS "D" FLAGS "D"
NUMBER 51 10 NUMBER 51 20
BEGIN BEGIN
PROMPT 1 1 "" PROMPT 1 1 ""
END END
@ -384,18 +423,18 @@ FLAGS "D"
PROMPT 7 1 "" PROMPT 7 1 ""
END END
NUMERO 508 13 3 NUMERO 508 15 5
BEGIN BEGIN
KEY "Tot Q.ta ordinata" KEY "Tot Q.ta ordinata"
PROMPT 8 1 "" PROMPT 8 1 ""
PICTURE "########@,@@@" PICTURE "########@,@@@@@"
END END
NUMERO 509 13 3 NUMERO 509 15 5
BEGIN BEGIN
KEY "Tot Q.ta evasa" KEY "Tot Q.ta evasa"
PROMPT 9 1 "" PROMPT 9 1 ""
PICTURE "########@,@@@" PICTURE "########@,@@@@@"
END END
VALUTA 510 13 VALUTA 510 13
@ -408,14 +447,14 @@ FLAGS "D"
BEGIN BEGIN
KEY "Tot Residuo" KEY "Tot Residuo"
PROMPT 11 1 "" PROMPT 11 1 ""
PICTURE "########@,@@@" PICTURE "########@,@@@@@"
END END
NUMERO 512 15 5 NUMERO 512 15 5
BEGIN BEGIN
KEY "Tot Giacenza" KEY "Tot Giacenza"
PROMPT 12 1 "" PROMPT 12 1 ""
PICTURE "########@,@@@" PICTURE "########@,@@@@@"
END END
END // Fine sezione totale in valuta #1 END // Fine sezione totale in valuta #1
@ -423,7 +462,7 @@ END // Fine sezione totale in valuta #1
SECTION TOTVAL2 1 0 1 GROUP SECTION TOTVAL2 1 0 1 GROUP
FLAGS "D" FLAGS "D"
NUMBER 61 10 NUMBER 61 20
BEGIN BEGIN
PROMPT 1 1 "" PROMPT 1 1 ""
END END
@ -464,7 +503,7 @@ END // Fine sezione totale in valuta #2
SECTION TOTVAL3 1 0 1 GROUP SECTION TOTVAL3 1 0 1 GROUP
FLAGS "D" FLAGS "D"
NUMBER 71 10 NUMBER 71 20
BEGIN BEGIN
PROMPT 1 1 "" PROMPT 1 1 ""
END END
@ -504,7 +543,7 @@ END // Fine sezione totale in valuta #3
SECTION TOTVAL4 1 0 1 GROUP SECTION TOTVAL4 1 0 1 GROUP
FLAGS "D" FLAGS "D"
NUMBER 81 10 NUMBER 81 20
BEGIN BEGIN
PROMPT 1 1 "" PROMPT 1 1 ""
END END