MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 : 273
    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 : 4591
    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 : 273
    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 : 273
    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

      Data/hora atual: 7/8/2020, 12:59