#include "veconf.h"

TOOLBAR "" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Contabilizzazione" 0 0 0 0

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 1 "@bRicerca primaria del conto di costo ricavo"
END

LIST F_RICERCACR1 2 50
BEGIN
PROMPT 2 2 "Primo gruppo        "
ITEM "CF|Clienti/Fornitori"
ITEM "CA|Causale contabile"
ITEM "AN|Anagrafica magazzino"
ITEM "CV|Categoria di vendita"
ITEM "CC|Categoria contabile"
ITEM "VM|Categoria vendita articolo e Categoria di vendita"
//STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4))
//WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END

LIST F_RICERCACR2 2 50
BEGIN
PROMPT 2 3 "Secondo gruppo      "
ITEM "-|Nessuno" MESSAGE CLEAR,1@
ITEM "CF|Clienti/Fornitori" MESSAGE ENABLE,F_RICERCACR3
ITEM "CA|Causale contabile" MESSAGE ENABLE,F_RICERCACR3
ITEM "AN|Anagrafica magazzino" MESSAGE ENABLE,F_RICERCACR3
ITEM "CV|Categoria di vendita" MESSAGE ENABLE,F_RICERCACR3
ITEM "CC|Categoria contabile" MESSAGE ENABLE,F_RICERCACR3
ITEM "VM|Categoria vendita articolo e Categoria di vendita" MESSAGE ENABLE,F_RICERCACR3
//STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4))
//WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END

LIST F_RICERCACR3 2 50
BEGIN
PROMPT 2 4 "Terzo gruppo        "
ITEM "-|Nessuno" MESSAGE CLEAR,2@
ITEM "CF|Clienti/Fornitori" MESSAGE ENABLE,F_RICERCACR4
ITEM "CA|Causale contabile" MESSAGE ENABLE,F_RICERCACR4
ITEM "AN|Anagrafica magazzino" MESSAGE ENABLE,F_RICERCACR4
ITEM "CV|Categoria di vendita" MESSAGE ENABLE,F_RICERCACR4
ITEM "CC|Categoria contabile" MESSAGE ENABLE,F_RICERCACR4
ITEM "VM|Categoria vendita articolo e Categoria di vendita" MESSAGE ENABLE,F_RICERCACR4
GROUP 1
//STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4))
//WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END

LIST F_RICERCACR4 2 50
BEGIN
PROMPT 2 5 "Quarto gruppo       "
ITEM "-|Nessuno"  MESSAGE CLEAR,F_RICERCACR5
ITEM "CF|Clienti/Fornitori"  MESSAGE ENABLE,F_RICERCACR5
ITEM "CA|Causale contabile" MESSAGE ENABLE,F_RICERCACR5
ITEM "AN|Anagrafica magazzino" MESSAGE ENABLE,F_RICERCACR5
ITEM "CV|Categoria di vendita" MESSAGE ENABLE,F_RICERCACR5
ITEM "CC|Categoria contabile" MESSAGE ENABLE,F_RICERCACR5
ITEM "VM|Categoria vendita articolo e Categoria di vendita" MESSAGE ENABLE,F_RICERCACR5
GROUP 1 2
//STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4))
//WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END

LIST F_RICERCACR5 2 50
BEGIN
PROMPT 2 6 "Quinto gruppo       "
ITEM "-|Nessuno"
ITEM "CF|Clienti/Fornitori"
ITEM "CA|Causale contabile"
ITEM "AN|Anagrafica magazzino"
ITEM "CV|Categoria di vendita"
ITEM "CC|Categoria contabile"
ITEM "VM|Categoria vendita articolo e Categoria di vendita"
GROUP 1 2
//STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4))
//WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END

GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 8 "@bRicerca per anagrafica del conto di costo ricavo"
END

LIST F_RICERCAAN1 2 30
BEGIN
PROMPT 2 9 "Primo gruppo        "
ITEM "AR|Articolo"
ITEM "GM|Gruppo merceologico"
ITEM "SM|Sottogruppo merceologico"
ITEM "RF|Raggruppamento fiscale"
//STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3))
//WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi"
END

LIST F_RICERCAAN2 2 30
BEGIN
PROMPT 2 10 "Secondo gruppo      "
ITEM "-|Nessuno" MESSAGE CLEAR,3@
ITEM "AR|Articolo" MESSAGE ENABLE,F_RICERCAAN3
ITEM "GM|Gruppo merceologico" MESSAGE ENABLE,F_RICERCAAN3
ITEM "SM|Sottogruppo merceologico" MESSAGE ENABLE,F_RICERCAAN3
ITEM "RF|Raggruppamento fiscale" MESSAGE ENABLE,F_RICERCAAN3
//STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3))
//WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi"
END

