PORQUE ME SUMA DE A DOS EN LUGAR DE UNO ?
Publicado: Jue Feb 05, 2009 7:28 pm
EN EL SIGUIENTE CODIGO QUISIERA SABER PORQUE ME ESTA SUMANDO DE DOS EN DOS
LA VARIABLE ::PUB
::pub := 0
If ::oMaskedit12:Value = "N" .OR. ::oMaskedit12:Value = "S"
If ::oMaskedit12:Value = "S"
::Pub:= ::pub + 1
Endif
::olabel40:ctext := Str(::pub)
ProcessMessages()
::oMaskedit13:Setfocus()
Else
msgStop("Debes de Teclear S/N","ERROR EN LA CAPTURA DE LA LETRA")
::oMaskedit12:Value:= space(1)
RETURN .F.
Endif
LA VARIABLE ::PUB
::pub := 0
If ::oMaskedit12:Value = "N" .OR. ::oMaskedit12:Value = "S"
If ::oMaskedit12:Value = "S"
::Pub:= ::pub + 1
Endif
::olabel40:ctext := Str(::pub)
ProcessMessages()
::oMaskedit13:Setfocus()
Else
msgStop("Debes de Teclear S/N","ERROR EN LA CAPTURA DE LA LETRA")
::oMaskedit12:Value:= space(1)
RETURN .F.
Endif