FiveTech Support Forums

<?xml version="1.0" encoding="ISO-8859-1" ?>

<p:FatturaElettronica versione="FPR12" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:p="http://ivaservizi.agenziaentrate.gov.it/docs/xsd/fatture/v1.2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://ivaservizi.agenziaentrate.gov.it/docs/xsd/fatture/v1.2 http://www.fatturapa.gov.it/export/fatturazione/sdi/fatturapa/v1.2/Schema_del_file_xml_FatturaPA_versione_1.2.xsd">
<FatturaElettronicaHeader>
<DatiTrasmissione>
<IdTrasmittente> <IdPaese>IT</IdPaese> <IdCodice>10168371002</IdCodice>
</IdTrasmittente> <ProgressivoInvio>00ZOY</ProgressivoInvio> <FormatoTrasmissione>FPR12</FormatoTrasmissione> <CodiceDestinatario>T04ZHR3</CodiceDestinatario>
<ContattiTrasmittente> <Telefono>069316081</Telefono>
</ContattiTrasmittente>
</DatiTrasmissione>
<CedentePrestatore>
<DatiAnagrafici>
<IdFiscaleIVA> <IdPaese>IT</IdPaese> <IdCodice>10168371002</IdCodice>
</IdFiscaleIVA> <CodiceFiscale>10168371002</CodiceFiscale>
<Anagrafica> <Denominazione>Fornitore ITALY</Denominazione>
</Anagrafica> <RegimeFiscale>RF01</RegimeFiscale>
</DatiAnagrafici>
<Sede> <Indirizzo>VIA Trento</Indirizzo> <CAP>04012</CAP> <Comune>MALE</Comune> <Provincia>LT</Provincia> <Nazione>IT</Nazione>
</Sede>
<IscrizioneREA> <Ufficio>LT</Ufficio> <NumeroREA>179555</NumeroREA> <CapitaleSociale>110.00</CapitaleSociale> <StatoLiquidazione>LN</StatoLiquidazione>
</IscrizioneREA>
<Contatti> <Telefono>11111111</Telefono> <Fax>2222228</Fax>
</Contatti>
</CedentePrestatore>
<CessionarioCommittente>
<DatiAnagrafici>
<IdFiscaleIVA> <IdPaese>IT</IdPaese> <IdCodice>01181820224</IdCodice>
</IdFiscaleIVA> <CodiceFiscale>01181820224</CodiceFiscale>
<Anagrafica> <Denominazione>NIPESERVICE </Denominazione>
</Anagrafica>
</DatiAnagrafici>
<Sede> <Indirizzo>ZONA COMMERCIALE, 8</Indirizzo> <CAP>38027</CAP> <Comune>MALE'</Comune> <Provincia>TN</Provincia> <Nazione>IT</Nazione>
</Sede>
</CessionarioCommittente>
</FatturaElettronicaHeader>
<FatturaElettronicaBody>
<DatiGenerali>
<DatiGeneraliDocumento> <TipoDocumento>TD24</TipoDocumento> <Divisa>EUR</Divisa> <Data>2024-04-30</Data> <Numero>IT  000442</Numero> <ImportoTotaleDocumento>1003.16</ImportoTotaleDocumento>
</DatiGeneraliDocumento>
<DatiOrdineAcquisto> <RiferimentoNumeroLinea>1</RiferimentoNumeroLinea> <RiferimentoNumeroLinea>2</RiferimentoNumeroLinea> <IdDocumento>IT  000465</IdDocumento> <Data>2024-04-23</Data>
</DatiOrdineAcquisto>
<DatiDDT> <NumeroDDT>IT  000604</NumeroDDT> <DataDDT>2024-04-23</DataDDT> <RiferimentoNumeroLinea>1</RiferimentoNumeroLinea> <RiferimentoNumeroLinea>2</RiferimentoNumeroLinea> <RiferimentoNumeroLinea>3</RiferimentoNumeroLinea>
</DatiDDT>
</DatiGenerali>
<DatiBeniServizi>
<DettaglioLinee> <NumeroLinea>1</NumeroLinea>
<CodiceArticolo> <CodiceTipo>Codice articolo</CodiceTipo> <CodiceValore>EP9821100</CodiceValore>
</CodiceArticolo> <Descrizione>Articolo 1</Descrizione> <Quantita>5.00</Quantita> <UnitaMisura>NR</UnitaMisura> <PrezzoUnitario>155.000000</PrezzoUnitario> <PrezzoTotale>775.00</PrezzoTotale> <AliquotaIVA>22.00</AliquotaIVA>
</DettaglioLinee>
<DettaglioLinee> <NumeroLinea>2</NumeroLinea> <TipoCessionePrestazione>AB</TipoCessionePrestazione>
<CodiceArticolo> <CodiceTipo>ARTICOLO 2</CodiceTipo> <CodiceValore>XX1700418</CodiceValore>
</CodiceArticolo> <Descrizione>articolo 2</Descrizione> <Quantita>2.00</Quantita> <UnitaMisura>NR</UnitaMisura> <PrezzoUnitario>34.000000</PrezzoUnitario> <PrezzoTotale>68.00</PrezzoTotale> <AliquotaIVA>22.00</AliquotaIVA>
</DettaglioLinee>
<DettaglioLinee> <NumeroLinea>3</NumeroLinea> <TipoCessionePrestazione>AC</TipoCessionePrestazione>
<CodiceArticolo> <CodiceTipo>Codice articolo</CodiceTipo> <CodiceValore>SPESE_TR</CodiceValore>
</CodiceArticolo> <Descrizione>ARTICOLO3</Descrizione> <Quantita>5.00</Quantita> <UnitaMisura>NR</UnitaMisura> <PrezzoUnitario>7.00</PrezzoUnitario> <PrezzoTotale>35.00</PrezzoTotale> <AliquotaIVA>22.00</AliquotaIVA>
</DettaglioLinee>
<DatiRiepilogo> <AliquotaIVA>22.00</AliquotaIVA> <SpeseAccessorie>35.00</SpeseAccessorie> <ImponibileImporto>878.00</ImponibileImporto> <Imposta>193.16</Imposta> <EsigibilitaIVA>I</EsigibilitaIVA>
</DatiRiepilogo>
</DatiBeniServizi>
<DatiPagamento> <CondizioniPagamento>TP01</CondizioniPagamento>
<DettaglioPagamento> <ModalitaPagamento>MP12</ModalitaPagamento> <GiorniTerminiPagamento>60</GiorniTerminiPagamento> <DataScadenzaPagamento>2024-06-30</DataScadenzaPagamento> <ImportoPagamento>501.58</ImportoPagamento> <IstitutoFinanziario>CASSA CENTRALE</IstitutoFinanziario> <IBAN>IT</IBAN> <ABI>00000</ABI> <CAB>1200</CAB>
</DettaglioPagamento>
<DettaglioPagamento> <ModalitaPagamento>MP12</ModalitaPagamento> <GiorniTerminiPagamento>90</GiorniTerminiPagamento> <DataScadenzaPagamento>2024-07-31</DataScadenzaPagamento> <ImportoPagamento>501.58</ImportoPagamento> <IstitutoFinanziario>CASSA CENTRALE</IstitutoFinanziario> <IBAN>IT</IBAN> <ABI>00000</ABI> <CAB>1200</CAB>
</DettaglioPagamento>
</DatiPagamento>
</FatturaElettronicaBody>
</p:FatturaElettronica>

   // cTmpFile := GetCurDir() + '' + cTmpFile

   cTmpFile := GetCurDir() + '\' + cTmpFile

//cText := '<?xml-stylesheet type="text/xsl" href="' + cSchema + '"?>' + CRLF + ;
//strtran(cText,"","")

#include "FiveWin.ch"
#include "Fileio.ch"

Function Main()

local oBrw, oDlgMain, uData

SET EXCLUSIVE OFF
SET DELETED ON
SET OPTIMIZE ON

SetGetColorFocus()

USE CUSTOMER NEW ALIAS CUST SHARED VIA 'DBFCDX'
DATABASE uData

DEFINE DIALOG oDlgMain SIZE 640,460 PIXEL TITLE 'Doppio click su una colonna' ;

@ 10,10 XBROWSE oBrw SIZE -10,-30 PIXEL OF oDlgMain ;
COLUMNS 'First', 'City', 'Age', 'Salary' ;
PICTURES nil, nil, '999', '99,999,999.99' ;
OBJECT uData ;
AUTOSORT CELL LINES NOBORDER ;
ON DBLCLICK StampaFattura()

WITH OBJECT oBrw
:nStretchCol := STRETCHCOL_WIDEST
:CreateFromCode()
END

@ 210,270 BUTTON 'Close' SIZE 40,14 PIXEL OF oDlgMain ACTION oDlgMain:End()

ACTIVATE DIALOG oDlgMain CENTERED

Return nil

Function StampaFattura()
Local cPathXMl_ := ''
Local cFilter := "Fatture XML | *.xml |"
LOCAL oActivex ,oDlg ,cUrl := '' , cXT := ''
Local cTmpFile := cTempFile() +'.XML' ,cText := '' ,cFile := '' , nFile := 0
Local cschema := '' ,lStampata := .f. ,lauto := .F.


//cFile := '\\linux\dati\sql\mastronipe\FATTURE_XML\PASSIVE\IT10168371002_00ZOY.xml'
cFile := 'IT10168371002_00ZOY.xml'

