campo-sirio/m770/772300a.uml

// 772300a.uml
// Stampa movimenti per percipiente

#include "772300.h" 

TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE

PAGE "Stampa movimenti per percipiente" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "GRD"
  USE LF_NDITTE KEY 1  
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "D"
END

DATE F_DATASTAMPA
BEGIN
  PROMPT 3 4 "Data di stampa  "
  FLAGS "A"
END
                       
DATE F_DATADA 
BEGIN
  PROMPT 3 6 "Dalla data      "
END

DATE F_DATAA
BEGIN
  PROMPT 43 6 "Alla data      "
END
            
STRING F_TIPODA 1 
BEGIN
  PROMPT 3 8 "Da codice       "    
  FLAGS "U"
END
 
TEXT DLG_NULL
BEGIN
  PROMPT 22 8 "/"
END

NUMBER F_CODDA 5
BEGIN
  PROMPT 24 8 ""
  HELP "Codice anagrafico del percipiente"
  USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA)     
  JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
  CHECKTYPE NORMAL
  INPUT CODDITTA F_CODDITTA
  INPUT TIPOA F_TIPODA
  INPUT CODANAGR F_CODDA 
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR  
  DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
  OUTPUT F_TIPODA TIPOA
  OUTPUT F_CODDA CODANAGR
  OUTPUT F_RAGDA LF_ANAG->RAGSOC                 
  WARNING "Percipiente inesistente"
END

STRING F_RAGDA 50
BEGIN
  PROMPT 3 9 "Ragione sociale "
  FLAGS "D"
END

STRING F_TIPOA 1 
BEGIN
  PROMPT 3 11 "A codice        "    
  FLAGS "U"
END
       
TEXT DLG_NULL
BEGIN
  PROMPT 22 11 "/"
END
       
NUMBER F_CODA 5
BEGIN
  PROMPT 24 11 ""
  HELP "Codice anagrafico del percipiente"
  USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA)
  JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
  CHECKTYPE NORMAL
  INPUT CODDITTA F_CODDITTA
  INPUT TIPOA F_TIPOA
  INPUT CODANAGR F_CODA 
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR  
  DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
  OUTPUT F_TIPOA TIPOA
  OUTPUT F_CODA CODANAGR
  OUTPUT F_RAGA LF_ANAG->RAGSOC                  
  WARNING "Percipiente inesistente"
END

STRING F_RAGA 50
BEGIN
  PROMPT 3 12 "Ragione sociale "
  FLAGS "D"
END

ENDPAGE

ENDMASK