Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Flavio Teixeira Lopes

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Rodrigo Machado Pontes

Gravado em

Chave

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

Ponto de

...

Entrada COLDVIMP

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGACOM - Compras

Rotina:

Rotina

Nome Técnico

Monitor Totvs Colaboração

COMXCOL

Ponto de Entrada:

COLDVIMP

País:

Brasil

Banco de Dados:

Todos

Tabelas utilizadas:

SDS - Cabeçalho Totvs Colaboração

SDT - Itens Totvs Colaboração

Sistemas Operacionais:

Windows® / Linux®

Ponto de Entrada

Descrição:

O Ponto de Entrada COLDVIMP, permite manipular a aba Impostos do Monitor Totvs Colaboração

 

para alterar divergências nos impostos de cada item.

Localização:

Rotina Alterar/Visualizar documentos no Monitor Totvs Colaboração para documentos SDS/SDT.

Eventos:

O Ponto de

Entrada é

Entrada é executado antes da abertura da tela de alteração/visualização do documento no

Monitor Totvs Colaboração SDS/SDT.

Programa Fonte:

COMXCOL

Função:

COLLOADIMP

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

cRotina

PARAMIXB

PARAMIXBCaracterLoja do FornecedorX

Caracter

Codigo do Fornecedor

X

"COMXCOL"

aColsImpArrayArray com os impostos (XML e TES)
 Retorno:
cPedido
aColsImp
CaracterNumero do Pedido XcItPedCaracterItem do PedidoXnQuantNumericoQuantidadeXlValidaLogicoValida Quantidade do Pedido 
ArrayArray com os impostos (XML e TES) X
Nome
Tipo
Descrição
Obrigatório

 

Exemplo:

#Include 'Protheus.ch'

User Function A140IVPEDCOLDVIMP()
Local cRotina := PARAMIXB[1]  // Rotina
Local aColsAux := PRAMIXB[2] // Array com os impostos (XML e TES) por item
Local aRet    := {}

// Customização de usuário

aRet := aClone(aColsAux)

Return aRet  cQry    := ""
Local 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->(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 := 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,lValida})
            PED->(DbSkip())
EndDo
PED->(DbCloseArea())
Return aRet