Ponto de entrada A140IVPED

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Compras (SIGACOM)

Rotina:

Rotina

Nome Técnico

NF-e Totvs Colabaoração

MATA140I

Ponto de Entrada:

A140IVPED

País(es):

Brasil

Banco(s) de Dados:

Todos

Tabelas utilizadas:

SDS - Cabeçalho Totvs Colaboração

SDT - Itens Totvs Colaboração

Sistema(s) operacional(is):

Windows/Linux

Ponto de Entrada

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

PARAMIXBCaracterLoja do FornecedorX
PARAMIXBCaracterCodigo do ProdutoX
PARAMIXBNumericoQuantidade do ProdutoX
 Retorno:
cPedidoCaracterNumero do Pedido X
cItPedCaracterItem do PedidoX
nQuantNumericoQuantidadeX
Nome
Tipo
Descrição
Obrigatório

 

Exemplo:

#Include 'Protheus.ch'

User Function A140IVPED()

Local cQry := ""
Local aRet := {}

If Select("PED") > 0
         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(.T., "TOPCONN", TCGenQry(,,cQry),"PED", .T., .T.)

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

PED->(DbCloseArea())

Return aRet