Este ponto de entrada tem por finalidade a gravação da locação de um item escolhido de uma determinada pré-nota que está sendo conferido através da rotina Conf. Codigo Barra (OFIOM390).

Static Function FS_ALTQTD(nReg) // Altera a BASE e LISTBOX
Local nConteud := aIte[nReg,5] 
 
dbSelectArea("SB1")
dbSetOrder(7)
dbSeek(xFilial("SB1")+aIte[nReg,2]+aIte[nReg,3])

if ExistBlock("OFM390LOC")
    ExecBlock("OFM390LOC",.f.,.f.)
Endif

DEFINE MSDIALOG oAltReg TITLE (  Alltrim(aIte[nReg,2]+" "+aIte[nReg,3])) From 5,08 to 08,30 of oMainWnd
      @ 006,017 MSGET oConteud VAR nConteud PICTURE "@E 999,999.99" VALID (oAltReg:End()) SIZE 50,08 OF oAltReg PIXEL COLOR CLR_BLUE
     @ 040,007 BUTTON oX PROMPT OemToAnsi("") OF oAltReg SIZE 01,01 PIXEL ACTION oAltReg:End()
ACTIVATE MSDIALOG oAltReg CENTER

OFIOM390, OFM390LOC

OFM390LOC - Gravação da Locação de Item na rotina de Conferencia de Codigo de Barras. ( [ ] )

()

/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡Æo    ³ OFM390LOC³ Autor ³  Thiago Aprile        ³ Data ³ 06/01/11 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡Æo ³ Cadastra locacao para a peca.                              ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Sintaxe   ³                                                            ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³ Generico                                                   ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/USER FUNCTION OFM390LOC()lRet := .t.if MsgYesNo("Locacao da peca esta em branco, deseja cadastrar?","Atençao!")   lRet := .t.EndifReturn(lRet)