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(s)Rutinas	Nombre Técnico	Fecha
M485XFUNPE	Funciones Genéricas Transmisión Electrónica Perú (TSS-Signature)	2228/01/2022
FATSPERTSS.INI	Estructura XML de Documentos Electrónicos de Salida para Perú (TSS-Signature)	2228/01/2022

Rutina(s) involucradasRutinas Involucradas	Nombre Técnico	Fecha (Igual o posterior)
LOCXNF	Notas Fiscales	07/09/2020
LOCXPER	Funciones genéricas para Notas Fiscales de Perú.	07/09/2020
FISA814	Carga de Catálogos	07/09/2020
MATA468N	Generación automática de Facturas de Venta.	08/09/2020

País:

Perú

Ticket:

13222117

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

DMINA-14701

...

Para la transmisión electrónica de documentos a la entidad Superintendencia Nacional de Aduanas y de Administración Tributaria (SUNAT) a través de TSS-Siganture, se solicita que al transmitir Facturas/Boletas de Venta (NF) y Notas de Débito de Cliente (NDC), se active la funcionalidad para el tipo de Operación Sujeta a Detracción.

03. SOLUCIÓN

En la rutina Rutina de Funciones Genéricas Transmisión Electrónica Perú (TSS-Signature) - M485XFUNPE:.

Se realizan ajusten en las funciones que Obtienen datos del encabezado del documento (M485TotEnc) y Obtienen y Obtienen el detalle de los impuestos de las Facturas de Venta, Notas de Débito de Cliente y Notas de Crédito de Cliente (NFAEDetImp), para acumular el valor del cálculo de las Detracciones retornando en la posición 6 valor lógico que indica si el documento tiene cálculo de detracciones (.T. si contiene detracciones en caso contrario .F.) y en la posición 7 el valor de detracciones para ser eliminado en el elemento <Monto> del nodo <Referencia> que es creado cuando en la Condición de Pago utilizada para el documento el campo Tipo Pago (E4_MPAGSAT) se encuentra configurado con valor 2 - Crédito.

En la función que Genera el nodo <Totales> (fGetSubTot) se realiza ajuste para que si el documento tiene cálculo de Detracciones en el nodo Encabezado/Totales:

Se agregue el nodo </MntRet>agrega el atributo <MntRet> con el monto del documento incluyendo los impuestos menos el valor de las detracciones:.

Se agregue agrega un nuevo nodo <TotSubMonto> con con los siguientes nodosatributos:

<Tipo>: "2003"
<TipoTipoMonto>: Valor del campo F2_CODDOC con valores del catálogo 54-Códigos de bienes y servicios sujetos a detracciones
<TasaConcepto>: Valor de la alícuota de las detracciones.
<MontoConcepto>: Valor acumulado de las detracciones del documento.

En la función que Obtiene datos requeridos para las cuotas y el saldo acumulado de todas las cuotas del documento (M485CUOTA) se agrega un nuevo parámetro que recibe el valor de las detracciones a descontar en el elemento <Monto> para cada nodo <Referencia>

En el archivo Archivo de la Estructura XML de Documentos Electrónicos de Salida para Perú (TSS-Signature):.

Se realizaron los siguientes ajustes:

...

Se almacena el valor del parámetro MV_TKN_EMP el cual se asigna a la generación del nodo atributo <FormaPago> en el nodo /Encabezado/IdDoc si el documento tiene cálculo de Detracciones.

Se agrega generación de nodo atributo <MedioPago> el cual es llenado con el valor informado en el campo Medio Pago (F2_MODCONS) si el documento tiene cálculo de Detracciones.

Se mueve la generación del nodo atributo <MntRet> para que se genere después del nodo atributo <MntDcto> y que se le descuente el valor del cálculo de Detracciones.

Para la funcionalidad estándar se movió el uso de la función ENCODEUTF8() ya que al transmitir un documento con más de un ítem, el XML se generaba erróneamente y causaba rechazo por esquema.

Aviso

title	IMPORTANTE