IF ! file(cFile)
? '2-File non trovato ' + cFile
Return .f.
ENDIF

cText := MemoRead( cFile )
//if file('FoglioStileAssoSoftware.xsl')
cSchema := 'FoglioStileAssoSoftware.xsl'
//ELSE
// cSchema := 'http:\\www.nipeservice.it\FS\FoglioStileAssoSoftware.xsl'
//endif

nFile := FCreate( cTmpFile, FC_NORMAL )
IF FWrite( nFile, cText ) <> Len( cText )
? "Errore scrittura file: " + cTmpFile + " " + FError()
RETURN nil
ENDIF

IF .NOT. Fclose( nFile )
? "Errore creazione file: " + cTmpFile + " " + FError()
RETURN nil
ENDIF

cTmpFile := GetCurDir() + '\' + cTmpFile

nFile := FCreate( cTmpFile, FC_NORMAL )

cText := '<?xml-stylesheet type="text/xsl" href="' + cSchema + '"?>' + CRLF + ;
strtran(cText,"","")

IF FWrite( nFile, cText ) <> Len( cText )
? "Errore scrittura file: " + cTmpFile + " " + str(FError())
RETURN nil
ENDIF
IF .NOT. FClose( nFile )
? "Errore creazione file: " + cTmpFile + " " + str(FError())
RETURN nil
ENDIF

cUrl := cTmpFile


// http://forums.fivetechsupport.com/viewt ... hell+print
//-------------------------------------------------------------------------------------------
DEFINE DIALOG oDlg TITLE 'Fattura XML ' + cFile SIZE 830, 600 RESIZABLE

@ 40, 0 ACTIVEX oActiveX PROGID "Shell.Explorer" OF oDlg

oActiveX:nDlgCode = DLGC_WANTALLKEYS

oDlg:oClient = oActiveX
oDlg:bStart := <||
oDlg:Resize()
oActiveX:Navigate( cURL )
oActiveX:StatusBar = .t.
Return .t.
>

ACTIVATE DIALOG oDlg CENTERED


Return lStampata

<?xml version="1.0" encoding="ISO-8859-1" ?>

