Histórico da Página

...

Producto

Solucoes_espanhol

Solucao	TOTVS Backoffice

Línea de producto:

Linhas_totvs_espanhol

Linha	Línea Protheus

Segmento:

Segmentos_totvs_espanhol

Segmento	Backoffice

Módulo:

SIGAFAT - Facturación

Función:

Rutina	Nombre	Fecha
MATA486	Documentos Electrónicos.	1921/04/2022
LOCXNF	Notas Fiscales.	18/04/2022
LOCXEQU	Funciones Genéricas para documentos fiscales para Ecuador.	1820/04/2022
M486XFUNEQ	Funciones Genéricas de Facturación Electrónica de Ecuador.	1823/04/2022
LOCXFUNA	Funciones generales de documentos fiscales.	1820/04/2022
LOCXNF2	Funciones Genéricas para Documentos fiscales.	1820/04/2022
FATGRECU.INI	Script de generación de los archivos XML para Guías de Remisión de Venta.	20/04/2022	FATGDECU.INI	Script de generación de los archivos XML para Guías de Remisión de Devolución.	20/04/2022

País:

Ecuador (Pacote ATUSX: 010341)

Ticket:

12744531

Requisito/Story/Issue (informe el requisito vinculado):

DMINA-14415

...

Painel

titleBGColor	lightblue
borderStyle	dashed
title	FATGRECU.INI

