Fijate cuando armo la variable barra puse o.puesto y corresponde al punto de venta de la factura ej: 0001, lo demás creo que esta legible
Saludos Leo De: [email protected] [mailto:[email protected]] En nombre de Alejandro mbs Enviado el: Miércoles, 04 de Agosto de 2010 09:35 a.m. Para: GUFA List Member Asunto: [GUFA] Factura Electronica Leo, no me sirve, me re sirve, te agradezco infinitamente, ya me lo pongo a implementar. saludos alejandro _____ From: [email protected] To: [email protected] Subject: [GUFA] Factura Electronica Date: Wed, 4 Aug 2010 09:02:17 -0300 Si tenes q imprimir un algoritmo en código de barra 2of5 para que el comprobante sea valido: ******* una vez obtenido el CAE barra = STRTRAN(cuitemp,'-','')+IIF(thisform.tipomov='FA','19',IIF(thisform.tipomov= 'ND','20','21'))+o.puesto+LEFT(factele.fe.xRespuestaCAE,14)+; LEFT(ALLTRIM(factele.fe.xrespuestaFch_vence_cae),4)+SUBSTR(ALLTRIM(factele.f e.xrespuestaFch_vence_cae),5,2)+RIGHT(ALLTRIM(factele.fe.xrespuestaFch_vence _cae),2) **** genero el digito verificador del contenido de barra digito = digverfacele(m.barra) **** barra completa m.barrado = m.barra+ALLTRIM(STR(digito)) **** convierto barra completa en formato para Font 2of5 m.barrado1 = _StrToI2of5(m.barrado) y esta variable es la q imprimo en el reporte factura usando la FONT 2of5 FUNCTION digverfacele(numero_) totalimpar=0 FOR impares=1 TO 39 STEP 2 totalimpar = totalimpar + VAL(SUBSTR(numero_,impares,1)) ENDFOR totalimpar = totalimpar * 3 totalpar=0 FOR pares=2 TO 38 STEP 2 totalpar = totalpar + VAL(SUBSTR(numero_,pares,1)) ENDFOR total_ = totalimpar + totalpar digito = 0 DO WHILE .t. IF (total_ + digito) / 10 = INT((total_ + digito) / 10) EXIT ENDIF digito = digito + 1 ENDDO RETURN digito *------------------------------------------------------ * FUNCTION _StrToI2of5(tcString) * INTERLEAVED 2 OF 5 *------------------------------------------------------ * Convierte un string para ser impreso con * fuente True Type "PF Interleaved 2 of 5" * ó "PF Interleaved 2 of 5 Wide" * ó "PF Interleaved 2 of 5 Text" * Solo caracteres numéricos * USO: _StrToI2of5('1234567890') * RETORNA: Caracter *------------------------------------------------------ FUNCTION _StrToI2of5(tcString) LOCAL lcStart, lcStop, lcRet, lcCheck, ; lcCar, lnLong, lnI, lnSum, lnAux lcStart = CHR(40) lcStop = CHR(41) lcRet = ALLTRIM(tcString) *--- Genero dígito de control lnLong = LEN(lcRet) lnSum = 0 lnCount = 1 FOR lnI = lnLong TO 1 STEP -1 lnSum = lnSum + VAL(SUBSTR(lcRet,lnI,1)) * ; IIF(MOD(lnCount,2) = 0,1,3) lnCount = lnCount + 1 ENDFOR *lnAux = MOD(lnSum,10) *lcRet = lcRet + ALLTRIM(STR(IIF(lnAux = 0,0,10 - lnAux))) *lnLong = LEN(lcRet) *--- La longitud debe ser par *IF MOD(lnLong,2) # 0 * lcRet = '0' + lcRet * lnLong = LEN(lcRet) *ENDIF *--- Convierto los pares a caracteres lcCar = '' FOR lnI = 1 TO lnLong STEP 2 IF VAL(SUBS(lcRet,lnI,2)) < 50 lcCar = lcCar + CHR(VAL(SUBS(lcRet,lnI,2)) + 48) ELSE lcCar = lcCar + CHR(VAL(SUBS(lcRet,lnI,2)) + 142) ENDIF ENDFOR *--- Armo código *lcRet = lcStart + lcCar + lcStop lcRet = lcCar RETURN lcRet ENDFUNC *------------------------------------------------------ Por lo ultimo si envias por pdf a un cliente es solo al hecho que le informas que le has facturado y que el mismo pueda registrar la misma es su respectiva contabilidad, además para que te la pague, sino medio que si no le avisas al menos no va a saber que le facturaste, pero el si cliente tiene acceso a las aplicaciones afip podría imprimir el comprobante genérico del portal de la afip. Espero te sirva, saludos, Leo. De: [email protected] [mailto:[email protected]] En nombre de Alejandro mbs Enviado el: Martes, 03 de Agosto de 2010 09:13 p.m. Para: GUFA List Member Asunto: [GUFA] Factura Electronica Hola a todos. Bueno les comento a todos que logre obtener desde el webservice de afip el CAE, los datos que obtuve son : 1) Numero de comprobante 2) Numero de CAE 3) Vencimiento del CAE ahora bien, mi duda es la siguiente : luego de esto solo tengo que agregar en la impresion de la factura esto : CAE Nø:60030706991371 Vto. CAE: 30/01/2010 o ademas estoy obligado a realizar alguna operacion mas, por ejemplo enviar por mail el pdf de la factura al cliente o algo asi. Muchas Gracias. _____ From: [email protected] To: [email protected] Subject: [GUFA] Factura Electronica Date: Thu, 29 Jul 2010 17:05:56 -0300 Gracias Osvaldo y a todos. Vamos a probar estas cosas, Sebastian. From: [email protected] [mailto:[email protected]] On Behalf Of Rubén O. Rovira Sent: jueves, 29 de julio de 2010 02:03 p.m. To: GUFA List Member Subject: [GUFA] Factura Electronica Hace unos dias atras a mi me contestaron en 3/4 horas aprox. Supongo que seguira vigente aun Saludos El 28 de julio de 2010 09:48, Alejandro mbs <[email protected]> escribió: Amigos Saben ustedes si sigue estando vigente la direccion de correo [email protected] para solicitar CRS, para realizar pruebas contra el webservice de testing, ayer mande un mail solicitandolo pero no me han contestado aun. si es negativa su respuesta saben donde puedo conseguir un certificado para relaizar las pruebas. Muchas Gracias __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5339 (20100804) __________ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5339 (20100804) __________ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5339 (20100804) __________ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com
