6c768a9ec9
git-svn-id: svn://10.65.10.50/branches/R_10_00@22634 c028cbd2-c16b-5b4b-a496-9718f37d4682
260 lines
7.6 KiB
Plaintext
Executable File
260 lines
7.6 KiB
Plaintext
Executable File
#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
|