Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Factura Electronica en VFP ayuda con XML

Estas en el tema de Factura Electronica en VFP ayuda con XML en el foro de Visual Basic clásico en Foros del Web. Hola, quisiera saber si el codigo de Halcon Divino te funciono tal cual, yo lo trate de implementar pero me marco error al utilizar el ...

  #31 (permalink)  
Antiguo 05/01/2011, 20:11
 
Fecha de Ingreso: julio-2008
Mensajes: 2
Antigüedad: 16 años, 4 meses
Puntos: 0
Respuesta: Factura Electronica en VFP ayuda con XML

Hola, quisiera saber si el codigo de Halcon Divino te funciono tal cual, yo lo trate de implementar pero me marco error al utilizar el componente q lee el archivo .cer y .key y no encontre quien me puediera auxiliar, no se si tu me puedas auxiliar al respecto. Salu2!!
  #32 (permalink)  
Antiguo 05/01/2011, 20:12
 
Fecha de Ingreso: julio-2008
Mensajes: 2
Antigüedad: 16 años, 4 meses
Puntos: 0
Respuesta: Factura Electronica en VFP ayuda con XML

Cita:
Iniciado por vengli Ver Mensaje
Hola buen dia, me acabo de registrar en esta pagina, y solo para agradecer al amigo Halcon que de su ejemplo que dio en esta pagina tome la guia para hacer mi factura Digital, y desde un principio me funciono perfectamente, solo que para efectos de mi sistema tuve que hacerle muchas adecuaciones de tal manera que se apegara al anexo 20 tal como pide el sat, ahora con el cambio tambien funciona a la perfeccion, asi que muchas felicidades al amigo q nos dio la pauta para hacer lo que se necesita.

Les suguiero que para hacer las extructuras del XML usen plantillas para que no se quiebren la cabeza.
Me gustaria me auxiliaras en unos problemas q tuve con el codigo de halcon divino, en la parte del componente que lee el .cer y .key
  #33 (permalink)  
Antiguo 07/01/2011, 23:42
 
Fecha de Ingreso: noviembre-2002
Ubicación: DF
Mensajes: 1.056
Antigüedad: 22 años
Puntos: 37
Respuesta: Factura Electronica en VFP ayuda con XML

El componente RSAChilkat se descarga de la pagina q indica el codigo, se instala en la pc, y ya, el codigo VFP creara el objeto correctamente tal como se comenta en el codigo.
  #34 (permalink)  
Antiguo 10/01/2011, 09:23
 
Fecha de Ingreso: noviembre-2010
Mensajes: 5
Antigüedad: 14 años
Puntos: 0
Respuesta: Factura Electronica en VFP ayuda con XML

pues ya logre terminar mi proyectito y ya esta jalando de acuerdo a mis necesidades, logre cumplir con el aspecto fiscal 2010 que pedia expedir un cfd como minimo para entrar al esquema 2010.
Gracias a todos por sus aportaciones.!
El que desee el proyecto puede contactarme a mi correo.
[email protected]
  #35 (permalink)  
Antiguo 10/01/2011, 09:46
 
Fecha de Ingreso: enero-2011
Mensajes: 1
Antigüedad: 13 años, 11 meses
Puntos: 0
Respuesta: Factura Electronica en VFP ayuda con XML

Cita:
Iniciado por anng Ver Mensaje
pues ya logre terminar mi proyectito y ya esta jalando de acuerdo a mis necesidades, logre cumplir con el aspecto fiscal 2010 que pedia expedir un cfd como minimo para entrar al esquema 2010.
Gracias a todos por sus aportaciones.!
El que desee el proyecto puede contactarme a mi correo.
[email protected]

Hola,

Yo solo voy a desarrollar la parte de la lectura de la factura electrónica, me podrás ayudar con ese tema para leer el XML, ya que lo he tratado de importar con SSIS Package en SQL server 2005 y no me va, tendrás alguna rutina para leer el XML en vb.net???

Gracias!
  #36 (permalink)  
Antiguo 19/01/2011, 06:43
 
Fecha de Ingreso: enero-2011
Mensajes: 2
Antigüedad: 13 años, 10 meses
Puntos: 0
Respuesta: Factura Electronica en VFP ayuda con XML

Hola que tal !!!

el link ya no est disponible podrias volverlo a poner o enviar el programa para tomarlo de ejemplo

mil gracias
  #37 (permalink)  
Antiguo 19/01/2011, 06:50
 
Fecha de Ingreso: enero-2011
Mensajes: 2
Antigüedad: 13 años, 10 meses
Puntos: 0
Respuesta: Factura Electronica en VFP ayuda con XML

