Jump to content

Gerar código


EdiSimoes
 Share

Recommended Posts

Ola a todos, preciso de uma pequena ajuda de vcs, que para mim ja é um grande problema.

Quero gerar um código no meu cadastro da seguinte forma.

Tenho um txtCodTipo.text, e um txtCodProduto

quando eu digitar o codTipo "1" e digitar o codProduto "3", ele me gerar um codigo automatico "10003".

Se alguem puder me ajudar, agradecido.

Edi Carlos Simões

Estudante de Análise e Desenvolvimento de Sistemas

edisimoes@bol.com.br

http://www.desenvolvenetma.com.br

http://analisedesistemas.bl.ee

Link to comment
Share on other sites

Grato pela resposta, fiz assim mais da erro de estouro de caracteres

 Dim x As Integer = txtCodTipo.Text
            Dim z As Integer
            z = x & "000" & txtCod.Text
            txtCod.Text = z

Edi Carlos Simões

Estudante de Análise e Desenvolvimento de Sistemas

edisimoes@bol.com.br

http://www.desenvolvenetma.com.br

http://analisedesistemas.bl.ee

Link to comment
Share on other sites

O texto não é um inteiro, nem precisas de passar para inteiro.

Retiras o valor da TextBox1 e TextBox2 e somas ao que quiseres.

resultado = texto1 + "000" + texto2

No fim, passas para inteiro, mas apenas se restringires a entrada de letras nas TextBoxes.

Link to comment
Share on other sites

Fiz assim companheiro mais continua dando erro,

  Dim a As String = txtCodTipo.Text
            Dim b As String = txtCod.Text
            Dim resultado As Integer
            resultado = a + "000" + b
            txtCod.Text = resultado

ERRO:  Operação aritmética resultou em um estouro.

Edi Carlos Simões

Estudante de Análise e Desenvolvimento de Sistemas

edisimoes@bol.com.br

http://www.desenvolvenetma.com.br

http://analisedesistemas.bl.ee

Link to comment
Share on other sites

 Dim a As String = txtCodTipo.Text
            Dim b As String = txtCod.Text
            Dim resultado As String
            resultado = CInt(a + "000" + b)
            txtCod.Text = resultado

,

da o msm erro.

Edi Carlos Simões

Estudante de Análise e Desenvolvimento de Sistemas

edisimoes@bol.com.br

http://www.desenvolvenetma.com.br

http://analisedesistemas.bl.ee

Link to comment
Share on other sites

No meio disto tudo, resume-se a isto, para futuras mentes que parem aqui e não se percam B)

txtCod.Text = txtCodTipo.Text & "000" & txtCod.Text

Não é preciso mais nada se não isto. Não é necessária nem uma variável.

Cumpz 😉

Knowledge is free!

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.