#include "BATBACR.H"
#define  LF_ANAMAG 47  //ANAGRAFICA DI MAGAZZINO
#define  LF_PCON   19  //PIANO DEI CONTI


TOOLBAR "" 0 20 60 2
 #include <toolbar.h>
ENDPAGE

PAGE "Archivio costi e ricavi " 11 60 14


LISTBOX F_TIPO 8
BEGIN
  PROMPT 3 3  "Tipo lavoro "
  FIELD ACR->S0
  ITEM "1|Ricavi "
  MESSAGE SHOW, F_CODCATCON
  MESSAGE HIDE, F_CODCATCON1
  ITEM "2|Costi  "
  MESSAGE HIDE, F_CODCATCON
  MESSAGE SHOW, F_CODCATCON1
  FLAG "R"
END

STRING F_CODCATCON 3  
BEGIN
  PROMPT 3 5 "Codice categoria contabile "
  FIELD ACR->CODTAB
  KEY 1
  FLAG "U"
  USE CRA  // CATEGORIE RICAVI ARTICOLI
  
  INPUT CODTAB  F_CODCATCON
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_CODCATCON CODTAB
  OUTPUT F_CODCATCON2  S0  
  CHECKTYPE REQUIRED
  MESSAGE COPY , F_CODCATCON1
END

STRING F_CODCATCON1 3  
BEGIN
  PROMPT 3 5 "Codice categoria contabile "
  FIELD ACR->CODTAB
  KEY 1 
  FLAG "U"
  USE CAA  // CATEGORIE ACQUISTI ARTICOLI
 
  INPUT CODTAB  F_CODCATCON1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_CODCATCON1 CODTAB
  OUTPUT F_CODCATCON2  S0  
  CHECKTYPE REQUIRED
  MESSAGE COPY , F_CODCATCON
END


STRING F_CODCATCON2 40  
BEGIN
  PROMPT 19 6 ""
  FLAG "D"   
END



STRING F_CODART 20  
BEGIN
  PROMPT 3 7 "Codice articolo "
  FIELD ACR->S1
  USE LF_ANAMAG KEY 1    
  FLAG "R"
  INPUT CODART  F_CODART
  
  DISPLAY "Codice articolo" CODART
  DISPLAY "Descrizione@30" DESCR
  OUTPUT F_CODART  CODART   
  OUTPUT F_CODART1 DESCR     
  
END

STRING F_CODART1 30  
BEGIN
  PROMPT 19 8 ""
  FIELD ACR->S2
  FLAG "U"

  USE LF_ANAMAG KEY 2    
  INPUT DESCR  F_CODART1
  DISPLAY "Codice articolo" CODART
  DISPLAY "Descrizione@30" DESCR
  OUTPUT F_CODART  CODART   
  OUTPUT F_CODART1 DESCR   
    
END
  
NUMBER F_CODCONCONT1 2  
BEGIN
  PROMPT 3 9 "Codice conto contabile "
  FIELD ACR->S3   
  USE LF_PCON 
  INPUT GRUPPO      F_CODCONCONT1
  INPUT CONTO       F_CODCONCONT2
  INPUT SOTTOCONTO  F_CODCONCONT3
  
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCONCONT1  GRUPPO   
  OUTPUT F_CODCONCONT2  CONTO   
  OUTPUT F_CODCONCONT3  SOTTOCONTO   
  OUTPUT F_CODCONCONT4  DESCR   
END

NUMBER F_CODCONCONT2 2  
BEGIN
  PROMPT 34 9 ""
  FIELD ACR->S4   
 END

NUMBER F_CODCONCONT3 6  
BEGIN
  PROMPT 42 9 ""
  FIELD ACR->S5   
  FLAG "R"
 END

STRING F_CODCONCONT4 50  
BEGIN
  PROMPT 10 10 ""
  FLAG "D"   
END

GROUPBOX DLG_NULL 70 13
BEGIN
  PROMPT 0 0 ""
  FLAG "R"
END

ENDPAGE


ENDMASK