root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/pr/pr1300a.frm
guy 2e37e37621 Patch level : 1.6 006 
Files correlati     : pr0700b.msk pr1.exe pr1300a.frm pr1400a.frm
Ricompilazione Demo : [ ]
Commento            :

LL600138
Nelle colonne dei valori riporta solo gli interi arrotondati

LL600139
Nelle colonne dei valori riporta solo gli interi arrotondati

LL600140
Nelle colonne dei valori riporta solo gli interi arrotondati


git-svn-id: svn://10.65.10.50/trunk@9302 c028cbd2-c16b-5b4b-a496-9718f37d4682
2000-11-08 16:29:02 +00:00

659 lines
13 KiB
Plaintext
Executable File
Raw Blame History

#define A_CLIFO LF_CLIFO
#define A_COMUNI LF_COMUNI
#define G_TOTAGE 10
#define G_TOTCLI 20
#define G_TOTDOC 30
USE LF_PROVV BY CODAGE CODCLI CODNUM NDOC NRATA
JOIN LF_CLIFO INTO TIPOCF="C"|CODCF=CODCLI
JOIN LF_COMUNI TO LF_CLIFO INTO STATO==STATOCF|COM==COMCF
JOIN LF_AGENTI INTO CODAGE==CODAGE
JOIN LF_CLIFO TO LF_AGENTI ALIAS A_CLIFO INTO TIPOCF="F"|CODCF=CODFORN
JOIN LF_COMUNI TO A_CLIFO@ ALIAS A_COMUNI INTO STATO==STATOCF|COM==COMCF
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
SECTION HEADER ODD 7
STRINGA 1 40 1
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
MESSAGE _DITTA, !RAGSOC
END
STRINGA 2 10
BEGIN
KEY "Data"
PROMPT 126 1 "Data "
MESSAGE _TODAY
END
NUMERO 3 7
BEGIN
KEY "Nr. pagina"
PROMPT 145 1 "Pagina "
MESSAGE _PAGENO
END
STRINGA 4
BEGIN
KEY "TITOLO"
PROMPT 60 3 "Stampa schede di provvigione"
END
/*
STRINGA 5 146
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 4 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
*/
/*
STRINGA 3
BEGIN
KEY "Codice Agente "
PROMPT 2 2 ""
FIELD LF_AGENTI->CODAGE
END
STRINGA 4
BEGIN
KEY "Ragione sociale"
PROMPT 8 2 ""
FIELD LF_AGENTI->RAGSOC
END
STRINGA 5
BEGIN
KEY "Indirizzo"
PROMPT 2 3 ""
FLAGS "H"
FIELD A_CLIFO@->INDCF
MESSAGE COPY,7
END
STRINGA 6
BEGIN
KEY "Numero civico"
PROMPT 52 3 ""
FLAGS "H"
FIELD A_CLIFO@->CIVCF
MESSAGE APPEND,7
END
STRINGA 7
BEGIN
KEY "Indirizzo completo"
PROMPT 2 3 ""
END
STRINGA 8
BEGIN
KEY "C.A.P."
PROMPT 2 4 "C.A.P. "
FIELD A_CLIFO@->CAPCF
END
STRINGA 9
BEGIN
KEY "Localita'"
PROMPT 26 4 ""
FIELD A_CLIFO@->LOCALITACF
END
STRINGA 10
BEGIN
KEY "Comune"
PROMPT 2 5 ""
FLAGS "H"
FIELD A_COMUNI@->DENCOM
MESSAGE COPY,12
END
STRINGA 11
BEGIN
KEY "Provincia"
PROMPT 52 5 ""
FLAGS "H"
FIELD A_COMUNI@->PROVCOM
MESSAGE APPEND,12
END
STRINGA 12
BEGIN
KEY "Comune completo"
PROMPT 2 5 ""
END
*/
END
SECTION BODY ODD 3 COLUMNWISE
STRINGA 1 20
BEGIN
SPECIAL STRINGA INTESTAZIONE "Agente" "Agente"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "X " "Fincatura sinistra e destra"
KEY "Descrizione"
PROMPT 1 1 "Agente "
MESSAGE RESET,G_TOTAGE@
FIELD CODAGE
END
STRINGA 2 30
BEGIN
SPECIAL STRINGA INTESTAZIONE "Rag.Soc." "Ragione Sociale"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
KEY "RSoc"
PROMPT 2 1 ""
FIELD LF_AGENTI->RAGSOC
MESSAGE COPY,402
END
STRINGA 3 6
BEGIN
SPECIAL STRINGA INTESTAZIONE "Valuta" "Codice valuta"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "RSoc"
PROMPT 3 1 ""
END
VALUTA 103 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CTotale doc./rata" "Totale documento/rata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 4 1 ""
DRIVENBY 3
END
VALUTA 104 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CTotale provvigione" "Totale provv."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 5 1 ""
DRIVENBY 3
END
NUMBER 105 6
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CPerc. prov." "Perc. provv."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 6 1 ""
END
VALUTA 106 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CImporto pagato" "Importo pagato"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 7 1 ""
DRIVENBY 3
END
VALUTA 107 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CProvvigione pagata" "Provv. pagata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 8 1 ""
DRIVENBY 3
END
VALUTA 108 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CImporto maturato" "Importo maturato"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 9 1 ""
DRIVENBY 3
END
VALUTA 109 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CProvvigione maturata" "Provv. maturata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 10 1 ""
DRIVENBY 3
END
SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE
// **************************
// clienti dello stesso agente
// Header clienti
SECTION HCLIENTI 1 1 1 GROUP
STRINGA 1 20
BEGIN
KEY "Descrizione"
PROMPT 1 1 " Cliente "
SPECIAL STRINGA FINCATURA "X " "Fincatura sinistra e destra"
FIELD LF_PROVV->CODCLI
MESSAGE RESET,G_TOTCLI@
END
STRINGA 2 30
BEGIN
KEY "RSoc"
PROMPT 2 1 ""
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
FIELD LF_CLIFO->RAGSOC
MESSAGE COPY,302
END
END
SECTION DOCUMENTI 1 0 0 FILE LF_PROVV GROUP CODCLI
// body cliente: docs dello stesso cliente
// Header docs
SECTION HDOCUMENTI 1 1 1 GROUP
STRINGA 1 20
BEGIN
KEY "ndoc"
SPECIAL STRINGA FINCATURA "X " "Fincatura sinistra e destra"
PROMPT 1 1 " Documento"
MESSAGE RESET,G_TOTDOC@
END
STRINGA 2 30
BEGIN
KEY "DATADOC"
PROMPT 2 1 ""
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
MESSAGE _STREXPR,CODNUM+"/"+NDOC+" del "+DATADOC
MESSAGE COPY,202
END
END
SECTION RATEDOC 1 0 0 FILE LF_PROVV GROUP CODNUM+NDOC
// body doc: rate dello stesso documento
NUMERO 666 10
BEGIN
KEY "FATTORE DI CONVERSIONE"
FLAGS "H"
MESSAGE _NUMEXPR,IF(CODVAL,CAMBIO,1)
END
SECTION RATA_DAPAGARE 1 1 1 STREXPR LF_PROVV->SALDATA!="X"
STRINGA 101 20
BEGIN
KEY "nrata"
SPECIAL STRINGA FINCATURA "X " "Fincatura sinistra e destra"
PROMPT 1 1 " Rata "
FIELD LF_PROVV->NRATA
END
STRINGA 102 30
BEGIN
KEY "DATADOC"
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
PROMPT 2 1 "del "
FIELD LF_PROVV->DATASCAD
END
STRINGA 3 6
BEGIN
KEY "CODVAL"
PROMPT 3 1 ""
FIELD LF_PROVV->CODVAL
END
VALUTA 103 15
BEGIN
KEY "IMPORTO rata"
PROMPT 4 1 ""
PICTURE "###.###.###.###"
MESSAGE _BASECALCOLO
MESSAGE ADD,203
END
VALUTA 104 14
BEGIN
KEY "IMPORTO provvigione"
PROMPT 5 1 ""
DRIVENBY 3
MESSAGE _NUMEXPR,LF_PROVV->IMPPROVV*#666
MESSAGE ADD,204
END
NUMBER 105 6
BEGIN
KEY "perc. provv."
PROMPT 6 1 ""
PICTURE "##@,@#"
MESSAGE _NUMEXPR,#104/#103*100
END
VALUTA 106 15
BEGIN
KEY "IMPORTO pagato"
PROMPT 7 1 ""
DRIVENBY 3
FIELD PAGATO
MESSAGE ADD,206
END
VALUTA 107 14
BEGIN
KEY "provv pagata"
PROMPT 8 1 ""
DRIVENBY 3
MESSAGE _NUMEXPR, PROVVPAG*#666
MESSAGE ADD,207
END
VALUTA 108 15
BEGIN
KEY "IMPORTO"
PROMPT 9 1 ""
DRIVENBY 3
MESSAGE _NUMEXPR, PAGMAT*#666
MESSAGE ADD,208
END
VALUTA 109 14
BEGIN
KEY "provv mat"
PROMPT 10 1 ""
DRIVENBY 3
MESSAGE _NUMEXPR, PROVVMAT*#666
MESSAGE ADD,209
END
END // RATA
SECTION RATA_PAGATA 1 1 1 STREXPR LF_PROVV->SALDATA=="X"
STRINGA 101 20
BEGIN
KEY "nrata"
PROMPT 1 1 " Rata "
SPECIAL STRINGA FINCATURA "X " "Fincatura sinistra e destra"
FIELD LF_PROVV->NRATA
END
STRINGA 102 30
BEGIN
KEY "DATADOC"
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
PROMPT 2 1 "del "
FIELD LF_PROVV->DATASCAD
END
STRINGA 3 6
BEGIN
KEY "CODVAL"
PROMPT 3 1 ""
FIELD LF_PROVV->CODVAL
END
VALUTA 103 15
BEGIN
KEY "IMPORTO rata"
PROMPT 4 1 ""
PICTURE "###.###.###.###"
MESSAGE _BASECALCOLO
MESSAGE ADD,203
END
VALUTA 104 14
BEGIN
KEY "totale provv"
PROMPT 5 1 ""
DRIVENBY 3
MESSAGE _NUMEXPR, LF_PROVV->IMPPROVV*#666
MESSAGE ADD,204
END
NUMBER 105 6
BEGIN
KEY "perc provv"
PROMPT 6 1 ""
PICTURE "##@,@#"
MESSAGE _NUMEXPR,#104/#103*100
END
VALUTA 106 15
BEGIN
KEY "IMPORTO pagato"
PROMPT 7 1 ""
DRIVENBY 3
MESSAGE _NUMEXPR,PAGATO*#666
MESSAGE ADD,206
END
VALUTA 107 14
BEGIN
KEY "provv pagata"
PROMPT 8 1 ""
DRIVENBY 3
MESSAGE _NUMEXPR, PROVVPAG*#666
MESSAGE ADD,207
END
STRINGA 108 15
BEGIN
KEY "flag saldato"
PROMPT 9 1 " SALDATA "
END
END // RATA
END // fine rate stsso doc
// Footer docs
SECTION FDOCUMENTI 2 1 1 GROUP
STRINGA 201 20
BEGIN
KEY "ndoc"
SPECIAL STRINGA FINCATURA "X " "Fincatura sinistra e destra"
PROMPT 1 1 " Totale documento"
END
STRINGA 202 30
BEGIN
KEY "DESCR"
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
PROMPT 2 1 ""
END
STRINGA 3 6
BEGIN
KEY "CODVAL"
PROMPT 3 1 ""
END
VALUTA 203 15
BEGIN
KEY "IMPORTO"
PROMPT 4 1 ""
DRIVENBY 3
MESSAGE ADD,303
GROUP G_TOTDOC
END
VALUTA 204 14
BEGIN
KEY "IMPORTO"
PROMPT 5 1 ""
DRIVENBY 3
MESSAGE ADD,304
GROUP G_TOTDOC
END
NUMBER 205 6
BEGIN
KEY "PERC"
PROMPT 6 1 ""
PICTURE "##@,@#"
MESSAGE _NUMEXPR,#204/#203*100
END
VALUTA 206 15
BEGIN
KEY "IMPORTO"
PROMPT 7 1 ""
DRIVENBY 3
MESSAGE ADD,306
GROUP G_TOTDOC
END
VALUTA 207 14
BEGIN
KEY "IMPORTO"
PROMPT 8 1 ""
DRIVENBY 3
MESSAGE ADD,307
GROUP G_TOTDOC
END
VALUTA 208 15
BEGIN
KEY "IMPORTO"
PROMPT 9 1 ""
DRIVENBY 3
MESSAGE ADD,308
GROUP G_TOTDOC
END
VALUTA 209 14
BEGIN
KEY "IMPORTO"
PROMPT 10 1 ""
DRIVENBY 3
MESSAGE ADD,309
GROUP G_TOTDOC
END
END
END // end documenti
// Footer clienti
SECTION FCLIENTI 2 1 1 GROUP
STRINGA 301 20
BEGIN
KEY "cli"
SPECIAL STRINGA FINCATURA "X " "Fincatura sinistra e destra"
PROMPT 1 1 " Totale cliente "
END
STRINGA 302 30
BEGIN
KEY "DESCR"
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
PROMPT 2 1 ""
END
STRINGA 3 6
BEGIN
KEY "CODVAL"
PROMPT 3 1 ""
END
VALUTA 303 15
BEGIN
KEY "IMPORTO"
PROMPT 4 1 ""
MESSAGE ADD,403
GROUP G_TOTCLI
END
VALUTA 304 14
BEGIN
KEY "IMPORTO"
PROMPT 5 1 ""
MESSAGE ADD,404
GROUP G_TOTCLI
END
NUMBER 305 6
BEGIN
KEY "IMPORTO"
PROMPT 6 1 ""
PICTURE "##@,@#"
MESSAGE _NUMEXPR,#304/#303*100
END
VALUTA 306 15
BEGIN
KEY "IMPORTO"
PROMPT 7 1 ""
MESSAGE ADD,406
GROUP G_TOTCLI
END
VALUTA 307 14
BEGIN
KEY "IMPORTO"
PROMPT 8 1 ""
MESSAGE ADD,407
GROUP G_TOTCLI
END
VALUTA 308 15
BEGIN
KEY "IMPORTO"
PROMPT 9 1 ""
MESSAGE ADD,408
GROUP G_TOTCLI
END
VALUTA 309 14
BEGIN
KEY "IMPORTO"
PROMPT 10 1 ""
MESSAGE ADD,409
GROUP G_TOTCLI
END
END
END // end clienti
NUMERO 401 20
BEGIN
SPECIAL STRINGA FINCATURA "X " "Fincatura sinistra e destra"
PROMPT 1 2 "Totale agente"
END
STRINGA 402 30
BEGIN
KEY "DESCR"
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
PROMPT 2 2 ""
END
VALUTA 403 15
BEGIN
KEY "IMPORTO"
PROMPT 4 2 ""
GROUP G_TOTAGE
END
VALUTA 404 14
BEGIN
KEY "IMPORTO"
PROMPT 5 2 ""
GROUP G_TOTAGE
END
NUMBER 405 6
BEGIN
KEY "IMPORTO"
PROMPT 6 2 ""
PICTURE "##@,@#"
MESSAGE _NUMEXPR,#404/#403*100
GROUP G_TOTAGE
END
VALUTA 406 15
BEGIN
KEY "IMPORTO"
PROMPT 7 2 ""
GROUP G_TOTAGE
END
VALUTA 407 14
BEGIN
KEY "IMPORTO"
PROMPT 8 2 ""
GROUP G_TOTAGE
END
VALUTA 408 15
BEGIN
KEY "IMPORTO"
PROMPT 9 2 ""
GROUP G_TOTAGE
END
VALUTA 409 14
BEGIN
KEY "IMPORTO"
PROMPT 10 2 ""
GROUP G_TOTAGE
END
END // Fine body
SECTION FOOTER ODD 3
END // Fine footer
END // Fine Form
Reference in New Issue View Git Blame Copy Permalink