Para la visualización de los campos Bien/Ser DetDet (F2_CODDOC) y Medio Pago (F2_MODCONS), es necesario tener actualizadas las rutinas LOCXNF y LOCXPER con fecha mayor o igual a las mencionadas en la sección 01. DATOS GENERALES.
En caso de que se tengan personalizaciones en la sección 01. DATOS GENERALESel archivo FATSPERTSS.INI en la sección 04. INFORMACIÓN ADICIONAL se muestran los ajustes necesario para poder realizar merge al archivo.
Para la carga de los catálogos S054 y S059 es necesario tener actualizada la rutina FISA814 con fecha mayor o igual a la mencionada en la sección 01. DATOS GENERALES, colocar . Colocar los archivos CatalogoNo54.csv y CatalogoNo59.csv en la ruta local que está configurada en el parámetro MV_PATH814 para que al entrar a las rutinas Definición de Catálogos (FISA812) o Mantenimiento de Catálogos (FISA813) se realice la carga en automático.
Los catálogos S051, S054 y S059 deben contener los siguiente datos:

Catálogo 51 - Código de tipo de operación.

Catálogo 54 - Códigos de bienes y servicios sujetos a detracciones.

Catálogo 59 - Medios de Pago.

Totvs custom tabs box

tabs	Pre-condiciones, PasosProcedimiento, Paso 03, Paso 04
ids	paso1,paso2

Totvs custom tabs box items

default	yes
referencia	paso1

Realizar un respaldo del repositorio del ambiente (archivo .rpo)
Aplicar el parche generado para la issue DMINA-14701.
Realizar un respaldo del archivo FATSPERTSS.INI que se encuentra en la ruta configurada en el parámetro MV_CFDFTS.
Realizar las configuraciones a diccionario que se mencionan en la sección 04. INFORMACIÓN ADICIONAL.
Validar que las rutinas actualizadas en el repositorio, coincidan con las descritas en la sección función del punto 01. DATOS GENERALES.
Configurar el parámetro MV_TKN_EMP con la Cuenta Corriente para detracciones del Banco Nacional (Ejemplo: 0004-3342343243).
En el módulo Facturación (SIGAFAT), ir al menú Actualizaciones | Archivos | Mantenimiento de Catálogos (FISA813).
- Validar que se tengas tengan cargados los catálogos S051, S054 y S059 de acuerdo a los definidos por la SUNAT.
- Validar que que en catálogo S051 existan los códigos 1001, 1002, 1002 o 1003 de tipo de Operación Sujeta a Detracción.
En el módulo Facturación (SIGAFAT), ir al menú Actualizaciones | Archivos | Impuestos Variable.
- Configurar impuesto de IGV indicando en el campo Clase Imp. (FB_CLASSE) el valor I-Impuesto.
- Configurar impuesto de Detracción indicando en el campo Clase Imp. (FB_CLASSE) el valor D-Detracción.
En el módulo Facturación (SIGAFAT), ir al menú Actualizaciones | Archivos | Tipos de Entrada y Salida.
- Configurar un Tipo de Salida que contenga el cálculo de los impuestos de IGV y Detracción configurados previamente.
En el módulo Facturación (SIGAFAT), ir al menú Actualización | Archivos | Facturaciones (MATA467N).
- Incluir una nueva Factura de Salida (NF).
- Informar en el encabezado el campo Tipo NF (F2_TIPONF) con el código 1001, 1002, 1002 o 1003 de tipo de Operación Sujeta a Detracción.
- Informar en el encabezado el campo Bien/Ser Det (F2_CODDOC) con un valor del Catálogo No. 54 de la SUNAT de Códigos de bienes y servicios sujetos a detracciones.
- Informar en el encabezado el campo Medio Pago (F2_MODCONS) con un valor del Catálogo No. 59 de la SUNAT de Medios de Pago.
- En el detalle informar la Cantidad, Valor Unit, Valor Total y el Tipo de Salida que contenga el cálculo del impuesto de Detracción.

Totvs custom tabs box items

default	no
referencia	paso2

