root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 12.0 1084

Browse Source 
Files correlati     : ba8.exe

Commento        :
Aggiunto report "Stampa clienti con metodi di pagamento"
This commit is contained in:
smen 2021-10-04 17:43:56 +02:00
parent cdd2631230
commit 0f0997a147
3 changed files with 119 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
src/ve/ve19001.rep Normal file
View File

@ -0,0 +1,69 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report libraries="ve1300" page_merge="" save_printer="" name="ve19001" use_printer_font="" orientation="2" page_split="" lpi="6" command="" class="ve1900">
<description>Stampa clienti con metodo di pagamento</description>
<font face="Courier New" size="8" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="" hidden="" height="5" page_break="" can_break="" pattern="1">
<field x="8" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="1" pattern="1" hide_zero="" text="">
<font face="Courier New" bold="1" size="8" />
<source>#SYSTEM.RAGSOC</source>
</field>
<field x="136" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="11" codval="" id="2" pattern="1" hide_zero="" text="">
<source>#SYSTEM.DATE</source>
</field>
<field x="162" deactivated="" type="Numero" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="4" codval="" id="3" pattern="1" hide_zero="" text="">
<source>#PAGE</source>
</field>
<field x="44" y="1.5" deactivated="" type="Testo" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="50" codval="" id="4" pattern="1" hide_zero="" text="Lista Clienti con Metodo di Pagamento ">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" y="2.8" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="170" codval="" height="0" id="5" pattern="1" hide_zero="" text="">
<prescript description="H0.5 PRESCRIPT">MESSAGE _SEPARATOR,157</prescript>
</field>
<field border="2" y="4.25" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="170" codval="" height="0" id="5" pattern="1" hide_zero="" text="">
<prescript description="H0.5 PRESCRIPT">MESSAGE _SEPARATOR,157</prescript>
</field>
<field y="3" deactivated="" type="Testo" valign="center" hidden="" link="" dynamic_height="" shade_offset="" width="7" codval="" id="6" pattern="1" hide_zero="" text="Codice" />
<field x="9" y="3" deactivated="" type="Testo" valign="center" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="8" pattern="1" hide_zero="" text="Ragione sociale" />
<field deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="8" codval="" id="13" pattern="1" hide_zero="" text="Ditta:" />
<field x="130" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="6" codval="" id="13" pattern="1" hide_zero="" text="Data:" />
<field x="156" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="6" codval="" id="13" pattern="1" hide_zero="" text="Pag." />
<field x="90" y="1.5" deactivated="" type="Stringa" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="10" codval="" id="50" pattern="1" hide_zero="" text="">
<font face="Courier New" bold="1" size="10" />
<source>#CODPAG</source>
</field>
<field x="101" y="1.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="51" pattern="1" hide_zero="" text="">
<font face="Courier New" bold="1" size="10" />
<prescript description="H0.51 PRESCRIPT">"S0"
#50 @
"%CPG"
TABLE_READ
</prescript>
</field>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="1" hidden="" page_break="" can_break="" pattern="1">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="" hidden="" height="4" page_break="" can_break="" pattern="1">
<field deactivated="" type="Immagine" hidden="" link="" dynamic_height="" shade_offset="" width="1" codval="" id="1" pattern="1" hide_zero="" text="">
<source>""</source>
</field>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="1" hidden="" page_break="" can_break="" pattern="1">
<field x="9" deactivated="" type="Stringa" valign="bottom" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="102" pattern="1" hide_zero="" text="">
<source>RAGSOC</source>
</field>
<field deactivated="" type="Numero" valign="bottom" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="6" codval="" id="103" pattern="1" hide_zero="" text="">
<font face="Courier New" bold="1" size="8" />
<source>CODCF</source>
</field>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="1" type="Foot" level="" hidden="" height="3" page_break="" can_break="" pattern="1" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="1" hidden="" height="11" page_break="" can_break="" pattern="1">
<field border="2" y="0.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="170" codval="" height="0" id="5" pattern="1" hide_zero="" text="">
<prescript description="F1.5 PRESCRIPT">MESSAGE _SEPARATOR,157</prescript>
</field>
</section>
<sql>USE CLIFO SELECT CODPAG==#CODPAG
FROM TIPOCF="C"
TO TIPOCF="C"</sql>
</report>

5
src/ve/ve1900a.h Normal file
View File

@ -0,0 +1,5 @@
#define F_I_CONDPAG 101
#define F_DESCPAG 102
#define F_CODCF 103
#define F_REPORT 106

45
src/ve/ve1900a.uml Normal file
View File

@ -0,0 +1,45 @@
#include "ve1900a.h"
TOOLBAR "topbar" 0 0 0 2
#include <aprintbar.h>
ENDPAGE
PAGE "Stampa Clienti con Metodo di pagamento" -1 -1 60 21
STRING F_I_CONDPAG 4
BEGIN
PROMPT 2 6 "Codice Pagamento "
KEY 1
FLAG "U"
USE %CPG
INPUT CODTAB F_I_CONDPAG
DISPLAY "Cond. pag." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_I_CONDPAG CODTAB
OUTPUT F_DESCPAG S0
FIELD CODPAG
CHECKTYPE FORCED
END
STRING F_DESCPAG 35
BEGIN
PROMPT 27 6 ""
USE %CPG KEY 2
INPUT CODTAB F_I_CONDPAG
DISPLAY "Cond. pag." CODTAB
DISPLAY "Descrizione@50" S0
COPY OUTPUT F_I_CONDPAG
CHECKTYPE SEARCH
END
STRING F_REPORT 50
BEGIN
PROMPT 2 -3 "Report "
RSELECT "ve1900"
CHECKTYPE NORMAL
END
ENDPAGE
ENDMASK