Cuando actualizo la primera le hago un seguimiento supuesta mente debe actualizar la que estoy indicado y actualiza las demas, adjunto el codigo
Saludos al Forum
- Code: Select all Expand view
PUBLIC oP20:= TApp01():New()
oP20:madepto := oP20:maciuda := oP20:makarrio:= {}
oP20:sigrabo := oP20:sigrab1 := oP20:sigrab2 := oP20:sigrab3 := 0
?"depto "+str(LEN(oP20:madepto),3,0)+" Ciudad"+str(LEN(oP20:maciuda),3,0)+" Barrio"+str(LEN(oP20:makarrio),3,0)
oP20:IniMAtriz(1);oP20:AddMAtriz(1)
?"depto "+str(LEN(oP20:madepto),3,0)+" Ciudad"+str(LEN(oP20:maciuda),3,0)+" Barrio"+str(LEN(oP20:makarrio),3,0)
oP20:madepto , pero veo que las llena las otras dos y asi cade vez , y debe actualziada solamente la matriz oP20:madepto
oP20:IniMAtriz(2);oP20:AddMAtriz(2)
?"2-jjjj depto "+str(LEN(oP20:madepto),3,0)+" Ciudad"+str(LEN(oP20:maciuda),3,0)+" Barrio"+str(LEN(oP20:makarrio),3,0)+" uuuuuu"
oP20:IniMAtriz(3);oP20:AddMAtriz(3)
?"3-jjjj depto "+str(LEN(oP20:madepto),3,0)+" Ciudad"+str(LEN(oP20:maciuda),3,0)+" Barrio"+str(LEN(oP20:makarrio),3,0)+" uuuuuu"
METHOD IniMAtriz(opx) CLASS TApp01
if opx=1
::m1[1]:=Space(1);::m1[2]:=Space(03);::m1[3]:=Space(40);::m1[4]:=.t.
::m1[5]:=Space(3);::m1[6]:=Space(3);::m1[7]:=Space(3)
elseif opx=2
::m2[1]:=Space(1);::m2[2]:=Space(03);::m2[3]:=Space(40);::m2[4]:=.t.
::m2[5]:=Space(3);::m2[6]:=Space(3);::m2[7]:=Space(3)
elseif opx=3
::m3[1]:=Space(1);::m3[2]:=Space(03);::m3[3]:=Space(40);::m3[4]:=.t.
::m3[5]:=Space(3);::m3[6]:=Space(3);::m3[7]:=Space(3)
endif
Return Nil
METHOD AddMAtriz(opx) CLASS TApp01
if opx=1
AADD(::madepto,{(::m1[1]),(::m1[2]),(::m1[3]),(::m1[4]),(::m1[2]),(::m1[2]),(::m1[2]) } )
elseif opx=2
AADD(::maciuda,{(::m2[1]),(::m2[2]),(::m2[3]),(::m2[4]),(::m2[2]),(::m2[2]),(::m2[2]) } )
elseif opx=3
AADD(::makarrio,{(::m3[1]),(::m3[2]),(::m3[3]),(::m3[4]),(::m3[2]),(::m3[2]),(::m3[2]) } )
endif
Return Nil