En el módulo Facturación (SIGAFAT), ir al menú Actualizaciones | Facturación | Transmisión Electrónica (MATA485).
Informar los parámetros:
- ¿Tipo de Documento?: Factura
- ¿Serie?: Serie de la Factura de Venta creada previamente.
Ejecutar la acción Transmitir.
En la pantalla "Asistente de Transmisión Electrónica"
- Presionar el botón Param.
- En el parámetro ¿Serie de la Factura? informar la Serie de la Factura de Venta creada previamente.
- En el parámetro ¿Factura Inicial? informar el Folio de la Factura de Venta creada previamente.
- En el parámetro ¿Factura Final? informar el Folio de la Factura de Venta creada previamente.
- Presionar Ok, para confirmar los parámetros.
- Presionar Ok, para confirmar el inicio del proceso de la transmisión.
Validar que el proceso de transmisión haya sido exitoso.
En el XML de la Factura de Salida validar:
- En el nodo /Encabezado/IdDoc se visualicen los elementos <FormaPago> (con el valor del parámetro MV_TKN_EMP) y <MedioPago> (con el valor que fue informado en el campo F2_MODCONS)

Image Modified

- En el nodo /Encabezado/Totales se visualiza el monto del documento el monto de las Detracciones, así como se genera el nodo <TotSubMonto> para el Tipo 2003 (Detracciones) donde se muestran los elementos <CodTipoMonto> (con el valor que fue informado en el campo F2_CODDOC), <TasaConcepto> (Con el valor de la tasa de las Detracciones) y <MontoConcepto> (Con el valor total de las Detracciones.)

Image Modified

- Si en la Condición de Pago el campo Tipo Pago (E4_MPAGSAT) se encuentra configurado con valor 2 - Crédito y existe cálculo de Detracciones en los nodos <Referencia> de las cuotas no se toma en cuenta en el elemento <Monto> el valor de las Detracciones.
- Image Modified

04. INFORMACIÓN ADICIONAL

...

Aviso

title	IMPORTANTE

Los ajustes al Diccionario de Datos fueron realizados en el pacote: 007891- DMINA-9655 - FE CON DETRACCIONES PER 12.1.27. (Uso interno )

Mediante el Configurador (SIGACFG), realizar las siguientes configuraciones al Diccionarios de Datos, en modo exclusivo y en conjunto con el Administrador de Sistemasdel Sistema:

Crea alCrear la consulta estándar PER059 para para el catálogo Códigos de bienes y servicios sujetos a detracciones - (SXB - Consultas Estándar).

...

Campo	C5_MODANP
Tipo	C
Tamaño	3
Decimal	0
Formato	@!
Título	Medio Pago
Descripción	Medio de Pago
Nivel	1
Utilizado	Sí
Obligatorio	No
Browse	No
Consulta	PER059
Val. Sistema	Vazio() .or. ValidF3I("S059", M->C5_MODANP,1,3)
Help	Código del medio de pago, de acuerdo al catálogo 59 de la SUNAT.

ARCHIVO FATSPERTSS.INI:

Se enmarcan en color azul los ajustes que deben realizarse en el archivo estándar para activar la funcionalidad de Detracciones.

Informações

[XXX INICIALIZACION]
(PRE) SD2->(DbSetOrder(1))
(PRE) SB1->(DbSetOrder(1))
(PRE) SYA->(DbSetOrder(1))
(PRE) SAH->(DbSetOrder(1))

