ValidaCFD

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

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;
....