009a3d6057
Files correlati : ve0.exe ve6.exe Ricompilazione Demo : [ ] Commento Cambiata la contabilizzazione per categoria di vendita cliente e categoria merceologica in categoria di vendita articolo e categoria vendita cliente secondo le necessità delle lavanderie. COmunque e nello standard quindi va provato nello standard git-svn-id: svn://10.65.10.50/trunk@19548 c028cbd2-c16b-5b4b-a496-9718f37d4682
207 lines
6.7 KiB
Plaintext
Executable File
207 lines
6.7 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
|
|
|
|
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
|
|
|
|
LISTBOX F_FLDVALMAT 17
|
|
BEGIN
|
|
PROMPT 2 16 "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_CHECKPREVCONT
|
|
BEGIN
|
|
PROMPT 2 17 "Controlla che i documenti precedenti siano contabilizzati"
|
|
FIELD CHECKPREVCONT
|
|
END
|
|
|
|
STRING F_CMSCNTFIELD 10
|
|
BEGIN
|
|
PROMPT 2 18 "Campo commesse per reperire la causale"
|
|
FLAGS "U"
|
|
FIELD CMSCNTFIELD
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
|
|
ENDMASK
|