Codigo de Mdo Libre en Delphi 2007 2009 2010 Guia Definitiva

[Dado]

ESTA ES LA GUIA DEFINITIVA YA COMPROBADA DE CAMBIOS NECESARIOS PARA COMPILAR Y EJECUTAR EL CODIGO FUENTE QUE SE OFRECE EN MERCADO LIBRE:

DELPHI 2007

No requiere de cambios, se ha probado como esta y funciona bien

DELPHI 2009

Por fin pude conseguir esta version y podria apostar que tiene un error el compilador, en fin, hay que hacer el siguiente cambio :

En la unidad FacturaE.pas, a partir de la linea 390 (en el procedimiento de calculo de cadena original)

DICE :

begin
CadOriginal := pipe;

XMLDocCopy.XML := XMLDoc.XML;
XMLDocCopy.Active := true;
CFDCopy := GetComprobante(XMLDocCopy);

with CFDCopy do
begin
....

DEBE DECIR :

begin
CadOriginal := pipe;

XMLDocCopy.LoadFromXML(XMLDoc.XML.Text);
CFDCopy := GetComprobante(XMLDocCopy);

with CFDCopy do
begin
....

DELPHI 2009 Y DELPHI 2010

En la unidad Sello.pas cambiar la definicion del procedimiento ReadPrivateKey

function ReadPrivateKey(AFileName: ansistring): pEVP_PKEY;

En esa misma unidad, procedimiento CalculaSello:

var inbuf: array [0..8192] of ansichar;
outbuf: array [0..1024] of ansichar;

[jimmy_aei]

te agardezco el tiempo dedicado y el apoyo.

ya con eso funciono, y son menos lineas de lo que tenia.

saludos

[lerg98]

Para quienes han tenido problemas con lo de la interface no soportada en Delphi 6 ( EintCastError ).

Este seria el cambio que habria que hacer:

En la unidad cfdv2.pas en la funcion de agregar concepto deberia quedar de la siguiente forma:

Código: Seleccionar todo

function TXMLConceptos.Add: IXMLConcepto;
begin
  //Result := AddItem(-1) as IXMLConcepto;
  Result := AddChild('Concepto',-1) as IXMLConcepto;
end;

Esto deberia de ser para cada una de las funciones que usen el AddItem para agregar un nodo. Por ejemplo en traslados tambien deberia quedar
de la siguiente forma:

Código: Seleccionar todo

function TXMLTraslados.Add: IXMLTraslado;
begin
  //Result := AddItem(-1) as IXMLTraslado;
  Result := AddChild('Traslado', -1) as IXMLTraslado;
end;

Espero les ayude.

Saludos.

lerg98.

[Dado]

@lerg98

Vaya, entonces ya funciono con Delphi 6, que bien.

Para asegurarnos podria alguien mas hacer estos cambios y confirmar que si funciona en Delphi 6 (yo no tengo esa version, si no con gusto lo intentaba).

Gracias por el consejo .........

[lerg98]

@dado

Saludos dado, si funciona, el cambio que comentaba lo hice en un D6, y probandolo con tus pantallas de ejemplo genero toda la informacion (xml, sello, cadena, etc) de forma correcta, para quien lo vaya a usar en D6 tendria que hacer las correcciones adicionales (en los Insert(s) y Add(s) adicionales de las funciones en el cfdv2.pas).

lerg98.

[Dado]

@dado

Saludos dado, si funciona, el cambio que comentaba lo hice en un D6, y probandolo con tus pantallas de ejemplo genero toda la informacion (xml, sello, cadena, etc) de forma correcta, para quien lo vaya a usar en D6 tendria que hacer las correcciones adicionales (en los Insert(s) y Add(s) adicionales de las funciones en el cfdv2.pas).

lerg98.

Disculpa si parecia que no te creyera, solo queria que alguien mas lo confirmara

Pero que bueno que ya encontraste la solucion. Entonces para comentar a posibles interesados que si se puede con Delphi 6........

[lerg98]

Saludos @dado, no te preocupes, mi comentario iba tendiente a que se concentraran en terminar las modificaciones adicionales que comentaba, de que si funcionaba en el D6 porque ya habia realizado la validacion completa con el validador del SAT.

Aprovechando el raite, gracias por tu contribucion y al de los demas de este foro que han aportado luz sobre el asunto.

lerg98.

[ironman]

Yo podria apostar que el objeto XMLDocCopy cambió, y la propiedad XML se convirtió en Private, de tal suerte que ya no es posible asignarla directamente, y se debe utilizar un método para hacelro.

Saludos