#include "77cnva.h"
                        
PAGE "Modifica causali in schede percipienti" 2 2 75 15

GROUPBOX DLG_NULL -1 4
BEGIN
    PROMPT 1 0 "@bDitta"
END

TEXT DLG_NULL 
BEGIN
	PROMPT 2 1 "Codice"
END	          

TEXT DLG_NULL 
BEGIN
	PROMPT 11 1 "Ragione sociale"
END	

NUMBER F_CODDITTA 5
BEGIN
	PROMPT 2 2 "" 
  USE LF_NDITTE SELECT LF_BASE->CODDITTA!=""
  JOIN LF_BASE INTO CODDITTA==CODDITTA
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA     
  OUTPUT F_RAGDITTA RAGSOC
  CHECKTYPE REQUIRED
  WARNING "Manca la ditta"
END

STRING F_RAGDITTA 50
BEGIN
  PROMPT 11 2 ""
  USE LF_NDITTE KEY 2 SELECT LF_BASE->CODDITTA!=""
  JOIN LF_BASE INTO CODDITTA==CODDITTA
  INPUT RAGSOC F_RAGDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODDITTA
  OUTPUT F_CODDITTA CODDITTA     
  OUTPUT F_RAGDITTA RAGSOC
END
                         
GROUPBOX DLG_NULL -1 4
BEGIN
    PROMPT 1 4 "@bCausale da assegnare"
END

TEXT DLG_NULL 
BEGIN
	PROMPT 2 5 "Codice"
END	          

TEXT DLG_NULL 
BEGIN
	PROMPT 10 5 "Quadro"
END	          

TEXT DLG_NULL 
BEGIN
	PROMPT 18 5 "Causale quadro"
END	          

TEXT DLG_NULL 
BEGIN
	PROMPT 34 5 "Descrizione"
END	

STRING F_CODCAUS 2
BEGIN
  PROMPT 2 6 ""
  USE %CA7 SELECT (I0!="1015") && (((S1="D")&&((S2="L")||(S2=""))) || ((S1="DB")&&((S7="A")||(S7="T")||(S7=""))&&((B4!="X")||(R2="")||(R1="")||(R2="0.00")||(R1="0.00"))) || (S1="E") || (S1="E1"))
  INPUT CODTAB F_CODCAUS
  DISPLAY "Cod." CODTAB 
  DISPLAY "Quadro" S1
  DISPLAY "Descrizione @35" S0
  DISPLAY "Cod.trib." I0
  DISPLAY "Art.bil." I3 
  DISPLAY "C.C" S6 
  DISPLAY "C.D" S2
  DISPLAY "C.Db" S7
  DISPLAY "C.D1" S3 
  DISPLAY "C.E" S8
  DISPLAY "C.E1" S9
  DISPLAY "T.S." S4
  OUTPUT F_CODCAUS  		CODTAB
  OUTPUT F_CODQUA   		S1
  OUTPUT F_TABCAUSQUAD	S2 
  OUTPUT F_TABCAUSQUADB	S7
  OUTPUT F_TABCAUSQUAE	S8
  OUTPUT F_TABCAUSQUAE1	S9  
  OUTPUT F_DESCRCAUS 		S0
  FLAGS "Z"    
  CHECKTYPE REQUIRED
  WARNING "Manca la causale"
  ADD RUN 773mod -3 %CA7
END

STRING F_CODQUA 2
BEGIN
  PROMPT 12 6 ""
  FLAGS "D"
END                          

STRING F_CAUSQUA 1
BEGIN             
  PROMPT 23 6 ""
  SHEET "Codice|Descrizione@60"
  INPUT F_CAUSQUA
  ITEM " |Niente"
  OUTPUT F_CAUSQUA                                  	
END                       

STRING F_DESCRCAUS 60 35
BEGIN
  PROMPT 34 6 ""  
  FLAGS "D"
END

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

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -22 -1 "~Conferma"
END

// MAI VISUALIZZATO
STRING F_TABCAUSQUAD 1
BEGIN
  PROMPT 80 80 ""
  FLAGS "H"
END                 

// MAI VISUALIZZATO
STRING F_TABCAUSQUADB 1
BEGIN
  PROMPT 80 80 ""
  FLAGS "H"
END  

// MAI VISUALIZZATO
STRING F_TABCAUSQUAE 1
BEGIN
  PROMPT 80 80 ""
  FLAGS "H"
END                 

// MAI VISUALIZZATO
STRING F_TABCAUSQUAE1 1
BEGIN
  PROMPT 80 80 ""
  FLAGS "H"
END                

ENDPAGE

ENDMASK