Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Otavio de Albergaria B. Favarelli

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (mirlene.silva)

Gravado em

Chave

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

Descrição

Ponto de Entrada localizado na rotina Conf. de Orçamento. É executado após a mensagem ": Item nao não encontrado no Orcamento: ", no Orçamento. No momento da leitura do código de barras. Pode ser utilizado para verificar os produtos que não possuem código de barras cadastrado.

Observações

 

Exemplos

Local aVetPecas := ParamIXB1ParamIXB1
Local nCntFor

for nCntFor := 1 to Len (aVetPecas)
MsgInfo(aVetPecasnCntForaVetPecasnCntFor,2+"/"+aVetPecasnCntForaVetPecasnCntFor,3)
next

Return

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

aIte // vetor com os Itens de peças
Elemento 2 - Grupo de Item
Elemento 3 - Codigo Código do Item
Elemento 7 - Codigo Código de Barras

Retorno

Eventos de chamada do Ponto de Entrada

If nPos > 0
oLbIte:nAt := nPos
lAtu := aItenPosaItenPos,1
aItenPos aItenPos,1 := .f.
If nQtd > 0
if aItenPosaItenPos,5 + nQtd > aItenPosaItenPos,6
MsgAlert(STR0007,STR0005)
lErroConf := .t.
else
aItenPos aItenPos,5 += nQtd
endif
If aItenPosaItenPos,5 == aItenPosaItenPos,6
aItenPos aItenPos,1 := .t.
EndIf
Else
aItenPos aItenPos,5 := 0
EndIf
If !lErroConf
DbSelectArea("VS3")
DbSetOrder(2)
If DbSeek(xFilial("VS3")+VS1->VS1_NUMORC+aItenPosaItenPos,2+aItenPosaItenPos,3)
DbSelectArea("VS3")
RecLock("VS3",.F.)
VS3->VS3_QTDCON := aItenPosaItenPos,5
MsUnlock()
EndIf
EndIf
Else
MsgAlert(STR0006,STR0005)
if ExistBlock("OX002NEX")
ExecBlock("OX002NEX",.f.,.f., {aIte} )
endif
EndIf

Variáveis

Programa Fonte

OFIXX002.PRW