Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Eduardo Perez Manriquez

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Eduardo Perez Manriquez

Gravado em

Chave

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

...

Totvs custom tabs box
tabsPre-condiciones, Transmisión Documento Soporte, Transmisión Nota de Ajuste Débito, Transmisión Nota de Ajuste Crédito
idspaso1,paso2,paso3,paso4
Totvs custom tabs box items
defaultyes
referenciapaso1
  1. Realizar un respaldo del repositorio del ambiente (archivo .rpo).
  2. Aplicar el parche del issue DMICNS-23033
  3. Validar que las rutinas especificadas en la sección 01. DATOS GENERALES se hayan actualizado con una fecha igual o superior a la ahí mencionada.
  4. Contar con el parámetro MV_CONVEXP informado con el valor .T..
  5. Realizar un respaldo del archivo FATSECOL.INI que se encuentra en la ruta configurada en el parámetro MV_CFDFTSE.
  6. Actualizar el archivo FATSECOL.INI que viene anexo en la carpeta del parche, en la ruta configurada en el parámetro MV_CFDFTSE.
  7. Configurar los ajustes al Diccionario de Datos de acuerdo a lo mencionado en la sección 04. INFORMACIÓN ADICIONAL.
  8. En el módulo Compras (SIGACOM): 
    • Desde el Actualizaciones | Movimientos | Factura de Entrada,
      • Registrar un Documento Soporte en moneda extranjera.
    • Desde el Actualizaciones | Movimientos | Nota Cred/Debito,
      • Registrar la nota de ajuste crédito en moneda extranjera del documento soporte previamente registrado
      • Registrar la nota de ajuste débito en moneda extranjera del documento soporte previamente registrado
Totvs custom tabs box items
defaultno
referenciapaso2

En el módulo Facturación (SIGAFAT): 

  1. Ir al menú Actualizaciones | Facturación | Transmisión Electrónica (MATA486).
    • Realizar la transmisión del Documento Soporte en Moneda extranjera (Validar que la transmisión haya sido exitosa)
    • Desde Otras acciones ejecutar la acción Imprimir PDF.
    • Validar que en el formato PDF, los montos se muestren en moneda COP, y que se visualice la información en la moneda origen y moneda destino del Documento.
      Image Added
Totvs custom tabs box items
defaultno
referenciapaso3

En el módulo Facturación (SIGAFAT): 

  1. Ir al menú Actualizaciones | Facturación | Transmisión Electrónica (MATA486).
    • Realizar la transmisión de la Nota de Ajuste Débito(Validar que la transmisión haya sido exitosa)
    • Desde Otras acciones ejecutar la acción Imprimir PDF.
    • Validar que en el formato PDF, los montos se muestren en moneda COP, y que se visualice la información en la moneda origen y moneda destino del Documento.

Image Added

Totvs custom tabs box items
defaultno
referenciapaso4

En el módulo Facturación (SIGAFAT): 

  1. Ir al menú Actualizaciones | Facturación | Transmisión Electrónica (MATA486).
    • Realizar la transmisión de la Nota de Ajuste Crédito (Validar que la transmisión haya sido exitosa)
    • Desde Otras acciones ejecutar la acción Imprimir PDF.
    • Validar que en el formato PDF, los montos se muestren en moneda COP, y que se visualice la información en la moneda origen y moneda destino del Documento.

Image Added


04. INFORMACIÓN ADICIONAL

...

Se requiere editar el script actual de generación  de archivo XML, actualizando las secciones de acuerdo al siguiente modelo, en donde se agregaron o fueron modificadas líneas para integrar esta nueva funcionalidad.


Informações
titleFATSCOLFATECOL.INI

En el apartado de [XXX INICIALIZACION] agregar la validación para comprobar los documentos para los cuales se va a realizar la conversión de moneda:

(PRE) _aTotal[091] := _aTotal[033] == "NCC" .Or. (SuperGetMV("MV_CONVEXP",.F.,.F.) .and. ((SF1->(ColumnPos("F1_SOPORT")) > 0 .and. SF1->F1_SOPORT =='S') .Or. (SF1->(ColumnPos("F1_MARK")) > 0 .and. SF1->F1_MARK =='S')))


