Duplicata - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Duplicata

Logan_

SÃO PAULO
SP - BRASIL

Postada em 22/12/2004 13:56 hs

E aí pessoal,beleza.

Estou com uma enorme duvida galera, eu criei um programinha para impressão de duplicatas,ficou ótimo mas minha colega pediu de uma forma bem diferente o parcelamento da mesma duplicata. É assim vou dar um ex:

Meu programinha imprime a nota fiscal assim,se for em 2 parcelas então ficaria assim:

" 15A 15B " certo.

O nº 15 é o nº da nota fiscal ou seja o mesmo utilizado na duplicata a ser impressa.

Mas ela quer assim. Ex: " 15AB , 15BB ",entenderam,se for 2 ou 3 não importa a quantidade o importante é imprimir o nº da nota existente com a letra inicial da fatura,acompanhada pela a ultima letra da parcela. Outro ex: em 3 X " 15AC , 15BC ,

15CC ",entenderam galera ele assume a ultima letra acompanhada com a sequencia das letras dependendo das parcelas.Valeu pela ajuda até o momento galera,feliz natal e um próspero ano novo para todos vocês e seus familiares.

<DIV>Sidnei </DIV>

Jayme

SÃO PAULO
SP - BRASIL

Postada em 23/12/2004 08:34 hs

Logan_,

O você quer é uma função prara gerar os números das duplicatas ?

Jayme

Martini

PAROBÉ
RS - BRASIL

Postada em 23/12/2004 08:40 hs

Dim VetorAlfabeto(1 To 26)

Private Sub Command1_Click()
Dim intI As Integer
Dim intNParcelas As Integer
Dim strDuplicata As String
Dim lngNF As Long
intNParcelas = 3
lngNF = 15
For i = 1 To intNParcelas
strDuplicata = lngNF & VetorAlfabeto(i) & VetorAlfabeto(intNParcelas)
MsgBox strDuplicata
Next
End Sub

Private Sub Form_Load()
subPreencheVetor VetorAlfabeto
End Sub

Private Sub subPreencheVetor(ByRef VetorAlfabeto())
Dim intI As Integer
For i = 1 To 26
    Select Case i
      Case 1
        VetorAlfabeto(i) = "A"
      Case 2
        VetorAlfabeto(i) = "B"
      Case 3
        VetorAlfabeto(i) = "C"
      Case 4
        VetorAlfabeto(i) = "D"
      Case 5
        VetorAlfabeto(i) = "E"
      Case 6
        VetorAlfabeto(i) = "F"
      Case 7
        VetorAlfabeto(i) = "G"
      Case 8
        VetorAlfabeto(i) = "H"
      Case 9
        VetorAlfabeto(i) = "I"
      Case 10
        VetorAlfabeto(i) = "J"
      Case 11
        VetorAlfabeto(i) = "K"
      Case 12
        VetorAlfabeto(i) = "L"
      Case 13
        VetorAlfabeto(i) = "M"
      Case 14
        VetorAlfabeto(i) = "N"
      Case 15
        VetorAlfabeto(i) = "O"
      Case 16
        VetorAlfabeto(i) = "P"
      Case 17
        VetorAlfabeto(i) = "Q"
      Case 18
        VetorAlfabeto(i) = "R"
      Case 19
        VetorAlfabeto(i) = "S"
      Case 20
        VetorAlfabeto(i) = "T"
      Case 21
        VetorAlfabeto(i) = "U"
      Case 22
        VetorAlfabeto(i) = "V"
      Case 23
        VetorAlfabeto(i) = "X"
      Case 24
        VetorAlfabeto(i) = "Z"
      Case 25
        VetorAlfabeto(i) = "W"
      Case 26
        VetorAlfabeto(i) = "Y"
    End Select
Next
End Sub

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR