Página 1 de 2

compilacion en delphi 6

Publicado: Sab Jun 30, 2012 1:13 pm
por artherji
al compilar el la actualizacion del modulo basico del cfd version 2.2 me manda una notificacion de inteface no soportada en la unidad .pas psgecfd_Intf
en la funcion siguiente:

function GetPrestadoresDeServiciosDeCFD(Doc: IXMLDocument): IXMLPrestadoresDeServiciosDeCFD;
begin
Result := Doc.GetDocBinding('PrestadoresDeServiciosDeCFD', TXMLPrestadoresDeServiciosDeCFD, TargetNamespace) as IXMLPrestadoresDeServiciosDeCFD;
end;

quiero saber si hay que reconfigurar esta funcion para delphi 6 gracias por su tiempo y atencion

Re: compilacion en delphi 6

Publicado: Sab Jun 30, 2012 3:44 pm
por Dado
artherji escribió:al compilar el la actualizacion del modulo basico del cfd version 2.2 me manda una notificacion de inteface no soportada en la unidad .pas psgecfd_Intf
en la funcion siguiente:

function GetPrestadoresDeServiciosDeCFD(Doc: IXMLDocument): IXMLPrestadoresDeServiciosDeCFD;
begin
Result := Doc.GetDocBinding('PrestadoresDeServiciosDeCFD', TXMLPrestadoresDeServiciosDeCFD, TargetNamespace) as IXMLPrestadoresDeServiciosDeCFD;
end;

quiero saber si hay que reconfigurar esta funcion para delphi 6 gracias por su tiempo y atencion
Solo he probado el codigo en DELPHI 7 hasta Delphi XE

Antes (Delphi 6) o despues (Delphi XE2) no tengo forma de probarlo, no se si el codigo sea compatible con esas versiones.

Hace año y medio ya te habia respondido con una solucion para Delphi 6 y supongo que la seguiste y te funciono, checa el mensaje aqui

Re: compilacion en delphi 6

Publicado: Lun Jul 02, 2012 9:13 am
por artherji
tengo una duda

function GetPrestadoresDeServiciosDeCFD(Doc: IXMLDocument): IXMLPrestadoresDeServiciosDeCFD;
begin
Result := Doc.GetDocBinding('PrestadoresDeServiciosDeCFD', TXMLPrestadoresDeServiciosDeCFD, TargetNamespace) as IXMLPrestadoresDeServiciosDeCFD;
end;

PrestadoresDeServiciosDeCDF es referencia algun archivo, por que al compilarlo no me manda el error si no en la ejecucion cuando le doy crear el cfd v.2.2

Re: compilacion en delphi 6

Publicado: Lun Jul 02, 2012 10:49 am
por Dado
artherji escribió:tengo una duda

function GetPrestadoresDeServiciosDeCFD(Doc: IXMLDocument): IXMLPrestadoresDeServiciosDeCFD;
begin
Result := Doc.GetDocBinding('PrestadoresDeServiciosDeCFD', TXMLPrestadoresDeServiciosDeCFD, TargetNamespace) as IXMLPrestadoresDeServiciosDeCFD;
end;

PrestadoresDeServiciosDeCDF es referencia algun archivo, por que al compilarlo no me manda el error si no en la ejecucion cuando le doy crear el cfd v.2.2
No, no es ningun archivo, ese es el nombre del nodo raiz del complemento PSGECFD

Ese archivo fue creado usando el Doc Binding de Delphi, es una interface (me refiero a todo el archivo completo PSGECFD_Intf.pas)

Re: compilacion en delphi 6

Publicado: Lun Jul 02, 2012 12:40 pm
por artherji
Revisando el codigo paso a paso con el f7 encontre otra funcion parecida a la anterior y la esta no me dio problema cuando para por ella con la eejecucion paso a paso.
esta no me marca error
function GetinstEducativas(Doc: IXMLDocument): IXMLInstEducativas;
begin
Result := Doc.GetDocBinding('instEducativas', TXMLInstEducativas, TargetNamespace) as IXMLInstEducativas;
end;

esta es la que me marca el error.
function GetPrestadoresDeServiciosDeCFD(Doc: IXMLDocument): IXMLPrestadoresDeServiciosDeCFD;
begin
Result := Doc.GetDocBinding('PrestadoresDeServiciosDeCFD', TXMLPrestadoresDeServiciosDeCFD, TargetNamespace) as IXMLPrestadoresDeServiciosDeCFD;
end;

Re: compilacion en delphi 6

Publicado: Lun Jul 02, 2012 4:45 pm
por artherji
buenas tardes dado disculpa la molestia que te doy ...ya encontre el por que del error de la funcion, era por esta constante la tenira en blanco
const
TargetNamespace = 'http://www.sat.gob.mx/psgecfd';
function GetPrestadoresDeServiciosDeCFD(Doc: IXMLDocument): IXMLPrestadoresDeServiciosDeCFD;
begin
Result := Doc.GetDocBinding('PrestadoresDeServiciosDeCFD', TXMLPrestadoresDeServiciosDeCFD, TargetNamespace) as IXMLPrestadoresDeServiciosDeCFD;
end;


y ya se ejecuto y se detuvo en esta funcion

function GetDonatarias(Doc: IXMLDocument): IXMLDonatarias;
begin
Result := Doc.GetDocBinding('Donatarias', TXMLDonatarias) as IXMLDonatarias;
end;

pense que era igual pero observo que no, o es que le falta la constante TargetNamespace y me pregunta ,si esta parte de las donatarias solo se debe usar cuando voy emitir recibos de donaciones o es necesario que se inserte en el xml si solo voy facturar??

Re: compilacion en delphi 6

Publicado: Lun Jul 02, 2012 4:53 pm
por Dado
Todos esos son complementos fiscales, son requeridos si y solo si vas a :

Facturar a donatarias
Vender divisas
Cobrar impuestos locales, como los de hoteleria o el "5 al millar"
Eres PGSECFD (no importa, no eres je!)
Vas a facturar colegiaturas (IEDU)

mmmh, no me acuerdo de los otros complementos, son varios, pero esa es la idea

En el complemento que te esta marcando error copia "la receta", intenta ponerle el target spacename al donatarias

Re: compilacion en delphi 6

Publicado: Vie Jul 06, 2012 7:18 pm
por artherji
gracias dado ya quedo....solo me queda de lo adenda solo quiero poner una addenda normal como la que ponia en la version anterior, observo que pones por separado la addenda.. como la activo por en la version anterior solo le rederigia los datos que queria.. aca en esta version como la seleeciono la que quiero.. ya que no aparece ningun forma de elegirla y puse habilitado el boton..pero no me manda nada
gracias por tu tiempo y atencion

Re: compilacion en delphi 6

Publicado: Vie Jul 06, 2012 7:23 pm
por Dado
Ya no doy soporte a las addendas.

Debes copiar y adaptar el codigo que ya tenias.

Re: compilacion en delphi 6

Publicado: Vie Jul 06, 2012 9:03 pm
por artherji
ya estubo daddo ya quedo lo de la addenda...