OX002NEX - Leitura do código de barras do orçamento

Descrição

Observações

Exemplos

Local aVetPecas := ParamIXB1
Local nCntFor

for nCntFor := 1 to Len (aVetPecas)
MsgInfo(aVetPecasnCntFor,2+"/"+aVetPecasnCntFor,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 - Código do Item
Elemento 7 - Código de Barras

Retorno

Eventos de chamada do Ponto de Entrada

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

Variáveis

Programa Fonte

OFIXX002.PRW