Init - 2500
!EditInPlace
SELF.Feq = CREATE(0,CREATE:Spin)
ASSERT(~ERRORCODE())
SELF.Feq{PROP:Text} = ListBox{PROPLIST:Picture,FieldNumber} SELF.Feq{PROP:Right} = 1 SELF.Feq{PROP:Use} = UseVar SELF.Feq{PROP:Alrt,1} = TabKey SELF.Feq{PROP:Alrt,2} = ShiftTab SELF.Feq{PROP:Alrt,3} = EnterKey SELF.Feq{PROP:Alrt,4} = EscKey SELF.Feq{PROP:RangeLow} = -99999 !Controla el rango de Cantidad SELF.Feq{PROP:RangeHigh} = 99999 RETURN
PARENT.Init(FieldNumber,ListBox,UseVar)
Take Event - 2500
!EditInPlace
UPDATE(SELF.Feq) !UPDATE Q FIELD
CASE Event !ESTAS LINEAS CONTROLAN LAS PULSACIONES DE TECLAS
OF EVENT:AlertKey ! EN EL EDIT IN PLACE
CASE KEYCODE() !
OF EnterKey !
CHK = 0
DO CHK_FIELDS
IF CHK = 1
RETURN(EditAction:Complete)
.
OF EscKey !
ACTION = 0
RETURN(EditAction:Cancel) !
OF TabKey !
RETURN(EditAction:ForWard) !
OF ShiftTab !
RETURN(EditAction:BackWard) !
END !
END !
RETURN(EditAction:None) !
Take Event - 7500
!EditInPlace
UPDATE(SELF.Feq)
IF ReturnValue AND ReturnValue <> EditAction:Cancel
IF BRW8.Q.ALI:ALI05 = ''
GlobalRequest = SelectRecord ! modo de busqueda selectiva
ShoArt ! muestra tabla para seleccionar
IF GlobalResponse <> RequestCompleted !Si cancelaste la busqueda
CLEAR(ART:RECORD) ! limpia variables
ReturnValue = EditAction:None
.
BRW8.Q.ALI:ALI05 = ART:ART01
BRW8.Q.ALI:ALI05A= ART:ART02
BRW8.Q.ALI:ALI06 = 1
.
DO TERCERO
EXISTE = 0
ART:ART01 = BRW8.Q.ALI:ALI05 !Asigna valor para busqueda
GET(RESART,ART:ART_1)
IF ERROR()
CLEAR(ART:RECORD)
BRW8.Q.ALI:ALI05A = 'ARTICULO NO REFERENCIADO'
DISPLAY
ELSE
EXISTE = 1
IF ACTION = 1 OR BRW8.Q.ALI:ALI05 <> A_I:ALI05
BRW8.Q.ALI:ALI05A= ART:ART02
BRW8.Q.ALI:ALI06 = 1
BRW8.Q.ALI:ALI07 = 0
IF ALM:ALM02A <> 0 AND ALM:ALM02B <> 0 !TRASPASO
BRW8.Q.ALI:ALI07 = ART:ART16
ELSIF ALM:ALM04
AR1:AR101 = ALM:ALM04
AR1:AR102 = BRW8.Q.ALI:ALI05
GET(RESAR1,AR1:AR1_1)
IF ERROR()
BEEP(BEEP:SystemHand)
MESSAGE('Artículo: ' & ART:ART01 & 'No existe en Proveedor','ATENCION',ICON:Hand) ELSE
BRW8.Q.ALI:ALI07 = AR1:AR103
BRW8.Q.ALI:ALI07A= AR1:AR105
. .
IF BRW8.Q.ALI:ALI07 = 0
BRW8.Q.ALI:ALI07 = ART:ART17A
BRW8.Q.ALI:ALI07A= ART:ART14
.
. . .
DISPLAY
CHK_FIELDS routine
IF BRW1.Q.CA_:CAB01 = ''
BEEP(BEEP:SystemHand)
MESSAGE('Debe especificar Código','ATENCION',ICON:Hand) SELECT(?)
EXIT
.
CHK = 1
