campo-sirio/pr/pr1100a.frm

#include "pr0500a.h"
USE LF_AGENTI KEY 1 
JOIN LF_CLIFO INTO  TIPOCF=="F" CODCF==CODFORN
END
	
DESCRIPTION
BEGIN
END

GENERAL
BEGIN
    OFFSET 0 0
    FONT "Courier New"
    SIZE 10
    CARATTERE "X"
    INIZIALE 5 1
    FINALE 133
END


SECTION HEADER ODD 5

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

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

NUMERO 3 7
BEGIN
 KEY "Nr. pagina"
 PROMPT  137 1 "Pagina "
 MESSAGE _PAGENO
END

NUMERO 4 32
BEGIN
 KEY "Intestazione stampa"
 PROMPT  45 2 "Stampa archivio agenti"
END

STRINGA 5 146
BEGIN
  KEY "Separatore (iniziale)"
  PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
END





SECTION BODY ODD 12

LISTBOX F_TIPO 20
BEGIN
  PROMPT 2 1 ""
  FIELD TIPO
  ITEM "A|Agente         :"
  ITEM "C|Capozona       :"
  ITEM "S|Subagente      :"
END

STRING F_CODAGE 12
BEGIN
  PROMPT 18 1 ""
  FIELD CODAGE
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2   "Ragione sociale:"
  FIELD RAGSOC
END

NUMBER F_CODFORN 22
BEGIN
  PROMPT 3 4 "Cod. fornitore "
  FIELD CODFORN
END

STRING F_DESCRFORN 50
BEGIN
  PROMPT 30 4 ""
  FIELD LF_CLIFO->RAGSOC
END

SECTION RIC1 5 1 2 STREXPR LF_AGENTI->CODCAPO!=""
        STRING F_CODCAPO 20
        BEGIN
          PROMPT 3 1 "Capozona:"
          FIELD CODCAPO
        END
        
        STRING F_DESCRCAPO 50
        BEING
          PROMPT 27 1 ""
        END
        NUMBER F_PERCCAPO 80
        BEGIN
          PROMPT 3 2 "Provvigione del capozona percepita sulle provvigioni: "
          FIELD PERCCAPO
          PICTURE "##@,@#%"
        END
END


SECTION PLIQFAT 6 1 1 NUMEXPR LF_AGENTI->PERCFATT!=0
  NUMBER F_PERCFATT 78
  BEGIN
    PROMPT 3 1 "Provvigione liquidabile alla fatturazione:"
    FIELD PERCFATT
    PICTURE "##@,@#%"
  END
END

SECTION PLIQPAG 6 1 1 NUMEXPR LF_AGENTI->PERCFATT<100
  NUMBER F_PERCPAG 78
  BEGIN
    PROMPT 3 1 "Provvigione liquidabile al pagamento     :"
    MESSAGE _NUMEXPR,(100-LF_AGENTI->PERCFATT)
    PICTURE "##@,@#%"
  END
END

STRING F_CAMPOPROVV 70
BEGIN
  PROMPT 3 7   "Formula doc. su cui calcolare la provvigione :"
  FIELD CAMPOPROVV
END

NUMBER F_PERCPROVV 70
BEGIN
  PROMPT 3 8 "Provvigione fissa:"
  FIELD PERCPROVV
  PICTURE "##@,@#%"
END

SECTION RIC1 10 1 1 STREXPR LF_AGENTI->SEQRIC[1,1]!="-"
STRING 0 40
BEGIN
  PROMPT 6 1 "Ricerca perc. di provvigione su : "
END

LISTBOX F_SEQRIC1 22
BEGIN
  PROMPT 40 1 ""
  FIELD SEQRIC[1,1]
  ITEM "A|Agente"                 
  ITEM "V|Categoria di vendita"   
  ITEM "M|Articolo di magazzino"  
  ITEM "C|Cliente"                
  ITEM "O|Condizione di vendita"  
  ITEM "1|Archivio % provvigioni" 
END

STRING F_CODRICPR1 2
BEGIN
  PROMPT 61 2 ""
  FIELD CODRICPR1
END
END

