Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada A116IFOR

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Compras (SIGACOM)

Rotina:

Rotina

Nome Técnico

Monitor Totvs Colaboração

MATA116I

Ponto de Entrada:

A116IFOR

País(es):

Brasil

Banco(s) de Dados:

Todos

Compatível com as Bases de DadosTodas

Sistema(s) operacional(is):

Windows/Linux

Ponto de Entrada

Descrição:

O Ponto de Entrada A116IFOR é utilizado na rotina TOTVS Colaboração que permite a identificação do fornecedor/cliente da mercadoria do Conhecimento de Transporte Eletrônico no momento da importação da nota, caso o mecanismo padrão da rotina não consiga identificá-lo.

Localização:

Processa o arquivo CT-e no diretório IN para gravar os registros do arquivo XML nas tabelas SDS e SDT.

Eventos:

Na identificação do fornecedor/cliente da mercadoria.

Programa Fonte:

MATA116I

Função:

ImpXML_Cte

Parâmetros:

NomeTipoDescrição
PARAMIXB[1]ArrayObjeto contendo a estrutura do XML de CTe
PARAMIXB[2]ArrayEntidade que está sendo consultada no momento: "SA1" para cadastro de clientes e "SA2" para cadastro de fornecedores.
PARAMIXB[3]ArrayQual TAG do XML esta sendo pesquisada no momento. R = Remetente, D = Destinatário, E = Emitente, B = Recebedor, X = Expedidor e T = toma4.
 Retorno:


aRet = Array contendo obrigatoriamente três elementos.


NomeTipoDescrição
Retorno 1ArrayCódigo da tabela onde consta o fornecedor/cliente (SA1 ou SA2).
Retorno 2ArrayCódigo do fornecedor/cliente da mercadoria.
Retorno 3ArrayCódigo da loja do fornecedor/cliente da mercadoria.

 

Exemplo
#include 'protheus.ch'

User Function A116IFOR()

Local oXML    := Paramixb[1]
Local cEnt    := Paramixb[2] // Opcoes ("SA1" para cadastro de clientes e "SA2" para cadastro de fornecedores)
Local cBusca  := Paramixb[3] // Qual TAG esta sendo pesquisada. ( R = Remetente, D = Destinatário, E = Emitente, B = Recebedor, X = Expedidor e T = toma4.)
Local aRet    := {}

aRet := {"SA2", "999999", "99"}

Return aRet