#include "baeur11.h"

TOOLBAR "" 0 -3 0 3

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE    

PAGE "Conversione ditta" 0 0 80 18

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 1 "@bDitta da convertire"  
END

NUMBER F11_DITTA 5
BEGIN
  PROMPT 2 2 "Ditta "
  USE LF_NDITTE
  INPUT CODDITTA F11_DITTA
  OUTPUT F11_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FLAGS "DF"
END

STRING F11_RAGSOC 50
BEGIN
  PROMPT 21 2 ""
  FLAGS "D"
END

STRING F11_DATI 50
BEGIN
  PROMPT 2 3 "Area dati in Lire  "
  FLAGS "D"
END

STRING F11_DATIE 50
BEGIN
  PROMPT 2 4 "Area dati in Euro  "
  FLAGS "D"
END

DATE F11_ADOZIONE
BEGIN
  PROMPT 2 5 "Data adozione Euro "
  USE ESC
  INPUT D0 F11_ADOZIONE
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Inizio Esercizio" D0
  DISPLAY "Fine Esercizio" D1
  OUTPUT F11_ADOZIONE D0
  CHECKTYPE SEARCH
  ADD NONE
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 7 "@bConto Differenza Arrotondamenti"  
END

NUMBER F11_DIFF_G 3
BEGIN
  PROMPT 2 8 ""
END

NUMBER F11_DIFF_C 3
BEGIN
  PROMPT 7 8 ""
END

NUMBER F11_DIFF_S 6
BEGIN
  PROMPT 12 8 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F11_DIFF_G
  INPUT CONTO F11_DIFF_C
  INPUT SOTTOCONTO F11_DIFF_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F11_DIFF_G GRUPPO 
  OUTPUT F11_DIFF_C CONTO 
  OUTPUT F11_DIFF_S SOTTOCONTO
  OUTPUT F11_DIFF_D DESCR
  CHECKTYPE NORMAL
  WARNING "Specificare il conto per gli arrotondamenti valido"
  ADD RUN cg0 -0
END

STRING F11_DIFF_D 50
BEGIN
  PROMPT 25 8 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F11_DIFF_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F11_DIFF_S 
  CHECKTYPE NORMAL
  WARNING "E' necessario specificare il conto per gli arrotondamenti"
  ADD RUN cg0 -0
END

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 10 "@bOperazioni"
END

BOOLEAN F11_COPY
BEGIN
  PROMPT 2 11 "Copia e conversione ditta da lire ad euro"
  GROUP 1  
  MESSAGE TRUE "X",2@|DISABLE,2@
  MESSAGE FALSE RESET,2@|ENABLE,2@
END

BOOLEAN F11_SALDI
BEGIN
  PROMPT 2 12 "Apertura saldi esercizio precedente in euro"
  GROUP 1 2
END

BOOLEAN F11_PARTITE
BEGIN
  PROMPT 2 13 "Copia e conversione partite aperte"
  GROUP 1 2
END

BOOLEAN F11_VENDITE
BEGIN
  PROMPT 2 14 "Azzeramento documenti e conversione anagrafiche di vendita"
  GROUP 1 2
END

BOOLEAN F11_MAGAZZINO
BEGIN
  PROMPT 2 15 "Conversione Magazzino"
  GROUP 1 2
END

BOOLEAN F11_PERCIPIENTI
BEGIN
  PROMPT 2 16 "Conversione Percipienti"
  GROUP 1 2 
  MESSAGE TRUE ENABLE,F11_SOLOAPERTE
  MESSAGE FALSE CLEAR,F11_SOLOAPERTE
END

BOOLEAN F11_SOLOAPERTE
BEGIN
  PROMPT 42 16 "Converti solo le schede aperte"
END

ENDMASK