En el apartado de [XXX RECEPTOR], agregar los ajustes para generar correctamente los nodos SourceCurrencyCode,SourceCurrencyBaseRate y TargetCurrencyCode:

(PRE) _aTotal[001] += IIf( _aTotal[109] <> "COP" , '        <cbc:SourceCurrencyCode>' + Iif(_aTotal[091],"COP",Alltrim( Posicione("CTO",1,xFilial("CTO")+Strzero(SF1->F1_MOEDA,2),"CTO_MOESAT") )) + '</cbc:SourceCurrencyCode>' + ( chr(13)+chr(10) ) , "" )
(PRE) _aTotal[001] += IIf( _aTotal[109] <> "COP" , '        <cbc:SourceCurrencyBaseRate>' +  Iif(_aTotal[091] ,Alltrim(Str(SF1->F1_TXMOEDA,11,2)),"1.00") + '</cbc:SourceCurrencyBaseRate>' + ( chr(13)+chr(10) ) , "" )
(PRE) _aTotal[001] += IIf( _aTotal[109] <> "COP" , '        <cbc:TargetCurrencyCode>' + Iif(_aTotal[091],Alltrim( Posicione("CTO",1,xFilial("CTO")+Strzero(SF1->F1_MOEDA,2),"CTO_MOESAT") ),"COP") + '</cbc:TargetCurrencyCode>' + ( chr(13)+chr(10) ) , "" )


En la sección de [SD1 INVOICE], agregar los ajustes para generar correctamente los nodos cbc:LineExtensionAmount, cac:AllowanceCharge\cbc:Amount y fe:Price\cbc:PriceAmount 

(PREREG) (_aTotal[001] += '        <cbc:LineExtensionAmount currencyID=' + '"' + Alltrim( Posicione("CTO",1,xFilial("CTO")+Strzero(SF1->F1_MOEDA,2),"CTO_MOESAT") ) + '"' + '>' + Alltrim(Str(IIf(_aTotal[091] .And. SF1->F1_MOEDA<>1,Round(xMoeda(SD1->D1_TOTAL,SF1->F1_MOEDA,1,,MsDecimais(1)+1,SF1->F1_TXMOEDA),MsDecimais(1)),SD1->D1_TOTAL))) +'</cbc:LineExtensionAmount>' + ( chr(13)+chr(10) ),.T.)

(PREREG) (_aTotal[001] += IIF(SD1->D1_VALDESC > 0, '            <cbc:Amount currencyID="' + Alltrim( Posicione("CTO",1,xFilial("CTO")+Strzero(SF1->F1_MOEDA,2),"CTO_MOESAT") ) + '">' + Alltrim(Str(IIf(_aTotal[091] .And. SF1->F1_MOEDA<>1,Round(xMoeda(SD1->D1_VALDESC,SF1->F1_MOEDA,1,,MsDecimais(1)+1,SF1->F1_TXMOEDA),MsDecimais(1)),SD1->D1_VALDESC))) + '</cbc:Amount>' + chr(13)+chr(10), ""),.T.)

(PREREG) _aTotal[090] := Alltrim(IIf(_aTotal[091] .And. SF1->F1_MOEDA<>1,Str(Round(xMoeda(SD1->D1_VUNIT,SF1->F1_MOEDA,1,,MsDecimais(1)+1,SF1->F1_TXMOEDA),MsDecimais(1)),14,2),Str(SD1->D1_VUNIT,14,2)))
(PREREG) (_aTotal[001] += '            <cbc:PriceAmount currencyID=' + '"' + Alltrim( Posicione("CTO",1,xFilial("CTO")+Strzero(SF1->F1_MOEDA,2),"CTO_MOESAT") ) + '"' + '>' + _aTotal[090] +'</cbc:PriceAmount>' + ( chr(13)+chr(10) ),.T.)

...

Card documentos
InformacaoUtilice este box para resaltar información relevante y/o de destaqueLa presente solución aplica para versión 12.1.2210 o superior, y es necesario tener activa la funcionalidad de transmisión electrónica.
Titulo¡IMPORTANTE!


05. ASUNTOS RELACIONADOS