ValidaCFD

Hola espero puedan ayudarme tengo unproblema con el programa de un hotel para hacer el nodod eimpuestos locales
la cadena original que se formo es

||2.0||1122|2011-04-08T17:30:43|428051|2010|ingreso|PAGO EN UNA SOLA EXHIBICION|CONTADO|508.47|0.00|600.00|HFT781221A61|HOTEL FLORIDA DE TUXPAN SA DE CV|JUAREZ|23|CENTRO|TUXPAN|TUXPAN|VERACRUZ|MEXICO|92800|JUAREZ|23|Desp 101|CENTRO|TUXPAN|TUXPAN|VERACRUZ|MEXICO|92800|BILA7012063E3|ACELA ESPERANZA BRIONES LOPEZ|PRIV CORREGIDORA|108|CENTRO|CUAUTEPEC|CUAUTEPEC|HIDALGO|MEXICO|43740|1|PZA|30/12/2010 HOSPEDAJE-1|508.47|508.47|IVA|16.00|81.36|91.53|1.0|0.00|10.17|ISSH|2.00|10.17||

y la que me arroja el validador es

||2.0||1122|2011-04-08T17:30:43|428051|2010|ingreso|PAGO EN UNA SOLA EXHIBICION|CONTADO|508.47|0.00|600.00|HFT781221A61|HOTEL FLORIDA DE TUXPAN SA DE CV|JUAREZ|23|CENTRO|TUXPAN|TUXPAN|VERACRUZ|MEXICO|92800|JUAREZ|23|Desp 101|CENTRO|TUXPAN|TUXPAN|VERACRUZ|MEXICO|92800|BILA7012063E3|ACELA ESPERANZA BRIONES LOPEZ|PRIV CORREGIDORA|108|CENTRO|CUAUTEPEC|CUAUTEPEC|HIDALGO|MEXICO|43740|1|PZA|30/12/2010 HOSPEDAJE-1|508.47|508.47|IVA|16.00|81.36||

solo me reconoce hasta los impuestos trasladados tengo u precedimeintyo para hacer el c omplemento pero me marca error

<Impuestos><Traslados><Traslado impuesto="IVA" tasa="16.00" importe="81.36"/></Traslados></Impuestos><Complemento><impuestoslocales xmlns:implocal="http://www.sat.gob.mx/implocal" xsi:schemaLocation="http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd http://www.sat.gob.mx/implocal http://www.sat.gob.mx/sitio_internet/cf ... plocal.xsd" version="1.0" totalderetenciones="0" totaldetraslados="10.17"/><Trasladoslocales><Trasladolocales ImpLocTrasladado="ISSH" tasadetraslado="2.00" importetraslado="10.17"/></Trasladoslocales></Complemento></Comprobante>

el procedimiento que hace esto es :

Dim Complemento_node As IXMLDOMElement
Dim XXX_node As IXMLDOMElement
Dim Traslados_node As IXMLDOMElement
Dim Traslado_node As IXMLDOMElement

'Crea el elemento COMPLEMENTO
Set Complemento_node = Parent_node.OwnerDocument.createElement("Complemento")
Parent_node.appendChild Complemento_node
Complemento_node.setAttribute "xmlns:implocal", ("http://www.sat.gob.mx/implocal")
Complemento_node.setAttribute "xsi:schemaLocation", "http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd http://www.sat.gob.mx/implocal http://www.sat.gob.mx/sitio_internet/cf ... plocal.xsd"
'Crea el elemento XXX
Set XXX_node = Parent_node.OwnerDocument.createElement("impuestoslocales")
Complemento_node.appendChild XXX_node
XXX_node.setAttribute "version", "1.0"
XXX_node.setAttribute "totalderetenciones", "0"
XXX_node.setAttribute "totaldetraslados", (Format(txtRET_ISR, "########0.00"))
'Crea el elemento TRASLADOSlocales
Set Traslados_node = Parent_node.OwnerDocument.createElement("Trasladoslocales")
Complemento_node.appendChild Traslados_node
Set Traslado_node = Parent_node.OwnerDocument.createElement("Trasladolocales")
Traslados_node.appendChild Traslado_node
Traslado_node.setAttribute "ImpLocTrasladado", ("ISH")
Traslado_node.setAttribute "tasadetraslado", (Format(2, "########0.00"))
Traslado_node.setAttribute "importetraslado", (Format(txtRET_ISR, "########0.00"))

Espero puedan ayudarme con esto

ya lo pude arreglar gracias a comentarios de este foro

el procedimiento quedo asi

Dim Complemento_node As IXMLDOMElement
Dim XXX_node As IXMLDOMElement
Dim Traslados_node As IXMLDOMElement
Dim Traslado_node As IXMLDOMElement
'Crea el elemento COMPLEMENTO
Set Complemento_node = Parent_node.OwnerDocument.createElement("Complemento")
Parent_node.appendChild Complemento_node
'Crea el elemento XXX
Set XXX_node = Parent_node.OwnerDocument.createElement("implocal:ImpuestosLocales")
Complemento_node.appendChild XXX_node
XXX_node.setAttribute "version", "1.0"
XXX_node.setAttribute "TotaldeRetenciones", "0.00"
XXX_node.setAttribute "TotaldeTraslados", (Format(txt_IsSh, "########0.00"))
'Crea el elemento TRASLADOSlocales
Set Traslados_node = Parent_node.OwnerDocument.createElement("implocal:TrasladosLocales")
XXX_node.appendChild Traslados_node
Traslados_node.setAttribute "ImpLocTrasladado", ("ISSH")
Traslados_node.setAttribute "TasadeTraslado", (Format(2, "########0.00"))
Traslados_node.setAttribute "Importe", (Format(txtRET_IsSh, "########0.00"))




Igual en el valida cfd me marca que no hace referencia al implocal pero en el validador del sat me la acepta.

elisa Michel escribió:ya lo pude arreglar gracias a comentarios de este foro

el procedimiento quedo asi

Dim Complemento_node As IXMLDOMElement
Dim XXX_node As IXMLDOMElement
Dim Traslados_node As IXMLDOMElement
Dim Traslado_node As IXMLDOMElement
'Crea el elemento COMPLEMENTO
Set Complemento_node = Parent_node.OwnerDocument.createElement("Complemento")
Parent_node.appendChild Complemento_node
'Crea el elemento XXX
Set XXX_node = Parent_node.OwnerDocument.createElement("implocal:ImpuestosLocales")
Complemento_node.appendChild XXX_node
XXX_node.setAttribute "version", "1.0"
XXX_node.setAttribute "TotaldeRetenciones", "0.00"
XXX_node.setAttribute "TotaldeTraslados", (Format(txt_IsSh, "########0.00"))
'Crea el elemento TRASLADOSlocales
Set Traslados_node = Parent_node.OwnerDocument.createElement("implocal:TrasladosLocales")
XXX_node.appendChild Traslados_node
Traslados_node.setAttribute "ImpLocTrasladado", ("ISSH")
Traslados_node.setAttribute "TasadeTraslado", (Format(2, "########0.00"))
Traslados_node.setAttribute "Importe", (Format(txtRET_IsSh, "########0.00"))




Igual en el valida cfd me marca que no hace referencia al implocal pero en el validador del sat me la acepta.

Gracias por tomarte el tiempo de publicar tu solucion, estoy seguro que a varios les va a ser muy util