LIST F_RICERCAAN3 2 30
BEGIN
PROMPT 2 11 "Terzo gruppo        "
ITEM "-|Nessuno" MESSAGE CLEAR,F_RICERCAAN4
ITEM "AR|Articolo" MESSAGE ENABLE,F_RICERCAAN4
ITEM "GM|Gruppo merceologico" MESSAGE ENABLE,F_RICERCAAN4
ITEM "SM|Sottogruppo merceologico" MESSAGE ENABLE,F_RICERCAAN4
ITEM "RF|Raggruppamento fiscale" MESSAGE ENABLE,F_RICERCAAN4
GROUP 3
//STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3))
//WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi"
END

LIST F_RICERCAAN4 2 30
BEGIN
PROMPT 2 12 "Quarto gruppo       "
ITEM "-|Nessuno"
ITEM "AR|Articolo"
ITEM "GM|Gruppo merceologico"
ITEM "SM|Sottogruppo merceologico"
ITEM "RF|Raggruppamento fiscale"
GROUP 3
//STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3))
//WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 14 "@bStorno omaggi"
END

STRING F_IVASTORNO 4
BEGIN
  PROMPT 2 15 "Cod. IVA "
  FIELD IVASTO
  USE %IVA
  FLAGS "U"
  INPUT CODTAB F_IVASTORNO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" S1
  DISPLAY "%@5" R0
  OUTPUT F_IVASTORNO CODTAB
END

NUMBER F_OMACODCONG 3
BEGIN
  PROMPT 24 15 "Conto "
  FIELD OMACODCON(1)
  USE LF_PCON
  INPUT GRUPPO F_OMACODCONG
  INPUT CONTO  F_OMACODCONC
  INPUT SOTTOCONTO  F_OMACODCONS
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_OMACODCONG GRUPPO 
  OUTPUT F_OMACODCONC CONTO  
  OUTPUT F_OMACODCONS SOTTOCONTO  
  OUTPUT F_OMACODCOND DESCR
  CHECKTYPE NORMAL
END

NUMBER F_OMACODCONC 3
BEGIN
  PROMPT 37 15 ""
  FIELD OMACODCON(2)
  COPY ALL F_OMACODCONG
  CHECKTYPE NORMAL
END

NUMBER F_OMACODCONS 6
BEGIN
  PROMPT 44 15 ""
  FIELD OMACODCON(3)
  COPY ALL F_OMACODCONG
  CHECKTYPE NORMAL
END

STRING F_OMACODCOND 50
BEGIN
  PROMPT 24 16 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_OMACODCOND
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_OMACODCONG
  CHECKTYPE NORMAL
END

LISTBOX F_FLDVALMAT 17
BEGIN
  PROMPT 2 18 "Campo per i valore dei materiali "
	FIELD FldValMat
	ITEM "|Nessuno"
	ITEM "ULTCOS1|Ultimo Costo"
	ITEM "ULTCOS2|Penultimo Costo"
	ITEM "COSTSTD|Costo Standard"
	ITEM "USER1|Campo Utente 1"
	ITEM "USER2|Campo Utente 2"
	ITEM "USER3|Campo Utente 3"
	ITEM "USER4|Campo Utente 4"
	ITEM "USER5|Campo Utente 5"
	ITEM "USER6|Campo Utente 6"
	ITEM "USER7|Campo Utente 7"
	ITEM "USER8|Campo Utente 8"
	ITEM "USER9|Campo Utente 9"
	ITEM "USER10|Campo Utente 10"
	ITEM "USER11|Campo Utente 11"
	ITEM "USER12|Campo Utente 12"
	ITEM "USER13|Campo Utente 13"
	ITEM "USER14|Campo Utente 14"
	ITEM "USER15|Campo Utente 15"
	ITEM "USER16|Campo Utente 16"
	ITEM "USER17|Campo Utente 17"
	ITEM "USER18|Campo Utente 18"
	ITEM "USER19|Campo Utente 19"
	ITEM "USER20|Campo Utente 20"
END

BOOLEAN F_SCONTO_LORDO
BEGIN
  PROMPT 2 19 "Contabilizzazione merci al lordo "
  FIELD CONTSCLOR
END

BOOLEAN F_CHECKPREVCONT
BEGIN
  PROMPT 42 19 "Controllo contabilizzazione documenti precedenti"
  FIELD CHECKPREVCONT
END

STRING F_CMSCNTFIELD 10
BEGIN
  PROMPT 2 20 "Campo commesse per reperire la causale"
	FLAGS "U"
  FIELD CMSCNTFIELD
END

ENDPAGE


ENDMASK