Zavaleta !}podrias auxiliarme conel codigo de alcon divino no esta el enlace nemegaupload !!}

mil gracias

mi correo es [email protected]
  #38 (permalink)  
Antiguo 21/01/2011, 00:56
 
Fecha de Ingreso: mayo-2001
Mensajes: 452
Antigüedad: 23 años, 7 meses
Puntos: 1
Respuesta: Factura Electronica en VFP ayuda con XML

si buscan en google por Visual Fox Pro y Halcon Divino

http://foros.raza-mexicana.org/showthread.php?t=1386

http://www.megaupload.com/?d=SBW1BBOH
__________________
Si necesitas los servicios de un programador ASP, JSP, HTML, JavaScript, ActionScript, o una aplicacion en Visual Basic o Delphi, enviame un email a [email protected]
  #39 (permalink)  
Antiguo 24/01/2011, 09:53
 
Fecha de Ingreso: enero-2011
Mensajes: 3
Antigüedad: 13 años, 10 meses
Puntos: 0
Respuesta: Factura Electronica en VFP ayuda con XML

Hola este foro esta excelente, en lo particular me ayudo con algunas dudas que tenia para generar el xml de la factura electronica. Pero para este 2011 alguien sabe si tendremos que hacer modificaciones adicionales ????
  #40 (permalink)  
Antiguo 21/04/2011, 09:25
 
Fecha de Ingreso: abril-2011
Mensajes: 4
Antigüedad: 13 años, 7 meses
Puntos: 0
Respuesta: Factura Electronica en VFP ayuda con XML

Hola.
Ya tengo la factura electronica con XML para cfd 2010, pero ahora necesito para un hotel, el 2% de ISH como complemento y ahi es donde marca error al validar en el SAT: "el sello del comprobante es invalido" y solo muestra hasta el IVA, el complemento no... la programacion es es VFP 9.0 y el sellado es con Chillkat... gracias por su ayuda... esta es parte de la programacion del nodo complemento :

nComplemento = CFDXml.CreateNode(1, "Complemento", "")
nImpLocal1 = CFDXml.CreateNode(1, "ImpuestosLocales", "")
nImpLocal1.setAttribute("version" ,QtarChrInval( "1.0" ))
nImpLocal1.setAttribute("TotaldeRetenciones" ,QtarChrInval( "0.00" ))
nImpLocal1.setAttribute("TotaldeTraslados" ,QtarChrInval( Gral.Hospedaje ))
nComplemento.AppendChild( nImpLocal1 )

nImpLocal2 = CFDXml.CreateNode(1, "TrasladosLocales", "")
nImpLocal2.setAttribute("ImpLocTrasladado" ,QtarChrInval( "ISH" ))
nImpLocal2.setAttribute("TasadeTraslado" ,QtarChrInval( "2.00" ))
nImpLocal2.setAttribute("Importe" ,QtarChrInval( Gral.Hospedaje ))
nComplemento.AppendChild( nImpLocal2 )
nImpLocal3 = CFDXml.CreateNode(1, "ImpuestosLocales", "")
nComplemento.AppendChild( nImpLocal3 )

nComprobante.AppendChild( nComplemento )
  #41 (permalink)  
Antiguo 21/04/2011, 12:55
 
Fecha de Ingreso: abril-2011
Mensajes: 4
Antigüedad: 13 años, 7 meses
Puntos: 0
Respuesta: Factura Electronica en VFP ayuda con XML

Hola.
Ya tengo la factura electronica con XML para cfd 2010, pero ahora necesito para un hotel, el 2% de ISH como complemento y ahi es donde marca error al validar en el SAT: "el sello del comprobante es invalido" y solo muestra hasta el IVA, el complemento no... la programacion es es VFP 9.0 y el sellado es con Chillkat... gracias por su ayuda... esta es parte de la programacion del nodo complemento :

nComplemento = CFDXml.CreateNode(1, "Complemento", "")
nImpLocal1 = CFDXml.CreateNode(1, "ImpuestosLocales", "")
nImpLocal1.setAttribute("version" ,QtarChrInval( "1.0" ))
nImpLocal1.setAttribute("TotaldeRetenciones" ,QtarChrInval( "0.00" ))
nImpLocal1.setAttribute("TotaldeTraslados" ,QtarChrInval( Gral.Hospedaje ))
nComplemento.AppendChild( nImpLocal1 )

