Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | Compras (SIGACOM) | ||||
Rotina: |
| ||||
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 |
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: |
| ||||||||||||||||||||
Retorno: |
|
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