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

Patch level : aga 1.7 nopatch

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Aggiornati i froma dalla 1.7


git-svn-id: svn://10.65.10.50/trunk@11785 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2004-02-27 10:51:13 +00:00
parent 6d63166559
commit b833fb6805
2 changed files with 78 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
or/or1100b.frm
View File

@ -44,7 +44,7 @@ END
NUMERO 4 40 NUMERO 4 40
BEGIN BEGIN
KEY "Intestazione stampa" KEY "Intestazione stampa"
PROMPT 40 2 "Stampa ordini per cliente/fornitore" PROMPT 40 2 "@bStampa ordini per cliente/fornitore"
END END
END //HEADER END //HEADER
@ -264,7 +264,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
BEGIN BEGIN
KEY "Valore Ordinato" KEY "Valore Ordinato"
PROMPT 5 1 "" PROMPT 5 1 ""
FIELD LF_RIGHEDOC->RIGAVALORE MESSAGE _ORDINE,VALORE
DRIVENBY 203 DRIVENBY 203
// PICTURE "." // PICTURE "."
END END
@ -272,7 +272,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
BEGIN BEGIN
KEY "Valore Residuo" KEY "Valore Residuo"
PROMPT 6 1 "" PROMPT 6 1 ""
FIELD LF_RIGHEDOC->RIGAVALRES MESSAGE _ORDINE,VALRES
DRIVENBY 203 DRIVENBY 203
// PICTURE "." // PICTURE "."
END END
@ -286,14 +286,14 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
BEGIN BEGIN
KEY "Q.ta Ordinata" KEY "Q.ta Ordinata"
PROMPT 8 1 "" PROMPT 8 1 ""
FIELD LF_RIGHEDOC->QTA MESSAGE _ORDINE,QTA
PICTURE "########@,@@@@@" PICTURE "########@,@@@@@"
END END
NUMBER 209 15 NUMBER 209 15
BEGIN BEGIN
KEY "Q.ta Evasa" KEY "Q.ta Evasa"
PROMPT 9 1 "" PROMPT 9 1 ""
FIELD LF_RIGHEDOC->QTAEVASA MESSAGE _ORDINE,QTAEVASA
PICTURE "########@,@@@@@" PICTURE "########@,@@@@@"
END END
VALUTA 210 13 VALUTA 210 13
@ -355,8 +355,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
BEGIN BEGIN
KEY "Valore Ordinato" KEY "Valore Ordinato"
PROMPT 5 1 "" PROMPT 5 1 ""
FIELD LF_RIGHEDOC->RIGAVALORE MESSAGE _ORDINE,VALORE|_ORDINE,VALTABLE,VALORD|ADD,405
MESSAGE _ORDINE,VALTABLE,VALORD|ADD,405
// PICTURE "." // PICTURE "."
DRIVENBY 303 DRIVENBY 303
FLAGS "H" FLAGS "H"
@ -365,11 +364,10 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
BEGIN BEGIN
KEY "Valore Residuo" KEY "Valore Residuo"
PROMPT 6 1 "" PROMPT 6 1 ""
FIELD LF_RIGHEDOC->RIGAVALRES
// PICTURE "." // PICTURE "."
DRIVENBY 303 DRIVENBY 303
FLAGS "H" FLAGS "H"
MESSAGE _ORDINE,VALTABLE,VALRES|ADD,406 MESSAGE _ORDINE,VALRES|_ORDINE,VALTABLE,VALRES|ADD,406
END END
STRINGA 307 4 STRINGA 307 4
BEGIN BEGIN
@ -383,16 +381,14 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
BEGIN BEGIN
KEY "Q.ta Ordinata" KEY "Q.ta Ordinata"
PROMPT 8 1 "" PROMPT 8 1 ""
FIELD LF_RIGHEDOC->QTA MESSAGE _ORDINE,QTA|_ORDINE,CONVUM|ADD,408
MESSAGE _ORDINE,CONVUM|ADD,408
FLAGS "H" FLAGS "H"
END END
NUMBER 309 15 NUMBER 309 15
BEGIN BEGIN
KEY "Q.ta Evasa" KEY "Q.ta Evasa"
PROMPT 9 1 "" PROMPT 9 1 ""
FIELD LF_RIGHEDOC->QTAEVASA MESSAGE _ORDINE,QTAEVASA|_ORDINE,CONVUM|ADD,409
MESSAGE _ORDINE,CONVUM|ADD,409
FLAGS "H" FLAGS "H"
END END
VALUTA 310 13 VALUTA 310 13

102
or/or1100c.frm
View File

