diff --git a/or/or1100b.frm b/or/or1100b.frm index 1f5cfe1e2..35df99e93 100755 --- a/or/or1100b.frm +++ b/or/or1100b.frm @@ -44,7 +44,7 @@ END NUMERO 4 40 BEGIN KEY "Intestazione stampa" - PROMPT 40 2 "Stampa ordini per cliente/fornitore" + PROMPT 40 2 "@bStampa ordini per cliente/fornitore" END END //HEADER @@ -264,7 +264,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+ BEGIN KEY "Valore Ordinato" PROMPT 5 1 "" - FIELD LF_RIGHEDOC->RIGAVALORE + MESSAGE _ORDINE,VALORE DRIVENBY 203 // PICTURE "." END @@ -272,7 +272,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+ BEGIN KEY "Valore Residuo" PROMPT 6 1 "" - FIELD LF_RIGHEDOC->RIGAVALRES + MESSAGE _ORDINE,VALRES DRIVENBY 203 // PICTURE "." END @@ -286,14 +286,14 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+ BEGIN KEY "Q.ta Ordinata" PROMPT 8 1 "" - FIELD LF_RIGHEDOC->QTA + MESSAGE _ORDINE,QTA PICTURE "########@,@@@@@" END NUMBER 209 15 BEGIN KEY "Q.ta Evasa" PROMPT 9 1 "" - FIELD LF_RIGHEDOC->QTAEVASA + MESSAGE _ORDINE,QTAEVASA PICTURE "########@,@@@@@" END VALUTA 210 13 @@ -355,8 +355,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+ BEGIN KEY "Valore Ordinato" PROMPT 5 1 "" - FIELD LF_RIGHEDOC->RIGAVALORE - MESSAGE _ORDINE,VALTABLE,VALORD|ADD,405 + MESSAGE _ORDINE,VALORE|_ORDINE,VALTABLE,VALORD|ADD,405 // PICTURE "." DRIVENBY 303 FLAGS "H" @@ -365,11 +364,10 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+ BEGIN KEY "Valore Residuo" PROMPT 6 1 "" - FIELD LF_RIGHEDOC->RIGAVALRES // PICTURE "." DRIVENBY 303 FLAGS "H" - MESSAGE _ORDINE,VALTABLE,VALRES|ADD,406 + MESSAGE _ORDINE,VALRES|_ORDINE,VALTABLE,VALRES|ADD,406 END STRINGA 307 4 BEGIN @@ -383,16 +381,14 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+ BEGIN KEY "Q.ta Ordinata" PROMPT 8 1 "" - FIELD LF_RIGHEDOC->QTA - MESSAGE _ORDINE,CONVUM|ADD,408 + MESSAGE _ORDINE,QTA|_ORDINE,CONVUM|ADD,408 FLAGS "H" END NUMBER 309 15 BEGIN KEY "Q.ta Evasa" PROMPT 9 1 "" - FIELD LF_RIGHEDOC->QTAEVASA - MESSAGE _ORDINE,CONVUM|ADD,409 + MESSAGE _ORDINE,QTAEVASA|_ORDINE,CONVUM|ADD,409 FLAGS "H" END VALUTA 310 13 diff --git a/or/or1100c.frm b/or/or1100c.frm index b6196793a..0e6dad57e 100755 --- a/or/or1100c.frm +++ b/or/or1100c.frm @@ -16,8 +16,6 @@ END GENERAL BEGIN OFFSET 0 0 - FONT "Courier New" - SIZE 10 END @@ -55,7 +53,7 @@ END //HEADER SECTION BODY ODD 4 COLUMNWISE -STRINGA 1 10 +STRINGA BODY_COL_1 10 BEGIN SPECIAL STRINGA INTESTAZIONE "Codice" "Codice" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" @@ -67,7 +65,7 @@ BEGIN PICTURE "########" END -STRING 2 40 +STRING BODY_COL_2 40 BEGIN SPECIAL STRINGA INTESTAZIONE "Descrizione" "Descrizione" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" @@ -77,7 +75,7 @@ BEGIN FIELD LF_AGENTI->RAGSOC END -STRINGA 3 4 +STRINGA BODY_COL_3 4 BEGIN SPECIAL STRINGA INTESTAZIONE "Val." "Val." SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" @@ -86,7 +84,7 @@ BEGIN PROMPT 3 1 "" END -DATA 4 10 +DATA BODY_COL_4 10 BEGIN SPECIAL STRINGA INTESTAZIONE "Data cons." "Data cons." SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" @@ -115,7 +113,7 @@ BEGIN PROMPT 6 1 "" END -STRINGA 7 4 +STRINGA BODY_COL_7 4 BEGIN SPECIAL STRINGA INTESTAZIONE "UM" "UM" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" @@ -126,7 +124,7 @@ BEGIN GROUP G_DETTAGLIO END -STRINGA 8 13 +STRINGA BODY_COL_8 15 BEGIN SPECIAL STRINGA INTESTAZIONE "Q.ta Ordinata" "Q.ta Ordinata" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" @@ -137,7 +135,7 @@ BEGIN GROUP G_DETTAGLIO END -STRINGA 9 13 +STRINGA BODY_COL_9 15 BEGIN SPECIAL STRINGA INTESTAZIONE "Q.ta Evasa" "Q.ta Evasa" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" @@ -148,17 +146,43 @@ BEGIN GROUP G_DETTAGLIO 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 + FLAGS "H" + 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 + FLAGS "H" + 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 + FLAGS "H" + PROMPT 12 1 "" + GROUP G_DETTAGLIO +END + // Raggruppamento di tutte le righe documenti per lo stesso agente SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG - NUMBER 90 10 - BEGIN - PROMPT 1 1 "" - FLAGS "H" - MESSAGE RESET,G_TOTALEART@ - END - SECTION HCLIENTI 1 0 1 GROUP FLAGS "D" NUMBER 91 10 @@ -169,12 +193,12 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG BEGIN KEY "Descrizione cliente" PROMPT 2 1 "" - MESSAGE _STREXPR,LF_DOC->CODCF+" "+LF_CLIFO->RAGSOC + MESSAGE _ORDINE,RAGSOC,1 END END // Raggruppamento di tutte le righe (intestazioni documenti) per lo stesso cliente - SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF + SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+LF_DOC->OCFPI FLAGS "D" NUMBER 101 10 BEGIN @@ -209,6 +233,7 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG FIELD LF_DOC->TOTVALORE DRIVENBY 103 MESSAGE _ORDINE,VALTABLE,VALORD +// PICTURE "." END VALUTA 106 15 @@ -218,6 +243,7 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG FIELD LF_DOC->TOTVALRES DRIVENBY 103 MESSAGE _ORDINE,VALTABLE,VALRES +// PICTURE "." END // Raggruppamento righe stesso documento @@ -266,15 +292,14 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG PROMPT 7 1 "" FIELD LF_RIGHEDOC->UMQTA END - NUMBER 208 13 + NUMBER 208 15 BEGIN KEY "Q.ta Ordinata" PROMPT 8 1 "" - FIELD LF_RIGHEDOC->QTA - PICTURE "#@,@@@" - + MESSAGE _ORDINE,QTA + PICTURE "########@,@@@@@" END - NUMBER 209 13 + NUMBER 209 15 BEGIN KEY "Q.ta Evasa" PROMPT 9 1 "" @@ -309,9 +334,17 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG // viene settato a LF_CLIFO->TIPOCF+LF_CLIFO->CODCF dal programma nel // caso l'utente decida di distinguere per cliente. - SECTION ARTCLI 2 1 1 FILE LF_RIGHEDOC //GROUP + SECTION ARTCLI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG // Ecco la sezione per raggruppamento/dettaglio per riga articolo FLAGS "D" // Sezione abilitata se non si stampa per documenti + + NUMBER 90 10 + BEGIN + PROMPT 1 1 "" + FLAGS "H" + MESSAGE RESET,G_TOTALEART@ + END + SECTION RIGHEART 1 0 0 FILE LF_RIGHEDOC GROUP CODVAL+CODART+DATACONS // FLAGS "D" @@ -347,8 +380,8 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG BEGIN KEY "Valore Ordinato" PROMPT 5 1 "" - FIELD LF_RIGHEDOC->RIGAVALORE - MESSAGE _ORDINE,VALTABLE,VALORD|ADD,405 + MESSAGE _ORDINE,VALORE|_ORDINE,VALTABLE,VALORD|ADD,405 +// PICTURE "." DRIVENBY 303 FLAGS "H" END @@ -356,7 +389,7 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG BEGIN KEY "Valore Residuo" PROMPT 6 1 "" - FIELD LF_RIGHEDOC->RIGAVALRES +// PICTURE "." DRIVENBY 303 FLAGS "H" MESSAGE _ORDINE,VALRES|_ORDINE,VALTABLE,VALRES|ADD,406 @@ -369,14 +402,14 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG MESSAGE _ORDINE,SELECTUM|COPY,407 FLAGS "H" END - NUMBER 308 13 + NUMBER 308 15 BEGIN KEY "Q.ta Ordinata" PROMPT 8 1 "" MESSAGE _ORDINE,QTA|_ORDINE,CONVUM|ADD,408 FLAGS "H" END - NUMBER 309 13 + NUMBER 309 15 BEGIN KEY "Q.ta Evasa" PROMPT 9 1 "" @@ -457,19 +490,19 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG //FLAGS "D" GROUP G_TOTALEART END - NUMBER 408 13 + NUMBER 408 15 BEGIN KEY "Q.ta Ordinata" PROMPT 8 1 "" - PICTURE "#@,@@@" + PICTURE "########@,@@@@@" //FLAGS "D" GROUP G_TOTALEART END - NUMBER 409 13 + NUMBER 409 15 BEGIN KEY "Q.ta Evasa" PROMPT 9 1 "" - PICTURE "#@,@@@" + PICTURE "########@,@@@@@" //FLAGS "D" GROUP G_TOTALEART END @@ -652,6 +685,7 @@ FLAGS "D" BEGIN KEY "Tot Valore Ordinato per agente" PROMPT 5 1 "" +// PICTURE "." DRIVENBY 83 END @@ -659,9 +693,11 @@ FLAGS "D" BEGIN KEY "Tot Valore Residuo per agente" PROMPT 6 1 "" +// PICTURE "." DRIVENBY 83 END END // Fine sezione totale in valuta #4 END // End of Body +