campo-sirio/ps/ps0431100a.uml

#include "ps0431100a.h" 

PAGE "Importazione Fatture" -1 -1 73 13

STRING F_FILE 260 57
BEGIN
  PROMPT 1 1 "File TXT   "
  FSELECT "*.txt"
END

STRING F_CAUPAG 3
BEGIN
  PROMPT 1 2 "Incassi    "
  USE LF_CAUSALI SELECT (REG=="")&&(TIPOMOV="")
  INPUT CODCAUS F_CAUPAG
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAUPAG CODCAUS
  OUTPUT F_DESPAG DESCR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -4
END

STRING F_DESPAG 50
BEGIN
  PROMPT 19 2 ""
  USE LF_CAUSALI KEY 2 SELECT (REG=="")&&(TIPOMOV="")
  INPUT DESCR F_DESPAG
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CAUPAG
  CHECKTYPE SEARCH
  ADD RUN cg0 -4
END

STRING F_CAUFAT 3
BEGIN
  PROMPT 1 3 "Fatture    "
  USE LF_CAUSALI SELECT (TIPODOC="FV")&&(TIPOMOV="")
  INPUT CODCAUS F_CAUFAT
  COPY DISPLAY F_CAUPAG
  OUTPUT F_CAUFAT CODCAUS
  OUTPUT F_DESFAT DESCR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -4
END

STRING F_DESFAT 50
BEGIN
  PROMPT 19 3 ""
  USE LF_CAUSALI SELECT (TIPODOC="FV")&&(TIPOMOV="")
  INPUT DESCR F_DESFAT
  COPY DISPLAY F_DESPAG
  COPY OUTPUT F_CAUFAT
  CHECKTYPE SEARCH
  ADD RUN cg0 -4
END

STRING F_CODIVA 4
BEGIN
  PROMPT 1 4 "Codice IVA "
  USE %IVA
  INPUT CODTAB F_CODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUPUT F_CODIVA CODTAB
  OUTPUT F_DESIVA S0
  CHECKTYPE REQUIRED 
END

STRING F_DESIVA 50
BEGIN
  PROMPT 19 4 ""
  USE %IVA KEY 2
  INPUT S0 F_DESIVA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUPUT F_CODIVA
  CHECKTYPE REQUIRED 
END

NUMBER F_GRUCLI 3
BEGIN
  PROMPT 1 5 "Clienti  "
END

NUMBER F_CONCLI 3
BEGIN
  PROMPT 15 5 ""
  USE LF_PCON SELECT (TMCF="C")&&(SOTTOCONTO="")
  INPUT GRUPPO F_GRUCLI
  INPUT CONTO F_CONCLI
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUCLI GRUPPO
  OUTPUT F_CONCLI CONTO
  OUTPUT F_DESCLI DESCR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -0
END

STRING F_DESCLI 50 40
BEGIN
  PROMPT 29 5 ""
  USE LF_PCON KEY 2 SELECT (TMCF="C")&&(SOTTOCONTO="")
  INPUT DESCR F_DESRIC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  COPY OUTPUT F_CONCLI
  CHECKTYPE SEARCH
  ADD RUN cg0 -0
END

NUMBER F_GRURIC 3
BEGIN
  PROMPT 1 6 "Ricavi   "
END

NUMBER F_CONRIC 3
BEGIN
  PROMPT 15 6 ""
END

NUMBER F_SOTRIC 6
BEGIN
  PROMPT 20 6 ""
  USE LF_PCON SELECT (SOTTOCONTO!=0)&&(201@->INDBIL=4)
  JOIN LF_PCON ALIAS 201 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT GRUPPO F_GRURIC
  INPUT CONTO F_CONRIC
  INPUT SOTTOCONTO F_SOTRIC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoc." SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRURIC GRUPPO
  OUTPUT F_CONRIC CONTO
  OUTPUT F_SOTRIC SOTTOCONTO
  OUTPUT F_DESRIC DESCR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -0
END

STRING F_DESRIC 50 40
BEGIN
  PROMPT 29 6 ""
  USE LF_PCON KEY 2 SELECT (SOTTOCONTO!=0)&&(201@->INDBIL=4)
  JOIN LF_PCON ALIAS 201 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT DESCR F_DESRIC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoc." SOTTOCONTO
  COPY OUTPUT F_SOTRIC
  CHECKTYPE SEARCH
  ADD RUN cg0 -0
END


NUMBER F_GRUCAS 3
BEGIN
  PROMPT 1 7 "Contanti "
END

NUMBER F_CONCAS 3
BEGIN
  PROMPT 15 7 ""
END

