campo-sirio/pr/pr1100a.frm

#include "pr0500a.h"

USE LF_AGENTI
JOIN LF_CLIFO INTO TIPOCF=="F" CODCF==CODFORN
END
	
SECTION HEADER ODD 4

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

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

NUMERO 3 4
BEGIN
 KEY "Nr. pagina"
 PROMPT  72 1 "Pag."
 MESSAGE _PAGENO
END

NUMERO 4 32
BEGIN
 KEY "Intestazione stampa"
 PROMPT  31 2 "@bStampa archivio agenti"
END

STRINGA 5 146
BEGIN
  KEY "Separatore (iniziale)"
  PROMPT 1 3 "_______________________________________________________________________________"
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