MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Quantia de Etiquetas

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 213
    Registrado : 13/03/2011

    [Resolvido]Quantia de Etiquetas Empty [Resolvido]Quantia de Etiquetas

    Mensagem  msilveir em 3/5/2019, 21:29

    Ola Pessoal

    tenho esse código para gerar etiquetas numa Zebra

    Open "c:\Temp\etiqueta.txt" For Output As #1

    Print #1, Me.txt1
    Print #1, Me.txt2
    Print #1, Me.txt3
    Print #1, Me.txt4
    Print #1, Me.txt41
    Print #1, Me.txt5; Me.txtFilial; Me.txt6
    Print #1, Me.txt7
    Print #1, Me.txt8; Me.txtNumeroNota; Me.txt9
    Print #1, Me.txt10; Me.txtRampa; Me.txt11
    Print #1, Me.txt12
    Print #1, Me.txt13
    Print #1, Me.txt14
    Print #1, Me.txt15
    Print #1, Me.txt151
    Print #1, Me.txt152; Me.txtVolumes; Me.txt153
    Print #1, Me.txt154
    Print #1, Me.txt16; Me.txtVolumes; Me.txt17

    MsgBox "Arquivo Gerado com sucesso!", vbInformation, "Gerado com Sucesso"

    Close #1

    onde tem a ultima linha exemplo (Print #1, Me.txt16; Me.txtVolumes; Me.txt17)
    no txtVolumes é onde eu coloco o numero de etiquetas que vai imprimir isso no formulario
    segue o codigo gerado na zebra (^PQ 3 ,0,1,Y^XZ), onde tem o numero 3 e o txtvolumes blz

    meu problema o pessoal esta errando a quantia de volumes exemplo era para ser 8 ele colocou 7 faltou um
    quando ele consulta o pedido e corrige para 8 sai novamente todas as 8 etiquetas incluindo a que faltou



    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4416
    Registrado : 20/04/2011

    [Resolvido]Quantia de Etiquetas Empty Re: [Resolvido]Quantia de Etiquetas

    Mensagem  Silvio em 3/5/2019, 21:42

    Uma solução simples, seria a criação de uma caixa de texto com a quantidade certa para a correção da quantidade de volumes e um botão de impressão mandando imprimir ( botão imprimir acerto ) apenas a última ou as linhas necessárias para a reimpressão da etiqueta.

    Pois pelo que descreveu é rotineiro o erro dos operadores.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 213
    Registrado : 13/03/2011

    [Resolvido]Quantia de Etiquetas Empty Re: [Resolvido]Quantia de Etiquetas

    Mensagem  msilveir em 4/5/2019, 20:36

    Ola Silvio


    coloquei assim mas nao soma com o campo txtvolumes , gera a etiqueta mas nao soma

    If IsNull(Me.txtCorrecao) Or Me.txtCorrecao = 0 Then

    Me.txtVolumes.Value = Nz("[txtCorrecao]") + 1

    End If

    O txtCorrecao é uma caixa de texto nao acoplada onde coloco a correção



    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 213
    Registrado : 13/03/2011

    [Resolvido]Quantia de Etiquetas Empty Re: [Resolvido]Quantia de Etiquetas

    Mensagem  msilveir em 5/5/2019, 18:51

    ola Pessoal

    Devido ao problema de atenção por parte dos operadores ficou acertado ele corrigirem o valor no campo Volumes
    e digitar no campo correção a quantidade que falta tirar de etiquetas

    obrigado a todos

    Conteúdo patrocinado

    [Resolvido]Quantia de Etiquetas Empty Re: [Resolvido]Quantia de Etiquetas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/8/2019, 19:24