Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

RutinaNombreFecha
MATA486Documentos Electrónicos.1820/04/2022
MATA462ANGeneración de Remitos.06/04/2022
M486XFUNEQFunciones Genéricas de Facturación Electrónica de Ecuador.1820/04/2022
LOCXFUNAFunciones generales de documentos fiscales.1820/04/2022
MATV410AFunciones Genéricas para Pedidos de Venta.30/03/2022
FATGRECU.INIScript de generación de los archivos XML para Guías de Remisión de Venta.3020/0304/2022
LOCXNFNotas Fiscales18/04/2022
LOCXEQUFunciones Genéricas para Notas Fiscales Ecuador1820/04/2022
LOCXNF2Funciones Genéricas para Documentos Fiscales1820/04/2022
FATGDECU.INIScript de generación de los archivos XML para Guías de Remisión de Devolución.18/04/2022



Informações

Los cambios a Diccionario se realizaron en el pacote: 010341

...

  1. En el módulo Facturación (SIGAFAT) desde Actualizaciones | Form. de Remisión | Generac. de Form de Remisión(MATA462N):
    • Incluir una nueva remisión, donde se deben informar los siguientes datos: Transp.(F2_TRANSP), Vehíc. Trans (F2_VEICULO), Motivo Tras (F2_OBS), Fec.Ini.Tras (F2_FECDSE), Fch. Entrega(F2_FECENT) , Ruta (F2_RUTA), Serie Sust. (F2_SERMAN) y No. Doc Sust (F2_NFAGREG) 
      • Nota: Los campos Ruta (F2_RUTA), Serie Sust. (F2_SERMAN) y No. Doc Sust (F2_NFAGREG), no son obligatorios para la generación de la Guía de Remisión, por lo que pueden quedar vacíos.
      • Para informar los Serie Sust. (F2_SERMAN) y No. Doc Sust (F2_NFAGREG), se debe posicionarse sobre el campo Serie Sust. (F2_SERMAN) y utilizar la consulta estándar, la cual muestra las facturas de venta(tabla SF2):
  2. Acceder a la rutina Documentos Electrónicos (MATA486), ubicada en la ruta: Actualizaciones | Facturación | Documentos Electrónicos.
    • Especificar en los parámetros la Serie y el Tipo de Documento: Rem Norm y Tras .Nota: Al seleccionar la opción Rem Norm y Tras Guía Remisión: Al seleccionar esta opción, se mostrarán en el browser las Remisiones normales(RFN) y , Remisiones de Transferencia(RTS) y Remisiones de Devolución Compras(RCD).
    • Indique los parámetros para el filtrado de los documentos a transmitir.
      1. Serie: Serie de las guías de remisión a transmitir.
      2. Guía de remisión inicial: Número de documento inicial a transmitir.
      3. Guía de remisión final: Número de documento inicial a transmitir.
    • Una vez finalizado el proceso de transmisión se visualiza una ventana con el log del proceso, presionar  para verificar el resultado de la transmisión.
    • Una vez enviado el documento, se procede a consultar la respuesta por parte del SRI mediante el proveedor tecnológico Stupendo desde la opción Monitor. (tiempo aproximado entre envío y consulta del estatus del documento 1 minuto).
    • Indique los parámetros para el filtrado de los documentos que serán visualizados en el monitor.
      1. Serie: Serie de las guías de remisión a consultar.
      2. Guía de remisión inicial: Número de documento inicial.
      3. Guía de remisión final: Número de documento inicial.
    • Se valida que el documento sea muestre como Autorizado:

Image RemovedImage Added 


