#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 " -1 -1 78 8


LISTBOX F_TIPO 8
BEGIN
  PROMPT 3 3  "Tipo lavoro "
  FIELD %ACR->S0
  ITEM "1|Ricavi "
  MESSAGE SHOW, F_CODGRUPPOR
  MESSAGE HIDE, F_CODGRUPPOC
  MESSAGE SHOW, F_CODCONTOR
  MESSAGE HIDE, F_CODCONTOC
  MESSAGE SHOW, F_CODSTCONTOR
  MESSAGE HIDE, F_CODSTCONTOC
  ITEM "2|Costi  "
  MESSAGE SHOW, F_CODGRUPPOC
  MESSAGE HIDE, F_CODGRUPPOR
  MESSAGE SHOW, F_CODCONTOC
  MESSAGE HIDE, F_CODCONTOR
  MESSAGE SHOW, F_CODSTCONTOC
  MESSAGE HIDE, F_CODSTCONTOR
  FLAG "R"
END

STRING F_CODCATCON 3
BEGIN
  PROMPT 3 5 "Codice categoria contabile "
  FIELD %ACR->CODTAB[1,3]
  KEY 1
  FLAG "U"
  USE %CCO  // CATEGORIE CONTABILI C/F

  INPUT CODTAB  F_CODCATCON
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_CODCATCON CODTAB
  OUTPUT F_CODCATCON  S0
  CHECKTYPE REQUIRED
END


STRING F_CODART 20
BEGIN
  PROMPT 3 7 "Codice articolo "
  FIELD %ACR->CODTAB[4,24]
  KEY 1
  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_DESART DESCR

END

STRING F_DESART 30
BEGIN
  PROMPT 19 9 ""
  FIELD %ACR->S2
  FLAG "U"

  USE LF_ANAMAG KEY 2
  INPUT DESCR  F_DESART
  DISPLAY "Codice articolo" CODART
  DISPLAY "Descrizione@30" DESCR
  OUTPUT F_CODART  CODART
  OUTPUT F_DESART DESCR

END

NUMBER F_CODGRUPPOR 3
BEGIN
  PROMPT 3 11 "Codice conto ricavo "
  FIELD %ACR->S3
 END

NUMBER F_CODCONTOR 3
BEGIN
  PROMPT 30 11 ""
  FIELD %ACR->S4
  USE LF_PCON SELECT INDBIL="4"
  INPUT GRUPPO      F_CODGRUPPOR
  INPUT CONTO       F_CODCONTOR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODGRUPPOR  GRUPPO
  OUTPUT F_CODCONTOR  CONTO
  ADD RUN CG0 -0
 END

NUMBER F_CODSTCONTOR 6
BEGIN
  PROMPT 39 11 ""
  FIELD %ACR->S5
  USE LF_PCON
  INPUT GRUPPO      F_CODGRUPPOR
  INPUT CONTO       F_CODCONTOR
  INPUT SOTTOCONTO  F_CODSTCONTOR

  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODGRUPPOR  GRUPPO
  OUTPUT F_CODCONTOR  CONTO
  OUTPUT F_CODSTCONTOR  SOTTOCONTO
  OUTPUT F_DESSTCONTO  DESCR
  ADD RUN CG0 -0
END

NUMBER F_CODGRUPPOC 3
BEGIN
  PROMPT 3 11 "Codice conto costo "
  FIELD %ACR->S3
 END

NUMBER F_CODCONTOC 3
BEGIN
  PROMPT 30 11 ""
  FIELD %ACR->S4
  USE LF_PCON SELECT INDBIL="3"
  INPUT GRUPPO      F_CODGRUPPOC
  INPUT CONTO       F_CODCONTOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODGRUPPOC  GRUPPO
  OUTPUT F_CODCONTOC  CONTO
  ADD RUN CG0 -0
 END

NUMBER F_CODSTCONTOC 6
BEGIN
  PROMPT 39 11 ""
  FIELD %ACR->S5
  USE LF_PCON
  INPUT GRUPPO      F_CODGRUPPOC
  INPUT CONTO       F_CODCONTOC
  INPUT SOTTOCONTO  F_CODSTCONTOC

  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODGRUPPOC  GRUPPO
  OUTPUT F_CODCONTOC  CONTO
  OUTPUT F_CODSTCONTOC  SOTTOCONTO
  OUTPUT F_DESSTCONTO  DESCR
  ADD RUN CG0 -0
END

STRING F_DESSTCONTO 50
BEGIN
  PROMPT 24 13 ""
  FLAG "D"
END

ENDPAGE


ENDMASK