Search found 128 matches

by postinelli
Wed Jan 27, 2021 1:12 pm
Forum: FiveWin para Harbour/xHarbour
Topic: ¿Alguna funcion para enviar email desatendido xHarbour?
Replies: 24
Views: 8421

Re: ¿Alguna funcion para enviar email desatendido xHarbour?

asi hago yo, y salen automaticamente los emails //----------------------------------------------------------------------------------------------- Function GMAILBK (cDestino,cAsunto,cTexto,cAdjunto ) Local oEmailCfg,oEmailMsg,oError,cHtml Local cServer:= GetPvProfString("Enviador","SER...
by postinelli
Thu Jan 21, 2021 7:54 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Normas para el QR-Code
Replies: 27
Views: 13260

Re: Normas para el QR-Code

Estimado la pagina de afip aun está a prueba, no valida una factura en si, solo te lleva a la pagina informativa de codigos qr de afip siempre te lleva a https://www.afip.gob.ar/fe/qr/conceptos-generales.asp yo lo que hice fue generar un txt con el link completo lo abro con el block de notas y copio...
by postinelli
Fri Jan 15, 2021 2:17 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Normas para el QR-Code
Replies: 27
Views: 13260

Re: Normas para el QR-Code

gracias

voy a probar

para las ticketeras uso tdosprn y manda siempre cualquiera sea la impresora instalada
manda directo a com,lpt o usb

no se si con PRINT podes enviar el corte automatico de papel
by postinelli
Fri Jan 15, 2021 2:00 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Normas para el QR-Code
Replies: 27
Views: 13260

Re: Normas para el QR-Code

ah ah aclaro yo sólo programo para mis actividades comerciales, no soy profesional, de hecho soy autodidacta pero ahi vamos con lo cual, te imaginaras mis limitaciones las facturas las genero via webserver de afip y las guardo como pdf y envío x email a los clientes, siempre en formato A4 en estos d...
by postinelli
Fri Jan 15, 2021 1:46 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Normas para el QR-Code
Replies: 27
Views: 13260

Re: Normas para el QR-Code

Hola Cesar yo uso H 3.2.0dev (r1703231115) fwh17.07 bcc 7.0 pero no creo que esté por ahi el problema ni por que debes hacer bmp en lugar de jpg subite la imagen de qr que te genera a ver si lo puedo leer o ver el problema o bien el código que usaste viste que hay veces que pones una coma o punto de...
by postinelli
Fri Jan 15, 2021 11:56 am
Forum: FiveWin para Harbour/xHarbour
Topic: Normas para el QR-Code
Replies: 27
Views: 13260

Re: Normas para el QR-Code

Cesar acabo de ponerlo como vos, sólo cambiando la posicion y tamaño y funciona perfecto
lo lee tanto desde la pantalla con el preview como impreso en papel

Code: Select all

     @ 24.10,  1   PRINT TO oPrn IMAGE cQR SIZE 2.5, 2.5 CM NOTRANSPARENT
 
by postinelli
Fri Jan 15, 2021 11:37 am
Forum: FiveWin para Harbour/xHarbour
Topic: Normas para el QR-Code
Replies: 27
Views: 13260

Re: Normas para el QR-Code

te paso como lo hice yo, con Harbour32 + fwh1707 por cierto el codigo de barras ya no va, al menos en las facturas emitidas por comprobantes en linea no sale el codigo de barras cQR:="FactQR.jpg" ///aca seteo la impresora XPS SetPrintDefault(cPrinter) PrinterInit() SysRefresh() PrnSetPage(...
by postinelli
Thu Jan 14, 2021 8:53 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Normas para el QR-Code
Replies: 27
Views: 13260

Re: Normas para el QR-Code

tengo la QRCodelib.Dll

no se como compartirla x aqui, o me pasan su email y se las envio

o la descargan de https://github.com/VFPX/FoxBarcodeQR
by postinelli
Thu Jan 14, 2021 8:44 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Normas para el QR-Code
Replies: 27
Views: 13260

Re: Normas para el QR-Code

function PDFQR(cNfac,cNCae,PuntoVenta,xDIA,XDNI,XIMP,TipoFF) Local cOrigen, cJason, cDestino, ElTxt Local cCuitEmite:='20211002003' Local cFechaEmit,cXIMP xDIA=DToC(xDIA) cFechaEmit:=subst(xDIA,7,4)+'-'+subst(xDIA,4,2)+'-'+subst(xDIA,1,2) cXIMP=AllTrim(Str(XIMP)) cXIMP=subst(cXIMP,1,Len(cXIMP)-3) c...
by postinelli
Thu Jan 14, 2021 8:41 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Normas para el QR-Code
Replies: 27
Views: 13260

Re: Normas para el QR-Code

Aqui les copio la verdad que es bastante simple, en cuanto vi la resolucion de afip, busqué y poco y salió al toque espero les sirva cualquier cosa avisan ///por cierto, todos los qr de afip, incluidos los que pone la afip al emitir una factura via Comprobantes en Linea, los lleva a la pagina de avi...
by postinelli
Thu Jan 14, 2021 8:34 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Normas para el QR-Code
Replies: 27
Views: 13260

Re: Normas para el QR-Code

//----------------------------------------------------------------------------// function GeneraQR() Local cOrigen, cJason, cDestino, ElTxt cOrigen:="https://www.afip.gob.ar/fe/qr/?p=" cJason:='{"ver":1,"fecha":"2020-10-13","cuit":30000000007,"p...
by postinelli
Thu Jan 14, 2021 5:02 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Normas para el QR-Code
Replies: 27
Views: 13260

Re: Normas para el QR-Code

Hola hasta donde sé hay 2 modelos normados aca en Argentina ahora debemos incluir QR en las facturas a partir de este año, si estas con eso, ya lo hice, sólo dime si lo necesitas >>> Los códigos QR se clasifican en Modelo 1, Modelo 2 y Micro QR. Poseen distintas características y capacidades de dato...
by postinelli
Thu Feb 20, 2020 8:20 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Capturar parámetros llamado desde prg SOLUCIONADO
Replies: 8
Views: 1120

Re: Capturar parámetros llamado desde prg

PCOUNT() Determine the position of the last actual parameter passed ------------------------------------------------------------------------------ Syntax PCOUNT() --> nLastArgumentPos Returns PCOUNT() returns, as an integer numeric value, the position of the last argument passed. If no arguments are...
by postinelli
Thu Nov 28, 2019 10:23 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Consultar DNI o CUIT en Argentina (Solucionado)
Replies: 7
Views: 1160

Re: Consultar DNI o CUIT en Argentina (Solucionado)

asi lo hago yo quizas te sirve para apuntar directamente allí If '<tr class="odd"><th>Nombre</th>' $ cTextoHTML DatNom=allTrim( substr( cTextoHTML, at( '<tr class="odd"><th>Nombre</th><td>', cTextoHTML )+34,100 )) // MsgAlert('DatNom1: '+DatNom) DatNom=alltrim( substr( DatNom, at...