Guías de Remisión tipo Transferencia(Especie RTS)

  1. En el módulo Facturación (SIGAFAT) desde Actualizaciones | Movimientos |Fiscales | Transferencia entre sucursales (MATA462TN).:
    • Incluir una nueva remisión, donde se deben informar los siguientes datos: Transp.(F2_TRANSP), Vehíc. Trans (F2_VEICULO), Motivo Tras (F2_OBS), Fec.Ini.Tras (F2_FECDSE), Fch. Entrega(F2_FECENT) , Ruta (F2_RUTA), Serie Sust. (F2_SERMAN) y No. Doc Sust (F2_NFAGREG) 
      • Nota: Los campos Ruta (F2_RUTA), Serie Sust. (F2_SERMAN) y No. Doc Sust (F2_NFAGREG), no son obligatorios para la generación de la Guía de Remisión, por lo que pueden quedar vacíos.
  2. Acceder a la rutina Documentos Electrónicos (MATA486), ubicada en la ruta: Actualizaciones | Facturación | Documentos Electrónicos.
    • Especificar en los parámetros la Serie y el Tipo de Documento: Rem Norm y Tras .Nota: Al seleccionar la opción Rem Norm y Tras Guía Remisión: Al seleccionar esta opción, se mostrarán en el browser las Remisiones normales(RFN) y , Remisiones de Transferencia(RTS) y Remisiones de Devolución Compras(RCD).
    • Indique los parámetros para el filtrado de los documentos a transmitir.
      1. Serie: Serie de las guías de remisión a transmitir.
      2. Guía de remisión inicial: Número de documento inicial a transmitir.
      3. Guía de remisión final: Número de documento inicial a transmitir.
    • Una vez finalizado el proceso de transmisión se visualiza una ventana con el log del proceso, presionar  para verificar el resultado de la transmisión.
    • Una vez enviado el documento, se procede a consultar la respuesta por parte del SRI mediante el proveedor tecnológico Stupendo desde la opción Monitor. (tiempo aproximado entre envío y consulta del estatus del documento 1 minuto).
    • Indique los parámetros para el filtrado de los documentos que serán visualizados en el monitor.
      1. Serie: Serie de las guías de remisión a consultar.
      2. Guía de remisión inicial: Número de documento inicial.
      3. Guía de remisión final: Número de documento inicial.
    • Se valida que el documento sea muestre como Autorizado.

Image RemovedImage Added

Guías de Remisión tipo Devolución Compras(Especie

...

RCD)

  1. En el módulo Facturación (SIGAFAT) desde Actualizaciones | Form. De Remisión | Devoluciones de Form. De Remisión(MATA462DN):
    • Incluir un nuevo remito informando la pregunta ¿Formulario propio? igual a “Si”, despues una nueva remisión, donde se deben informar los siguientes datos: Transp.(F1F2_TRANSP), Vehíc. Trans (F1F2_VEICUL1VEICULO), Motivo Tras (F1F2_OBS), Fec.Ini.Tras (F1F2_FECDSE), Fch. Entrega (F1F2_FECENT) , Ruta (F1F2_RUTA), Serie Sust. (F1F2_SERMAN) y No. Doc Sust (F1F2_DOCMANNFAGREG): 
      • Nota:  Los campos  Ruta  (F1F2_RUTA),  Serie Sust.  (F1F2_SERMAN) y  No. Doc Sust  (F1F2_DOCMANNFAGREG), no son obligatorios para la generación de la   Guía de Remisión, por lo que pueden quedar vacíos.
  2. Acceder a la rutina Documentos Electrónicos (MATA486), ubicada en la ruta: Actualizaciones | Facturación | Documentos Electrónicos.
    • Especificar en los parámetros la Serie y el Tipo de Documento: Rem Norm y Tras .Nota: Al seleccionar la opción Rem Norm y Tras Guía Remisión: Al seleccionar esta opción, se mostrarán en el browser las Remisiones normales(RFN) y , Remisiones de Transferencia(RTS) y Remisiones de Devolución Compras(RCD).
    • Indique los parámetros para el filtrado de los documentos a transmitir.
      1. Serie: Serie de las guías de remisión a transmitir.
      2. Guía de remisión inicial: Número de documento inicial a transmitir.
      3. Guía de remisión final: Número de documento inicial a transmitir.
    • Una vez finalizado el proceso de transmisión se visualiza una ventana con el log del proceso, presionar  para verificar el resultado de la transmisión.
    • Una vez enviado el documento, se procede a consultar la respuesta por parte del SRI mediante el proveedor tecnológico Stupendo desde la opción Monitor. (tiempo aproximado entre envío y consulta del estatus del documento 1 minuto).
    • Indique los parámetros para el filtrado de los documentos que serán visualizados en el monitor.
      1. Serie: Serie de las guías de remisión a consultar.
      2. Guía de remisión inicial: Número de documento inicial.
      3. Guía de remisión final: Número de documento inicial.
    • Se valida que el documento sea muestre como Autorizado:

Image Removed

03. CONFIGURACIONES

  • Configurar parámetro MV_CFDFTGR con la ubicación del archivo FATGRECU.ini.
  • Configurar parámetro MV_CFDFTGD con la ubicación del archivo FATGDECU.ini.

FATGRECU.INI

A continuación se muestra el Script de generación de los archivos XML para Guías de Remisión de Venta (FATGRECU.INI):

...

titleBGColorlightblue
borderStyledashed
titleFATGRECU.INI

