campo-sirio/ve/ve0200e.uml

#include "veconf.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Contabilizzazione" 1 1 60 14

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

LIST F_RICERCACR1 36
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"
//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 36
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
//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 36
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
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 36
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
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 36
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"
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 "Ricerca per anagrafica del conto di costo ricavo"
END

LIST F_RICERCAAN1 36
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 36
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 36
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 36
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

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

STRING F_IVASTORNO 4
BEGIN
  PROMPT 2 15 "Cod. IVA storno art. omaggio     "
  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

ENDPAGE

PAGE "Distinta Base" 1 1 60 14

BOOLEAN F_EXPLODEDB
BEGIN
  PROMPT 2 2 "Esplosione distinte"
  MESSAGE FALSE CLEAR,8@
  MESSAGE TRUE ENABLE,8@
  FIELD EXPLODEDB
END
          
GROUPBOX DLG_NULL 78 14
BEGIN
PROMPT 1 4 "Parametri esplosione"
END

LISTBOX F_VALCOMP 15
BEGIN
  PROMPT 2 6 "Calcolo valore su    "
  ITEM " |Prodotto finito"
  ITEM "X|Componenti"
  FIELD VALCOMP
  GROUP 8
END

LISTBOX F_TIPOESPL 20
BEGIN
  PROMPT 2 8 "Tipo esplosione      "
  ITEM " |Scalare"
  ITEM "X|Materiali di base"
  FIELD TIPOESPL
  GROUP 8
END

BOOLEAN F_RAGGART
BEGIN
  PROMPT 2 10 "Raggruppo articoli uguali"
  FIELD RAGGART
  GROUP 8
END
          
NUMBER F_LIVELLO 3
BEGIN
  PROMPT 2 12 "Livello esplosione   "
  FIELD LIVESPL
  GROUP 8
END
          
NUMBER F_ORDDB 3
BEGIN
  PROMPT 2 14 "Ordinamento distinta "
  USE ORD
  INPUT CODTAB F_ORDDB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ORDDB CODTAB
  OUTPUT F_DESORDDB S0
  FIELD ORDDB
  CHECKTYPE NORMAL
  GROUP 8
END
          
STRING F_DESORDDB 47
BEGIN
  PROMPT 30 14 ""
  FLAGS "D"
END
          
BOOLEAN F_ELRORIG
BEGIN
  PROMPT 2 16 "Elimino la riga originale"
  FIELD ELRORIG
  GROUP 8
END
          
ENDPAGE


ENDMASK