Patch level : 4.0

Files correlati     : no patch
Ricompilazione Demo : [ ]
Commento            :



programma incassi CRPA


git-svn-id: svn://10.65.10.50/trunk@15942 c028cbd2-c16b-5b4b-a496-9718f37d4682

ps/indice_programmi.txt

@@ -31,6 +31,9 @@ PG0069
 Importazione e contabilizzazione fatture Nautilus
 
 
+PS0017
+Gestione Incassi
+
 PS0544
 Trasferimento a SISIPHO
 Trasferimento a SERVUS

ps/ps0017.cpp

@@ -0,0 +1,17 @@
+#include <xvt.h>
+#include "ps0017.h"
+
+int main(int argc, char** argv)
+{                                             
+  const char op = argc < 2 ? '0' : argv[1][1];
+  switch (op)
+  {
+    case '0':
+      ps0017100(argc,argv);
+      break;    
+    default:
+      ps0017100(argc,argv);
+      break;
+  }
+  return 0;
+}

ps/ps0017.h

@@ -0,0 +1,7 @@
+#ifndef __PS0017_H
+#define __PS0017_H
+
+int ps0017100(int argc, char* argv[]);// GESTIONE INCASSI
+
+#endif // __PS0017_H
+

ps/ps0017100a.h

@@ -0,0 +1,41 @@
+#define F_DA_DATA    202
+#define F_A_DATA     203
+#define F_TIPODIST   206 
+#define F_DIST       207
+#define F_DUMMYDIST  208 
+#define F_DATADIST   209
+#define F_CODVAL     210
+#define F_EURO       211
+#define F_CAMBIO     212
+#define F_DATACAMBIO 213
+#define F_SORT       215
+#define F_TIPOPAG    222
+#define F_TOTAL      230
+#define F_SPESE      231
+#define F_TIPOEFF    232
+
+#define F_CDC1       240
+
+#define F_DESCDC1    260
+
+#define F_SHEET      300 
+#define F_AGGIORNA   301 
+#define F_CONTABILI  302
+#define F_UNCONTABIL 303
+
+#define F_TIPOPAGEFF 401
+
+#define F_PAGA       100
+#define F_IMPORTO    101
+#define F_ACCSAL     102 
+#define F_RESIDUO    103
+#define F_CODCF      104
+#define F_RAGSOC     105 
+#define F_ANNO       106
+#define F_PARTITA    107
+#define F_RIGA       108
+#define F_RATA       109
+#define F_DATA       110
+#define F_RIGADIST   111
+#define F_RIGAEFF    112
+#define F_DESC_TIPO  113

ps/ps0017100a.uml

