Linha Microsiga Protheus

Árvore de páginas

Descrição:Este Ponto de Entrada é executado ao cancelar um item no Totvs Pdv, ao clicar no botão Cancelar Item é chamado o Ponto de Entrada.
Programa fonte:STWCanceltem.prw
Função:STCancIt
Parâmetros: 

PARAMIXB[1]: Modelo de dados que contém todos os produtos lançados na venda.

PARAMIXB[2]: Array com todos os itens que serão cancelados, pode acontecer de um produto que esta sendo cancelado pelo usuário pertencer a um kit, no cancelamento são cancelados todos os itens que compõe o kit.

Retorno:

Deve-se retornar um lógico .T. ou .F., sendo que:

.T. → prossegue com o cancelamento do item;

.F. → não prossegue com o cancelamento do item.


Exemplo de utilização do Ponto de Entrada:


User Function STCancIt()

Local oProdutos := PARAMIXB[1] //Model que contem todos os produtos lancados na venda
Local aItens := PARAMIXB[2] //Numero do item que esta sendo cancelado, pode haver mais de um item sendo cancelado ao mesmo tempo se caso o produto pertencer a um kit
Local nX := 0 //Variavel de loop

For nX := 1 To Len(aItens)

    CoNout("Codigo do produto que esta sendo cancelado eh o : " + oProdutos:GetValue("L2_PRODUTO",aItens[nX]))
    CoNout("Descricao do produto que esta sendo cancelado eh o : " + oProdutos:GetValue("L2_DESCRI",aItens[nX]))
    CoNout("Quantidade do produto que esta sendo cancelado : " + AllTrim(Str(oProdutos:GetValue("L2_QUANT",aItens[nX]))))
    CoNout("Preco unitario do produto que esta sendo cancelado : " + AllTrim(Str(oProdutos:GetValue("L2_VRUNIT",aItens[nX]))))
    CoNout("Valor do produto que esta sendo cancelado : " + AllTrim(Str(oProdutos:GetValue("L2_VLRITEM",aItens[nX]))))

Next nX

Return .T.