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

Patch level : 10.0 no patch

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : esportazione clifo e indsped per pharmatex


git-svn-id: svn://10.65.10.50/trunk@19745 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2009-12-10 11:24:44 +00:00
parent b2813bcc28
commit f61ec78ee4
3 changed files with 147 additions and 0 deletions

4
ps/pd6292200a.h Executable file

@ -0,0 +1,4 @@
#define F_CODDITTA 101
#define F_RAGSOC 102
#define F_DACODCF 103
#define F_ACODCF 104

87
ps/pd6292200a.rep Executable file

@ -0,0 +1,87 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="pd6292200a" orientation="2" lpi="6">
<description>Stampa clienti e indirizzi di spedizione</description>
<font face="Courier New" size="10" />
<section type="Head" />
<section type="Head" level="1" />
<section type="Body" />
<section type="Body" level="1">
<field type="Stringa" width="10" pattern="1">
<source>CODCF</source>
</field>
<field x="10" type="Stringa" width="50" pattern="1">
<source>RAGSOC</source>
</field>
<field x="60" type="Stringa" width="16" pattern="1">
<source>COFI</source>
</field>
<field x="76" type="Stringa" width="12" pattern="1">
<source>PAIV</source>
</field>
<field x="88" type="Stringa" width="51" pattern="1">
<source>CLIFO.INDCF+' '+CLIFO.CIVCF</source>
</field>
<field x="139" type="Stringa" width="5" pattern="1">
<source>CLIFO.CAPCF</source>
</field>
<field x="144" type="Stringa" width="50" pattern="1">
<source>100@.DENCOM</source>
</field>
<field x="194" type="Stringa" width="5" pattern="1">
<source>100@.PROVCOM</source>
</field>
</section>
<section type="Head" level="11" />
<section type="Body" level="11">
<sql>USE INDSPED
JOIN COMUNI ALIAS 200 INTO STATO==STATO COM==COM
FROM TIPOCF='C' CODCF=#PARENT.CODCF
TO TIPOCF='C' CODCF=#PARENT.CODCF
</sql>
<field x="10" type="Stringa" width="50" pattern="1">
<source>RAGSOC</source>
</field>
<field x="60" type="Stringa" width="16" pattern="1">
<source>COFI</source>
</field>
<field x="76" type="Stringa" width="12" pattern="1">
<source>PAIV</source>
</field>
<field x="88" type="Stringa" width="51" pattern="1">
<source>INDSPED.INDIR+' '+INDSPED.CIV</source>
<alt_source>CLIFO.INDCF+' '+CLIFO.CIVCF</alt_source>
</field>
<field x="139" type="Stringa" width="5" pattern="1">
<source>CAP</source>
<alt_source>CLIFO.CAPCF</alt_source>
</field>
<field x="144" type="Stringa" width="50" pattern="1">
<source>200@.DENCOM</source>
<alt_source>100@.DENCOM</alt_source>
</field>
<field x="194" type="Stringa" width="5" pattern="1">
<source>200@.PROVCOM</source>
<alt_source>100@.PROVCOM</alt_source>
</field>
<field y="1" type="Stringa" hidden="1" align="right" width="6" id="101" pattern="1">
<source>INDSPED.CODCF</source>
</field>
<field x="10" y="1" type="Stringa" hidden="1" align="right" width="3" id="102" pattern="1">
<source>INDSPED.CODIND</source>
</field>
<field type="Stringa" width="10" id="103" pattern="1">
<prescript description="B11.103 PRESCRIPT">#101 @
"_" +
#102 @ +
#THIS !</prescript>
</field>
</section>
<section type="Foot" level="11" />
<section type="Foot" />
<section type="Foot" level="1" />
<sql>USE CLIFO
JOIN COMUNI ALIAS 100 INTO STATO==STATOCF COM==COMCF
FROM TIPOCF="C" CODCF=#DA_CODCF
TO TIPOCF="C" CODCF=#A_CODCF
</sql>
</report>

56
ps/pd6292200a.uml Executable file

@ -0,0 +1,56 @@
#include "pd6292200a.h"
TOOLBAR "topabar" 0 0 0 2
#include <printbar.h>
ENDPAGE
PAGE "Esportazione clienti e indirizzi spedizione" 0 2 0 0
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
FLAGS "D"
END
NUMBER F_DACODCF 6
BEGIN
PROMPT 2 9 "Cod.iniziale "
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_DACODCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_DACODCF CODCF
FIELD #DA_CODCF
GROUP 1 3
END
NUMBER F_ACODCF 6
BEGIN
PROMPT 4 10 "Cod.finale "
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_ACODCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_ACODCF CODCF
FIELD #A_CODCF
END
ENDPAGE
ENDMASK