FiveTech Software tech support forums

Estimados:

Ya que estamos una ultima pregunta, alguno logro poder usar los autofiltros de excel ?. Deberia ser x ej:

oSheet:Range("A3:H903"):Autofilter()

Pero no funcionan.

Saludos,
Daniel Puente

Gracias a ambos, cambiando texcelscript por toleauto y agregandole el control de errores a sus llamadas con try y catch se logra generar planillas grandes sin que explote, definitivamente fue la solucion.

Saludos,
Daniel Puente
Santa Cruz, Argentina

Si, gracias, me parece que va por ahi la cosa para que no explote todo, el hb_gcall(.t.) parece que tambien ayuda, aunque tarda un poco mas pero igual explota.

Saludos,
Daniel

Hola hmpaquito, gracias por contestar, voy lucharlo un poco a ver si se puede capturar el error, pero es dificil porque por ejemplo te da:

Args:
[ 1] = C Matrícula

Stack Calls
===========
Called from: => TOLEAUTO:_VALUE( 0 )
Called from: .\prg\texcels.PRG => TEXCELSCRIPT:SAY( 510 ...

Buenos dias, tengo todavia varios sistemas con xharbour y fwh1601. A alquien mas le pasa que con las nuevas versiones de office según en que pc se corra el sistema en algunas funciona sin problemas la generacion de archivos excel con texcelscrip y en otras da errores tales como:

Error description ...

Ernesto:

winexec( (wPathB)+"\PFBATCH /c:1 /i:"+cticket+'.cmd'+' /o:'+cticket+'.sal',0)

Saludos,
Daniel Puente
Santa Cruz, Argentina

Pedro:

Con un cartel en pantalla, un for y un syswait() provocas la espera

winexec( (wPathB)+"\"+cTexto,1)SYSREFRESH()MSGRUN("Esperando respuesta Servidor AFIP...","Conectando con AFIP",{|| RET:=FEejecuta(cticket,cDir,wLfact,cFormaPago,cEntregado,cVuelto,cAtiende,cNg,cIva,wIva21 ...

Mario:

Si los datos provienen x ej de un sistema en dos, tambien podes recorrer la tabla una unica vez y convertir los datos con REPLACE TABLA->CAMPO WITH OEMTOANSI(TABLA->CAMPO)

Saludos,
Daniel Puente
Santa Cruz, Argentina

Adolfo:

Proba con winexec:

WINEXEC(cPtch+"\recibe.bat",1)

No olvides la ruta completa al .bat, sino con WINEXEC(recibe.bat",1) sin la ruta no funciona.

Saludos,
Daniel Puente
Argentina

Hi,

I also use winexec without problems:

WINEXEC(cPtch+"\recibe.bat",1)

Regards
Daniel Puente
Argentina

I made this changes in rpreview.prg, in:

METHOD PrintPage() CLASS TPreview

....

if ! lCancel
MsgRun( ::oDevice:cDocument, "Imprimiendo Reporte",;
{ || ::PrintPrv( nil, nOption, nFirst, nLast ) } )

// daniel 2016-07-29

* ? 'ACA GUARDAR PDF',oApp:lGuardarPDF,oApp:cImprimiendo

IF oApp ...

Estimado:

Yo lo que hago es capturar la ventana para verificar si el archivo esta abierto en el excel y mandarlo a cerrar:

cFile3:='NV'+OT:CMES

oWndCapt := TWCapture():New( "Microsoft Excel - "+cFile3)
if oWndCapt:lCaptured

MSGALERT('El archivo '+cFile3+' se encuentra en uso.'+CRLF ...

Marc:

Look at this examples code:

PADRON->(DBGOTOP())
DO WHILE !PADRON->(EOF())

IF !TMOVMES->(DBSEEK(CONCEPTO->COD+PADRON->MP,.F.))

TPADRON->(DBAPPEND())
COPIAREG('TPADRON','PADRON')

ENDIF

PADRON->(DBSKIP())
ENDDO

FUNCTION COPIAREG(xBaseEntra,xBaseSale)

Local aCampos:={},i,aDatos ...

Sebastián:

El propio printersetup() ya redirecciona la impresion a la impresora que selecciono el usuario, la funcion te devuelve el nombre de la improsora pero no necesitas hacer nada mas. Ejemplo:

PRINTERSETUP()

PRINTER oPrn NAME "Ordenes de Pago emitidas " PREVIEW

Lo que por experiencia ...

Hola estimado, barbaro, pasame una direccion de correo y te cuento, a ver si podemos hacer algo en conjunto. la mia es puenteda@hotmail.com ó danielpuente101@gmail.com.

Saludos,
Daniel Puente