<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<div class="moz-cite-prefix">El 17/06/2014 19:03, José Mejuto
escribió:<br>
</div>
<blockquote cite="mid:53A0BB1D.5020900@gmail.com" type="cite">Hola,
<br>
Confirmado, un código sencillo como este:
<br>
<br>
procedure TForm1.FormCreate(Sender: TObject);
<br>
var
<br>
c: CFE;
<br>
begin
<br>
c:=CoCFE.Create;
<br>
c.ivaTasaBasica:=20;
<br>
end;
<br>
Funciona, bueno al menos no da ningún error de ejecución, que como
no se que hace eFacturaCOM pues mal lo tengo para saber si lo hace
bien :)
<br>
<br>
<br>
</blockquote>
Hola José (y resto también.. no se enojen :) )<br>
gracias por tus .pas. ¿los obtuvistes desde lazarus o delphi??<br>
<br>
Empecé todo de nuevo este proyecto de prueba porque ya me estaba
enredando con los pas que tenía..<br>
Estoy usando los que tú me enviaste, pero aún persisten algunos
problemitas.. primero me salen solo estos 3 errores:<br>
<br>
unit1.pas(117,54) Error: Variable identifier expected<br>
efacturacom_1_0_tlb.pas(705,13) Hint: Found declaration:
_Sobre.SaveXMLToFile(var WideString):OleVariant; SafeCall;<br>
unit1.pas(118,56) Error: Variable identifier expected<br>
efacturacom_1_0_tlb.pas(187,13) Hint: Found declaration:
_CFE.SaveXMLToFile(var WideString):OleVariant; SafeCall;<br>
unit1.pas(121,51) Error: Variable identifier expected<br>
efacturacom_1_0_tlb.pas(811,13) Hint: Found declaration:
_Respuesta.savePDF(var WideString):WordBool; SafeCall;<br>
unit1.pas(130) Fatal: There were 3 errors compiling module, stopping<br>
<br>
veo estas diferencias (el var) en los 3 casos:<br>
en tu .pas:<br>
function SaveXMLToFile(var
strPath:WideString):OleVariant;safecall;<br>
<br>
en el q me enviaron de delphi:<br>
function SaveXMLToFile(strPath: WideString): OleVariant;
safecall;<br>
<br>
se los saco y finalmente se genera el exe<br>
<br>
pero al ejecutarlo, ZAS!!!!<br>
SIGSEGV $%&/&##/("<br>
<br>
una parte de la rutina de prueba:<br>
<br>
procedure TForm1.Button1Click(Sender: TObject);<br>
var<br>
vCfe: CFE;<br>
itemFact1: ItemFactura;<br>
fCFE: CFE;<br>
begin<br>
vCfe:=CoCFE.Create;<br>
<b><font color="#ff0000"> vCfe.AnoEmision :='2014';</font></b>
SIGSEGV ACÁ!!!!!<br>
vCfe.MesEmision := '06';<br>
vCfe.DiaEmision := '13';<br>
vCfe.AnoVto := '2014';<br>
vCfe.MesVto := '12';<br>
vCfe.DiaVto := '31'; <br>
........................<br>
<br>
<br>
José.. esto lo que se supone que hace es enviar a un servidor (de
pruebas x ahora) un comprobante de venta, para luego ser procesado y
enviado a la dgi con todos los requisitos.<br>
Yo simplemente debo crear objetos de esas clases, cargarle los datos
y listo.<br>
<br>
acá está el poyectito de prueba...(los datos son inventados claro)<br>
<a class="moz-txt-link-freetext" href="https://dl.dropboxusercontent.com/u/6723942/felectronica%20jose.zip">https://dl.dropboxusercontent.com/u/6723942/felectronica%20jose.zip</a><br>
<br>
bueno, muchas gracias!<br>
<br>
(en lazarus, lo de crear esos componentes descendientes de
TActivexControl, ni de casualidad lo hace... tb lo probé, no queda
como le queda a Maxi desde su delphi)<br>
byeeeeeeeeeeeee<br>
<br>
<br>
</body>
</html>