Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Thamara Villa Jacomo

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Thamara Villa Jacomo

Gravado em

Chave

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

...

  

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:

 

Bloco de código
languagec#
linenumberstrue
#Include 'PROTHEUS.CH'
#Include 'XMLXFUN.CH'
#Include 'FILEIO.CH'
#Include 'FWEVENTVIEWCONSTS.CH'
 
User Function MA411Cli()

Local oXMLContent 	:= PARAMIXB[1]
Local cCustomer		:= ""
Local
// Objeto do XML do EDI de Vendas Local cCustomer := "" If ( XmlChildEx( oXMLContent, '_BILLINGLOCATIONGOVINFO' ) != Nil ) 
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[1
BILLINGLOCATIONGOVINFO:_Id[nI]:Text
		Exit
	EndIf

Next nI

Return( cCustomer )