Histórico da Página

...

Descrição:

O Ponto de Entrada A140IVPED, permite vincular Pedidos de Compras ao importar um documento no Totvs Colaboração.

Localização:

Rotina de processamento dos documentos no Monitor Totvs Colaboração para documentos SDS/SDT.

Eventos:

O Ponto de Entrada é executado antes da inclusão do documento no Monitor Totvs Colaboração SDS/SDT.

Programa Fonte:

MATA140I

Função:

IMPXML_NFE

Parâmetros:

Nome	Tipo	Descrição	Obrigatório
PARAMIXB	Caracter	Codigo do Fornecedor	X
PARAMIXB	Caracter	Loja do Fornecedor	X
PARAMIXB	Caracter	Codigo do Produto	X
PARAMIXB	Numerico	Quantidade do Produto	X

Retorno:

Nome	Tipo	Descrição	Obrigatório
cPedido	Caracter	Numero do Pedido	X
cItPed	Caracter	Item do Pedido	X
nQuant	Numerico	Quantidade	X
lValida	Logico	Valida Quantidade do Pedido

Exemplo:

#Include 'Protheus.ch'

User Function A140IVPEDFunction A140IVPED()

Local cQry cQry    := ""
Local aRet aRet    := {}
Local lValida := .T. // .T. para validar a quantidade do pedido de compra superior ao XML ou .F. para nao validar a quantidade do pedido de compra superior ao XML.

If Select("PED") > 0
PED         PED->(DbCloseArea())
Endif

cQry += " SELECT C7_NUM,"
cQry += " C7_ITEM,"
cQry += " C7_QUANT"
cQry += " FROM " + RetSqlName("SC7")
cQry += " WHERE D_E_L_E_T_ = ''
cQry += " AND C7_FORNECE = '" + PARAMIXB[1] + "'"
cQry += " AND C7_LOJA = '" + PARAMIXB[2] + "'"
cQry += " AND C7_PRODUTO = '" + PARAMIXB[3] + "'"

cQry += " AND C7_QUANT <= " + STR(PARAMIXB[4])cQry := ChangeQuery(cQry)
dbUseArea
DbUseArea(.T., "TOPCONN", TCGenQry(,,cQry),"PED", .T., .T.)

DbSelectArea("PED")
While PED->(!EOF())
            aAdd(aRet,{PED->C7_NUM,PED->C7_ITEM,PED->C7_QUANT,lValida})
            PED->(DbSkip())
EnddoEndDo

PED->(DbCloseArea())

Return aRet

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave