Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 8

changes.mady.by.user Luis Eduardo Enriquez Mata

Gravado em

comparado com

Nova versão 9

changes.mady.by.user Luis Eduardo Enriquez Mata

Gravado em

Chave

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

...

Totvs custom tabs box
tabsPre-condiciones,Pasos
idsPre-condiciones,Pasos
Totvs custom tabs box items
defaultyes
referenciaPre-condiciones
  1. Realizar un respaldo del repositorio del ambiente (archivo .rpo).
  2. Aplicar el parche generado para la issue DMINA-13977.
  3. En el módulo Facturación (SIGAFAT), ir al menú Actualizaciones | Facturación | Facturaciones (MATA467N).
    • Contar con una
    factura de venta
    • Factura de Venta (NF) registrada.
Totvs custom tabs box items
defaultno
referenciaPasos
  1. En el módulo Facturación (SIGAFAT), ir al menú Actualizaciones | Facturación | Documentos Electrónicos (MATA486).
  2. Informar los parámetros:
    • ¿Tipo de Documento? = Factura 
    • ¿Serie? = <Serie de la Factura de Venta>
  3. Ejecutar la acción Transmitir.
  4. Informar los parámetros:
    • ¿Serie de Factura? = <Serie de la Factura>
    • ¿Factura Inicial? = <Folio de la Factura creada previamente>
    • ¿Factura Final? = <Folio de la Factura creada previamente>
  5. Validar que el proceso de transmisión electrónica haya sido exitoso.
  6. Validar que el nodo cac:AccountingCustomerParty/cac:Party/cac:PartyLegalEntity contenga los nodos configurados en el punto Punto de entrada Entrada M486DIRREC.


04. INFORMACIÓN ADICIONAL

...

Bloco de código
titleEjemplo de Punto de Entrada M486DIRREC
User Function M486DIRREC()
    Local aArea     := GetArea()         // Se reserva el área de trabajo 
    Local cXML      := ""                // Cadena de retorno
    Local cCRLF     := (chr(13)+chr(10)) // Salto de línea
    Local cCliente  := PARAMIXB[1]       // Código del cliente
    Local cLoja     := PARAMIXB[2]       // Código del la tienda.
    Local cFilSA1   := xFilial("SA1")
    

    DbSelectArea("SA1")
    SA1->(dbSetOrder(1)) // A1_FILIAL+A1_COD+A1_LOJA
    If ( SA1->(DbSeek(cFilSA1 + cCliente + cLoja )))
        cXML += '               <cac:RegistrationAddress>'+ cCRLF
        cXML += '                   <cbc:ID schemeName="Ubigeos">' + RTRIM(SA1->A1_CEP) + '</cbc:ID>' + cCRLF
        cXML += '                   <cbc:AddressTypeCode listName="Establecimientos anexos">0000</cbc:AddressTypeCode>'+ cCRLF
        cXML += '                   <cbc:CitySubdivisionName>-</cbc:CitySubdivisionName>'+ cCRLF
        cXML += '                   <cbc:CityName><![CDATA[' + RTRIM(SA1->A1_MUN) + ']]></cbc:CityName>'+ cCRLF
        cXML += '                   <cbc:CountrySubentity><![CDATA[' + RTRIM(M486VALSX5("12",SA1->A1_EST)) + ']]></cbc:CountrySubentity>'+ cCRLF
        cXML += '                       <cbc:District><![CDATA[' + RTRIM(SA1->A1_BAIRRO) + ']]></cbc:District>'+ cCRLF
        cXML += '                   <cac:AddressLine>'+ cCRLF
        cXML += '                       <cbc:Line><![CDATA[' + RTRIM(SA1->A1_END) + ']]></cbc:Line>'+ cCRLF
        cXML += '                   </cac:AddressLine>'+ cCRLF
        cXML += '                       <cac:Country>'+ cCRLF
        cXML += '                       <cbc:IdentificationCode listName="Country">PE</cbc:IdentificationCode>'+ cCRLF
        cXML += '                   </cac:Country>'+ cCRLF
        cXML += '               </cac:RegistrationAddress>' + cCRLF
    EndifEndIf

    RestArea(aArea)

Return cXML


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

...