nImpLocal2 = CFDXml.CreateNode(1, "TrasladosLocales", "")
nImpLocal2.setAttribute("ImpLocTrasladado" ,QtarChrInval( "ISH" ))
nImpLocal2.setAttribute("TasadeTraslado" ,QtarChrInval( "2.00" ))
nImpLocal2.setAttribute("Importe" ,QtarChrInval( Gral.Hospedaje ))
nComplemento.AppendChild( nImpLocal2 )
nImpLocal3 = CFDXml.CreateNode(1, "ImpuestosLocales", "")
nComplemento.AppendChild( nImpLocal3 )

nComprobante.AppendChild( nComplemento )
  #42 (permalink)  
Antiguo 27/04/2011, 11:30
 
Fecha de Ingreso: abril-2011
Mensajes: 4
Antigüedad: 13 años, 7 meses
Puntos: 0
Pregunta Respuesta: Factura Electronica en VFP ayuda con XML

alguien que ya pafra estas fechas haya terminado el <complemento> y que al validarlo no marque error en la declaracion de los impuestos locales:


- <Complemento>
- <implocal:ImpuestosLocales xmlns:implocal="implocal" version="1.0" TotaldeRetenciones="0" TotaldeTraslados="55.07">
<implocal:TrasladosLocales ImpLocTrasladado="IMPUESTO SOBRE" TasadeTraslado="3" Importe="55.07" />
</implocal:ImpuestosLocales>
</Complemento>

en xmlns:implocal marca error....

alguien que tenga el dato y pueda poner la sintaxis correcta..

saludos !!
  #43 (permalink)  
Antiguo 08/08/2011, 16:13
 
Fecha de Ingreso: junio-2011
Ubicación: Tuxtla Gutiérrez
Mensajes: 2
Antigüedad: 13 años, 6 meses
Puntos: 0
Respuesta: Factura Electronica en VFP ayuda con XML

Hola, tengo un detalle con esta parte (codigo de Halcon Divino):

AgregaAtributo("S", "C", CCXml, nCFDI, "xsi:schemaLocation", "http://www.sat.gob.mx/cfd/3 http://www.sat.gob.mx/sitio_internet/cfd/3/cfdv3.xsd", "")

y es que el netFrameWork quita del atributo el xsi dejandolo unicamente con schemaLocation alguien sabe como resolverlo y es que dice el MSDN que no proporciona compatibilidad con este tipo de enlaces, saludos.
  #44 (permalink)  
Antiguo 10/01/2012, 09:39
 
Fecha de Ingreso: enero-2012
Ubicación: Qro
Mensajes: 1
Antigüedad: 12 años, 11 meses
Puntos: 0
Pregunta Respuesta: Factura Electronica en VFP ayuda con XML

Buenos Dias AlconDivino tengo un problema con respecto a la factura digital en el tema de la addenda con tu ejemplo ya pude realizar bien mi factura, solo que al agregarla addenda de Mabe tengo el problema que al nombre del nodo no le puedo poner los : ya que al parecer los : punto tiene un significado especial en Hml, al ponerlos no me muestra informacion del nodo, en este caso el nodo de mabe se llaman mabe:Proveedor, no se si con alguna funcion se puedan insertar los 2 puntos y me los reconozca se programa en visual fox pro ver 9.0
soy novato en la programacion, agradezco tu aporte.

te envio el ejemplo de la addenda de mabe:
<?xml version="1.0" encoding="UTF-8" ?>
- <mabe:Factura xmlns:mabe="http://recepcionfe.mabempresa.com/cfd/addenda/v1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://recepcionfe.mabempresa.com/cfd/addenda/v1 http://recepcionfe.mabempresa.com/cfd/addenda/v1/mabev1.xsd" version="1.0" tipoDocumento="FACTURA" folio="1" fecha="2011-04-14" ordenCompra="500012365" referencia1="TICKET12030" referencia2="KW12390044">
<mabe:Moneda tipoMoneda="MXN" tipoCambio="1.00" importeConLetra="CIENTO TREINTA PESOS CON CUARENTA CENTAVOS" />
<mabe:Proveedor codigo="PPDN00000" />
<mabe:Entrega plantaEntrega="330" calle="Av. Mexico" noExterior="13" noInterior="A" codigoPostal="11000" />
- <mabe:Detalles>
<mabe:Detalle noLineaArticulo="001" codigoArticulo="1234567890" descripcion="Articulo 1" unidad="PZA" cantidad="1" precioSinIva="100.00" precioConIva="116.00" importeSinIva="100.00" importeConIva="116.00" />
</mabe:Detalles>
<mabe:Descuentos tipo="CARGO" descripcion="OTROS CARGOS" importe="10.00" />
<mabe:Subtotal importe="110.00" />
- <mabe:Traslados>
<mabe:Traslado tipo="IVA" tasa="16" importe="16.00" />
</mabe:Traslados>
- <mabe:Retenciones>
<mabe:Retencion tipo="FLETE" tasa="4" importe="4.40" />
</mabe:Retenciones>
<mabe:Total importe="130.40" />
</mabe:Factura>

