IF n_efecto = 1 && Factura / Las Notas de Credito no llevan pedimento
c_pedimentos = ""
c_fechas = ""
c_aduanas = ""
Select fac_peditmp
GO top
LOCATE FOR ((ALLTRIM(partno) == ALLTRIM(oItem.noIdentificacion)) .and. (!empty(fac_peditmp.pedi) .and. !EMPTY(fac_peditmp.f_pedi) .and. EMPTY(fac_peditmp.aduana)))
IF FOUND()
Do WHILE FOUND()
* Si viene el numero del pedimento es obligatorio poner la fecha en el formato del anexo 20
IF MONTH(fac_peditmp.f_pedi) < 10
c_mes_pedi = "0"+ALLTRIM(STR(MONTH(fac_peditmp.f_pedi)))
else
c_mes_pedi = ALLTRIM(STR(MONTH(fac_peditmp.f_pedi)))
endif
IF day(fac_peditmp.f_pedi) < 10
c_dia_pedi = "0"+ALLTRIM(STR(day(fac_peditmp.f_pedi)))
else
c_dia_pedi = ALLTRIM(STR(day(fac_peditmp.f_pedi)))
endif
c_f_pedi = ALLTRIM(c_dia_pedi+"/"+c_mes_pedi+"/"+ALLTRIM(STR(YEAR(fac_peditmp.f_pedi))))
IF EMPTY(c_pedimentos)
c_pedimentos = ALLTRIM(fac_peditmp.pedi)
c_fechas = ALLTRIM(c_f_pedi)
c_aduanas = ALLTRIM(fac_peditmp.aduana)
ELSE
c_pedimentos = c_pedimentos+","+ ALLTRIM(fac_peditmp.pedi)
c_fechas = c_fechas+ ","+ALLTRIM(c_f_pedi)
c_aduanas = c_aduanas+","+ALLTRIM(fac_peditmp.aduana)
ENDIF
Select fac_peditmp
continue
EndDo
.addNode("InformacionAduanera")
WITH .Nodes[1]
* WITH ._InformacionAduanera
.addProp("numero",THIS._fixStr(c_pedimentos))
.addProp("fecha",THIS._fixStr(c_fechas))
.addProp("aduana",THIS._fixStr(c_aduanas),CFD_OPCIONAL)
ENDWITH
ENDIF
ENDIF
Nota: esta rutina la hago para cada articulo, segun el anexo 20 (Entiendo)
Aqui les dejo tambien el XML que estoy generando
|
Alejandro Castrejón Torres
Teléfono:(662) 200-8957 Email: alejandro...@smartfactura.com Sitio: http://www.smartfactura.com |
|
| — This message was sent by Alejandro Castrejón. If you really want to know more about me, you can visit my social services profiles |
|
--
Has recibido este mensaje porque estás suscrito al grupo "vfp-factura-electronica-mexico" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a vfp-factura-electroni...@googlegroups.com.
Para publicar una entrada en este grupo, envía un correo electrónico a vfp-factura-ele...@googlegroups.com.
Visita este grupo en http://groups.google.com/group/vfp-factura-electronica-mexico?hl=es.
Para obtener más opciones, visita https://groups.google.com/groups/opt_out.
Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a vfp-factura-electronica-mexico+unsubscribe@googlegroups.com.
Para publicar una entrada en este grupo, envía un correo electrónico a vfp-factura-electronica-mex...@googlegroups.com.
|
Alejandro Castrejón Torres
Teléfono:(662) 200-8957 Email: alejandro...@smartfactura.com Sitio: http://www.smartfactura.com |
|
| — This message was sent by Alejandro Castrejón. If you really want to know more about me, you can visit my social services profiles |
|
Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a vfp-factura-electroni...@googlegroups.com.
Para publicar una entrada en este grupo, envía un correo electrónico a vfp-factura-ele...@googlegroups.com.
.XML._Comprobante.addNode("InformacionAduanera")
WITH .XML._Comprobante._InformacionAduanera
WITH ._InformacionAduanera
.createNodeLinks = .F.
Select fac_peditmp
GO top
LOCATE FOR ((!empty(fac_peditmp.pedi) .and. !EMPTY(fac_peditmp.f_pedi) .and. !EMPTY(fac_peditmp.aduana)))
j = 1
Do WHILE FOUND()
* Si viene el numero del pedimento es obligatorio poner la fecha y aduana
IF MONTH(fac_peditmp.f_pedi) < 10
c_mes_pedi = "0"+ALLTRIM(STR(MONTH(fac_peditmp.f_pedi)))
else
c_mes_pedi = ALLTRIM(STR(MONTH(fac_peditmp.f_pedi)))
endif
IF day(fac_peditmp.f_pedi) < 10
c_dia_pedi = "0"+ALLTRIM(STR(day(fac_peditmp.f_pedi)))
else
c_dia_pedi = ALLTRIM(STR(day(fac_peditmp.f_pedi)))
endif
c_f_pedi = ALLTRIM(ALLTRIM(STR(YEAR(fac_peditmp.f_pedi)))+"-"+c_mes_pedi+"-"+c_dia_pedi)
j = j + 1
.addNode("InformacionAduanera")
WITH .Nodes[j]
* WITH ._InformacionAduanera
.addProp("numero",THIS._fixStr(fac_peditmp.pedi))
.addProp("fecha",THIS._fixStr(c_f_pedi))
.addProp("aduana",THIS._fixStr(fac_peditmp.aduana),CFD_OPCIONAL)
ENDWITH
Select fac_peditmp
continue
EndDo
Para publicar una entrada en este grupo, envía un correo electrónico a vfp-factura-electronica-mexico@googlegroups.com.
Visita este grupo en http://groups.google.com/group/vfp-factura-electronica-mexico?hl=es.
Para obtener más opciones, visita https://groups.google.com/groups/opt_out.
Asi quedo
j = j + 1
.addNode("InformacionAduanera")
WITH .Nodes[j]
Asi lo tenia
.addNode("InformacionAduanera")
WITH .Nodes[1]
Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a vfp-factura-electroni...@googlegroups.com.
Para publicar una entrada en este grupo, envía un correo electrónico a vfp-factura-ele...@googlegroups.com.
|
Alejandro Castrejón Torres
Teléfono:(662) 200-8957 Email: alejandro...@smartfactura.com Sitio: http://www.smartfactura.com |
|
| — This message was sent by Alejandro Castrejón. If you really want to know more about me, you can visit my social services profiles |
|
| — This message was sent by Alejandro Castrejón. If you really want to know more about me, you can visit my social services profiles |
--
Has recibido este mensaje porque estás suscrito al grupo "vfp-factura-electronica-mexico" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a vfp-factura-electroni...@googlegroups.com.
Para publicar una entrada en este grupo, envía un correo electrónico a vfp-factura-ele...@googlegroups.com.
|
Alejandro Castrejón Torres |
| — | |
This message was sent by Alejandro Castrejón. If you really want to know more about me, you can visit my social services profiles |