Código: Seleccionar todo
procedure GeneraCadenaOriginal;
begin
....
with CFDCopy do
begin
AgregaDato(Version);
AgregaDato(Serie);
AgregaDato(Folio);
AgregaDato(Fecha);
AgregaDato(IntToStr(NoAprobacion));
AgregaDato(IntToStr(AnoAprobacion));
AgregaDato(TipoDeComprobante);
AgregaDato(FormaDePago);
//Inicio v2.2
if Now >= EncodeDate(2012,1,1) then begin
AgregaDato(TipoCambio);
AgregaDato(Moneda);
AgregaDato(MetododePago);
AgregaDato(LugarExpedicion);
end;
//Fin v2.2
....
with Emisor do
begin
AgregaDato(Rfc);
// v2.2
if Now >= EncodeDate(2012,1,1) then
AgregaDato(DameValorVarSistema('FAC','FacE.RegimenFiscal')); <<-- Me Regresa el regimen Ej. "REGIMEN DE PEQUEÑOS CONTRIBUYENTES"
....
end;
Código: Seleccionar todo
RegimenFiscal.Items[0].Text
RegimenFiscal.nodes[0].Text
La forma de agregarlo fue asi:
Código: Seleccionar todo
procedure GeneraXML(FolioFactura : integer);
begin
..
with Emisor do
begin
Rfc := RfcEmpresa;
// v2.2
if Now >= EncodeDate(2012,1,1) then
RegimenFiscal.Add.Regimen := DameValorVarSistema('FAC','FacE.RegimenFiscal'); <<-- Agrega Nodo Nuevo <RegimenFiscal>
Nombre := NomEmpresa;
....