Te envio el codigo con que se realiza esto
* Se crea el Nodo AddEnda
* Facor de ver mis comentarios sobre el nodo addena en la cabezera de esta rutina .
*
nAddEnda = CFDXml.CreateNode(1, "Addenda", "")

* Se crea el Nodo Mabe:Factura
nmabeFactura = CFDXml.CreateNode(1, "mabeFactura", "")

* Agregan los atributos al nodo nmabeFactura
nmabeFactura.setAttribute("xmlns:mabe" ,"http://recepcionfe.mabempresa.com/cfd/addenda/v1")
nmabeFactura.setAttribute("xmlns:xsi" ,"http://www.w3.org/2001/XMLSchema-instance")
nmabeFactura.setAttribute("xsi:schemaLocation","ht tp://recepcionfe.mabempresa.com/cfd/addenda/v1 http://recepcionfe.mabempresa.com/cfd/addenda/v1/mabev1.xsd")
nmabeFactura.setAttribute("version","1.0")
Select Gral
Goto Top
If Len(QtarChrInval(Gral.tipodocume)) > 0
nmabeFactura.setAttribute("tipoDocumento" ,QtarChrInval(Gral.tipodocume ))
ENDIF
If Len(QtarChrInval(Gral.serie)) > 0 .AND. Len(QtarChrInval(Gral.folio)) > 0
nmabeFactura.setAttribute("folio" ,QtarChrInval(Gral.serie)+QtarChrInval(Gral.folio) )
ENDIF
If Len(QtarChrInval(Gral.fecha)) > 0
xaño=SUBSTR(ALLTRIM(Gral.fecha),1,4)
xmes=SUBSTR(ALLTRIM(Gral.fecha),6,2)
xdia=SUBSTR(ALLTRIM(Gral.fecha),9,2)
xfecha=xaño+"-"+xmes+"-"+xdia
nmabeFactura.setAttribute("fecha" ,xfecha)
ENDIF

* se agrega el nodo nmabeFactura al nodo AddEnda
*nAddEnda.AppendChild(nmabeFactura)
*xx=cfdxml.createtextnodo("mabe_Moneda")
*xx="Alt+58"
*xx="mabeAlt+58Moneda"
nmabemoneda = CFDXml.CreateNode(1,"mabeMoneda", "") &&Se Crea nodo mabe:Moneda
*nnuevo= nmabemoneda.insertbefore(xx,nmabemoneda.childnodes .item(1))

If Len(QtarChrInval(Gral.moneda)) > 0
nmabemoneda.setAttribute("tipoMoneda" ,Gral.moneda)
ENDIF

* se agrega el nodo nmabemoneda al nodo AddEnda
nmabeFactura.AppendChild(nmabemoneda)

nmabeProveedor = CFDXml.CreateNode(1,"mabeProveedor", "") &&Se Crea nodo mabe:Proveedor

If Len(QtarChrInval(Gral.proveedor)) > 0
nmabeProveedor.setAttribute("codigo" ,QtarChrInval(Gral.proveedor))
ENDIF

* se agrega el nodo nmabeProveedor al nodo AddEnda
nmabeFactura.AppendChild(nmabeProveedor)

nmabeEntrega = CFDXml.CreateNode(1,"mabeEntrega", "") &&Se Crea nodo mabe:Proveedor

If Len(QtarChrInval(Gral.plantaEntr)) > 0
nmabeEntrega.setAttribute("plantaEntrega" ,QtarChrInval(Gral.plantaEntr))
ENDIF

* se agrega el nodo nmabeEntrega al nodo AddEnda
nmabeFactura.AppendChild(nmabeEntrega)

nmabeDetalles = CFDXml.CreateNode(1,"mabeDetalles", "") &&Se Crea nodo mabe:Detalles
imporsiniva=0
i=0
Select Cnspts
Goto Top
Do While Not Eof()
* Se crea el Nodo detalle
nmabeDetalle = CFDXml.CreateNode(1 , "mabeDetalle", "")
i=i+1
nmabeDetalle.setAttribute("noLineaArticulo",ALLTRI M(STR(i)))

