Árvore de páginas

Versões comparadas

Chave

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

...

  1. Realizar un respaldo del repositorio del ambiente (archivo .rpo).
  2. Copiar el script de generación de la Guía de Remisión (FATGRECU.INI) a la ruta del ambiente Protheus, generalmente protheus_data\system, ver la sección 03. CONFIGURACIONES.
  3. Desde el módulo Configurador (SIGACFG) realizar las configuraciones al Diccionario de Datos de acuerdo a lo definido en la sección 04. DICCIONARIO DE DATOS.


Generación y Trasmisión de Guías de RemisiónPrecondiciones generales

  1. En el módulo Facturación (SIGAFAT) desde Actualizaciones Archivos Transportadoras, configurar una Transportadora con el campo Tp.Iden.Tran (A4_TIPOTRA) con su valor correspondiente.
  2. En el módulo Facturación (SIGAFAT) desde Actualizaciones Archivos Clientes, configurar un Cliente con los campos Direcc. Entre (A1_ENDENT), RUC (A1_CGC) y Establ. Dest (A1_CODLOC) con los valores correspondientes.
  3. En la rutina de Vehículos (OMSA060), contar con un Vehículo configurado con el campo Matricula (DA3_PLACA) con su valor correspondiente.
  4. En el módulo Libros Fiscales (SIGAFIS) desde Actualizaciones Archivos | Contr. Formularios, configurar la serie correspondiente a la Guía de Remisión e informar los campos Cód. Pto Emi (FP_PTOEMIS) y Cod. Estable (FP_ESTABL).

Generación y Trasmisión de Guías de Remisión a partir de pedido de venta.

  1. En el módulo Facturación (SIGAFAT) desde Actualizaciones | Pedidos | Pedidos de Venta (MATA410):
    • Incluir un nuevo Pedido con Documento a Generar 2 - Remisión, donde se deben informar los siguientes datos: Cliente de entrega (C5_CLIENT y C5_LOJAENT), Transportadora (C5_TRANSP), Vehíc. Trans (C5_VEICULO), Motivo Tras (C5_MODTRAS), Fec.Ini.Tras (C5_FECDSE), Fch. Entrega (C5_FECENT), Ruta (C5_RUTA), Serie Sust. (C5_SERSUBS) y No. Doc Sust (C5_NFSUBST). 
      • Nota: Los campos Ruta (C5_RUTA), Serie Sust. (C5_SERSUBS) y No. Doc Sust (C5_NFSUBST) no son obligatorios para la generación de la Guía de Remisión, por lo que pueden quedar vacíos.
  2. En el módulo Facturación (SIGAFAT) desde Actualizaciones | Form. de Remisión| Generac. de Remitos (MATA462AN).
    • Seleccionar el Pedido y ejecutar la acción +Gen Remisión.
    • Verificar folio de remisión generada.
  3. 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: Guía Remisión
    • 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 mediante 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:

03. CONFIGURACIONES

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

FATGRECU.INI

...


...

Proceso para generación manual de Guías de Remisión

...

:

Guías de Remisión tipo Normal:

  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):
      • Image Added
  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 se mostrarán en el browser las Remisiones normales(RFN) y Remisiones de Transferencia(RTS)
    • 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 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 se mostrarán en el browser las Remisiones normales(RFN) y Remisiones de Transferencia(RTS)
    • 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 Added

Guías de Remisión tipo Devolución(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: Los campos Ruta (F1_RUTA), Serie Sust. (F1_SERMAN) y No. Doc Sust (F1_DOCMAN), 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 se mostrarán en el browser las Remisiones normales(RFN) y Remisiones de Transferencia(RTS)
    • 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 Added

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):


