Histórico da Página

...

Descrição:

O Ponto de Entrada A140IQTD permite alterar os campos de quantidade, valor unitário, total e quantidade da segunda unidade de medida na importação do documento.

Localização:

Rotina de processamento dos documentos para o Monitor Totvs Colaboração (Item a item).

Eventos:

O Ponto de entrada é executado durante a inclusão dos itens do documento.

Programa Fonte:

MATA140I

Função:

IMPXML_NFE

Obs:

Caso seja utilizado em conjunto com o Ponto de entrada A140QTDPC, deverá ser tratado os preços unitários e totais referente a quantidade informado no ponto de entrada anterior. saiba mais

Parâmetros:

Nome	Tipo	Descrição	Obrigatório
PARAMIXB	Carácter	Produto	X
PARAMIXB	Carácter	Unidade de medida	X
PARAMIXB	Carácter	Segunda unidade de medida	X
PARAMIXB	Numérico	Quantidade da segunda unidade de medida	X
PARAMIXB	Numérico	Quantidade	X
PARAMIXB	Numérico	Preço unitário	X
PARAMIXB	Numérico	Total	X
PARAMIXB	Lógico	.T. - Utiliza 2ª unidade de medida .F. - Não utiliza 2ª unidade de medida	X
PARAMIXB	Caracter	Fornecedor	X
PARAMIXB	Caracter	Loja	X
PARAMIXB	Caracter	Documento	X
PARAMIXB	Caracter	Serie	X
PARAMIXB	Caracter	Tipo do documento	X
PARAMIXB	Lógico	.T. = Alias SA7 (Cliente) .F. = Alias SA5 (Fornecedor)	X
PARAMIXB	Objeto	XML do documento	X
PARAMIXB	Lógico	.T. - Foi alterada a quantidade pelo P.E A140QTDPC .F. - Não foi alterada pelo P.E A140QTDPC	X
PARAMIXB	Numérico	Quantidade original do item anterior a mudança da quantidade do P.E A140QTDPC	X
PARAMIXB	Numérico	Preço unitário original do item anterior a mudança da quantidade do P.E A140QTDPC	X
PARAMIXB	Numérico	Total original do item anterior a mudança da quantidade do P.E A140QTDPC	X
PARAMIXB	Caracter	Código Produto Fornecedor (Tag cProd)	X

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRet

Array

Informações a serem inseridas no item

[01] - Quantidade

[02] - Preço unitário

[03] - Total

[04] - Quantidade segunda unidade de medida

X

...

Bloco de código

language	java
theme	Midnight
title	Exemplo

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

LocalUser cProduto             	Function A140IQTD()

Local cProduto  := PARAMIXB[1]
Local cUM cUM                 	:= PARAMIXB[2]
Local cSEGUM               	cSEGUM    := PARAMIXB[3]
Local nQtSEGUM   nQtSEGUM       	:= PARAMIXB[4]
Local nQtdeIt nQtdeIt            	:= PARAMIXB[5]
Local nPrcIt nPrcIt            	:= PARAMIXB[6]
Local nTotIt     nTotIt           := PARAMIXB[7]
Local lConvUM lConvUM            	:= PARAMIXB[8]

Local cForn             cForn             := PARAMIXB[9]
Local cLoja              cLoja             := PARAMIXB[10]
Local cDoc              cDoc              := PARAMIXB[11]
Local nSerie      nSerie            := PARAMIXB[12]
Local nTipo              nTipo             := PARAMIXB[13]
Local lA5A7              lA5A7             := PARAMIXB[14]
Local oXML              oXML              := PARAMIXB[15]
Local lA140QTDPC    	        := PARAMIXB[16]
Local nQtdeItOri   nQtdeItOri         := PARAMIXB[17] 
Local nPrcItOri          nPrcItOri         := PARAMIXB[18]
Local nTotItOri         nTotItOri         := PARAMIXB[19]
Local cPrdForn			:= PARAMIXB[20]

Local aRet := Array(4)

    //Customização do cliente

    Alert("Passou pelo P.E A140IQTDA140QTDPC")

Return aRet

Árvore de páginas

Versões comparadas

Versão antiga 11

Nova versão Atual

Chave