Árvore de páginas

MA411CLI - Altera o cliente de faturamento através de tag específica no EDI de Vendas (TOTVS Colaboração)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Faturamento

Rotina:

Rotina

Nome Técnico

MATA411

TOTVS Colaboração - Pedidos de Venda

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

 

  

Ponto de Entrada

Descrição:

A finalidade do ponto de entrada MA411CLI é permitir que seja alterado o cliente de Faturamento de acordo com a necessidade da empresa,

utilizando tag específica proveniente do XML do EDI de vendas.

Localização:

Atualizações/Pedidos/Pedidos de Venda

Eventos:

 

Programa Fonte:

MATA411.PRW

Parâmetros:

PARAMIXB[1] - Tipo: Objeto--> Objeto do XML

Retorno:

Nome

Tipo

Descrição

Obrigatório

cCustomer

Caractere

CGC do cliente a ser considerado no faturamento (C5_CLIENTE)

Sim

 

Exemplo:

 

#Include 'PROTHEUS.CH'
#Include 'XMLXFUN.CH'
#Include 'FILEIO.CH'
#Include 'FWEVENTVIEWCONSTS.CH'
 
User Function MA411Cli()

Local oXMLContent 	:= PARAMIXB[1]
Local cCustomer		:= ""
Local nI			:= 0

For nI := 1 To Len( oXMLContent:_BILLINGLOCATIONGOVINFO:_Id )
	
If	( oXMLContent:_BILLINGLOCATIONGOVINFO:_Id[nI]:_Name:Text == "CNPJ" ) .Or.;
			( oXMLContent:_BILLINGLOCATIONGOVINFO:_Id[nI]:_Name:Text == "CPF" )
		cCustomer := oXMLContent:_BILLINGLOCATIONGOVINFO:_Id[nI]:Text
		Exit
	EndIf

Next nI

Return( cCustomer )