facturista.com - Foros de Factura Electrónica (Comprobante Fiscal Digital por Internet)

Venta de timbres y programas para Generar, Sellar y Timbrar Factura Electrónica (CFDI) en México
Fecha actual Jue Mar 28, 2024 5:17 am

Todos los horarios son UTC - 6 horas




Nuevo tema Responder al tema  [ 2 mensajes ] 
Autor Mensaje
NotaPublicado: Mié Abr 02, 2014 9:40 pm 
Desconectado

Registrado: Sab Mar 30, 2013 1:04 am
Mensajes: 47
Código:
   lcxml = "miArchivo.xml"
   llAcuse = .F.

   h=cfdi_xml_cargar(0,lcxml)
   if h<>0
      lcrfc=cfdi_xml_atributo(h,"cfdi:Comprobante/cfdi:Emisor","rfc")
      if len(lcrfc)<1
         messagebox("No se pudo obtener del xml el RFC del emisor en "+lcxml, 0, gcprogname)
         return
      endif
      lcuuid = cfdi_uuid(h)
      if len(lcuuid)<1
         messagebox("No se pudo obtener el UUID del CFDI "+lcxml, 0, gcprogname)
         return
      endif


      if lcrfc == 'AAA010101AAA'
         lcserver = "Servidor=pruebas.ecodex.com.mx;Puerto=2044;"
      else
         lcserver = "Servidor=servicios3.ecodex.com.mx;Puerto=4040;"
      endif

      
      if llAcuse
         lcAcuse = 'Acuse=1;'
      else
         lcAcuse = ''
      endif
      
      if cfdi_cancelar(h, 1, "RFC="+lcrfc+;
      ";TransaccionID=123456"+";UUID="+lcuuid+";"+lcserver+lcAcuse)<>0
         if not empty(lcAcuse)
         
            lcArchivoAcuse = lcxml + "_acuse.txt"
            lcAcuse = cfdi_resultado(h)
            lnh = fcreate(lcArchivoAcuse)
            if lnh <> -1
               fwrite(lnh,lcAcuse)
               fclose(lnh)
            else
               messagebox("No se pudo crear el archivo "+lcArchivoAcuse)
            endif
         
         endif
      else
         if empty(lcAcuse)
            messagebox(lcxml+", No se pudo cancelar: "+cfdi_error(h), 0, gcprogname)
         else
            messagebox(lcxml+", No se pudo obtener el acuse: "+cfdi_error(h), 0, gcprogname)
         endif   
      endif      
   else
      messagebox("No se pudo cargar el xml "+lcxml,0,gcprogname)
   endif



Arriba
 Perfil  
 
NotaPublicado: Mié Abr 02, 2014 9:50 pm 
Desconectado

Registrado: Sab Mar 30, 2013 1:04 am
Mensajes: 47
Si la cancelacion tiene exito, se recomienda esperar 1 dia para obtener el acuse, ya que las cancelaciones
se encolan y obtenemos el acuse hasta que el SAT realiza la operacion.


Arriba
 Perfil  
 
Mostrar mensajes previos:  Ordenar por  
Nuevo tema Responder al tema  [ 2 mensajes ] 

Todos los horarios son UTC - 6 horas


¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 12 invitados


No puedes abrir nuevos temas en este Foro
No puedes responder a temas en este Foro
No puedes editar tus mensajes en este Foro
No puedes borrar tus mensajes en este Foro
No puedes enviar adjuntos en este Foro

Buscar:
Saltar a:  
cron
Powered by phpBB® Forum Software © phpBB Group
Traducción al Español Mexicano por nextgen en colaboración con phpbb-es.com