(PRE) _aTotal[002] := chr(13) + chr(10)
(PRE) _aTotal[003] := "99999999999999.99"
(PRE) _aTotal[004] := {"SD2",""}
(PRE) _aTotal[005] := IIf(Alltrim(SF2->F2_ESPECIE)=="NF","factura","notaDebito")
(PRE) _aTotal[006] := Alltrim(SF2->F2_SERIE) + Alltrim(SF2->F2_DOC) + Alltrim(SF2->F2_ESPECIE)
(PRE) _aTotal[007] := SuperGetMV("MV_CFDIAMB",.F.,"2")
(PRE) _aTotal[008] := M485TotEnc(1, SF2->F2_SERIE, SF2->F2_CLIENTE, SF2->F2_LOJA, SF2->F2_DOC, SF2->F2_ESPECIE, _aTotal[007],SF2->F2_SERIE2)
(PRE) _aTotal[009] := TamSX3("F2_DOC")[1]
(PRE) _aTotal[010] := ""
(PRE) _aTotal[011] := SUBSTR(DTOS(SF2->F2_EMISSAO),0,4) + "-" + SUBSTR(DTOS(SF2->F2_EMISSAO),5,2) + "-" + SUBSTR(DTOS(SF2->F2_EMISSAO),7,2) + "T" + SF2->F2_HORA+"Z"
(PRE) _aTotal[012] := ""
(PRE) _aTotal[013] := alltrim(SA1->A1_EST) == "EX"
(PRE) _aTotal[014] := alltrim(fGetSX5("XQ" + STR(SF2->F2_MOEDA,2)))
(PRE) _aTotal[015] := ""
(PRE) _aTotal[016] := ""
(PRE) _aTotal[017] := IIf(Alltrim(SF2->F2_ESPECIE)=="NF",IIf(Substr(SF2->F2_SERIE2,1,1)=="F","01","03"),"08")
(PRE) _aTotal[018] := M485TPPAG(xFilial("SE4"), SF2->F2_COND)
(PRE) _aTotal[019] := M485CUOTA(SF2->F2_FILIAL,SF2->F2_CLIENTE,SF2->F2_LOJA,SF2->F2_SERIE,SF2->F2_DOC,SF2->F2_ESPECIE,SF2->F2_HORA,_aTotal[008][7])
(PRE) _aTotal[020] := Alltrim(SuperGetMV("MV_TKN_EMP",.F.,""))
(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 ENCABEZADO]
(PRE) SA1->(MSSeek(xFilial("SA1") + SF2->F2_CLIENTE + SF2->F2_LOJA))
(PRE) SYA->(MsSeek(xFilial("SYA") + SA1->A1_PAIS))
(PREREG) (_aTotal[001] := '<?xml version="1.0" encoding="iso-8859-1"?>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '<DTE version="1.1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="DTE_v1.0.xsd">' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '<Documento ID="'+ ALLTRIM(SF2->F2_SERIE2) + ALLTRIM(SF2->F2_DOC) +'">' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '<Encabezado>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <IdDoc>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Ambiente>' + _aTotal[007] + '</Ambiente>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <TipoEmision>' + IIf(Alltrim(SF2->F2_ESPECIE)=="NF",SF2->F2_TIPONF,"NORMAL") + '</TipoEmision>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <ContenidoTC></ContenidoTC>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Tipo>' + _aTotal[017] + '</Tipo>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Serie>' + Alltrim(SF2->F2_SERIE2) + '</Serie>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Numero>' + ALLTRIM(substr(SF2->F2_DOC,(_aTotal[009]-7),8)) + '</Numero>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Estado>ORIGINAL</Estado>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NumeroInterno>' + Alltrim(SF2->F2_DOC) + '</NumeroInterno>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <FechaEmis>' + _aTotal[011] + '</FechaEmis>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += IIf(Len(_aTotal[008])>= 6 .And. _aTotal[008][6],' <FormaPago>' + Alltrim(_aTotal[020]) + '</FormaPago>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += IIf(SF2->(ColumnPos("F2_MODCONS")) > 0 .And. _aTotal[008][6],' <MedioPago>' + Alltrim(SF2->F2_MODCONS) + '</MedioPago>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += IIF(Alltrim(SF2->F2_ESPECIE)=="NF" .And. Substr(SF2->F2_SERIE2,1,1)=="F",' <CondPago>' + IIf(_aTotal[018] == "1","Contado","Credito") + '</CondPago>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += ' </IdDoc>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Emisor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <TipoContribuyente></TipoContribuyente>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <RegimenContable></RegimenContable>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <IDEmisor>' + Alltrim(SM0->M0_CGC) + '</IDEmisor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NmbEmisor>' + Alltrim(SM0->M0_NOME) + '</NmbEmisor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NombreEmisor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <PrimerNombre>' + Alltrim(SM0->M0_NOMECOM) + '</PrimerNombre>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </NombreEmisor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <FechaInicioActividades>2016-01-01</FechaInicioActividades>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <DomFiscal>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Calle>' + Alltrim(SM0->M0_ENDENT) + " " + Alltrim(SM0->M0_COMPENT) + '</Calle>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Departamento>' + Alltrim(SM0->M0_CIDENT) + '</Departamento>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Distrito>' + Alltrim(SM0->M0_CIDENT) + '</Distrito>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Ciudad>' + Alltrim(SM0->M0_CIDENT) + '</Ciudad>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Municipio>' + Alltrim(SM0->M0_CIDENT) + '</Municipio>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Pais>PE</Pais>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <CodigoPostal>' + ALLTRIM(SM0->M0_CEPENT) + '</CodigoPostal>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <GLN>' + Alltrim(SM0->M0_DSCCNA)+ '</GLN>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </DomFiscal>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <LugarExped>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Calle>' + Alltrim(SM0->M0_ENDENT) + " " + Alltrim(SM0->M0_COMPENT) + '</Calle>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </LugarExped>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </Emisor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Receptor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <DocRecep>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <TipoDocRecep>' + Alltrim(SA1->A1_TIPDOC) + '</TipoDocRecep>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NroDocRecep>' + IIF(Alltrim(SA1->A1_TIPDOC) $ "06",ALLTRIM(SA1->A1_CGC),IIF(_aTotal[013],"-",ALLTRIM(SA1->A1_PFISICA))) + '</NroDocRecep>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </DocRecep>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NmbRecep>' + Alltrim(SA1->A1_NOME) + '</NmbRecep>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += IIF(!Empty(SA1->A1_EMAIL),' <Contacto>' + ALLTRIM(SA1->A1_EMAIL) + '</Contacto>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += ' <DomFiscalRcp>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Calle>'+ Alltrim(SA1->A1_END) +'</Calle>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Departamento>'+ fGetSX5("12"+SA1->A1_EST) + '</Departamento>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Distrito>' + alltrim(SA1->A1_BAIRRO) + '</Distrito>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Ciudad>' + alltrim(SA1->A1_BAIRRO) + '</Ciudad>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Municipio>' + alltrim(SA1->A1_MUN) + '</Municipio>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Pais>' + Alltrim(Posicione("SYA",1,xFilial("SYA") + SA1->A1_PAIS,"SYA->YA_CODERP")) + '</Pais>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <CodigoPostal>' + Alltrim(SA1->A1_CEP) + '</CodigoPostal>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <GLN>' + Alltrim(SA1->A1_GLN) + '</GLN>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </DomFiscalRcp>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </Receptor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Transporte>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <MedioTransporte>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <MetodoTransp>MetodoTransp</MetodoTransp>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </MedioTransporte>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </Transporte>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Totales>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Moneda>' + _aTotal[014] + '</Moneda>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <SubTotal>' + Alltrim(TRANSFORM(_aTotal[008][2], _aTotal[003])) + '</SubTotal>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += IIF(SF2->F2_DESCONT > 0,' <MntDcto>' + Alltrim(TRANSFORM(SF2->F2_DESCONT, _aTotal[003])) + '</MntDcto>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += IIf(Len(_aTotal[008])>= 6 .And. _aTotal[008][6] .And. _aTotal[018] == "2",' <MntRet>' + Alltrim(TRANSFORM(SF2->F2_VALBRUT-_aTotal[008][7],_aTotal[003])) + '</MntRet>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += ' <VlrPagar>' + Alltrim(TRANSFORM( IIF(!_aTotal[008][3],SF2->F2_VALBRUT,0), _aTotal[003])) + '</VlrPagar>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <VlrPalabras>' + IIF(!_aTotal[008][3],EXTENSO(SF2->F2_VALBRUT,.f.,SF2->F2_MOEDA), fCero2Txt(SF2->F2_MOEDA))+ '</VlrPalabras>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <MontoPropina>0.00</MontoPropina>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += _aTotal[008][4],.T.)
(PREREG) (_aTotal[001] += ' </Totales>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += _aTotal[008][5],.T.)
(PREREG) (_aTotal[001] += '</Encabezado>' + _aTotal[002],.T.)

[SD2 INVOICE]
(PRE) DbGoTop()
(PREREG) (SB1->(DbSeek(xFilial("SB1") + SD2->D2_COD)),.T.)
(PREREG) (SAH->(DbSeek(xFilial("SAH") + SB1->B1_UM)),.T.)
(PREREG) _aTotal[010] := M485DETIMP(SD2->D2_SERIE,SD2->D2_CLIENTE,SD2->D2_LOJA,SD2->D2_DOC,SD2->D2_ITEM,SF2->F2_ESPECIE,SD2->D2_COD, 1)
(PREREG) _aTotal[016] := Posicione("SAH",1,xFilial("SAH")+ SB1->B1_UM,"AH_COD_CO")
(PREREG) (_aTotal[001] += '<Detalle>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NroLinDet>' + Alltrim(SD2->D2_ITEM) + '</NroLinDet>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <CdgItem>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <TpoCodigo>' + Alltrim(SB1->B1_PRODSAT) + '</TpoCodigo>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <VlrCodigo>' + Alltrim(SB1->B1_COD) + '</VlrCodigo>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </CdgItem>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <IndExe>1</IndExe>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <DscLang>ES</DscLang>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <DscItem>' + Alltrim(SB1->B1_DESC) + '</DscItem>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <QtyItem>' + Alltrim(TRANSFORM(SD2->D2_QUANT,_aTotal[003])) + '</QtyItem>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <UnmdItem>' + _aTotal[016] + '</UnmdItem>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <PrcBrutoItem>' + Alltrim(TRANSFORM(IIF(!_aTotal[010][7],_aTotal[010][1],0),_aTotal[003])) + '</PrcBrutoItem>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <PrcNetoItem>' + Alltrim(TRANSFORM(_aTotal[010][2],_aTotal[003])) + '</PrcNetoItem>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <DescuentoMonto>' + Alltrim(TRANSFORM(SD2->D2_DESCON,_aTotal[003])) + '</DescuentoMonto>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += _aTotal[010][3],.T.)
(PREREG) (_aTotal[001] += _aTotal[010][5],.T.)
(PREREG) (_aTotal[001] += ' <MontoBrutoItem>' + ALLTRIM(TRANSFORM(_aTotal[010][1] ,_aTotal[003])) +'</MontoBrutoItem>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <MontoNetoItem>' + ALLTRIM(TRANSFORM(_aTotal[010][1] ,_aTotal[003])) +'</MontoNetoItem>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <MontoTotalItem>' + ALLTRIM(TRANSFORM(_aTotal[010][4] ,_aTotal[003])) +'</MontoTotalItem>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += _aTotal[010][6],.T.)
(PREREG) (_aTotal[001] += '</Detalle>' + _aTotal[002],.T.)

[XXX INVOICE_FIN]
(PREREG) (_aTotal[001] := IIF(Alltrim(SF2->F2_ESPECIE)=="NF" .And. Substr(SF2->F2_SERIE2,1,1)=="F" .And. _aTotal[018] == "2",_aTotal[019][1],""),.T.)
(PREREG) _aTotal[015] += IIF(Alltrim(SF2->F2_ESPECIE)=="NF","",M485GETREF(SF2->F2_NFREF,SF2->F2_SERREF,SF2->F2_CLIENTE,SF2->F2_LOJA,SF2->F2_ESPECIE,.F.,SF2->F2_MOTIVO,SF2->F2_TIPREF))
(PREREG) (_aTotal[001] += _aTotal[015],.T.)
(PREREG) (_aTotal[001] += '<CAE>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Tipo>String</Tipo>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NumeroInicial>' + Alltrim(SF2->F2_DOC) + '</NumeroInicial>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NumeroFinal>' + Alltrim(SF2->F2_DOC) + '</NumeroFinal>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NroResolucion>' + Alltrim(SF2->F2_DOC) + '</NroResolucion>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <FechaResolucion>' + Substr(_aTotal[011],1,10) + '</FechaResolucion>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '</CAE>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '<TimeStamp>' + _aTotal[011] + '</TimeStamp>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '</Documento>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '</DTE>',.T.)
(PREREG) ENCODEUTF8(_aTotal[001])

(POS) FsQuery(_aTotal[004],2)

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

...

Árvore de páginas

Versões comparadas

Versão antiga 16

Nova versão Atual

Chave

03. SOLUCIÓN

04. INFORMACIÓN ADICIONAL

05. ASUNTOS RELACIONADOS