Cadena Original
Publicado: Lun May 26, 2014 11:13 am
Buenos dias,
Tengo un pequeño problema con la cadena original.
Necesito copiar el contenido de la cadena original del xml ya timbrado y no logro hacerlo.
Se que hay una funcion llamada CadenaOriginal() pero no entiendo como copiarla simplemente a una base de datos.
Pongo el codigo siguiente pero no hace nada y se sale de la aplicación.
PUBLIC lcFileXML, w_cadenacfdi, w_sellocfdi
STORE SPACE(250) TO w_cadenacfdi, w_sellocfdi
SET PATH TO ("C:\TAC-CFDI\") &&Especifique la ruta correcta donde tiene los archivos del proyecto
SET DEFAULT TO ("C:\TAC-CFDI\") &&Especifique la ruta correcta donde tiene los archivos del proyecto
declare short TimbrarCFD IN 'CFDLib.dll' string
declare string GetError IN 'CFDLib.dll'
declare string GetErrorExt IN 'CFDLib.dll'
declare string CadenaOriginal IN 'CFDLib.dll'
declare string SelloDigital IN 'CFDLib.dll'
SELECT FACTURA
SET ORDER TO FOLIO && FOLIOCFD
SET FILTER TO FOLIOCFD = VAL(WFOL)
GO TOP
STORE FOLIOCFD TO MFOL
STORE SERIECFD TO MSER
STORE OBSERVA TO lcObserva
STRTOFILE(lcObserva,"C:\FactXML\Texto3.txt")
STORE TIPO_COMPRO TO lcCompro
STORE "C:\TAC-CFDI\BuzonCFDI\CfdiXML\" + ALLTRIM(ALLTRIM(mser)) + RIGHT("000000" + ALLTRIM(STR(mfol)),6) + ".xml" TO lcFileXML
STRTOFILE(lcObserva,"C:\FactXML\Texto3.txt")
if BITAND(TimbrarCFD('c:\TAC-CFDI\Timbrado.ini'),15) = 0
w_cadenacfdi=ALLTRIM(CadenaOriginal())
w_sellocfdi=ALLTRIM(SelloDigital())
ELSE
MESSAGEBOX("error!")
ENDIF
STRTOFILE(w_cadenacfdi,"C:\FactXML\cadena.txt")
SELECT FACTURA
RLOCK()
REPLACE CADENA WITH w_cadenacfdi
REPLACE SELLO WITH w_sellocfdi
UNLOCK
Alguien seria tan amable de ayudarme con este problema.
Gracias de antemano.
Tengo un pequeño problema con la cadena original.
Necesito copiar el contenido de la cadena original del xml ya timbrado y no logro hacerlo.
Se que hay una funcion llamada CadenaOriginal() pero no entiendo como copiarla simplemente a una base de datos.
Pongo el codigo siguiente pero no hace nada y se sale de la aplicación.
PUBLIC lcFileXML, w_cadenacfdi, w_sellocfdi
STORE SPACE(250) TO w_cadenacfdi, w_sellocfdi
SET PATH TO ("C:\TAC-CFDI\") &&Especifique la ruta correcta donde tiene los archivos del proyecto
SET DEFAULT TO ("C:\TAC-CFDI\") &&Especifique la ruta correcta donde tiene los archivos del proyecto
declare short TimbrarCFD IN 'CFDLib.dll' string
declare string GetError IN 'CFDLib.dll'
declare string GetErrorExt IN 'CFDLib.dll'
declare string CadenaOriginal IN 'CFDLib.dll'
declare string SelloDigital IN 'CFDLib.dll'
SELECT FACTURA
SET ORDER TO FOLIO && FOLIOCFD
SET FILTER TO FOLIOCFD = VAL(WFOL)
GO TOP
STORE FOLIOCFD TO MFOL
STORE SERIECFD TO MSER
STORE OBSERVA TO lcObserva
STRTOFILE(lcObserva,"C:\FactXML\Texto3.txt")
STORE TIPO_COMPRO TO lcCompro
STORE "C:\TAC-CFDI\BuzonCFDI\CfdiXML\" + ALLTRIM(ALLTRIM(mser)) + RIGHT("000000" + ALLTRIM(STR(mfol)),6) + ".xml" TO lcFileXML
STRTOFILE(lcObserva,"C:\FactXML\Texto3.txt")
if BITAND(TimbrarCFD('c:\TAC-CFDI\Timbrado.ini'),15) = 0
w_cadenacfdi=ALLTRIM(CadenaOriginal())
w_sellocfdi=ALLTRIM(SelloDigital())
ELSE
MESSAGEBOX("error!")
ENDIF
STRTOFILE(w_cadenacfdi,"C:\FactXML\cadena.txt")
SELECT FACTURA
RLOCK()
REPLACE CADENA WITH w_cadenacfdi
REPLACE SELLO WITH w_sellocfdi
UNLOCK
Alguien seria tan amable de ayudarme con este problema.
Gracias de antemano.