Geste ha scritto:
Buongiorno,
qualcuno ha un xml di esempio di fattura elettronica con specificato il numero di documento commerciale indicato per una fattura in seguito ad una vendita da cassa?
Nella FAQ 45 dell'aDe dicono questo:
Quando le fatture elettroniche sono precedute dall’emissione di scontrino o ricevuta fiscale (o, nel caso di
trasmissione telematica dei corrispettivi, da un “documento commerciale”), nella fattura vanno riportati gli
estremi identificativi dello scontrino/ricevuta; in particolare, il blocco informativo “AltriDatiGestionali” va
compilato riportando:
- nel campo “TipoDato” le parole “NUMERO SCONTRINO” (oppure “NUMERO RICEVUTA” oppure
“NUMERO DOC. COMMERCIALE”);
- nel campo “RiferimentoTesto” l’identificativo alfanumerico dello scontrino (o della ricevuta o del
documento commerciale);
- nel campo “RiferimentoNumero” il numero progressivo dello scontrino (o della ricevuta o del documento
commerciale);
- nel campo “RiferimentoData” la data dello scontrino.
Però mi viene un dubbio: nel RiferimentoTesto devo inserire ad esempio "0015-0026" mentre nel RiferimentoNumero solo il numero effettivo dello scontrino quindi "26"?
ecco come li invio io.
tieni presente che contrariamente a quanto indicato da ADE non devi usare NUMERO SCONTRINO ma SCONTRINO (imbecilli)
rigaprint = "<AltriDatiGestionali>"
ts.Write Trim(rigaprint) & vbLf
rigaprint = "<TipoDato>SCONTRINO</TipoDato>"
ts.Write Trim(rigaprint) & vbLf
dummyriga = UCase("EMESSO DALLA CASSA N. " & RShead!cassa)
dummy = controllastringa(dummyriga)
sub per verificare che nella stringa non ci siano caratteri non ammessi
rigaprint = "<RiferimentoTesto>" & dummy & "</RiferimentoTesto>"
ci metto EMESSO....
ts.Write Trim(rigaprint) & vbLf
J = RShead!scontrino
rigaprint = "<RiferimentoNumero>" & J & ".00</RiferimentoNumero>"
altra imbecillità. il numero di scontrino deve essere decimale con 2 zeri
ts.Write Trim(rigaprint) & vbLf
dummyriga = girdb(RShead!datafattura)
quì giro la data in aaaammdd
preparadata
quì estraggo la data come da disposizioni ADE
rigaprint = "<RiferimentoData>" & dummy & "</RiferimentoData>"
ts.Write Trim(rigaprint) & vbLf
rigaprint = "</AltriDatiGestionali>"
ts.Write Trim(rigaprint) & vbLf
se hai bisogno di altro scrivimi