SECTION RIC2 10 1 1 STREXPR LF_AGENTI->SEQRIC[2,2]!="-"
LISTBOX F_SEQRIC2 22
BEGIN
  PROMPT 40 1 ""
  FIELD SEQRIC[2,2]
  ITEM "-|Nessuno"                
  ITEM "A|Agente"                 
  ITEM "V|Categoria di vendita"   
  ITEM "M|Articolo di magazzino"  
  ITEM "C|Cliente"                
  ITEM "O|Condizione di vendita"  
  ITEM "2|Archivio % provvigioni" 
END

STRING F_CODRICPR2 2
BEGIN
  PROMPT 59 1 ""
  FIELD CODRICPR2
END
END

SECTION RIC3 10 1 1 STREXPR LF_AGENTI->SEQRIC[3,3]!="-"
LISTBOX F_SEQRIC3 22
BEGIN
  PROMPT 40 1 ""
  FIELD SEQRIC[3,3]
  ITEM "-|Nessuno"                   
  ITEM "A|Agente"                    
  ITEM "V|Categoria di vendita"      
  ITEM "M|Articolo di magazzino"     
  ITEM "C|Cliente"                   
  ITEM "O|Condizione di vendita"     
  ITEM "3|Archivio % provvigioni"    
END

STRING F_CODRICPR3 2
BEGIN
  PROMPT 59 1 ""
  FIELD CODRICPR3
END
END

SECTION RIC4 10 1 1 STREXPR LF_AGENTI->SEQRIC[4,4]!="-"
LISTBOX F_SEQRIC4 22
BEGIN
  PROMPT 40 5 ""
  FIELD SEQRIC[4,4]
  ITEM "-|Nessuno"                
  ITEM "A|Agente"                 
  ITEM "V|Categoria di vendita"   
  ITEM "M|Articolo di magazzino"  
  ITEM "C|Cliente"                
  ITEM "O|Condizione di vendita"  
  ITEM "4|Archivio % provvigioni" 
END

STRING F_CODRICPR4 2
BEGIN
  PROMPT 59 5 ""
  FIELD CODRICPR4
END
END

SECTION RICAGG1 10 1 1 STREXPR LF_AGENTI->SEQALT[1,1]!="-"
STRING 0 40
BEGIN
  PROMPT 6 1 "Ricerca perc. aggiuntiva su     : "
END
LISTBOX F_SEQALT1 22
BEGIN
  PROMPT 40 1 ""
  FIELD SEQALT[1,1]
  ITEM "-|Nessuno"                
  ITEM "A|Agente"                 
  ITEM "1|Archivio % provvigioni" 
END

STRING F_CODALTPR1 2
BEGIN
  PROMPT 65 1 ""
  FIELD CODALTPR1
END
END

SECTION RICAGG2 10 1 1 STREXPR LF_AGENTI->SEQALT[2,2]!="-"
LISTBOX F_SEQALT2 22
BEGIN
  PROMPT 40 1 ""
  FIELD SEQALT[2,2]
  ITEM "-|Nessuno"                
  ITEM "A|Agente"                 
  ITEM "2|Archivio % provvigioni" 
END

STRING F_CODALTPR2 2
BEGIN
  PROMPT 65 1 ""
  FIELD CODALTPR2
END
END


SECTION RICAGG3 10 1 1 STREXPR LF_AGENTI->SEQALT[3,3]!="-"
LISTBOX F_SEQALT3 22
BEGIN
  PROMPT 40 1 ""
  FIELD SEQALT[3,3]
END

STRING F_CODALTPR3 2
BEGIN
  PROMPT 65 1 ""
  FIELD CODALTPR3
END
END

SECTION RICAGG4 10 1 1 STREXPR LF_AGENTI->SEQALT[4,4]!="-"
LISTBOX F_SEQALT4 22
BEGIN
  PROMPT 40 1 ""
  FIELD SEQALT[4,4]
  ITEM "-|Nessuno"                
  ITEM "A|Agente"                 
  ITEM "4|Archivio % provvigioni" 
END

STRING F_CODALTPR4 2
BEGIN
  PROMPT 65 1 ""
  FIELD CODALTPR4
END
END
END // Section body