7b7326bafb
Files correlati : batbgmc.msk batbmag.msk ve1100a.msk Ricompilazione Demo : [ ] Commento : EP20091 La pagina che si apre dopo l'indicazione del codice magazzino ha lo stesso nome della testata. EP20092 Entrando in ricerca sul campo "codice comune" le maschere di ricerca per "codice" e per "descrizione" non riportano gli stessi bottoni (in descrizione mancano i bottoni di COLLEGA e NUOVO) EP20093 A pagina due:Entrando in ricerca sul campo "unità locale:codice" la maschera non riporta bottoni COLLEGA e NUOVO EP20095 Apro la ricerca sui campi di codice sottoconto e passo in modalità ricerca per descrizione. Se voglio tornare in modalità ricerca per sottoconto non posso perché la finestra di ricerca mi per errore la possibilità di vedere in ordine di conto. git-svn-id: svn://10.65.10.50/trunk@11256 c028cbd2-c16b-5b4b-a496-9718f37d4682
152 lines
3.4 KiB
Plaintext
Executable File
152 lines
3.4 KiB
Plaintext
Executable File
#include "ve1100.h"
|
|
|
|
PAGE "Stampa Documenti Vendita" -1 -1 60 15
|
|
|
|
STRING F_CODNUM 4 4
|
|
BEGIN
|
|
PROMPT 1 1 "Codice numerazione "
|
|
FLAG "UP"
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM
|
|
DISPLAY "Cod. Num." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_ANNO 4 0
|
|
BEGIN
|
|
PROMPT 38 1 "Anno "
|
|
FLAG "AP"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
LIST F_PROVV 12
|
|
BEGIN
|
|
PROMPT 1 2 "Tipo numerazione "
|
|
ITEM "D|Definitiva"
|
|
ITEM "P|Provvisoria"
|
|
FLAG "P"
|
|
END
|
|
|
|
NUMBER F_NCOPIE 3
|
|
BEGIN
|
|
PROMPT 38 2 "Numero copie "
|
|
NUM_EXPR {(#THIS_FIELD >= 0)}
|
|
FLAG "P"
|
|
WARNING "Il numero di copie deve essere positivo"
|
|
END
|
|
|
|
RADIOBUTTON F_DATA_O_NUM 58
|
|
BEGIN
|
|
PROMPT 1 4 "Selezione su "
|
|
ITEM "N|Numero documento" MESSAGE SHOW,1@|HIDE,2@
|
|
ITEM "D|Data documento" MESSAGE SHOW,2@|HIDE,1@
|
|
FLAG "P"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 58 5
|
|
BEGIN
|
|
PROMPT 1 8 "Selezione per numero"
|
|
GROUP 1
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 58 5
|
|
BEGIN
|
|
PROMPT 1 8 "Selezione per data"
|
|
GROUP 2
|
|
END
|
|
|
|
NUMBER F_DA_NDOC 7 0
|
|
BEGIN
|
|
PROMPT 2 9 "Dal numero "
|
|
USE 33
|
|
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
|
|
JOIN 13 TO 20 INTO COM=COMCF
|
|
INPUT PROVV F_PROVV SELECT
|
|
INPUT ANNO F_ANNO SELECT
|
|
INPUT CODNUM F_CODNUM SELECT
|
|
INPUT NDOC F_DA_NDOC
|
|
DISPLAY "Data@10" DATADOC
|
|
DISPLAY "Numero@7" NDOC
|
|
DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
|
|
DISPLAY "Comune@20" 13->DENCOM
|
|
OUTPUT F_DA_NDOC NDOC
|
|
// OUTPUT F_DA_DATADOC DATADOC
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_A_NDOC 7 0
|
|
BEGIN
|
|
PROMPT 2 11 "Al numero "
|
|
USE 33
|
|
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
|
|
JOIN 13 TO 20 INTO COM=COMCF
|
|
INPUT PROVV F_PROVV SELECT
|
|
INPUT ANNO F_ANNO SELECT
|
|
INPUT CODNUM F_CODNUM SELECT
|
|
INPUT NDOC F_A_NDOC
|
|
DISPLAY "Data@10" DATADOC
|
|
DISPLAY "Numero@7" NDOC
|
|
DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
|
|
DISPLAY "Comune@20" 13->DENCOM
|
|
OUTPUT F_A_NDOC NDOC
|
|
WARNING "Il numero documento deve essere superiore al limite inferiore"
|
|
// OUTPUT F_A_DATADOC DATADOC
|
|
GROUP 1
|
|
END
|
|
|
|
DATE F_DA_DATADOC
|
|
BEGIN
|
|
PROMPT 2 9 "Dalla data "
|
|
USE 33 KEY 3 SELECT (PROVV==#F_PROVV) && (ANNO==#F_ANNO) && (CODNUM==#F_CODNUM)
|
|
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
|
|
JOIN 13 TO 20 INTO COM=COMCF
|
|
INPUT DATADOC F_DA_DATADOC
|
|
INPUT PROVV F_PROVV
|
|
INPUT ANNO F_ANNO
|
|
INPUT CODNUM F_CODNUM
|
|
DISPLAY "Data@10" DATADOC
|
|
DISPLAY "Numero@7" NDOC
|
|
DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
|
|
DISPLAY "Comune@20" 13->DENCOM
|
|
// COPY DISPLAY F_DA_NDOC
|
|
OUTPUT F_DA_NDOC NDOC
|
|
OUTPUT F_DA_DATADOC DATADOC
|
|
GROUP 2
|
|
END
|
|
|
|
DATE F_A_DATADOC
|
|
BEGIN
|
|
PROMPT 2 11 "Alla data "
|
|
USE 33 KEY 3 SELECT (PROVV==#F_PROVV) && (ANNO==#F_ANNO) && (CODNUM==#F_CODNUM)
|
|
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
|
|
JOIN 13 TO 20 INTO COM=COMCF
|
|
INPUT DATADOC F_A_DATADOC
|
|
INPUT PROVV F_PROVV
|
|
INPUT ANNO F_ANNO
|
|
INPUT CODNUM F_CODNUM
|
|
DISPLAY "Data@10" DATADOC
|
|
DISPLAY "Numero@7" NDOC
|
|
DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
|
|
DISPLAY "Comune@20" 13->DENCOM
|
|
OUTPUT F_A_NDOC NDOC
|
|
OUTPUT F_A_DATADOC DATADOC
|
|
GROUP 2
|
|
END
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 "~Stampa"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|