Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.2 patch 1262 git-svn-id: svn://10.65.10.50/trunk@17631 c028cbd2-c16b-5b4b-a496-9718f37d4682
		
			
				
	
	
		
			77 lines
		
	
	
		
			1.2 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			77 lines
		
	
	
		
			1.2 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
#include "pg0001500a.h"
 | 
						|
 | 
						|
PAGE "Copia movimenti di magazzino" -1 -1 76 18
 | 
						|
 | 
						|
NUMBER F_DANUM 7
 | 
						|
BEGIN 
 | 
						|
  PROMPT 1 2 "Dal numero             "
 | 
						|
  USE LF_MOVMAG 
 | 
						|
  INPUT NUMREG F_DANUM
 | 
						|
  DISPLAY "N.reg.@7" NUMREG
 | 
						|
  DISPLAY "Anno" ANNOES
 | 
						|
  DISPLAY "Data reg. @10" DATAREG
 | 
						|
  DISPLAY "Data comp.@10" DATACOMP
 | 
						|
  DISPLAY "Descrizione@30" DESCR
 | 
						|
  DISPLAY "Causale" CODCAUS
 | 
						|
  OUTPUT F_DANUM NUMREG
 | 
						|
	CHECKTYPE REQUIRED
 | 
						|
END
 | 
						|
 | 
						|
NUMBER F_ANUM 7
 | 
						|
BEGIN
 | 
						|
  PROMPT 1 4 " Al numero             "
 | 
						|
	GROUP 15
 | 
						|
  USE LF_MOVMAG 
 | 
						|
  INPUT NUMREG F_ANUM
 | 
						|
  DISPLAY "N.reg.@7" NUMREG
 | 
						|
  DISPLAY "Anno" ANNOES
 | 
						|
  DISPLAY "Data reg. @10" DATAREG
 | 
						|
  DISPLAY "Data comp.@10" DATACOMP
 | 
						|
  DISPLAY "Descrizione@30" DESCR
 | 
						|
  DISPLAY "Causale" CODCAUS
 | 
						|
  OUTPUT F_ANUM NUMREG
 | 
						|
	CHECKTYPE REQUIRED
 | 
						|
END
 | 
						|
 | 
						|
DATE F_DATAMOV
 | 
						|
BEGIN
 | 
						|
  PROMPT 1 6 "Data movimenti         "
 | 
						|
	CHECKTYPE REQUIRED
 | 
						|
END
 | 
						|
 | 
						|
CURRENCY F_VALTOT
 | 
						|
BEGIN
 | 
						|
  PROMPT 1 8 "Valore totale          "
 | 
						|
END
 | 
						|
 | 
						|
NUMBER F_QMAX 5
 | 
						|
BEGIN
 | 
						|
  PROMPT 1 10 "Quantità massima       "
 | 
						|
END
 | 
						|
 | 
						|
CURRENCY  F_VMIN 12
 | 
						|
BEGIN
 | 
						|
  PROMPT 1 12 "Valore unitario minimo "
 | 
						|
	FLAGS "U"
 | 
						|
END
 | 
						|
 | 
						|
NUMBER F_CMAX 2
 | 
						|
BEGIN
 | 
						|
  PROMPT 1 14 "Articoli da saltare    "
 | 
						|
	CHECKTYPE REQUIRED
 | 
						|
END
 | 
						|
 | 
						|
BUTTON DLG_OK 10 2
 | 
						|
BEGIN
 | 
						|
  PROMPT -12 -1 ""
 | 
						|
END
 | 
						|
 | 
						|
BUTTON DLG_QUIT 10 2
 | 
						|
BEGIN
 | 
						|
  PROMPT -22 -1 ""
 | 
						|
END
 | 
						|
 | 
						|
ENDPAGE
 | 
						|
ENDMASK
 | 
						|
 |