[XXX POSICIONAMENTOS]
(PRE) If(AllTrim(SF2->F2_ESPECIE)<>"NDI",SA1->(MSSeek(xFilial("SA1")+SF2->F2_CLIENTE+SF2->F2_LOJA)) , .T.)
(PRE) (AI0->(MSSeek(xFilial("AI0")+SF2->F2_CLIENTE+SF2->F2_LOJA)) , .T.)

[XXX INICIALIZACION]
(PRE) SD2->(DbSetOrder(1))
(PRE) SB1->(DbSetOrder(1))
(PRE) SYA->(DbSetOrder(1))
(PRE) SC6->(DbSetOrder(1))
(PRE) SE4->(DbSetOrder(1)) 
(PRE) CTO->(DbSetOrder(1)) 
(PRE) SAH->(DbSetOrder(1))
(PRE) SA1->(DbSetOrder(1))
(PRE) DA3->(DbSetOrder(1))
(PRE) SA4->(DbSetOrder(1))

(PRE) _aTotal[002] := chr(13) + chr(10)
(PRE) _aTotal[003] := "99999999999999.99"
(PRE) _aTotal[004] := {"SD2",""}
(PRE) _aTotal[006] := M486NOMARC(SF2->F2_FILIAL, SF2->F2_DOC, SF2->F2_SERIE, SF2->F2_CLIENTE, SF2->F2_LOJA)
(PRE) _aTotal[007] := SuperGetMV("MV_CFDIAMB",.F.,"1")
(PRE) _aTotal[009] := TamSX3("F2_DOC")[1]
(PRE) _aTotal[012] := Iif(!Empty(SF2->F2_DOCMAN) .Or. !Empty(SF2->F2_SERMAN),fgetDocEqu(SF2->F2_FILIAL, SF2->F2_DOCMAN, SF2->F2_SERMAN,"NF"),"")
(PRE) lDocSust     := !Empty(_aTotal[012])
(PREREG) FsQuery(_aTotal[004],1,"D2_DOC='" + SF2->F2_DOC + "' AND D2_SERIE='" + SF2->F2_SERIE + "' AND D2_CLIENTE='" + SF2->F2_CLIENTE + "' AND D2_LOJA='" + SF2->F2_LOJA + "'","SD2->D2_DOC=SF2->F2_DOC .AND. SD2->D2_SERIE=SF2->F2_SERIE .AND. SD2->D2_CLIENTE=SF2->F2_CLIENTE .AND. SD2->D2_LOJA=SF2->F2_LOJA","D2_ITEM") .And. .T.