@ -16,8 +16,6 @@ END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
FONT "Courier New"
SIZE 10
END END
@ -55,7 +53,7 @@ END //HEADER
SECTION BODY ODD 4 COLUMNWISE SECTION BODY ODD 4 COLUMNWISE
STRINGA 1 10 STRINGA BODY_COL_1 10
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"
@ -67,7 +65,7 @@ BEGIN
PICTURE "########" PICTURE "########"
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"
@ -77,7 +75,7 @@ BEGIN
FIELD LF_AGENTI->RAGSOC FIELD LF_AGENTI->RAGSOC
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"
@ -86,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"
@ -115,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"
@ -126,7 +124,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"
@ -137,7 +135,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"
@ -148,17 +146,43 @@ 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
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 // Raggruppamento di tutte le righe documenti per lo stesso agente
SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG 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 SECTION HCLIENTI 1 0 1 GROUP
FLAGS "D" FLAGS "D"
NUMBER 91 10 NUMBER 91 10
@ -169,12 +193,12 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
BEGIN BEGIN
KEY "Descrizione cliente" KEY "Descrizione cliente"
PROMPT 2 1 "" PROMPT 2 1 ""
MESSAGE _STREXPR,LF_DOC->CODCF+" "+LF_CLIFO->RAGSOC MESSAGE _ORDINE,RAGSOC,1
END END
END END
// Raggruppamento di tutte le righe (intestazioni documenti) per lo stesso cliente // 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" FLAGS "D"
NUMBER 101 10 NUMBER 101 10
BEGIN BEGIN
@ -209,6 +233,7 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
FIELD LF_DOC->TOTVALORE FIELD LF_DOC->TOTVALORE
DRIVENBY 103 DRIVENBY 103
MESSAGE _ORDINE,VALTABLE,VALORD MESSAGE _ORDINE,VALTABLE,VALORD
// PICTURE "."
END END
VALUTA 106 15 VALUTA 106 15
@ -218,6 +243,7 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
FIELD LF_DOC->TOTVALRES FIELD LF_DOC->TOTVALRES
DRIVENBY 103 DRIVENBY 103
MESSAGE _ORDINE,VALTABLE,VALRES MESSAGE _ORDINE,VALTABLE,VALRES
// PICTURE "."
END END
// Raggruppamento righe stesso documento // Raggruppamento righe stesso documento
@ -266,15 +292,14 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
PROMPT 7 1 "" PROMPT 7 1 ""
FIELD LF_RIGHEDOC->UMQTA FIELD LF_RIGHEDOC->UMQTA
END END
NUMBER 208 13 NUMBER 208 15
BEGIN BEGIN
KEY "Q.ta Ordinata" KEY "Q.ta Ordinata"
PROMPT 8 1 "" PROMPT 8 1 ""
FIELD LF_RIGHEDOC->QTA MESSAGE _ORDINE,QTA
PICTURE "#@,@@@" PICTURE "########@,@@@@@"
END END
NUMBER 209 13 NUMBER 209 15
BEGIN BEGIN
KEY "Q.ta Evasa" KEY "Q.ta Evasa"
PROMPT 9 1 "" 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 // viene settato a LF_CLIFO->TIPOCF+LF_CLIFO->CODCF dal programma nel
// caso l'utente decida di distinguere per cliente. // 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 // Ecco la sezione per raggruppamento/dettaglio per riga articolo
FLAGS "D" // Sezione abilitata se non si stampa per documenti 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 SECTION RIGHEART 1 0 0 FILE LF_RIGHEDOC GROUP CODVAL+CODART+DATACONS
// FLAGS "D" // FLAGS "D"
@ -347,8 +380,8 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
BEGIN BEGIN
KEY "Valore Ordinato" KEY "Valore Ordinato"
PROMPT 5 1 "" PROMPT 5 1 ""
FIELD LF_RIGHEDOC->RIGAVALORE MESSAGE _ORDINE,VALORE|_ORDINE,VALTABLE,VALORD|ADD,405
MESSAGE _ORDINE,VALTABLE,VALORD|ADD,405 // PICTURE "."
DRIVENBY 303 DRIVENBY 303
FLAGS "H" FLAGS "H"
END END
@ -356,7 +389,7 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
BEGIN BEGIN
KEY "Valore Residuo" KEY "Valore Residuo"
PROMPT 6 1 "" PROMPT 6 1 ""
FIELD LF_RIGHEDOC->RIGAVALRES // PICTURE "."
DRIVENBY 303 DRIVENBY 303
FLAGS "H" FLAGS "H"
MESSAGE _ORDINE,VALRES|_ORDINE,VALTABLE,VALRES|ADD,406 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 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 ""
@ -457,19 +490,19 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
//FLAGS "D" //FLAGS "D"
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"
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"
GROUP G_TOTALEART GROUP G_TOTALEART
END END
@ -652,6 +685,7 @@ FLAGS "D"
BEGIN BEGIN
KEY "Tot Valore Ordinato per agente" KEY "Tot Valore Ordinato per agente"
PROMPT 5 1 "" PROMPT 5 1 ""
// PICTURE "."
DRIVENBY 83 DRIVENBY 83
END END
@ -659,9 +693,11 @@ FLAGS "D"
BEGIN BEGIN
KEY "Tot Valore Residuo per agente" KEY "Tot Valore Residuo per agente"
PROMPT 6 1 "" PROMPT 6 1 ""
// PICTURE "."
DRIVENBY 83 DRIVENBY 83
END END
END // Fine sezione totale in valuta #4 END // Fine sezione totale in valuta #4
END // End of Body END // End of Body