<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 13/06/2014 19:13, Paola Bruccoleri
escribió:<br>
</div>
<blockquote cite="mid:539B777D.6040303@adinet.com.uy" type="cite">
<meta http-equiv="Context-Type" content="text/html;
charset=ISO-8859-1">
<div class="moz-cite-prefix">El 13/06/2014 15:33, José Mejuto
escribió:<br>
</div>
<blockquote cite="mid:539B43FF.2070703@gmail.com" type="cite">El
13/06/2014 19:59, Paola Bruccoleri escribió: <br>
<br>
<br>
<blockquote type="cite">vCfe:=WIN_OLECREATEOBJECT("eFacturaCOM.cfe")
<br>
IF !HB_ISOBJECT(vCfe) <br>
ALERT('Falta instalar control OCX o problemas al crear
objeto OLE <br>
</blockquote>
<br>
<blockquote type="cite">CABECERA'+CRLF+'Consulte a Sistemas o
a'+CRLF+'PAOLA BRUCCOLERI','Error') <br>
RETURN <br>
ENDIF <br>
<br>
************* DATOS CABECERA FACTURA
******************************* <br>
vCfe:AnoEmision := "2014" <br>
vCfe:MesEmision := "03" <br>
.......................etc <br>
<br>
<br>
</blockquote>
<br>
Hola, <br>
<br>
Pues en teoría es más o menos lo mismo: <br>
<br>
var <br>
vCfe: _CFE; <br>
begin <br>
vCfe:=_CFE.create; <br>
vCfe.AnoEmision:='2014'; <br>
... <br>
... <br>
end; <br>
<br>
Eso si, tienes que tener al menos esas dos DLL registradas en tu
sistema, el VBA6.dll y el MSXML2.DLL <br>
<br>
Calculo que el MSXML2_6_0_TLB.pas no lo necesitas en tu proyecto
para nada. <br>
<br>
</blockquote>
Hola José, resto del grupo..<br>
<br>
ya conseguí la vba6.dll. Lo que hice para obtener la VBA_6_0_TLB
fue hacer lo mismo q con la otra: import type library. No la
registré ni nada; solo dejé la dll en la misma carpeta del
proyecto, al igual que la otra dll activex.<br>
En fin, aparentemente ya tengo todos los .pas q necesito.<br>
Todavía no me voy a meter en hacer ningún paquete como sugiere
Martín xq primero quiero ver que todo funcione bien.<br>
<br>
Siguiendo con la sintaxis que me sugirió José, y que tb algo
encontré en este foro:<br>
<a moz-do-not-send="true" class="moz-txt-link-freetext"
href="http://forum.lazarus.freepascal.org/index.php?topic=21113.0">http://forum.lazarus.freepascal.org/index.php?topic=21113.0</a><br>
<br>
logré armar casi lo mismo que tengo en harbour, PEROOOO siempre
hay un PEROOOOO..a la hora de compilar me salta este error:<br>
<br>
efacturacom_1_0_tlb.pas(90,38) Fatal: Syntax error, "identifier"
expected but ":" found<br>
<br>
y es acá:<br>
<b>procedure Set_ivaTasaBasica(const :Currency); safecall;</b><br>
<br>
pero ese código, si es que está mal, se generó solo! (es la
librería de importación o como se llame)<br>
<br>
estoy usando para esto el lazarus 1.2.2 recién bajadito.... (en
win8 64b)<br>
<br>
help! <br>
millones de gracias!!<br>
byeeeeeeeeeeeee<br>
</blockquote>
sigoooooo<br>
para probar, rellené a mano cada variable q faltaba antes del tipo..<br>
<b>procedure Set_ivaTasaBasica(const ivatasabasica:Currency);
safecall;</b><br>
<br>
pero tu sintaxis me dió error acá en rojo:<br>
var<br>
vCfe: _CFE;<br>
itemFact1, itemFact2: _ItemFactura;<br>
begin<br>
<font color="#ff0000">vCfe=_CFE.Create;</font> <br>
<br>
unit1.pas(38,13) Error: identifier idents no member "Create"<br>
<br>
y lo modifiqué por:<br>
vCfe:= CoCFE.Create;<br>
<br>
aparenta quedar pronto...<br>
igual tengo 3 errores que no logro darme cuenta:<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>
<br>
donde:<br>
vSobre.SaveXMLToFile('f:\lz\felectronica\sobre.xml'); <u> </u><u>ERROR
1</u><br>
vSobre.cfe.SaveXMLToFile('f:\lz\felectronica\cfe.xml'); <u> </u><u>ERROR
2</u><br>
if vSobre.callWebService then begin<br>
resp:= vSobre.Response;<br>
resp.savePDF('f:\lz\felectronica\compPdf.pdf');<u> ERROR 3</u><br>
end else begin<br>
ShowMessage('ERROR AL LLAMAR AL WEB SERVICE...')<br>
end<br>
<br>
y en el pas que se generó con la DLL<br>
<br>
function SaveXMLToFile(var
strPath:WideString):OleVariant;safecall; (está en la interface de
_Sobre)<br>
function SaveXMLToFile(var
strPath:WideString):OleVariant;safecall; (está en la interface de
_CFE)<br>
function savePDF(var strPath:WideString):WordBool;safecall; (está
en la interface de _Respuesta)<br>
<br>
<br>
gracias nuevamente!<br>
byeeeeeeeeee<br>
</body>
</html>