[XXX POSICIONAMENTOS]
(PRE) IfIIf(AllTrim(SF2->F2_ESPECIE)<>"NDIRCD",SA1->(MSSeek(xFilial("SA1")+SF2->F2_CLIENTE+SF2->F2_LOJA)), .T.SA2->(MSSeek(xFilial("SA2")+SF2->F2_CLIENTE+SF2->F2_LOJA)))
(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_DOCMANNFAGREG) .Or. !Empty(SF2->F2_SERMAN),fgetDocEqu(SF2->F2_FILIAL, SF2->F2_DOCMANNFAGREG, 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(SM0->M0_ENDENT) + " " + Alltrim(SA1SM0->A1>M0_ENDCOMPENT) + '</dirEstablecimiento>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <dirPartida>' + Alltrim(SA1SM0->A1>M0_ENDENDENT) + " " + Alltrim(SM0->M0_COMPENT) + '</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])
(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(SF2->F2_OBS) + '</motivoTraslado>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += Iif(IIF(lDevol,!Empty(SA1-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(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]
(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]

...

Alias	Tipo	Secuencia	Columna	Descripción	Contenido
DOCSUS	1	01	DB	Documento Sustento	SF2
DOCSUS	2	01	01	N. Documento + Serie
DOCSUS	4	01	01	Serie Docto.	F2_SERIE
DOCSUS	4	01	02	N. Documento	F2_DOC
DOCSUS	4	01	03	Nº Autoriz	F2_NUMAUT
	F2_DOC
DOCSUS	4	01	03	Nº Autoriz	F2_NUMAUT
DOCSUS	5	01			SF2->F2_SERIE
DOCSUS	5	02			SF2->F2_DOC
DOCSUS	6	01			F2_ESPECIE == "NF"

Las siguientes consulta ya están incluidas en el diccionario estándar, es importante validar que existan dentro del sistema:

DA3 - Camiones

Alias	Tipo	Secuencia	Columna	Descripción	Contenido
DA3	1	01	DB	Camiones	DA3
DA3	2	02	01	Vehículo
DA3	2	01	03	Placa
DA3	3	01	01	Incluye Nuevo	01
DA3	4	01	01	Vehículo	DA3_COD
DA3	4	01	02	Modelo	DA3_DESC
DA3	4	01	03	Placa	DA3_PLACA
DA3	4	02	04	Placa	DA3_PLACA
DA3	4	02	05	Vehículo	DA3_COD
DA3	4	02	06	Modelo	DA3_DESC
DA3	5	01			DA3->DA3_COD

SA4 - Transportista

Alias	Tipo	Secuencia	Columna	Descripción	Contenido
SA4	1	01	DB	Transportista	DA3
SA4	2	01	01	Codigo
SA4	2	02	02	Nombre
SA4	2	03	03	RFC
SA4	3	01	01	Registra Nuevo	01
SA4	4	01	01	Codigo	A4_COD
SA4	4	01	02	Nombre	A4_NOME
SA4	4	02	01	Codigo	A4_COD
SA4	4	02	02	Nombre	A4_NOME
SA4	4	03	01	RFC	A4_CGC
SA4	4	03	02	Nombre	A4_NOME
SA4	5	01			SA4->A4_COD	DOCSUS	5	01	SF2->F2_SERIE	DOCSUS	5	02	SF2->F2_DOC	DOCSUS	6	01	F2_ESPECIE == "NF"

Configurar los siguientes campos en la tabla SA4 - Transportadora:

...

Configurar los siguientes campos en la tabla SA2 - Proveedores:

Atributo	Contenido
Campo	A2_CODZON
Tipo	C - Caracter
Tamaño	3
Decimal	0
Formato	@!
Contexto	Real
Propiedad	Modificar
Tit. Español	Establ. Dest
Desc. Español	Cód. Establecimiento Dest
Obligatorio	No
Usado	Si
Exhibe en Browse	No
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:

Atributo	Contenido
Campo	F1_SERMAN
Tipo	C - Caracter
Tamaño	3
Decimal	0
Formato	@!
Contexto	Real
Propiedad	Modificar
Grupo de Campos	094 - Id de Control dos doc.fiscales
Tit. Español	Serie Sust.
Desc. Español	Serie del Doc. Sustento
Obligatorio	No
Usado	No
Exhibe en Browse	No
Consulta Estándar	DOCSUS
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

...

Atributo	Contenido
Campo	F1_FECANTF
Tipo	D - Fecha
Tamaño	8
Decimal	0
Formato
Contexto	Real
Propiedad	Modificar
Tit. Español	Fch. Entrega
Desc. Español	Fecha Entrega
Obligatorio	No
Usado	No
Exhibe en Browse	No
Help	Fecha Inicio Entrega/Fin de traslado.

Atributo	Contenido
Campo	F1_VEICUL1
Tipo	C - Caracter
Tamaño	8
Decimal	0
Formato	@!
Contexto	Real
Consulta estándar	DA3 - Camiones
Validación	Vazio().Or.ExistCPO("DA3")
Propiedad	Modificar
Tit. Español	Vehic.Transp
Desc. Español	Vehículo del Transporte
Obligatorio	No
Usado	Si
Exhibe en Browse	No
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
Tipo	C - Caracter
Tamaño	8
Contexto	Real
Propiedad	Modificar
Tit. Español	Transp.
Desc. Español	Código del Transportador.
Consulta estándar	SA4 - Transportista
Help	El 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.

...

Atributo	Contenido
Campo	F2_FECANTF
Tipo	D - Fecha
Tamaño	8
Decimal	0
Formato
Contexto	Real
Propiedad	Modificar
Tit. Español	Fch. Entrega
Desc. Español	Fecha Entrega
Obligatorio	No
Usado	No
Exhibe en Browse	No
Help	Fecha Inicio Entrega/Fin de traslado.

Atributo	Contenido
Campo	F2_VEICULO
Tipo	C - Caracter
Tamaño	8
Decimal	0
Formato	@!
Contexto	Real
Consulta estándar	DA3 - Camiones
Validación	Vazio().Or.ExistCPO("DA3")
Propiedad	Modificar
Tit. Español	Vehic.Transp
Desc. Español	Vehículo del Transporte
Obligatorio	No
Usado	Si
Exhibe en Browse	No
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.

Atributo	Contenido
Campo	F2_TRANSP
Tipo	C - Caracter
Tamaño	8
Contexto	Real
Consulta estándar	SA4 - Transportista
Validación	Vazio() .Or. ExistCPO("SA4")
Propiedad	Modificar
Tit. Español	Transp.
Desc. Español	Código del Transportador.
Help	El 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.

Card documentos

Informacao	La presente solución aplica para versión 12.1.27 o superior, siempre y cuando se tengan las rutinas actualizadas a la fecha indicada en la sección 01 - Datos Generales.
Titulo	¡IMPORTANTE!

...

Árvore de páginas

Versões comparadas

Versão antiga 21

Nova versão Atual

Chave