#include "cg4200.h"

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

PAGE "Copia da ditta a ditta" -1 -1 78 16

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 1 "Copia da"
END

RADIOBUTTON F_FROMTYPE 60
BEGIN
  PROMPT 13 2 ""
  HELP "Indicare il tipo di archivi da copiare"
  ITEMS "C|Archivi Comuni"
  MESSAGE CLEAR,F_FROMFIRM|CLEAR,F_DFROMFIRM
  ITEMS "D|Archivi Ditta"
  MESSAGE ENABLE,F_FROMFIRM|ENABLE,F_DFROMFIRM
  FLAGS "Z"
END

NUMBER F_FROMFIRM 5
BEGIN
  PROMPT 4 5 "Ditta  "
  USE LF_NDITTE KEY 1
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_FROMFIRM
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_FROMFIRM CODDITTA
  OUTPUT F_DFROMFIRM RAGSOC
  HELP "Codice della ditta da cui prelevare i dati"
  WARNING "Ditta assente"
END

STRING F_DFROMFIRM 50
BEGIN
  PROMPT 20 5 ""
  USE LF_NDITTE KEY 2
  CHECKTYPE NORMAL
  INPUT RAGSOC F_DFROMFIRM
  DISPLAY "Ragione sociale @60" RAGSOC
  DISPLAY "Codice" CODDITTA
  COPY OUTPUT F_FROMFIRM
  HELP "Ragione sociale della ditta da cui prelevare i dati"
  WARNING "Ditta assente"
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 7 "Copia su"
END

NUMBER F_TOFIRM 5
BEGIN
  PROMPT 4 8 "Ditta  "
  COPY USE F_FROMFIRM
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_TOFIRM
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_TOFIRM CODDITTA
  OUTPUT F_DTOFIRM RAGSOC
  HELP "Codice della ditta su cui duplicare i dati"
  WARNING "Ditta assente"
END

STRING F_DTOFIRM 50
BEGIN
  PROMPT 20 8 ""
  COPY USE F_DFROMFIRM
  CHECKTYPE NORMAL
  INPUT RAGSOC F_DTOFIRM
  COPY DISPLAY F_DFROMFIRM
  COPY OUTPUT F_TOFIRM
  HELP "Ragione sociale della ditta su cui duplicare i dati"
  WARNING "Ditta assente"
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 10 "Archivi da duplicare"
END

BOOLEAN F_PCON
BEGIN
  PROMPT 4 11 "Piano dei conti"
  HELP "Indicare se duplicare l'archivio piano dei conti"
END

BOOLEAN F_CAUS
BEGIN
  PROMPT 34 11 "Causali"
  HELP "Indicare se duplicare l'archivio causali"
END

BOOLEAN F_CLIFO
BEGIN
  PROMPT 54 11 "Clienti/Fornitori"
  HELP "Indicare se duplicare l'archivio clienti/fornitori"
END

BOOLEAN F_IVD
BEGIN
  PROMPT 4 12 "IV Direttiva C.E.E."
  HELP "Indicare se duplicare l'archivio IV Direttiva C.E.E."
END

ENDPAGE

ENDMASK