If Len(QtarChrInval(Cnspts.noID)) > 0
nmabeDetalle.setAttribute("codigoArticulo" ,QtarChrInval(Cnspts.noID ))
EndIf
If Len(QtarChrInval(Cnspts.descripcio)) > 0
nmabeDetalle.setAttribute("descripcion" ,QtarChrInval(Cnspts.descripcio ))
EndIf
If Len(QtarChrInval(Cnspts.unidad)) > 0
nmabeDetalle.setAttribute("unidad" ,QtarChrInval(Cnspts.unidad))
EndIf
If Len(QtarChrInval(Cnspts.cantidad)) > 0
nmabeDetalle.setAttribute("cantidad" ,QtarChrInval(Cnspts.cantidad ))
EndIf
If Len(QtarChrInval(Cnspts.valorUnita)) > 0
nmabeDetalle.setAttribute("precioSinIva" ,QtarChrInval(Cnspts.valorUnita ))
ENDIF

* imporsini= VAL(Cnspts.cantidad)* VAL(Cnspts.valorUnita)
imporsiniva= imporsiniva+ VAL(ALLTRIM(Cnspts.importe))
If Len(QtarChrInval(Cnspts.importe)) > 0
nmabeDetalle.setAttribute("importeSinIva" ,QtarChrInval(Cnspts.importe))
ENDIF

*****
* El nodo Concepto se agrega al nodo Detalles
nmabeDetalles.AppendChild(nmabeDetalle)

Select Cnspts
Skip
EndDo

* El nodo Detalles se agrega al nodo Addenda
nmabeFactura.AppendChild(nmabeDetalles)


nmabeSubtotal = CFDXml.CreateNode(1,"mabeSubtotal", "") &&Se Crea nodo mabe:Subtotal
Select Gral
GOTO Top
If imporsiniva > 0
nmabeSubtotal.setAttribute("importe",STR(imporsini va,12,2))
ENDIF

* El nodo Subtotal se agrega al nodo Addenda
nmabeFactura.AppendChild(nmabeSubtotal)

nmabeTotal = CFDXml.CreateNode(1,"mabe&apos;Total", "") &&Se Crea nodo mabe:Total
* nmabeTotal.("_","mabeTotal")
*Select Gral
*Goto Top
If Len(QtarChrInval(Gral.total)) > 0
nmabeTotal.setAttribute("importe" ,QtarChrInval(gral.total))
ENDIF
* nmabeTotal.attribute.value="mabe_Total"
* El nodo total se agrega al nodo Addenda
nmabeFactura.AppendChild(nmabeTotal)

* El nodo Factura se agrega al nodo Addenda
nAddEnda.AppendChild(nmabeFactura)

* se agrega el nodo AddEnda al nodo Comprobante
nComprobante.AppendChild(nAddEnda)

&&--------------------------------------------------------------

* se agrega el nodo Comprobante al nodo CFDXml
CFDXml.AppendChild(nComprobante)

* Se salva el documento XML
CFDXml.Save(ArchivoXml)

con este codigo asi me queda el xml, espero me puedas ayudar buen dia

<Addenda>
- <mabeFactura xmlns:mabe="http://recepcionfe.mabempresa.com/cfd/addenda/v1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://recepcionfe.mabempresa.com/cfd/addenda/v1 http://recepcionfe.mabempresa.com/cfd/addenda/v1/mabev1.xsd" version="1.0" tipoDocumento="FACTURA" folio="IA1222" fecha="2011-09-20">
<mabeMoneda tipoMoneda="MXN" />
<mabeProveedor codigo="PPIN01532" />
<mabeEntrega plantaEntrega="590" />
- <mabeDetalles>
<mabeDetalle noLineaArticulo="1" codigoArticulo="N40254" descripcion="ALUM.BARRA CUADRADA 6061T6 25.4 MM." unidad="KG" cantidad="1.120" precioSinIva="73.60" importeSinIva="82.43" />
<mabeDetalle noLineaArticulo="2" codigoArticulo="N80091" descripcion="ALUMINIO SOLERA 6061 T-6 9.5X101.6MM" unidad="KG" cantidad="1.900" precioSinIva="73.60" importeSinIva="139.84" />
<mabeDetalle noLineaArticulo="3" codigoArticulo="N80504" descripcion="ALUMINIO SOLERA 6061 T-6 12.7X50.8MM" unidad="KG" cantidad="3.600" precioSinIva="73.60" importeSinIva="264.96" />
</mabeDetalles>
<mabeSubtotal importe="487.23" />
</mabeFactura>
</Addenda>
</Comprobante>

Etiquetas: electronica, factura, xml
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 2 personas




La zona horaria es GMT -6. Ahora son las 02:13.