Painel
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) (IIf(!Empty(_aTotal[008]), _aTotal[001] += '        <contribuyenteEspecial>' + Alltrim(_aTotal[008]) + '</contribuyenteEspecial>' + _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]



FATGDECU.INI

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

Painel
titleBGColorlightblue
borderStyledashed
titleFATGDECU.INI

[XXX POSICIONAMENTOS]
(PRE) If(AllTrim(SF1->F1_ESPECIE) <> "NDI", SA1->(MSSeek(xFilial("SA1") + SF1->F1_FORNECE + SF1->F1_LOJA)) , .T.)
(PRE) (AI0->(MSSeek(xFilial("AI0") + SF1->F1_FORNECE + SF1->F1_LOJA)) , .T.)

[XXX INICIALIZACION]
(PRE) SD1->(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] := {"SD1",""}
(PRE) _aTotal[006] := M486NOMARC(SF1->F1_FILIAL, SF1->F1_DOC, SF1->F1_SERIE, SF1->F1_FORNECE, SF1->F1_LOJA)
(PRE) _aTotal[007] := SuperGetMV("MV_CFDIAMB",.F.,"1")
(PRE) _aTotal[009] := TamSX3("F1_DOC")[1]
(PRE) _aTotal[012] := Iif(!Empty(SF1->F1_DOCMAN) .Or. !Empty(SF1->F1_SERMAN),fgetDocEqu(SF1->F1_FILIAL, SF1->F1_DOCMAN, SF1->F1_SERMAN,"NF"),"")
(PRE) lDocSust     := !Empty(_aTotal[012])
(PREREG) FsQuery(_aTotal[004],1,"D1_DOC='" + SF1->F1_DOC + "' AND D1_SERIE='" + SF1->F1_SERIE + "' AND D1_FORNECE='" + SF1->F1_FORNECE + "' AND D1_LOJA='" + SF1->F1_LOJA + "'","SD1->D1_DOC=SF1->F1_DOC .AND. SD1->D1_SERIE=SF1->F1_SERIE .AND. SD1->D1_FORNECE=SF1->F1_FORNECE .AND. SD1->D1_LOJA=SF1->F1_LOJA","D1_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(SF1->F1_ESTABL) + '</estab>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <ptoEmi>' + Alltrim(SF1->F1_PTOEMIS) + '</ptoEmi>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <secuencial>' + Alltrim(Substr(SF1->F1_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")+SF1->F1_TRANSP)) , .T.)
(PREREG) (DA3->(MSSeek(xFilial("DA3")+SF1->F1_VEICUL1)) , .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) (IIf(!Empty(_aTotal[008]), _aTotal[001] += '        <contribuyenteEspecial>' + Alltrim(_aTotal[008]) + '</contribuyenteEspecial>' + _aTotal[002], ""),.T.)
(PREREG) (_aTotal[001] += '        <obligadoContabilidad>SI</obligadoContabilidad >' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += '        <fechaIniTransporte>' + cValtoChar(SF1->F1_FECDSE) + '</fechaIniTransporte >' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <fechaFinTransporte>' + cValtoChar(SF1->F1_FECANTF) + '</fechaFinTransporte>' + _aTotal[002],.T.)

Painel
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" ?>+= '        <placa>' + Alltrim(DA3->DA3_PLACA) + '</placa>' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += '<guiaRemision id="comprobante" version="1.0.0">' + _aTotal[002]'    </infoGuiaRemision>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    <destinatarios>',.T.) 
(PREREG) ENCODEUTF8(_aTotal[001])

[XXX DESTINATARIO]
(PRE) lDocSust         := !Empty(] += '    <infoTributaria>' + _aTotal[002012],.T.)
(PREREG) (_aTotal[001] +:= '          <ambiente>' + _aTotal[007] + '</ambiente><destinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                <tipoEmision> <identificacionDestinatario>' + "1" Alltrim(SA1->A1_CGC) + '</tipoEmision>identificacionDestinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '              <razonSocial>   <razonSocialDestinatario>' + Alltrim(SM0SA1->M0>A1_NOMECOMNOME) + '</razonSocial>razonSocialDestinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += IIF(_aTotal[018],' ] += '                <nombreComercial> <dirDestinatario>' + Alltrim(SM0SA1->M0>A1_NOMEENDENT) + '</nombreComercial>dirDestinatario>' + _aTotal[002],"") ,.T.)
(PREREG) (_aTotal[001] += '                <ruc> <motivoTraslado>' + Alltrim(SM0SF1->M0>F1_CGCOBS) + '</ruc>motivoTraslado>' + _aTotal[002],.T.) 
(PREREG) (_aTotal[001] += Iif(!Empty(SA1->A1_CODLOC),'                <codDoc>06</codDoc> <codEstabDestino>'+SA1->A1_CODLOC + '</codEstabDestino>' + _aTotal[002],""),.T.) 
(PREREG) (_aTotal[001] += Iif(!Empty(Alltrim(SF1->F1_RUTDOC)),'                <estab> <ruta>' + Alltrim(SF2SF1->F2>F1_ESTABLRUTDOC) + '</estab>ruta>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust,'                <ptoEmi>' + Alltrim(SF2->F2_PTOEMIS) + '</ptoEmi> <codDocSustento>01</codDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust,'                <secuencial> <numDocSustento>' + 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)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) (DA3->(MSSeek(xFilial("DA3")+SF2->F2_VEICULO)_aTotal[001] += Iif(lDocSust .And. !Empty(_aTotal[012][4]) ,'                <numAutDocSustento>' + _aTotal[012][4] + '</numAutDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] :+= Iif(lDocSust,'    <infoGuiaRemision>               <fechaEmisionDocSustento>' + _aTotal[012][5] + '</fechaEmisionDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += '              <dirEstablecimiento>  <detalles>'+ _aTotal[002],.T.)
(PREREG) ENCODEUTF8(_aTotal[001])

[SD1 DETALLE]
(PREREG) (SB1->(MSSeek(xFilial("SB1") + SD1->D1_COD))' + Alltrim(SA1->A1_END) + '</dirEstablecimiento>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] +:= '                  <dirPartida>' + Alltrim(SA1->A1_END) + '</dirPartida>  <detalle>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                        <razonSocialTransportista> <codigoInterno>' + Alltrim(SA4SD1->A4>D1_NOMECOD) + '</razonSocialTransportista>codigoInterno>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                        <tipoIdentificacionTransportista> <codigoAdicional>' + Alltrim(SA4SD1->A4>D1_TIPOTRACOD) + '</tipoIdentificacionTransportista>codigoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                        <rucTransportista> <descripcion>' + Alltrim(SA4SB1->A4>B1_CGCDESC) + '</rucTransportista>descripcion>' + _aTotal[002],.T.)
(PREREG) (IIf(!Empty(_aTotal[008]), ) (_aTotal[001] += '                      <contribuyenteEspecial>   <cantidad>' + Alltrim(TRANSFORM(SD1->D1_QUANT,_aTotal[008003])) + '</contribuyenteEspecial>cantidad>' + _aTotal[002], ""),.T.)
(PREREG) (_aTotal[001] += '                <obligadoContabilidad>SI< </obligadoContabilidad >detalle>'+ _aTotal[002],.T.) 
(PREREG) ENCODEUTF8(_aTotal[001])

[XXX INFOADICIONAL] += '        <fechaIniTransporte>' + cValtoChar(SF2->F2_FECDSE) + '</fechaIniTransporte >' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] +:= '          <fechaFinTransporte>' + cValtoChar(SF2->F2_FECANTF) + '</fechaFinTransporte>   </detalles>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '        <placa>' + Alltrim(DA3->DA3_PLACA) + '  </placa>destinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    </infoGuiaRemision>destinatarios>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '    <destinatarios>' <infoAdicional>' + _aTotal[002],.T.)
(PREREG) ENCODEUTF8 (_aTotal[001] )[XXX DESTINATARIO]
(PRE) lDocSust += '         := !Empty(_aTotal[012])
(PREREG) (_aTotal[001] := '         <destinatario> <campoAdicional nombre="Email">' + Alltrim(SA1->A1_EMAIL) + '</campoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                <identificacionDestinatario> <campoAdicional nombre="TELEFONO">' + Alltrim(SA1->A1_CGCTEL) + '</identificacionDestinatario>campoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                <razonSocialDestinatario>' + Alltrim(SA1->A1_NOME) + '</razonSocialDestinatario> </infoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '                <dirDestinatario>' + Alltrim(SA1->A1_ENDENT) + ' </dirDestinatario>guiaRemision>' + _aTotal[002],.T.)
(PREREG) ENCODEUTF8(_aTotal[001] += '                <motivoTraslado>' + Alltrim(SF2->F2_OBS) + '</motivoTraslado>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += Iif(!Empty(SA1->A1_CODLOC),)
(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'                

Nombre de la Variable

MV_VALGREQ

Tipo

Lógico

Descripción

Parámetro que activa las validaciones de los campos utilizados para generar y trasmitir de guías de remisión

Valor Estándar.T.


Preguntas en el archivo  SX1 - Preguntas
Grupo: MATA486E

Orden

Título

Tipo

Tamaño

Decimal

Objeto

Consulta estándar

ValidaciónGrupo de campos
01¿Serie de Guía Remisión ? C30GetSERNF
094 - Id de Control dos doc.fiscales
02¿Guía Remisión Inicial ?    C13

0

Get

018 - Documento de entrada/salida
03¿Guía Remisión Final ?C130Get
!Empty(MV_PAR03) .And. MV_PAR02<=MV_PAR03 018 - Documento de entrada/salida


Grupo: MATA486

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 y de transferencia

5. Guía de Remisión de Devolución.



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

Consulta: DOCSUS

Alias

Tipo

SecuenciaColumnaDescripciónContenido

DOCSUS

1

01DBDocumento SustentoSF2

DOCSUS

2

0101N. Documento + Serie

DOCSUS

4

0101Serie Docto.F2_SERIE
DOCSUS40102N. Documento       F2_DOC
DOCSUS40103Nº Autoriz          F2_NUMAUT
DOCSUS501

SF2->F2_SERIE
DOCSUS502

SF2->F2_DOC
DOCSUS601

F2_ESPECIE == "NF"


Configurar los siguientes campos en la tabla SA4 - Transportadora:

AtributoContenido
CampoA4_TIPOTRA
TipoC - Caracter
Tamaño2
Decimal0
Formato@!
ContextoReal
PropiedadModificar
ValidaciónVazio() .Or. ExistCpo("SX5","TB"+M->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ñ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 SC5 - Pedido de Venta:

AtributoContenido
CampoC5_MODTRAS
TipoM - Memo
Tamaño300
Decimal0
Formato@!
ContextoReal
PropiedadModificar
Tit. EspañolMotivo Tras
Desc. EspañolMotivo de Traslado 
ObligatorioNo
UsadoSi
Exhibe en BrowseNo
Help

Indica el Motivo de Traslado.

Máximo 300 caracteres.

AtributoContenido
CampoC5_RUTA
TipoM - Memo
Tamaño300
Decimal0
Formato@!
ContextoReal
PropiedadModificar
Tit. EspañolRuta
Desc. EspañolRuta del Vehículo 
ObligatorioNo
UsadoSi
Exhibe en BrowseNo
Help

Indica la ruta del Vehículo. Al informarse este campo, el nodo ruta será generado en el XML de la Guía de Remisión. Máximo 300 caracteres.

AtributoContenido
Campo

C5_SERSUBS

TipoC - Caracter
Tamaño3
Decimal0
Formato@!
ContextoReal
PropiedadModificar
Grupo de Campos094 - Id de Control dos doc.fiscales
Consulta estándarDOCSUS - Documento Sustento
Tit. EspañolSerie Sust.
Desc. EspañolSerie del Doc. Sustento
ObligatorioNo
UsadoSi
Exhibe en BrowseNo
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

C5_NFSUBST

TipoC - Caracter
Tamaño20
Decimal0
Formato@!
ContextoReal
PropiedadModificar
Grupo de campos018 - Documento de entrada/salida
Tit. EspañolNo. Doc Sust
Desc. EspañolNo. de Doc. Sustento
ObligatorioNo
UsadoSi
Exhibe en BrowseNo
Help

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

-codDocSustento

-numDocSustento

-numAutDocSustento

-fechaEmisionDocSustento


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

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
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
CampoF1_DOCMAN
TipoC - Caracter
Tamaño13
Decimal0
Formato@!
ContextoReal
Grupo de campos018 - Documento de entrada/salida
PropiedadModificar
Tit. EspañolNo. Doc Sust
Desc. EspañolNo. de Doc. Sustento
ObligatorioNo
UsadoSi
Exhibe en BrowseNo
Help

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

-codDocSustento

-numDocSustento

-numAutDocSustento

-fechaEmisionDocSustento

AtributoContenido
CampoF1_OBS
TipoM - Memo
Tamaño300
Decimal0
Formato
ContextoReal
PropiedadModificar
Tit. EspañolMotivo Tras
Desc. EspañolMotivo de Traslado 
ObligatorioNo
UsadoNo
Exhibe en BrowseNo
Help

Indica el Motivo de Traslado.

Máximo 300 caracteres.

AtributoContenido
CampoF1_RUTDOC
TipoM - Memo
Tamaño300
Decimal0
Formato
ContextoReal
PropiedadModificar
Tit. EspañolRuta
Desc. EspañolRuta del Vehículo 
ObligatorioNo
UsadoNo
Exhibe en BrowseNo
Help

Indica la ruta del Vehículo.

Máximo 300 caracteres.

AtributoContenido
Campo

F1_FECDSE

TipoD - Fecha
Tamaño8
Decimal0
Formato
ContextoReal
PropiedadModificar
Tit. EspañolFec.Ini.Tras
Desc. EspañolFecha Inicio de traslado  
ObligatorioNo
UsadoNo
Exhibe en BrowseNo
Help

Fecha Inicio del Traslado.

AtributoContenido
Campo

F1_FECANTF

TipoD - Fecha
Tamaño8
Decimal0
Formato

[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]

04. DICCIONARIO DE DATOS

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

...

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)

...

Nombre de la Variable

...

MV_VALGREQ

...

Tipo

...

Lógico

...

Descripción

...

Parámetro que activa las validaciones de los campos utilizados para generar y trasmitir de guías de remisión

...

Preguntas en el archivo  SX1 - Preguntas
Grupo: MATA486E

...

Orden

...

Título

...

Tipo

...

Tamaño

...

Decimal

...

Objeto

...

Consulta estándar

...

0

...

Grupo: MATA486

...

Orden

...

Título

...

Tipo

...

Tamaño

...

Decimal

...

Objeto

...

Item 1

...

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

 

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

Consulta: DOCSUS

...

Alias

...

Tipo

...

DOCSUS

...

1

...

DOCSUS

...

2

...

DOCSUS

...

4

...

Configurar los siguientes campos en la tabla SA4 - Transportadora:

...

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

Configurar los siguientes campos en la tabla SA1 - Clientes:

AtributoContenidoCampoA1_CODLOCTipoC - CaracterTamaño3Decimal0Formato@!

ContextoReal
PropiedadModificar
Tit. Español
Establ
Fch.
Dest
Entrega
Desc. Español
Cód. Establecimiento Dest
Fecha Entrega 
ObligatorioNo
Usado
Si
No
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.

...

Fecha Inicio Entrega/Fin de traslado.

AtributoContenido
Campo
C5

F1_

MODTRAS

VEICUL1

Tipo
M
C -
Memo
Caracter
Tamaño
300
8
Decimal0
Formato@!
ContextoReal
ValidaciónVazio().Or.ExistCPO("DA3")                                                                
PropiedadModificar
Tit. Español
Motivo Tras
Vehic.Transp
Desc. Español
Motivo de Traslado 
Vehículo del Transporte   
ObligatorioNo
UsadoSi
Exhibe en BrowseNo
Help

Indica el Motivo de Traslado.

Máximo 300 caracteres.

Vehiculo utilizado en el Transporte del pedido.


Configurar los siguientes campos en la tabla SF2 - Encabezado de Fact. de Salida:

AtributoContenido
Campo
C5
F2_
RUTA
SERMAN
Tipo
M
C -
Memo
Caracter
Tamaño
300
3
Decimal0
Formato@!
ContextoReal
PropiedadModificar
Grupo de Campos094 - Id de Control dos doc.fiscales
Tit. Español
Ruta
Serie Sust.
Desc. Español
Ruta
Serie del
Vehículo 
Doc. Sustento
ObligatorioNo
Usado
Si
No
Exhibe en BrowseNo
Help

Indica la

ruta

Serie del

Vehículo

Documento Sustento. Al informarse este campo

, el nodo ruta

será generado en automático los nodos en el XML

de la Guía de Remisión. Máximo 300 caracteres.

:

-codDocSustento

-numDocSustento

-numAutDocSustento

-fechaEmisionDocSustento

AtributoContenido
Campo
C5
F2_
SERSUBS
NFAGREG
TipoC - Caracter
Tamaño
3
13
Decimal0
Formato@!
ContextoReal
PropiedadModificar
Grupo de
Campos094 - Id de Control dos doc.fiscales
campos018 - Documento de entrada/salida
PropiedadModificar
Consulta estándarDOCSUS - Documento Sustento
Tit. Español
Serie
No. Doc Sust
.
Desc. Español
Serie del
No. de Doc. Sustento
ObligatorioNo
UsadoSi
Exhibe en BrowseNo
Help

Indica la

Serie

Número del Documento Sustento. Al informarse este campo será generado en automático los nodos en el

XML:

-codDocSustento

-numDocSustento

-numAutDocSustento

-fechaEmisionDocSustento

XML:

-codDocSustento

-numDocSustento

-numAutDocSustento

-fechaEmisionDocSustento

AtributoContenido
CampoF2_OBS
TipoM - Memo
Tamaño300
Decimal0
Formato
ContextoReal
PropiedadModificar
Tit. EspañolMotivo Tras
Desc. EspañolMotivo de Traslado 
ObligatorioNo
UsadoNo
Exhibe en BrowseNo
Help

Indica el Motivo de Traslado.

Máximo 300 caracteres.

AtributoContenido
Campo
C5
F2_
NFSUBST
RUTDOC
Tipo
C
M -
Caracter
Memo
Tamaño
20
300
Decimal0
Formato
@!

ContextoReal
PropiedadModificar
Grupo de campos018 - Documento de entrada/salida
Tit. Español
No. Doc Sust
Ruta
Desc. Español
No. de Doc. Sustento
Ruta del Vehículo 
ObligatorioNo
Usado
Si
No
Exhibe en BrowseNo
Help

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

-codDocSustento

-numDocSustento

-numAutDocSustento

-fechaEmisionDocSustento

...

Help

Indica la ruta del Vehículo.

Máximo 300 caracteres.

AtributoContenido
Campo

F2_

SERMAN

FECDSE

Tipo
C
D -
Caracter
Fecha
Tamaño
3
8
Decimal0
Formato
@!

ContextoReal
PropiedadModificar
Grupo de Campos094 - Id de Control dos doc.fiscales
Tit. Español
Serie Sust
Fec.Ini.Tras
Desc. Español
Serie del Doc. SustentoObligatorioNoUsadoNoExhibe en BrowseNoHelp

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

-codDocSustento

-numDocSustento

-numAutDocSustento

Fecha Inicio de traslado  
ObligatorioNo
UsadoNo
Exhibe en BrowseNo
Help

Fecha Inicio del Traslado.

-fechaEmisionDocSustento

AtributoContenido
Campo

F2_

NFAGREG

FECANTF

Tipo
C
D -
Caracter
Fecha
Tamaño
13
8
Decimal0
Formato
@!

ContextoReal
Grupo de campos018 - Documento de entrada/salida
PropiedadModificar
Tit. Español
No
Fch.
Doc Sust
Entrega
Desc. Español
No. de Doc. Sustento
Fecha Entrega 
ObligatorioNo
Usado
Si
No
Exhibe en BrowseNo
Help

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

-codDocSustento

-numDocSustento

-numAutDocSustento

Fecha Inicio Entrega/Fin de traslado.

-fechaEmisionDocSustento

AtributoContenido
Campo

F2_

OBS

VEICULO

Tipo
M
C -
Memo
Caracter
Tamaño
300
8
Decimal0
Formato@!
ContextoReal
ValidaciónVazio().Or.ExistCPO("DA3")                                                                
PropiedadModificar
Tit. Español
Motivo Tras
Vehic.Transp
Desc. Español
Motivo de Traslado 
Vehículo del Transporte   
ObligatorioNo
Usado
NoMáximo 300 caracteres
Si
Exhibe en BrowseNo
Help

Indica el Motivo de Traslado.

Vehiculo utilizado en el Transporte del pedido.

AtributoContenido
Campo

F2_

RUTDOC

TRANSP

Tipo
M
C -
Memo
Caracter
Tamaño
300
8
Decimal
Contexto
0
Real
Formato@!
ValidaciónVazio() .Or. ExistCPO("SA4")                                                                
ContextoReal
PropiedadModificar
Tit. Español
Ruta
Transp.
Desc. Español
Ruta del Vehículo ObligatorioNoUsadoNoExhibe en BrowseNoHelp

Indica la ruta del Vehículo.

Máximo 300 caracteres.
Código del Transportador

05. OTRAS DOCUMENTACIONES

...