Search found 19 matches

by puenteda
Sun Nov 22, 2020 6:35 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Como pasar parametros a un exe externo
Replies: 4
Views: 1631

Re: Como pasar parametros a un exe externo

Ernesto:

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

Saludos,
Daniel Puente
Santa Cruz, Argentina
by puenteda
Thu Nov 19, 2020 12:23 pm
Forum: FiveWin para Harbour/xHarbour
Topic: TIMER CANCELACION PROGRAMA
Replies: 4
Views: 656

Re: TIMER CANCELACION PROGRAMA

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,...
by puenteda
Tue Nov 17, 2020 2:04 pm
Forum: FiveWin para Harbour/xHarbour
Topic: LATIN1, UTF8... cual?
Replies: 6
Views: 2144

Re: LATIN1, UTF8... cual?

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
by puenteda
Tue Aug 25, 2020 1:23 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Ejecutar llamada a servicio.
Replies: 16
Views: 3159

Re: Ejecutar llamada a servicio.

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
by puenteda
Tue Aug 25, 2020 1:16 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Error calling a service
Replies: 7
Views: 1098

Re: Error calling a service

Hi,

I also use winexec without problems:

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

Regards
Daniel Puente
Argentina
by puenteda
Mon Dec 31, 2018 7:48 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Preview and save to pdf at the same time
Replies: 1
Views: 716

Re: Preview and save to pdf at the same time

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:lGuarda...
by puenteda
Fri Jul 21, 2017 5:43 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Detectar archivo abierto en clase TFileXls
Replies: 6
Views: 1079

Re: Detectar archivo abierto en clase TFileXls

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+; 'Cier...
by puenteda
Wed Oct 26, 2016 3:19 pm
Forum: FiveWin for Harbour/xHarbour
Topic: macro substitution & in fieldnames
Replies: 7
Views: 1669

Re: macro substitution & in fieldnames

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:={},aCampos2,aAt aC...
by puenteda
Tue May 10, 2016 7:18 pm
Forum: FiveWin for CA-Clipper
Topic: Impresoras
Replies: 1
Views: 2637

Re: Impresoras

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...
by puenteda
Tue May 03, 2016 12:48 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Software para Municipalidades
Replies: 2
Views: 400

Re: Software para Municipalidades

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
by puenteda
Mon May 02, 2016 10:11 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Software para Municipalidades
Replies: 2
Views: 400

Software para Municipalidades

Estimados:

Alguno tiene software desarrollado para Municipalidades en la Argentina, para cualquiera de sus areas ?.

Saludos,
Daniel Puente
by puenteda
Thu Jul 16, 2015 1:41 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Shellexecute no abre archivo excel
Replies: 5
Views: 811

Re: Shellexecute no abre archivo excel

Estimado: Asi nunca he tenido problemas: cFile:='M'+alltrim(LEFT(cDes,20))+".xls" If IsWinNT() ShellExecute( oWnd:hWnd, "open" , cFile, , , ) Else WaitRun( 'Start ' + "excel "+cFile, 0 ) EndIf Saludos, Daniel Puente Puerto Santa Cruz Santa Cruz, Argentina
by puenteda
Thu Jul 16, 2015 1:31 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Como imprimir codigo de barra
Replies: 2
Views: 552

Re: Como imprimir codigo de barra

Luis: Te basta con Fivewin, se imprime directamente utilizando cualquier fuente de codigo de barras, que tiene que estar presente en tu \windows\fonts DEFINE FONT oFont17 NAME "Free 3 of 9 Regular" SIZE 0,-20 OF oPrn oPrn:cmSay(5.78+nInc,4.6,PADL(VALES->NUMVALE,6,'0')+DTOS(VALES->FECHA)+PA...
by puenteda
Mon Jun 01, 2015 3:11 pm
Forum: FiveWin para CA-Clipper
Topic: como validar una fecha erronea en un GET
Replies: 3
Views: 2907

Re: como validar una fecha erronea en un GET

Patricio: El comportamiento normal de la clase tget es retornar .F. en el valid del get (aunque vos no hayas utilizado la clausula VALID en tu definicion del get) y emitir un pitido, por lo que usuario no deberia poder 'salir' del get si la fecha es erronea. Si vos le agregas clausula valid podes po...
by puenteda
Mon Oct 06, 2014 4:47 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Error al generar lib ole2.lib
Replies: 7
Views: 786

Re: Error al generar lib ole2.lib

Antonio:

Ya la baje del link que tenes en herramientas y ahi si estan y pude generar la lib corretamente, muchas gracias por contestar.

Saludos,
Daniel Puente