campo-sirio/ba/bafax01.uml

PAGE "Invio fax" -1 -1 68 18

GROUPBOX DLG_NULL -1 9
BEGIN
  PROMPT 1 0 "@BDestinazione"
END

LIST 100 20
BEGIN 
  PROMPT 2 1 "Tipo anagrafica   "
  ITEM "Clienti|Clienti" 
    MESSAGE HIDE,1@|SHOW,101
  ITEM "Fornitori|Fornitori"
    MESSAGE HIDE,1@|SHOW,102
  ITEM "Fisiche|Persone fisiche" 
    MESSAGE HIDE,1@|SHOW,103
  ITEM "Giuridiche|Persone giuridiche"
    MESSAGE HIDE,1@|SHOW,104
  ITEM "Ditte|Ditte"
    MESSAGE HIDE,1@|SHOW,105
  FIELD TIPO  
END

NUMBER 101 5
BEGIN    
  PROMPT 2 2 "Codice anagrafica "
  GROUP 1
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF 101 
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT 101 CODCF
  ADD RUN cg0 -1 C
  CHECKTYPE NORMAL
  FIELD CLIENTI
END

NUMBER 102 5
BEGIN    
  PROMPT 2 2 "Codice anagrafica "
  GROUP 1
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF 102
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT 102 CODCF
  ADD RUN cg0 -1 F
  CHECKTYPE NORMAL
  FIELD FORNITORI
END

NUMBER 103 5
BEGIN    
  PROMPT 2 2 "Codice anagrafica "
  GROUP 1
  USE LF_ANAG
  INPUT TIPOA "F"
  INPUT CODANAGR 103
  DISPLAY "Codice" CODANAGR
  DISPLAY "Cognome@30" RAGSOC[1,30]
  DISPLAY "Nome@20" RAGSOC[30,-1]
  OUTPUT 103 CODANAGR
  ADD RUN ba4 -1 F
  CHECKTYPE NORMAL
  FIELD FISICHE
END

NUMBER 104 5
BEGIN    
  PROMPT 2 2 "Codice anagrafica "
  GROUP 1
  USE LF_ANAG
  INPUT TIPOA "G"
  INPUT CODANAGR 104
  DISPLAY "Codice" CODANAGR
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT 104 CODANAGR
  ADD RUN ba4 -1 G
  CHECKTYPE NORMAL
  FIELD GIURIDICHE
END

NUMBER 105 5
BEGIN    
  PROMPT 2 2 "Codice ditta      "
  GROUP 1
  USE LF_NDITTE
  INPUT CODDITTA 105
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT 105 CODDITTA
  ADD RUN ba4 -2
  CHECKTYPE NORMAL
  FIELD DITTE
END

STRING 200 20
BEGIN
  PROMPT 2 3 "Prefisso   "
  FIELD PREFIX
END

STRING 201 20
BEGIN
  PROMPT 2 4 "Numero fax "
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare il numero del fax"
  FIELD DESTFAX
END

STRING 202 50
BEGIN
  PROMPT 2 6 "Ditta      "
  FIELD DESTFIRM
END

STRING 203 50
BEGIN
  PROMPT 2 7 "Nome       "
  FIELD DESTNAME
END

GROUPBOX DLG_NULL -1 5
BEGIN
  PROMPT 1 9 "@BInviato da"
END

STRING 301 20
BEGIN
  PROMPT 2 10 "Numero fax "
  FIELD FROMFAX
END

STRING 302 50
BEGIN
  PROMPT 2 11 "Ditta      "
  FIELD FROMFIRM
END

STRING 303 50
BEGIN
  PROMPT 2 12 "Nome       "
  FIELD FROMNAME
END

STRING 500 50
BEGIN
  PROMPT 2 14 "Files      "
  FLAGS "D"
  FIELD FILELIST
END

BUTTON DLG_FAX 10 2
BEGIN
  PROMPT -12 -1 "Fa~x"
  PICTURE BMP_FAX
  MESSAGE EXIT,K_ENTER
END

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

RADIOBUTTON 400 14
BEGIN
  PROMPT 34 2 "" 
  ITEM "P|Impulsi"
  ITEM "T|Toni"
  FIELD DIALING
END

BUTTON 401 3 1
BEGIN
  PROMPT 48 1 "1"
  GROUP 2
END

BUTTON 402 3 1
BEGIN
  PROMPT 53 1 "2"
  GROUP 2
END

BUTTON 403 3 1
BEGIN
  PROMPT 58 1 "3"
  GROUP 2
END

BUTTON 404 3 1
BEGIN
  PROMPT 48 2 "4"
  GROUP 2
END

BUTTON 405 3 1
BEGIN
  PROMPT 53 2 "5"
  GROUP 2
END

BUTTON 406 3 1
BEGIN
  PROMPT 58 2 "6"
  GROUP 2
END

BUTTON 407 3 1
BEGIN
  PROMPT 48 3 "7"
  GROUP 2
END

BUTTON 408 3 1
BEGIN
  PROMPT 53 3 "8"
  GROUP 2
END

BUTTON 409 3 1
BEGIN
  PROMPT 58 3 "9"
  GROUP 2
END

BUTTON 410 3 1
BEGIN
  PROMPT 48 4 ","
  GROUP 2
END

BUTTON 411 3 1
BEGIN
  PROMPT 53 4 "0"
  GROUP 2
END

BUTTON 412 3 1
BEGIN
  PROMPT 58 4 "#"
  GROUP 2
END

ENDPAGE

ENDMASK