campo-sirio/pr/pr1300a.frm

#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 4

STRINGA 1 40 1
BEGIN
 KEY "nome ditta"
 PROMPT  1 1 "Ditta "
 MESSAGE _DITTA, !RAGSOC
END

STRINGA 2 10
BEGIN
 KEY "Data"
 PROMPT  45 1 "Data "
 MESSAGE _TODAY
END

NUMERO 3 7
BEGIN
 KEY "Nr. pagina"
 PROMPT  70 1 "Pagina "
 MESSAGE _PAGENO
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 "XX" "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 "XX" "Fincatura sinistra e destra"
 KEY "RSoc"
 PROMPT 2 1 ""
 FIELD LF_AGENTI->RAGSOC
 MESSAGE COPY,402
END

NUMBER 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 3 1 ""
END
NUMBER 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 4 1 ""
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 5 1 ""
END
NUMBER 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 6 1 ""
END
NUMBER 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 7 1 ""
END
NUMBER 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 8 1 ""
END
NUMBER 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 9 1 ""
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 15 
    BEGIN
     KEY "Descrizione"
     PROMPT 1 1 "  Cliente "
     FIELD LF_PROVV->CODCLI
     MESSAGE RESET,G_TOTCLI@
    END

    STRINGA 2 30
    BEGIN
     KEY "RSoc"
     PROMPT 2 1 ""
     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"
       PROMPT 1 1 "    Documento"
       MESSAGE RESET,G_TOTDOC@
      END
  
      STRINGA 2 30
      BEGIN
       KEY "DATADOC"
       PROMPT 2 1 ""
       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
      SECTION RATA_DAPAGARE 1 1 1  STREXPR LF_PROVV->SALDATA!="X"
        STRINGA 101 15
        BEGIN
          KEY "nrata"
          PROMPT 1 1 "      Rata "
          FIELD LF_PROVV->NRATA
        END
      
        STRINGA 102 15
        BEGIN
         KEY "DATADOC"
         PROMPT 2 1 "del "
         FIELD LF_PROVV->DATASCAD
        END
        NUMBER 103 15
        BEGIN
          KEY "IMPORTO rata"
          PROMPT 3 1 ""
          PICTURE "###.###.###.###"
          FIELD LF_PROVV->IMPRATA
          MESSAGE ADD,203
        END
        NUMBER 104 14
        BEGIN
         KEY "IMPORTO provvigione"
         PROMPT 4 1 ""
         PICTURE "##.###.###.###"
         FIELD LF_PROVV->IMPPROVV
         MESSAGE ADD,204
        END
        NUMBER 105 6
        BEGIN
         KEY "perc. provv."
         PROMPT 5 1 ""
         PICTURE "##@,@#"
         MESSAGE _NUMEXPR,#104/#103*100
        END
        NUMBER 106 15
        BEGIN
         KEY "IMPORTO pagato"
         PROMPT 6 1 ""
         PICTURE "###.###.###.###"
         FIELD PAGATO
         MESSAGE ADD,206
        END
        NUMBER 107 14
        BEGIN
         KEY "provv pagata"
         PROMPT 7 1 ""
         PICTURE "##.###.###.###"
         FIELD PROVVPAG
         MESSAGE ADD,207
        END
        NUMBER 108 15
        BEGIN
         KEY "IMPORTO"
         PROMPT 8 1 ""
         PICTURE "###.###.###.###"
         FIELD PAGMAT
         MESSAGE ADD,208
        END
        NUMBER 109 14
        BEGIN
         KEY "provv mat"
         PROMPT 9 1 ""
         PICTURE "##.###.###.###"
         FIELD PROVVMAT
         MESSAGE ADD,209
        END
      END  // RATA

      SECTION RATA_PAGATA 1 1 1  STREXPR LF_PROVV->SALDATA=="X"
        STRINGA 101 15
        BEGIN
          KEY "nrata"
          PROMPT 1 1 "      Rata "
          FIELD LF_PROVV->NRATA
        END
      
        STRINGA 102 15
        BEGIN
         KEY "DATADOC"
         PROMPT 2 1 "del "
         FIELD LF_PROVV->DATASCAD
        END
        NUMBER 103 15
        BEGIN
          KEY "IMPORTO rata"
          PROMPT 3 1 ""
          PICTURE "###.###.###.###"
          FIELD LF_PROVV->IMPRATA
          MESSAGE ADD,203
        END
        NUMBER 104 14
        BEGIN
         KEY "totale provv"
         PROMPT 4 1 ""
         PICTURE "##.###.###.###"
         FIELD LF_PROVV->IMPPROVV
         MESSAGE ADD,204
        END
        NUMBER 105 6
        BEGIN
         KEY "perc provv"
         PROMPT 5 1 ""
         PICTURE "##@,@#"
         MESSAGE _NUMEXPR,#104/#103*100
        END
        NUMBER 106 15
        BEGIN
         KEY "IMPORTO pagato"
         PROMPT 6 1 ""
         PICTURE "###.###.###.###"
         FIELD PAGATO
         MESSAGE ADD,206
        END
        NUMBER 107 14
        BEGIN
         KEY "provv pagata"
         PROMPT 7 1 ""
         PICTURE "##.###.###.###"
         FIELD PROVVPAG
         MESSAGE ADD,207
        END
        STRINGA 108 15
        BEGIN
         KEY "flag saldato"
         PROMPT 8 1 "   SALDATA   "
        END
      END  // RATA

    END // fine rate stsso doc

    //  Footer docs
    SECTION FDOCUMENTI 2 1 1 GROUP
      STRINGA 201 20
      BEGIN
       KEY "ndoc"
       PROMPT 1 1 "    Totale documento"
      END
      STRINGA 202 30
      BEGIN
       KEY "DESCR"
       PROMPT 2 1 ""
      END
      NUMBER 203 15
      BEGIN
       KEY "IMPORTO"
       PROMPT 3 1 ""
       PICTURE "###.###.###.###"
       MESSAGE ADD,303
       GROUP G_TOTDOC
      END
      NUMBER 204 14
      BEGIN
       KEY "IMPORTO"
       PROMPT 4 1 ""
       PICTURE "##.###.###.###"
       MESSAGE ADD,304
       GROUP G_TOTDOC
      END
      NUMBER 205 6
      BEGIN
        KEY "IMPORTO"
        PROMPT 5 1 ""
        PICTURE "##@,@#"
        MESSAGE _NUMEXPR,#204/#203*100
      END
      NUMBER 206 15
      BEGIN
        KEY "IMPORTO"
        PROMPT 6 1 ""
        PICTURE "###.###.###.###"
        MESSAGE ADD,306
        GROUP G_TOTDOC
      END
      NUMBER 207 14
      BEGIN
        KEY "IMPORTO"
        PROMPT 7 1 ""
        PICTURE "##.###.###.###"
        MESSAGE ADD,307
        GROUP G_TOTDOC
      END
      NUMBER 208 15
      BEGIN
       KEY "IMPORTO"
       PROMPT 8 1 ""
       PICTURE "###.###.###.###"
       MESSAGE ADD,308
       GROUP G_TOTDOC
      END
      NUMBER 209 14
      BEGIN
       KEY "IMPORTO"
       PROMPT 9 1 ""
       PICTURE "##.###.###.###"
       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"
     PROMPT 1 1 "  Totale cliente "
    END
    STRINGA 302 30
    BEGIN
     KEY "DESCR"
     PROMPT 2 1 ""
    END
    NUMBER 303 15
    BEGIN
     KEY "IMPORTO"
     PROMPT 3 1 ""
     PICTURE "###.###.###.###"
     MESSAGE ADD,403
     GROUP G_TOTCLI
    END
    NUMBER 304 14
    BEGIN
     KEY "IMPORTO"
     PROMPT 4 1 ""
     PICTURE "##.###.###.###"
     MESSAGE ADD,404
     GROUP G_TOTCLI
    END
    NUMBER 305 6
    BEGIN
     KEY "IMPORTO"
     PROMPT 5 1 ""
     PICTURE "##@,@#"
     MESSAGE _NUMEXPR,#304/#303*100
    END
    NUMBER 306 15
    BEGIN
      KEY "IMPORTO"
      PROMPT 6 1 ""
      PICTURE "###.###.###.###"
      MESSAGE ADD,406
      GROUP G_TOTCLI
    END
    NUMBER 307 14
    BEGIN
      KEY "IMPORTO"
      PROMPT 7 1 ""
      PICTURE "##.###.###.###"
      MESSAGE ADD,407
      GROUP G_TOTCLI
    END
    NUMBER 308 15
    BEGIN
     KEY "IMPORTO"
     PROMPT 8 1 ""
     PICTURE "###.###.###.###"
     MESSAGE ADD,408
     GROUP G_TOTCLI
    END
    NUMBER 309 14
    BEGIN
     KEY "IMPORTO"
     PROMPT 9 1 ""
     PICTURE "##.###.###.###"
     MESSAGE ADD,409
     GROUP G_TOTCLI
    END
  END

