Buenas noches: a quien me pueda orientar. Me están pidiendo aplicar el tema de Facturación electrónica, pero por más que busco no alcanzo a entender el tema. Mi sistema es de cobro de cuotas de colegios, pero hay uno que tiene que empezar a aplicar la Factura Electronica. Si me pueden guiar lo agradezco.
Saludos
Ruben
Buenos días Fidel: ahí estoy viendo el LINK que me pasastes. Te lo agradezco. Ahora, me podrías explicar en que consiste todo el trámite. Es decir: tengo mi sistema que tiene que empezar a emitir factura electrónica. Me tengo que inscribir en algún lado. O hacer algún trámite para empezar a utilizar dicho servicio. Por favor, si tenes un tiempito me vendría bien que me lo expliques. Gracias
RUBEN ANTUNES
--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual
FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía
un correo electrónico a mundovisualfox...@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.
* Referencias
* this.appdir && ruta de carpeta raíz de archivos factura electrónica
* loMens.AddLine() && de la clase "Mensajero" para mostrar el avance (como si fuera: ? "tal cosa está pasando")
* loFso = Newobject("Scripting.FileSystemObject")
* This.ShowError() && rutina que muestra los errores detectados por Catch
* Th_ReceProd && Boolean que indica si se habilitó el modo producción (.T.) o se está en prueba (.F.)
* _CR_ #DEFINE _CR_ CHR(13)
*<Token_Sign_CallWsaa>
TRY
LOCAL LOEX AS Exception
lcGranError="Wsaa.Error"
lcWsaaExcepcion="No se creó el objeto WSAA"
lcWsaaTraceBack=""
*-- Crear objeto interface Web Service Autenticación y Autorización
loMens.AddLine(" Creando objeto wsaa...")
WSAA = CREATEOBJECT("WSAA")
STORE "" TO lcWsaaExcepcion,lcWsaaTRaceback
*<NewProcedure> **********************************************
loMens.AddLine("Gestionando acceso",.t.,.t.)
tra = WSAA.CreateTra("wsfe",36000)
cms = WSAA.SignTRA( tra , this.file_crt , this.file_key)
loMens.AddLine("Gestionando Token y Sign...")
STORE "" TO lcToken,lcSign,ta_xml
lcFileTicket=ADDBS(this.appdir)+"ticket\ta.xml"
IF this.fso.fileExists(lcfileTicket)
ta_xml=FILETOSTR(lcFileTicket)
ok = WSAA.AnalizarXml(ta_xml)
IF NOT WSAA.EXPIRADO()
lcToken=Wsaa.ObtenerTagXml("token")
lcSign=Wsaa.ObtenerTagXml("sign")
ENDIF
ENDIF
IF EMPTY(lcToken) OR EMPTY(lcSign)
loMens.AddLine("Creando nuevo Token y Sign...")
IF !EMPTY(cms)
IF this.Th_ReceProd
ok = WSAA.Conectar("", "https://wsaa.afip.gov.ar/ws/services/LoginCms")
else
ok = WSAA.Conectar()
endif
ta_xml=WSAA.LoginCMS(cms)
IF !EMPTY(ta_xml)
STRTOFILE(ta_xml,lcFileTicket,0)
ENDIF
lcToken=WSAA.Token
lcSign=WSAA.Sign
endif
ENDIF
*</NewProcedure> **********************************************
CATCH TO loex
lErrorWsaa=.t.
IF VARTYPE(wsaa)="O"
lcwsaaExcepcion = WSAA.Excepcion
lcWsaaTraceBack = WSAA.Traceback
ENDIF
*--? WSAA.XmlRequest
*--? WSAA.XmlResponse
lnafiperr = ERROR() -2147221504
lcAfipErr="Código de Error Afip: "+IIF(BETWEEN(lnafipErr,1001,1999),TRANSFORM(lnafipErr),"0")
lcMensaje=PROGRAM()+ _CR_ +lcAfipErr
lcMensaje=lcMensaje+ _CR_ +lcWsaaExcepcion
IF !EMPTY(lcWsaaTraceBack)
lcMensaje=lcMensaje+ _CR_ +lcWsaaTraceback
ENDIF
lcmensaje=lcmensaje+ _CR_ +lcGRanError
loex.UserValue=lcMensaje
this.ShowError(loEx)
* Se produjo un error: quitar el monitor de tareas.
IF PEMSTATUS(_screen,"Mensajero",5)
_screen.mensajero=null
ENDIF
FINALLY
lcGRanError=""
ENDTRY
IF lErrorWsaa
wsaa=null
RETURN NULL
ENDIFHola Rubén, en tu caso, cuando hay que facturar masivamente no tendrías que usar WebServices, sino RECE que es una alternativa que pone AFIP para tal fin.
Tendrías que generar un archivo plano (con cierta estructura), luego desde un aplicativo de AFIP que se instala sobre SIAP, importar el archivo plano. Luego lanzar un proceso que hace que el aplicativo se conecte con el servidor de AFIP y obtenga todos los CAE y Vtos. De cada una de las facturas del lote. Por último con el archivo obtenido, tendrías que ir pegando cada CAE a la factura que vas a imprimir y al final recién imprimir.
Espero se entienda y tengas una punta para comenzar.
Saludos.
Ricardo
De: mundovis...@googlegroups.com [mailto:mundovis...@googlegroups.com] En nombre de Ruben Antunes
Enviado el: miércoles, 17 de junio de 2015 20:21
Para: mundovis...@googlegroups.com
No se encontraron virus en este mensaje.
Comprobado por AVG - www.avg.com
Versión: 2015.0.6030 / Base de datos de virus: 4365/10089 - Fecha de publicación: 06/24/15
Gracias a todos por responderme sobre el tema. Y la verdad que ambos casos me van a ser necesarios.
Asi que me pondré manos a la obra. Mil gracias nuevamente.
Ruben Antunes
Jorge: me podrías dar una mano entonces. Te lo agradecería.
Saludos
Ricardo: gracias por la información enviada. Ahora tendrías algún ejemplo o algo ya implementado que me puedas asesorar o enviar. Saludos
Ruben Antunes
De: mundovis...@googlegroups.com [mailto:mundovis...@googlegroups.com] En nombre de Ricardo Natella
Enviado el: miércoles, 24 de junio de 2015 10:44 a.m.
Para: mundovis...@googlegroups.com