NUMBER F_SOTCAS 6
BEGIN
  PROMPT 20 7 ""
  USE LF_PCON SELECT (SOTTOCONTO!=0)
  JOIN LF_PCON ALIAS 201 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT GRUPPO F_GRUCAS
  INPUT CONTO F_CONCAS
  INPUT SOTTOCONTO F_SOTCAS
  COPY DISPLAY F_SOTRIC
  OUTPUT F_GRUCAS GRUPPO
  OUTPUT F_CONCAS CONTO
  OUTPUT F_SOTCAS SOTTOCONTO
  OUTPUT F_DESCAS DESCR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -0
END

STRING F_DESCAS 40
BEGIN
  PROMPT 29 7 ""
  USE LF_PCON KEY 2 SELECT (SOTTOCONTO!=0)
  JOIN LF_PCON ALIAS 201 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT DESCR F_DESCAS
  COPY DISPLAY F_DESRIC
  COPY OUTPUT F_SOTCAS
  CHECKTYPE SEARCH
  ADD RUN cg0 -0
END


NUMBER F_GRUASS 3
BEGIN
  PROMPT 1 8 "Assegni  "
END

NUMBER F_CONASS 3
BEGIN
  PROMPT 15 8 ""
END

NUMBER F_SOTASS 6
BEGIN
  PROMPT 20 8 ""
  COPY USE F_SOTCAS
  INPUT GRUPPO F_GRUASS
  INPUT CONTO F_CONASS
  INPUT SOTTOCONTO F_SOTASS
  COPY DISPLAY F_SOTCAS
  OUTPUT F_GRUASS GRUPPO
  OUTPUT F_CONASS CONTO
  OUTPUT F_SOTASS SOTTOCONTO
  OUTPUT F_DESASS DESCR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -0
END

STRING F_DESASS 40
BEGIN
  PROMPT 29 8 ""
  COPY USE F_DESCAS
  INPUT DESCR F_DESASS
  COPY DISPLAY F_DESCAS
  COPY OUTPUT F_SOTASS
  CHECKTYPE SEARCH
  ADD RUN cg0 -0
END


NUMBER F_GRUBAN 3
BEGIN
  PROMPT 1 9 "Bancomat "
END

NUMBER F_CONBAN 3
BEGIN
  PROMPT 15 9 ""
END

NUMBER F_SOTBAN 6
BEGIN
  PROMPT 20 9 ""
  COPY USE F_SOTCAS
  INPUT GRUPPO F_GRUBAN
  INPUT CONTO F_CONBAN
  INPUT SOTTOCONTO F_SOTBAN
  COPY DISPLAY F_SOTCAS
  OUTPUT F_GRUBAN GRUPPO
  OUTPUT F_CONBAN CONTO
  OUTPUT F_SOTBAN SOTTOCONTO
  OUTPUT F_DESBAN DESCR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -0
END

STRING F_DESBAN 40
BEGIN
  PROMPT 29 9 ""
  COPY USE F_DESCAS
  INPUT DESCR F_DESBAN
  COPY DISPLAY F_DESCAS
  COPY OUTPUT F_SOTBAN
  CHECKTYPE SEARCH
  ADD RUN cg0 -0
END

NUMBER F_GRUCAR 3
BEGIN
  PROMPT 1 10 "Carta    "
END

NUMBER F_CONCAR 3
BEGIN
  PROMPT 15 10 ""
END

NUMBER F_SOTCAR 6
BEGIN
  PROMPT 20 10 ""
  COPY USE F_SOTCAS
  INPUT GRUPPO F_GRUCAR
  INPUT CONTO F_CONCAR
  INPUT SOTTOCONTO F_SOTCAR
  COPY DISPLAY F_SOTCAS
  OUTPUT F_GRUCAR GRUPPO
  OUTPUT F_CONCAR CONTO
  OUTPUT F_SOTCAR SOTTOCONTO
  OUTPUT F_DESCAR DESCR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -0
END

STRING F_DESCAR 40
BEGIN
  PROMPT 29 10 ""
  COPY USE F_DESCAS
  INPUT DESCR F_DESCAR
  COPY DISPLAY F_DESCAS
  COPY OUTPUT F_SOTCAR
  CHECKTYPE SEARCH
  ADD RUN cg0 -0
END


BOOLEAN F_READONLY
BEGIN
  PROMPT 1 -1 "Sola lettura (non vengono generati movimenti)"
END

STRING DLG_PROFILE 60
BEGIN
  PROMPT 1 -1 ""
  PSELECT
  FLAGS "H"
END

ENDPAGE

TOOLBAR "TopBar" 0 0 0 2
#include <elabar.h>
ENDPAGE

ENDMASK