END // end clienti

  NUMERO 401 20
  BEGIN
   PROMPT 1 2 "Totale agente"
  END
  
  STRINGA 402 30
  BEGIN
   KEY "DESCR"
   PROMPT 2 2 ""
  END
  NUMBER 403 15
  BEGIN
   KEY "IMPORTO"
   PROMPT 3 2 ""
   PICTURE "###.###.###.###"
   GROUP G_TOTAGE
  END
  NUMBER 404 14
  BEGIN
   KEY "IMPORTO"
   PROMPT 4 2 ""
   PICTURE "##.###.###.###"
   GROUP G_TOTAGE
  END
  NUMBER 405 6
  BEGIN
   KEY "IMPORTO"
   PROMPT 5 2 ""
   PICTURE "##@,@#"
   MESSAGE _NUMEXPR,#404/#403*100
   GROUP G_TOTAGE
  END
  NUMBER 406 15
  BEGIN
    KEY "IMPORTO"
    PROMPT 6 2 ""
    PICTURE "###.###.###.###"
    GROUP G_TOTAGE
  END
  NUMBER 407 14
  BEGIN
    KEY "IMPORTO"
    PROMPT 7 2 ""
    PICTURE "##.###.###.###"
    GROUP G_TOTAGE
  END
  NUMBER 408 15
  BEGIN
   KEY "IMPORTO"
   PROMPT 8 2 ""
   PICTURE "###.###.###.###"
   GROUP G_TOTAGE
  END
  NUMBER 409 14
  BEGIN
   KEY "IMPORTO"
   PROMPT 9 2 ""
   PICTURE "##.###.###.###"
   GROUP G_TOTAGE
  END


END    // Fine body

SECTION FOOTER ODD 3 
END    // Fine footer

END    // Fine Form