<p:FatturaElettronica versione="FPR12" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:p="http://ivaservizi.agenziaentrate.gov.it/docs/xsd/fatture/v1.2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://ivaservizi.agenziaentrate.gov.it/docs/xsd/fatture/v1.2 http://www.fatturapa.gov.it/export/fatt ... ne_1.2.xsd">
<FatturaElettronicaHeader>
<DatiTrasmissione>
<IdTrasmittente> <IdPaese>IT</IdPaese> <IdCodice>10168371002</IdCodice>
</IdTrasmittente> <ProgressivoInvio>00ZOY</ProgressivoInvio> <FormatoTrasmissione>FPR12</FormatoTrasmissione> <CodiceDestinatario>T04ZHR3</CodiceDestinatario>
<ContattiTrasmittente> <Telefono>069316081</Telefono>
</ContattiTrasmittente>
</DatiTrasmissione>
<CedentePrestatore>
<DatiAnagrafici>
<IdFiscaleIVA> <IdPaese>IT</IdPaese> <IdCodice>10168371002</IdCodice>
</IdFiscaleIVA> <CodiceFiscale>10168371002</CodiceFiscale>
<Anagrafica> <Denominazione>Fornitore ITALY</Denominazione>
</Anagrafica> <RegimeFiscale>RF01</RegimeFiscale>
</DatiAnagrafici>
<Sede> <Indirizzo>VIA Trento</Indirizzo> <CAP>04012</CAP> <Comune>MALE</Comune> <Provincia>LT</Provincia> <Nazione>IT</Nazione>
</Sede>
<IscrizioneREA> <Ufficio>LT</Ufficio> <NumeroREA>179555</NumeroREA> <CapitaleSociale>110.00</CapitaleSociale> <StatoLiquidazione>LN</StatoLiquidazione>
</IscrizioneREA>
<Contatti> <Telefono>11111111</Telefono> <Fax>2222228</Fax>
</Contatti>
</CedentePrestatore>
<CessionarioCommittente>
<DatiAnagrafici>
<IdFiscaleIVA> <IdPaese>IT</IdPaese> <IdCodice>01181820224</IdCodice>
</IdFiscaleIVA> <CodiceFiscale>01181820224</CodiceFiscale>
<Anagrafica> <Denominazione>NIPESERVICE </Denominazione>
</Anagrafica>
</DatiAnagrafici>
<Sede> <Indirizzo>ZONA COMMERCIALE, 8</Indirizzo> <CAP>38027</CAP> <Comune>MALE'</Comune> <Provincia>TN</Provincia> <Nazione>IT</Nazione>
</Sede>
</CessionarioCommittente>
</FatturaElettronicaHeader>
<FatturaElettronicaBody>
<DatiGenerali>
<DatiGeneraliDocumento> <TipoDocumento>TD24</TipoDocumento> <Divisa>EUR</Divisa> <Data>2024-04-30</Data> <Numero>IT  000442</Numero> <ImportoTotaleDocumento>1003.16</ImportoTotaleDocumento>
</DatiGeneraliDocumento>
<DatiOrdineAcquisto> <RiferimentoNumeroLinea>1</RiferimentoNumeroLinea> <RiferimentoNumeroLinea>2</RiferimentoNumeroLinea> <IdDocumento>IT  000465</IdDocumento> <Data>2024-04-23</Data>
</DatiOrdineAcquisto>
<DatiDDT> <NumeroDDT>IT  000604</NumeroDDT> <DataDDT>2024-04-23</DataDDT> <RiferimentoNumeroLinea>1</RiferimentoNumeroLinea> <RiferimentoNumeroLinea>2</RiferimentoNumeroLinea> <RiferimentoNumeroLinea>3</RiferimentoNumeroLinea>
</DatiDDT>
</DatiGenerali>
<DatiBeniServizi>
<DettaglioLinee> <NumeroLinea>1</NumeroLinea>
<CodiceArticolo> <CodiceTipo>Codice articolo</CodiceTipo> <CodiceValore>EP9821100</CodiceValore>
</CodiceArticolo> <Descrizione>Articolo 1</Descrizione> <Quantita>5.00</Quantita> <UnitaMisura>NR</UnitaMisura> <PrezzoUnitario>155.000000</PrezzoUnitario> <PrezzoTotale>775.00</PrezzoTotale> <AliquotaIVA>22.00</AliquotaIVA>
</DettaglioLinee>
<DettaglioLinee> <NumeroLinea>2</NumeroLinea> <TipoCessionePrestazione>AB</TipoCessionePrestazione>
<CodiceArticolo> <CodiceTipo>ARTICOLO 2</CodiceTipo> <CodiceValore>XX1700418</CodiceValore>
</CodiceArticolo> <Descrizione>articolo 2</Descrizione> <Quantita>2.00</Quantita> <UnitaMisura>NR</UnitaMisura> <PrezzoUnitario>34.000000</PrezzoUnitario> <PrezzoTotale>68.00</PrezzoTotale> <AliquotaIVA>22.00</AliquotaIVA>
</DettaglioLinee>
<DettaglioLinee> <NumeroLinea>3</NumeroLinea> <TipoCessionePrestazione>AC</TipoCessionePrestazione>
<CodiceArticolo> <CodiceTipo>Codice articolo</CodiceTipo> <CodiceValore>SPESE_TR</CodiceValore>
</CodiceArticolo> <Descrizione>ARTICOLO3</Descrizione> <Quantita>5.00</Quantita> <UnitaMisura>NR</UnitaMisura> <PrezzoUnitario>7.00</PrezzoUnitario> <PrezzoTotale>35.00</PrezzoTotale> <AliquotaIVA>22.00</AliquotaIVA>
</DettaglioLinee>
<DatiRiepilogo> <AliquotaIVA>22.00</AliquotaIVA> <SpeseAccessorie>35.00</SpeseAccessorie> <ImponibileImporto>878.00</ImponibileImporto> <Imposta>193.16</Imposta> <EsigibilitaIVA>I</EsigibilitaIVA>
</DatiRiepilogo>
</DatiBeniServizi>
<DatiPagamento> <CondizioniPagamento>TP01</CondizioniPagamento>
<DettaglioPagamento> <ModalitaPagamento>MP12</ModalitaPagamento> <GiorniTerminiPagamento>60</GiorniTerminiPagamento> <DataScadenzaPagamento>2024-06-30</DataScadenzaPagamento> <ImportoPagamento>501.58</ImportoPagamento> <IstitutoFinanziario>CASSA CENTRALE</IstitutoFinanziario> <IBAN>IT</IBAN> <ABI>00000</ABI> <CAB>1200</CAB>
</DettaglioPagamento>
<DettaglioPagamento> <ModalitaPagamento>MP12</ModalitaPagamento> <GiorniTerminiPagamento>90</GiorniTerminiPagamento> <DataScadenzaPagamento>2024-07-31</DataScadenzaPagamento> <ImportoPagamento>501.58</ImportoPagamento> <IstitutoFinanziario>CASSA CENTRALE</IstitutoFinanziario> <IBAN>IT</IBAN> <ABI>00000</ABI> <CAB>1200</CAB>
</DettaglioPagamento>
</DatiPagamento>
</FatturaElettronicaBody>
</p:FatturaElettronica>