@@ -0,0 +1,361 @@
+#include "ef0A00a.h"
+
+TOOLBAR "Toolbar" 0 -3 0 3
+
+BUTTON F_UNCONTABIL 30
+BEGIN
+  PROMPT -12 0 "~Annulla contabilizzazione"
+  FLAGS "H"
+END
+
+BUTTON F_CONTABILI 30
+BEGIN
+  PROMPT -22 0 "~Contabilizzazione"
+  GROUP 5
+END
+
+BUTTON DLG_NEWREC 10 2
+BEGIN
+  PROMPT -16 -1 "~Nuovo"
+  PICTURE BMP_NEWREC
+  PICTURE BMP_NEWRECDN
+  GROUP 3
+END
+  
+BUTTON DLG_SAVEREC 10 2
+BEGIN
+  PROMPT -26 -1 "~Registra"
+
+  PICTURE BMP_SAVEREC
+  PICTURE BMP_SAVERECDN
+END
+
+BUTTON DLG_DELREC 10 2
+BEGIN
+  PROMPT -36 -1 "~Elimina"
+
+  PICTURE BMP_DELREC
+  PICTURE BMP_DELRECDN
+  GROUP 5
+END
+
+BUTTON DLG_PRINT 10 2
+BEGIN
+  PROMPT -46 -1 ""
+  PICTURE BMP_PRINT
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -56 -1 ""
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN
+  PROMPT -66 -1 ""
+END
+
+ENDPAGE
+
+PAGE "Disposizioni incassi/pagamenti" -1 -1 78 19
+
+GROUPBOX DLG_NULL 78 6
+BEGIN
+  PROMPT 1 0 "@bDistinta"
+END
+
+LIST F_TIPODIST 1 15
+BEGIN
+  PROMPT 2 1 "Tipo  "
+  ITEM "I|All'incasso"
+  MESSAGE ENABLE,F_TIPOEFF
+  ITEM "B|Salvo buon fine"   
+  MESSAGE RESET,F_TIPOEFF|DISABLE,F_TIPOEFF
+  ITEM "S|Allo sconto"
+  MESSAGE RESET,F_TIPOEFF|DISABLE,F_TIPOEFF
+  GROUP 3
+END
+
+LIST F_DUMMYDIST 1
+BEGIN
+  PROMPT 15 1 ""
+  ITEM "1|1"
+  FLAGS "H"
+END
+
+NUMBER F_DIST 5
+BEGIN
+  PROMPT 28 1 "Numero "
+  USE LF_EFFETTI KEY 4 SELECT NRIGADIST==1
+  INPUT TIPODIST F_TIPODIST
+  INPUT NDIST F_DIST
+  INPUT NRIGADIST F_DUMMYDIST
+  DISPLAY "Tipo" TIPODIST
+  DISPLAY "Numero" NDIST
+  DISPLAY "Data@10" DATADIST
+  DISPLAY "C/F" TIPOCF
+  DISPLAY "ABI@5" CODABIP
+  DISPLAY "CAB@5" CODCABP
+  DISPLAY "Valuta" CODVAL
+  OUTPUT F_TIPODIST TIPODIST
+  OUTPUT F_DIST NDIST
+  OUTPUT F_DATADIST DATADIST
+  OUTPUT F_CODVAL CODVAL
+  OUTPUT F_CAMBIO CAMBIO
+  OUTPUT F_DATACAMBIO DATACAMBIO
+  OUTPUT F_EURO CONTROEURO
+  OUTPUT F_TIPOCF TIPOCF
+  OUTPUT F_ABI CODABIP
+  OUTPUT F_CAB CODCABP
+  OUTPUT F_TIPOPAG TIPOPAG
+  OUTPUT F_SPESE SPESE
+  CHECKTYPE SEARCH
+  GROUP 4
+END
+
+STRING F_CODVAL 3
+BEGIN
+  PROMPT 50 1 "Valuta "
+  FLAGS "UZ"
+  USE %VAL
+  INPUT CODTAB F_CODVAL
+  DISPLAY "Codice" CODTAB   
+  DISPLAY "Cambio\nStandard" S4
+  DISPLAY "Contro\nEuro@6" B1
+  DISPLAY "Denominazione@50" S0
+  OUTPUT F_CODVAL CODTAB
+  OUTPUT F_EURO B1
+  CHECKTYPE NORMAL
+  GROUP 3
+  MESSAGE EMPTY CLEAR,6@
+  MESSAGE ENABLE,6@
+END
+
+BOOLEAN F_EURO
+BEGIN
+  PROMPT 64 1 "Contro Euro"
+  FLAGS "D"
+END
+
+DATE F_DATADIST
+BEGIN
+  PROMPT 2 2 "Data  " 
+  FLAGS "A"
+  CHECKTYPE REQUIRED
+END
+
+DATE F_DATACAMBIO
+BEGIN
+  PROMPT 23 2 "Data cambio " 
+  FLAGS "R"
+  USE CAM
+  JOIN %VAL ALIAS 104 INTO CODTAB[1,3]==CODTAB[1,3]
+  INPUT CODTAB[1,3] F_CODVAL SELECT
+  INPUT CODTAB[4,11] F_DATACAMBIO
+  DISPLAY "Cod" CODTAB[1,3]
+  DISPLAY "Data@10" D0
+  DISPLAY "Cambio" S4
+  DISPLAY "Parita'\nEuro@6" B1
+  DISPLAY "Valuta@50" 104@->S0
+  OUTPUT F_DATACAMBIO D0
+  OUTPUT F_CAMBIO S4
+  CHECKTYPE SEARCH
+  GROUP 6
+END
+
+NUMBER F_CAMBIO 15 6
+BEGIN
+  PROMPT 50 2 "Cambio "
+  GROUP 6
+END
+
+LIST F_TIPOPAG 1 30
+BEGIN
+  PROMPT 2 4 "Pagamento "
+  ITEM "1|Rimessa Diretta"
+END
+
+LIST F_TIPOEFF 1 10
+BEGIN
+	PROMPT 50 4 "Tipo effetti "
+	ITEM "C|Attivi"
+END
+
+DATE F_DA_DATA
+BEGIN
+  PROMPT 2 7 "Dal "
+END
+
+DATE F_A_DATA
+BEGIN
+  PROMPT 20 7 "Al "
+  FLAGS "A"
+END
+
+LISTBOX F_SORT 10
+BEGIN
+  PROMPT 35 7 "Ordinamento "
+  ITEM " |Standard"
+  ITEM "1|Scadenza"
+  ITEM "2|Residuo"
+END
+
+BUTTON F_AGGIORNA 10 2
+BEGIN
+  PROMPT 66 6 ""
+  PICTURE BMP_SELECT
+END         
+
+SPREADSHEET F_SHEET 0 -2
+BEGIN
+  PROMPT 0 8 ""
+  ITEM "Importo@18"
+  ITEM "A/S@3"
+  ITEM "Residuo@18"
+  ITEM "Codice"
+  ITEM "Ragione Sociale@20"
+  ITEM "Anno"
+  ITEM "Partita"
+  ITEM "Riga"
+  ITEM "Rata"
+  ITEM "Scadenza@10"
+  ITEM "Riga"
+  ITEM "Effetto"  
+  ITEM "Tipo Pagamento@20"
+END
+
+CURRENCY F_TOTAL 18
+BEGIN
+  PROMPT 1 -1 "Totale "
+  DRIVENBY F_CODVAL
+  FLAGS "D"
+END
+
+CURRENCY F_SPESE 18
+BEGIN
+  PROMPT 28 -1 "Spese "
+END
+
+ENDPAGE
+
+PAGE "Selezione effetti" -1 -1 78 19
+
+LIST F_TIPOPAGEFF 1 30
+BEGIN
+  PROMPT 2 1 "Solo effetti con tipo pagamento "
+  ITEM " | "
+  ITEM "1|Rimessa Diretta"
+  ITEM "2|Tratta"
+  ITEM "3|Ricevuta Bancaria"
+  ITEM "4|Cessione"
+  ITEM "5|Paghero'"
+  ITEM "6|Lettera di credito"
+  ITEM "7|Tratta accettata"
+  ITEM "8|Rapporti interbancari diretti"
+  ITEM "9|Bonifico"
+END
+
+ENDPAGE
+
+ENDMASK
+
+PAGE "Rate" -1 -1 60 10
+
+NUMBER F_RIGADIST 4
+BEGIN
+  PROMPT 31 1 "Riga effetto "
+  FLAGS "D"
+END
+
+NUMBER F_RIGAEFF 4
+BEGIN
+  PROMPT 51 1 ""
+  FLAGS "D"
+END
+
+NUMBER F_CODCF 6
+BEGIN
+  PROMPT 1 1 ""
+  FLAGS "D"
+END
+
+STRING F_RAGSOC 50
+BEGIN
+  PROMPT 9 1 ""
+  FLAGS "D"
+END
+
+NUMBER F_ANNO 4
+BEGIN
+  PROMPT 1 3 "Anno    "
+  FLAGS "D"
+END
+
+STRING F_PARTITA 7
+BEGIN
+  PROMPT 21 3 "Partita "
+  FLAGS "D_"
+END
+
+NUMBER F_RIGA 4
+BEGIN
+  PROMPT 38 3 "Riga "
+  FLAGS "D"
+END
+
+NUMBER F_RATA 4
+BEGIN
+  PROMPT 50 3 "Rata "
+  FLAGS "D"
+END
+
+DATE F_DATA
+BEGIN
+  PROMPT 1 4 "Scadenza"
+  FLAGS "D"
+END
+
+CURRENCY F_RESIDUO 18
+BEGIN
+  PROMPT 1 5 "Residuo "
+  FLAGS "D"
+  DRIVENBY -F_CODVAL
+END
+
+CURRENCY F_IMPORTO 18
+BEGIN
+  PROMPT 1 6 "Importo "
+  DRIVENBY -F_CODVAL
+END
+
+LIST F_ACCSAL 1 10
+BEGIN
+  PROMPT 41 6 ""
+  ITEM "A|Acconto"
+  ITEM "S|Saldo"
+END
+
+STRING F_DESC_TIPO 20
+BEGIN
+  PROMPT 1 7 "Tipo pagamento "
+  FLAGS "D"
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -13 -1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -23 -1 ""
+END
+
+BUTTON F_PAGA 10 2
+BEGIN
+  PROMPT -33 -1 "~Paga"
+END
+
+ENDPAGE
+
+ENDMASK