FAQs - Suporte técnico

Como não permitir realizar orçamentos com produtos sem estoque?

Produto:

SIGALOJA

Versões:

P11 e P12

Ocorrência:

No orçamento realizado no Venda Assistida , não quero permitir que produtos sem estoques salve o orçamento.

Passo a Passo:

Nesse caso você tem duas opções :

A primeira, seria apenas permitir orçamentos com reserva , nesse caso eu somente vou conseguir reservar produtos com estoque.

A segunda opção seria uma customização no ponto de entrada LJ7001 localizado no final da gravação do orçamento. Essa opção permite customizar a mensagem e/ou o processo de validação.

Segue um exemplo de ponto de entrada para ser utilizado :

#INCLUDE "PROTHEUS.CH"            

User Function LJ7001()

Local nParTipo      := PARAMIXB[1] //(1-orcamento  2-venda  3-pedido) 

Local nPosProd      := aPosCpo[Ascan(aPosCpo,{|x| AllTrim(Upper(x[1])) == "LR_PRODUTO"})][2]// Posicao da codigo do produto

Local nPosQuant     := aPosCpo[Ascan(aPosCpo,{|x| AllTrim(Upper(x[1])) == "LR_QUANT"})][2]    // Posicao da Quantidade

Local nPosLoc := Ascan(aPosCpoDet,{|x| AllTrim(Upper(x[1])) == "LR_LOCAL"})             // Posicao do armazem no aColsDet

Local lRet          := .T.       // Retorno logico da funcao

Local cLocProd      := ""        // Localizacao produto

Local nX            := 0         // Contador

 

// Varre todos os itens

For nX:=1 To Len(aCols)                                     

       If !aCols[nX][Len(aCols[nX])]

             cProdEst := PadR(aCols[nX][nPosProd],TamSX3("B2_COD")[1],Nil)

             //Posiciona no SB2 para verificar se possui estoque

             DbSelectArea("SB2")

             DbSetOrder(1)

             If DbSeek(xFilial("SB2")+cProdEst+aColsDet[nX][nPosLoc]) // No caso de recuperacao cProduto vinha sem os espacos

                    If SaldoSB2() < aCols[nX][nPosQuant]

                           Alert("O produto "+cProdEst+" nao esta disponivel em estoque")

                           lRet := .F.

                           Exit

                    EndIf

             EndIf 

       EndIf

Next nX     

//Retorna se permite ou não salvar o orçamento       

Return lRet

 

Esse artigo foi útil?
Usuários que acharam isso útil: 0 de 0

0 Comentários

Por favor, entre para comentar.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Preencha os campos abaixo para iniciar o atendimento:

Chat _