[XXX EMISOR]
(PREREG) (_aTotal[001] := '<?xml version="1.0" encoding="UTF-8" ?>' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += '<guiaRemision id="comprobante" version="1.0.0">' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += '    <infoTributaria>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <ambiente>' + _aTotal[007] + '</ambiente>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <tipoEmision>' + "1" + '</tipoEmision>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <razonSocial>' + Alltrim(SM0->M0_NOMECOM) + '</razonSocial>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += IIF(_aTotal[018],'        <nombreComercial>' + Alltrim(SM0->M0_NOME) + '</nombreComercial>'+ _aTotal[002],"") ,.T.)
(PREREG) (_aTotal[001] += '        <ruc>' + Alltrim(SM0->M0_CGC) + '</ruc>' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += '        <codDoc>06</codDoc>' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += '        <estab>' + Alltrim(SF2->F2_ESTABL) + '</estab>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <ptoEmi>' + Alltrim(SF2->F2_PTOEMIS) + '</ptoEmi>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <secuencial>' + Alltrim(Substr(SF2->F2_DOC,(_aTotal[009]-8),9)) + '</secuencial>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <dirMatriz>' + Alltrim(SM0->M0_ENDENT) + " " + Alltrim(SM0->M0_COMPENT) + '</dirMatriz>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    </infoTributaria>',.T.)
(PREREG) ENCODEUTF8(_aTotal[001])

[XXX RECEPTOR]
(PREREG) (SA4->(MSSeek(xFilial("SA4")+SF2->F2_TRANSP)) , .T.)
(PREREG) (DA3->(MSSeek(xFilial("DA3")+SF2->F2_VEICULO)) , .T.)
(PREREG) (_aTotal[001] := '    <infoGuiaRemision>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <dirEstablecimiento>' + Alltrim(SA1->A1_END) + '</dirEstablecimiento>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <dirPartida>' + Alltrim(SA1->A1_END) + '</dirPartida>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <razonSocialTransportista>' + Alltrim(SA4->A4_NOME) + '</razonSocialTransportista>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <tipoIdentificacionTransportista>' + Alltrim(SA4->A4_TIPOTRA) + '</tipoIdentificacionTransportista>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <rucTransportista>' + Alltrim(SA4->A4_CGC) + '</rucTransportista>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <obligadoContabilidad>SI</obligadoContabilidad >' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += '        <fechaIniTransporte>' + cValtoChar(SF2->F2_FECDSE) + '</fechaIniTransporte >' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <fechaFinTransporte>' + cValtoChar(SF2->F2_FECANTF) + '</fechaFinTransporte>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <placa>' + Alltrim(DA3->DA3_PLACA) + '</placa>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    </infoGuiaRemision>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    <destinatarios>',.T.)
(PREREG) ENCODEUTF8(_aTotal[001])

[XXX DESTINATARIO]
(PRE) lDocSust         := !Empty(_aTotal[012])
(PREREG) (_aTotal[001] := '         <destinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                <identificacionDestinatario>' + Alltrim(SA1->A1_CGC) + '</identificacionDestinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                <razonSocialDestinatario>' + Alltrim(SA1->A1_NOME) + '</razonSocialDestinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                <dirDestinatario>' + Alltrim(SA1->A1_ENDENT) + '</dirDestinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                <motivoTraslado>' + Alltrim(SF2->F2_OBS) + '</motivoTraslado>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += Iif(!Empty(SA1->A1_CODLOC),'                <codEstabDestino>'+SA1->A1_CODLOC + '</codEstabDestino>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(!Empty(Alltrim(SF2->F2_RUTDOC)),'                <ruta>' + Alltrim(SF2->F2_RUTDOC) + '</ruta>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust,'                <codDocSustento>01</codDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust,'                <numDocSustento>' + Alltrim(_aTotal[012][3])+"-"+ Alltrim(_aTotal[012][2])+"-" + IIf(Len(Alltrim(_aTotal[012][1])) > 9, Alltrim(Substr(_aTotal[012][1],(_aTotal[009]-8),9)), Alltrim(_aTotal[012][1])) + '</numDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust .And. !Empty(_aTotal[012][4]) ,'                <numAutDocSustento>' + _aTotal[012][4] + '</numAutDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust,'                <fechaEmisionDocSustento>' + _aTotal[012][5] + '</fechaEmisionDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += '               <detalles>'+ _aTotal[002],.T.)
(PREREG) ENCODEUTF8(_aTotal[001])

[SD2 DETALLE]
(PREREG) (SB1->(MSSeek(xFilial("SB1") + SD2->D2_COD)),.T.)
(PREREG) (_aTotal[001] := '                   <detalle>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                        <codigoInterno>' + Alltrim(SD2->D2_COD) + '</codigoInterno>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                        <codigoAdicional>' + Alltrim(SD2->D2_COD) + '</codigoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                        <descripcion>' + Alltrim(SB1->B1_DESC) + '</descripcion>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                        <cantidad>' + Alltrim(TRANSFORM(SD2->D2_QUANT,_aTotal[003])) + '</cantidad>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                </detalle>'+ _aTotal[002],.T.)
(PREREG) ENCODEUTF8(_aTotal[001])

[XXX INFOADICIONAL]
(PREREG) (_aTotal[001] := '            </detalles>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '         </destinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    </destinatarios>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    <infoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <campoAdicional nombre="Email">' + Alltrim(SA1->A1_EMAIL) + '</campoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <campoAdicional nombre="TELEFONO">' + Alltrim(SA1->A1_TEL) + '</campoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    </infoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </guiaRemision>' + _aTotal[002],.T.)
(PREREG) ENCODEUTF8(_aTotal[001])
(POS) FsQuery(_aTotal[004],2)

[XXX FACTURA]
(PRE) _aTotal[094] := _aTotal[006] + ".XML"

(ARQ) _aTotal[094]

Image Added


Proceso para Guías de Remisión tipo Devolución Ventas(Especie RFD):

  1. En el módulo Facturación (SIGAFAT) desde Actualizaciones | Form. De Remisión | Devoluciones de Form. De Remisión(MATA462DN):
    • Incluir un nuevo remito informando la pregunta ¿Formulario propio? igual a “Si”, despues se deben informar los siguientes datos: Transp.(F1_TRANSP), Vehíc. Trans (F1_VEICUL1), Motivo Tras (F1_OBS), Fec.Ini.Tras (F1_FECDSE), Fch. Entrega(F1_FECENT) , Ruta (F1_RUTA), Serie Sust. (F1_SERMAN) y No. Doc Sust (F1_DOCMAN): 
      • Nota: Para este tipo de documento no esta habilitado el proceso de trasmisión electrónica.

03. CONFIGURACIONES

  • Configurar parámetro MV_CFDFTGR con la ubicación del archivo FATGRECU.ini.

FATGRECU

...

.INI

A continuación se muestra el Script de generación de los archivos XML para Guías de Remisión de DevoluciónVenta (FATGDECUFATGRECU.INI):


Painel
titleBGColorlightblue
borderStyledashed
titleFATGDECUFATGRECU.INI

[XXX POSICIONAMENTOS]
(PRE) IfIIf(AllTrim(SF1SF2->F1>F2_ESPECIE)<>"NDIRCD",SA1->(MSSeek(xFilial("SA1")+ SF1SF2->F1>F2_FORNECE CLIENTE+ SF1SF2->F1>F2_LOJA)), .T.SA2->(MSSeek(xFilial("SA2")+SF2->F2_CLIENTE+SF2->F2_LOJA)))
(PRE) (AI0->(MSSeek(xFilial("AI0")+ SF1SF2->F1>F2_FORNECE CLIENTE+ SF1SF2->F1>F2_LOJA)) , .T.)

[XXX INICIALIZACION]
(PRE) SD1SD2->(DbSetOrder(1))
(PRE) SB1->(DbSetOrder(1))
(PRE) SYA->(DbSetOrder(1))
(PRE) SC6->(DbSetOrder(1))
(PRE) SE4->(DbSetOrder(1)) 
(PRE) CTO->(DbSetOrder(1)) 
(PRE) SAH->(DbSetOrder(1))
(PRE) SA1->(DbSetOrder(1))
(PRE) DA3->(DbSetOrder(1))
(PRE) SA4->(DbSetOrder(1))

(PRE) _aTotal[002] := chr(13) + chr(10)
(PRE) _aTotal[003] := "99999999999999.99"
(PRE) _aTotal[004] := {"SD1SD2",""}
(PRE) _aTotal[006] := M486NOMARC(SF1SF2->F1>F2_FILIAL, SF1SF2->F1>F2_DOC, SF1SF2->F1>F2_SERIE, SF1SF2->F1>F2_FORNECECLIENTE, SF1SF2->F1>F2_LOJA)
(PRE) _aTotal[007] := SuperGetMV("MV_CFDIAMB",.F.,"1")
(PRE) _aTotal[009] := TamSX3("F1F2_DOC")[1]
(PRE) _aTotal[012] := Iif(!Empty(SF1SF2->F1>F2_DOCMANNFAGREG) .Or. !Empty(SF1SF2->F1>F2_SERMAN),fgetDocEqu(SF1SF2->F1>F2_FILIAL, SF1SF2->F1>F2_DOCMANNFAGREG, SF1SF2->F1>F2_SERMAN,"NF"),"")
(PRE) lDocSust     := !Empty(_aTotal[012])
(PREREG) FsQuery(_aTotal[004],1,"D1D2_DOC='" + SF1SF2->F1>F2_DOC + "' AND D1D2_SERIE='" + SF1SF2->F1>F2_SERIE + "' AND D1D2_FORNECECLIENTE='" + SF1SF2->F1>F2_FORNECE CLIENTE + "' AND D1D2_LOJA='" + SF1SF2->F1>F2_LOJA + "'","SD1SD2->D1>D2_DOC=SF1SF2->F1>F2_DOC .AND. SD1SD2->D1>D2_SERIE=SF1SF2->F1>F2_SERIE .AND. SD1SD2->D1>D2_FORNECECLIENTE=SF1SF2->F1>F2_FORNECE CLIENTE .AND. SD1SD2->D1>D2_LOJA=SF1SF2->F1>F2_LOJA","D1D2_ITEM") .And. .T.

[XXX EMISOR]
(PREREG) (_aTotal[001] := '<?xml version="1.0" encoding="UTF-8" ?>' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += '<guiaRemision id="comprobante" version="1.0.0">' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += '    <infoTributaria>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <ambiente>' + _aTotal[007] + '</ambiente>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <tipoEmision>' + "1" + '</tipoEmision>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <razonSocial>' + Alltrim(SM0->M0_NOMECOM) + '</razonSocial>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += IIF(_aTotal[018],'        <nombreComercial>' + Alltrim(SM0->M0_NOME) + '</nombreComercial>'+ _aTotal[002],"") ,.T.)
(PREREG) (_aTotal[001] += '        <ruc>' + Alltrim(SM0->M0_CGC) + '</ruc>' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += '        <codDoc>06</codDoc>' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += '        <estab>' + Alltrim(SF1SF2->F1>F2_ESTABL) + '</estab>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <ptoEmi>' + Alltrim(SF1SF2->F1>F2_PTOEMIS) + '</ptoEmi>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <secuencial>' + Alltrim(Substr(SF1SF2->F1>F2_DOC,(_aTotal[009]-8),9)) + '</secuencial>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <dirMatriz>' + Alltrim(SM0->M0_ENDENT) + " " + Alltrim(SM0->M0_COMPENT) + '</dirMatriz>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    </infoTributaria>',.T.)
(PREREG) ENCODEUTF8(_aTotal[001])

[XXX RECEPTOR]
(PREREG) (SA4->(MSSeek(xFilial("SA4")+SF1SF2->F1>F2_TRANSP)) , .T.)
(PREREG) (DA3->(MSSeek(xFilial("DA3")+SF1SF2->F1>F2_VEICUL1VEICULO)) , .T.)
(PREREG) (_aTotal[001] := '    <infoGuiaRemision>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <dirEstablecimiento>' + Alltrim(SM0->M0_ENDENT) + " " + Alltrim(SA1SM0->A1>M0_ENDCOMPENT) + '</dirEstablecimiento>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <dirPartida>' + Alltrim(SM0->M0_ENDENT) + " " + Alltrim(SA1SM0->A1>M0_ENDCOMPENT) + '</dirPartida>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <razonSocialTransportista>' + Alltrim(SA4->A4_NOME) + '</razonSocialTransportista>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <tipoIdentificacionTransportista>' + Alltrim(SA4->A4_TIPOTRA) + '</tipoIdentificacionTransportista>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <rucTransportista>' + Alltrim(SA4->A4_CGC) + '</rucTransportista>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <obligadoContabilidad>SI</obligadoContabilidad >' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += '        <fechaIniTransporte>' + cValtoChar(SF1SF2->F1>F2_FECDSE) + '</fechaIniTransporte >' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <fechaFinTransporte>' + cValtoChar(SF1SF2->F1>F2_FECANTF) + '</fechaFinTransporte>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <placa>' + Alltrim(DA3->DA3_PLACA) + '</placa>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    </infoGuiaRemision>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    <destinatarios>',.T.)
(PREREG) ENCODEUTF8(_aTotal[001])

[XXX DESTINATARIO]
(PRE) lDocSust         := !Empty(_aTotal[012])
(PRE) lDevol           := IIF(AllTrim(SF2->F2_ESPECIE)== "RCD",.T.,.F.)
(PREREG) (_aTotal[001] := '         <destinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                <identificacionDestinatario>' + IIF(lDevol,Alltrim(SA2->A2_CGC),Alltrim(SA1->A1_CGC)) + '</identificacionDestinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                <razonSocialDestinatario>' + IIF(lDevol,Alltrim(SA2->A2_NOME),Alltrim(SA1->A1_NOME)) + '</razonSocialDestinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                <dirDestinatario>' + IIF(lDevol,Alltrim(SA2->A2_END),Alltrim(SA1->A1_ENDENT)) + '</dirDestinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                <motivoTraslado>' + Alltrim(SF1SF2->F1>F2_OBS) + '</motivoTraslado>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += Iif(IIF(lDevol,!Empty(SA2->A2_CODZON),!Empty(SA1->A1_CODLOC)),'                <codEstabDestino>'+IIF(lDevol,SA2->A2_CODZON,SA1->A1_CODLOC) + '</codEstabDestino>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(!Empty(Alltrim(SF1SF2->F1>F2_RUTDOC)),'                <ruta>' + Alltrim(SF1SF2->F1>F2_RUTDOC) + '</ruta>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust,'                <codDocSustento>01</codDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust,'                <numDocSustento>' + Alltrim(_aTotal[012][3])+"-"+ Alltrim(_aTotal[012][2])+"-" + IIf(Len(Alltrim(_aTotal[012][1])) > 9, Alltrim(Substr(_aTotal[012][1],(_aTotal[009]-8),9)), Alltrim(_aTotal[012][1])) + '</numDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust .And. !Empty(_aTotal[012][4]) ,'                <numAutDocSustento>' + _aTotal[012][4] + '</numAutDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust,'                <fechaEmisionDocSustento>' + _aTotal[012][5] + '</fechaEmisionDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += '               <detalles>'+ _aTotal[002],.T.)
(PREREG) ENCODEUTF8(_aTotal[001])

[SD1 SD2 DETALLE]
(PREREG) (SB1->(MSSeek(xFilial("SB1") + SD1SD2->D1>D2_COD)),.T.)
(PREREG) (_aTotal[001] := '                   <detalle>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                        <codigoInterno>' + Alltrim(SD1SD2->D1>D2_COD) + '</codigoInterno>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                        <codigoAdicional>' + Alltrim(SD1SD2->D1>D2_COD) + '</codigoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                        <descripcion>' + Alltrim(SB1->B1_DESC) + '</descripcion>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                        <cantidad>' + Alltrim(TRANSFORM(SD1SD2->D1>D2_QUANT,_aTotal[003])) + '</cantidad>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                </detalle>'+ _aTotal[002],.T.)
(PREREG) ENCODEUTF8(_aTotal[001])

[XXX INFOADICIONAL]
(PRE) lDevol           := IIF(AllTrim(SF2->F2_ESPECIE)== "RCD",.T.,.F.)
(PREREG) (_aTotal[001] := '            </detalles>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '         </destinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    </destinatarios>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    <infoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <campoAdicional nombre="Email">' + ">' + IIF(lDevol,Alltrim(SA2->A2_EMAIL),Alltrim(SA1->A1_EMAIL)) + '</campoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <campoAdicional nombre="TELEFONO">' + IIF(lDevol,Alltrim(SA2->A2_TEL),Alltrim(SA1->A1_TEL)) + '</campoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    </infoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </guiaRemision>' + _aTotal[002],.T.)
(PREREG) ENCODEUTF8(_aTotal[001])
(POS) FsQuery(_aTotal[004],2)

[XXX FACTURA]
(PRE) _aTotal[094] := _aTotal[006] + ".XML"

(ARQ) _aTotal[094]




04.  DICCIONARIO DE DATOS


Parámetros en el archivo SX6 – Parámetros:


Nombre de la Variable

MV_

CFDFTGD

Tipo

Caracter

Descripción

Indica el directorio donde se localiza el script que genera las guías de remisión de devolución. (FATGDECU.INI)

Valor EstándarGetSrvProfString('startpath','')+'\cfd\inicfd\fatgdecu.ini'                

Nombre de la Variable

MV_CFDFTGR

Tipo

Caracter

Descripción

Indica el directorio donde se localiza el script que genera las guías de remisión. (FATGRECU.INI)

Valor EstándarGetSrvProfString('startpath','')+'\cfd\inicfd\fatgrecu.ini'                

...

Orden

Título

Tipo

Tamaño

Decimal

Objeto

Item 1

Item 2Item 3Item 4Item 5Help
01¿Tipo de Documento ?C10ComboFacturaNota de Débito Nota de CréditoRem Norm y TrasRemisión Devol.

Informe el tipo de documento con el que

se estará trabajando durante la

transmisión electrónica:

1. Factura

2. Nota de Débito

3. Nota de Crédito

4. Guía Remisión normal, de devolución y de transferencia5. Guía de Remisión de Devolución.



Consulta Estándar en el archivo SXB – Consulta Estándar:

...

TB - Tipo de Documento de Identidad
AtributoContenido
CampoA4_TIPOTRA
TipoC - Caracter
Tamaño2
Decimal0
Formato@!
ContextoReal
PropiedadModificar
ValidaciónVazio() .Or. ExistCpo("SX5","TB"+M->A4_TIPOTRA) Consulta estándar->A4_TIPOTRA) 
Consulta estándarTB - Tipo de Documento de Identidad
Tit. EspañolTp.Iden.Tran
Desc. EspañolTipo Identificación Trans
ObligatorioNo
UsadoSi
Exhibe en BrowseNo
Help

Tipo Identificación Transportista, debe ser informado conforme a la tabla 6 del SRI.


Configurar los siguientes campos en la tabla SA1 - Clientes:

AtributoContenido
CampoA1_CODLOC
TipoC - Caracter
Tamaño3
Decimal0
Formato@!
ContextoReal
PropiedadModificar
Tit. Español
Tp
Establ.
Iden.Tran
Dest
Desc. Español
Tipo Identificación Trans
Cód. Establecimiento Dest
ObligatorioNo
UsadoSi
Exhibe en BrowseNo
Help
Tipo Identificación Transportista, debe ser informado conforme a la tabla 6 del SRI

Código de Establecimiento Destino. Al informarse este campo, el nodo codEstabDestino será generado en el XML de la Guía de Remisión.


Configurar los siguientes campos en la tabla SA1 SA2 - ClientesProveedores:

AtributoContenido
CampoA1A2_CODLOCCODZON
TipoC - Caracter
Tamaño3
Decimal0
Formato@!
ContextoReal
PropiedadModificar
Tit. EspañolEstabl. Dest
Desc. EspañolCód. Establecimiento Dest
ObligatorioNo
UsadoSi
Exhibe en BrowseNo
Help

Código de Establecimiento Destino. Al informarse este campo, el nodo codEstabDestino será generado en el XML de la Guía de Remisión.

...

Configurar los siguientes campos en la tabla SF1 - Encabezado de Fact. de SalidaEntrada:

AtributoContenido
CampoF1_SERMAN
TipoC - Caracter
Tamaño3
Decimal0
Formato@!
ContextoReal
PropiedadModificar
Grupo de Campos094 - Id de Control dos doc.fiscales
Tit. EspañolSerie Sust.
Desc. EspañolSerie del Doc. Sustento
ObligatorioNo
UsadoNo
Exhibe en BrowseNo
Consulta EstándarDOCSUS
Help

Indica la Serie del Documento Sustento. Al informarse este campo será generado en automático los nodos en el XML:

-codDocSustento

-numDocSustento

-numAutDocSustento

-fechaEmisionDocSustento

...

AtributoContenido
Campo

F1_FECANTF

TipoD - Fecha
Tamaño8
Decimal0
Formato
ContextoReal
PropiedadModificar
Tit. EspañolFch. Entrega
Desc. EspañolFecha Entrega 
ObligatorioNo
UsadoNo
Exhibe en BrowseNo
Help

Fecha Inicio Entrega/Fin de traslado.

AtributoContenido
Campo

F1_VEICUL1

TipoC - Caracter
Tamaño8
Decimal0
Formato@!
ContextoReal
Consulta estándarDA3 - Camiones
ValidaciónVazio().Or.ExistCPO("DA3")                                                                
PropiedadModificar
Tit. EspañolVehic.Transp
Desc. EspañolVehículo del Transporte   
ObligatorioNo
UsadoSi
Exhibe en BrowseNo
Help

Vehículo utilizado en el Transporte del pedido. El contenido de este campo es tomado de la tabla Camiones – DA3 y es utilizado obtener la placa del vehículo y generar el nodo <placa> en el XML.

Campo

F1_TRANSP

TipoC - Caracter
Tamaño8
ContextoReal
PropiedadModificar
Tit. EspañolTransp.
Desc. EspañolCódigo del Transportador. 
Consulta estándarSA4 - Transportista
HelpEl contenido de este campo es tomado de la tabla Transportista – SA4 y es utilizado obtener los datos transportistas y generar los nodos <razonSocialTransportista>, <tipoIdentificacionTransportista> y <rucTransportista> en el XML.

...

AtributoContenido
Campo

F2_FECANTF

TipoD - Fecha
Tamaño8
Decimal0
Formato
ContextoReal
PropiedadModificar
Tit. EspañolFch. Entrega
Desc. EspañolFecha Entrega 
ObligatorioNo
UsadoNo
Exhibe en BrowseNo
Help

Fecha Inicio Entrega/Fin de traslado.

AtributoContenido
Campo

F2_VEICULO

TipoC - Caracter
Tamaño8
Decimal0
Formato@!
ContextoReal
Consulta estándarDA3 - Camiones
ValidaciónVazio().Or.ExistCPO("DA3")                                                                
PropiedadModificar
Tit. EspañolVehic.Transp
Desc. EspañolVehículo del Transporte   
ObligatorioNo
UsadoSi
Exhibe en BrowseNo
Help

Vehículo utilizado en el Transporte del pedido. El contenido de este campo es tomado de la tabla Camiones – DA3 y es utilizado obtener la placa del vehículo y generar el nodo <placa> en el XML.

AtributoContenido
Campo

F2_TRANSP

TipoC - Caracter
Tamaño8
ContextoReal
ValidaciónVazio() .Or. ExistCPO("SA4")                                                                
PropiedadModificar
Tit. EspañolTransp.
Desc. EspañolCódigo del Transportador. 
Consulta estándarSA4 - Transportista
HelpEl contenido de este campo es tomado de la tabla Transportista – SA4 y es utilizado obtener los datos transportistas y generar los nodos <razonSocialTransportista>, <tipoIdentificacionTransportista> y <rucTransportista> en el XML.

05. OTRAS DOCUMENTACIONES

...