Ir para conteúdo
  • Cadastre-se

Anderson Rodrigo da silva

Membros
  • Total de ítens

    12
  • Registro em

  • Última visita

Tudo que Anderson Rodrigo da silva postou

  1. Conforme post anterior e sugerido por Daniel Simoes PARA IMPLEMENTAR NOVO MÉTODO para calibrar fiz tal mudança para impressora zebra e ainda não encontrei comando para argox AtivarACBrETQ; with ACBrETQ do Calibrar; --------------------------------------------------------------------- JÁ O MÉTODO INICIARBLOCO foi mediante a impressão de um bloco cujo uma massa de etiquetas eram enviadas e ao termino de cada bloco PULAVA UMA LINHA iniciando o processo. Daí observei que estava sem enviado desta FORMA: D10 N R0,0 ZT A44,12,0,2,2,2,N,"BISCOITO MARILAN RECH 335G" A44,48,0,3,2,1,N,"CHOC BRANCO" B44,76,0,E30,2,2,72,B,"7896003701685" A284,88,0,3,3,2,N,"R$" A412,68,0,3,4,5,N,"20.59" P1 N D10 N R0,0 ZT A44,12,0,2,2,2,N,"SABAO EM PO FLASH 1KG" A44,48,0,3,2,1,N,"ADVANCED - UNIDADE" B44,76,0,E30,2,2,72,B,"7898903097042" A284,88,0,3,3,2,N,"R$" A412,68,0,3,4,5,N,"3.18" P1 D10 N R0,0 ZT A44,12,0,2,2,2,N,"AMACIANTE AMACIEX 5 LTS" A44,48,0,3,2,1,N,"MACIO MATRIX FIX" B44,76,0,E30,2,2,72,B,"7898237690230" A284,88,0,3,3,2,N,"R$" A412,68,0,3,4,5,N,"8.60" P1 ===> modifiquei o modo de iniciar utilizando em vez de IniciarEtiqueta utilizei IniciarBlocoEtiqueta ficando assim o bloco ao enviar D10 N R0,0 ZT A44,12,0,2,2,2,N,"BISCOITO MARILAN RECH 335G" A44,48,0,3,2,1,N,"CHOC BRANCO" B44,76,0,E30,2,2,72,B,"7896003701685" A284,88,0,3,3,2,N,"R$" A412,68,0,3,4,5,N,"20.59" P1 N A44,12,0,2,2,2,N,"SABAO EM PO FLASH 1KG" A44,48,0,3,2,1,N,"ADVANCED - UNIDADE" B44,76,0,E30,2,2,72,B,"7898903097042" A284,88,0,3,3,2,N,"R$" A412,68,0,3,4,5,N,"3.18" P1 N A44,12,0,2,2,2,N,"AMACIANTE AMACIEX 5 LTS" A44,48,0,3,2,1,N,"MACIO MATRIX FIX" B44,76,0,E30,2,2,72,B,"7898237690230" A284,88,0,3,3,2,N,"R$" A412,68,0,3,4,5,N,"8.60" P1 FIZ TODOS OS TESTES usando o exemplo do AcbrETQ.. envio os arquivos modificados para serem analisados e se possível for apreciado pelos colegas... ACBrDevice.pas, ACBrETQ.pas, ACBrETQClass.pas, ACBrETQEpl2.pas, ACBrETQPpla.pas
  2. ---------------------------------------------------------------------------------------------------- Conforme post anterior e sugerido por Daniel Simoes PARA IMPLEMENTAR NOVO MÉTODO para calibrar fiz tal mudança para impressora zebra e ainda não encontrei comando para argox AtivarACBrETQ; with ACBrETQ do Calibrar;
  3. então resolvi modificar a forma de Direcionamento de impressão de ZB para ZT no método CalcularComandoAbertura >>> antes Cmd := Cmd + 'R0,0' + LF + // Anula as margens Horizontal e Vertical 'ZB' ; // ZT = Printing from top of image buffer. (PADRÃO) // ZB = Printing from bottom of image buffer. >>> depois Cmd := Cmd + 'R0,0' + LF + // Anula as margens Horizontal e Vertical IfThen(fpPrintDirection=pdTopo,'ZT','ZB'); // ZT = Printing from top of image buffer. (PADRÃO) {Anderson} (Imprime apartir do Topo) // ZB = Printing from bottom of image buffer. {Anderson} (Imprime apartir da Base) a partir desta mudança a impressão passou a ficar desta forma:
  4. Boa noite, gostaria de saber se é possível implementar tais funções no AcbrETQ, haja visto que tive alguns contra-tempo em impressoras Argox OS-214tt, e Argox OS-214Plus, onde as mesmas não imprimia toda a Etiqueta. Fiz todas as configurações pela propriedades da impressora e mesmo assim ao imprimir a mesma saia desta forma:
  5. Na época iria fazer exatamente com você mencionou, porém vi que existe outros comandos que poderão ser enviados por este mesmo método, e se fosse classificando um-a-um levaria tempo ou até mesmo não saberia qual a necessidade de todos... por isso um ENVIACOMANDO genérico.... Mas estou aberto pra poder catalogar e testar, porém terei que ir utilizando as Impressoras de Clientes e fazendo os testes e ir liberando aos poucos... Mas oque ficar melhor pra todos, estou a disposição.... Obrigado por responder
  6. Pessoal, já há um bom tempo venho tendo problemas com clientes que usam impressoras de Etiquetas (Zebbra, Argox, Bematech e etc) que utilizam modelos de etiquetas diferentes (o mesmo cliente) e nessa troca de modelo o cliente sempre precisa calibrar a impressora para que a impressão seja impressa corretamente, sem ficar pulando ou ejetando várias etiquetas no final. Expliquei o procedimento de calibragem via Propriedades da Impressora e clicar em calibar, porém cliente só quer moleza, então fiz uma pequena mudança de implementação que o próprio software envia tal comando (calibragem ou qualquer outro). uso da seguinte forma: EnviarComando('SET GAP 0,'); <<<<-------------------- enviado para ZEBRA ExecutarComando; ACBrETQ.pas ACBrETQClass.pas ACBrETQEpl2.pas caso seja aceito pela comunidade irei implementar nas outras units Obrigado a todos pela atenção.... Pessoal esqueci de mencionar que só fiz assim, pois não sei se existe outra forma de realizar tal processo.. Caso exista favor compartilhar!!!!!
  7. Pelo que todos nós vimos que isso seria inviável o parse.. por isso que utilizei os métodos do IBPTax pois essa tabela seria disponibilizado por nós mesmo.. ASSIM COMO TEMOS que fazer com as tabelas diponibilizado PELA https://deolhonoimposto.ibpt.org.br/... Mais isso é apenas uma ideia e uma solução que encontrei pra deixar nossos mantenedores e clientes com maior comodidade.. em vez de ter que ficar rodando script no Banco de dados. ou seja lê o arquivo e realiza a regra de negócio cabível...
  8. Boa tarde pessoal... conforme metodologia do componente ACBrIBPTax e nos possibilita utilizar uma URL para listar nosso arquivo IBPT... e como nossos usuários sempre querem tudo na moleza, resolvi implementar nessa mesma classe outras propriedades para ser usado para ler tabela CEST, cujo esta é a mesma que o CANTU disponabilizou, porém deixei-a em csv em uma URL própria, assim é só utilizar a mesma logística da tabela IBPT onde: if (varCond) then begin ACBrIBPTax.Tag := 1; ACBrIBPTax.Delimiter := '|'; ACBrIBPTax.URLDownload := 'http://xxxxxxxx/TabelaCESTNCM.csv'; end else if (varCond) then begin DMAC.IBPTax.Tag := 0; DMAC.IBPTax.Delimiter := ';'; DMAC.IBPTax.URLDownload := 'http://xxxxxxxxxxxxx/TabelaIBPTax'+DM.cdsEmpresaUF.AsString+'.csv'; end; ACBrIBPTax.IBPTax.Itens.Clear; ACBrIBPTax.Arquivo.Clear; if ACBrIBPTax.AbrirTabela(sArqImp) then begin for I := 0 to ACBrIBPTax.Itens.Count - 1 do begin if (varCond) then begin seu codigo para REGISTRO EM BANCO CEST... sncm := ACBrIBPTax.Itens.NCM; sCEST := ACBrIBPTax.Itens.CEST; sDESCR := AnsiUpperCase(ACBrIBPTax.Itens.Descricao); end else begin seu codigo para REGISTRO EM BANCO IBPT end; ACBrIBPTax.pas TabelaCESTNCM.csv tive que colocar o novo delimitador pois na exportação para csv o banco possui muitos ; (ponto e virgula) na descrição, isso quebrava a linha no local errado e lia varias outras colunas. Acho que o correto pra fins de uso seria um novo componente herdando deste, mais como não sou a pessoa melhor pra isso, e tentando economizar tempo e código só modifiquei e no meu caso tá rodando no meu sistema a todo vapor..... caso puderem subir ou melhorar no ACBR para que possamos ter uma nova forma de atender nossos clientes. ou seja.. colocamos nossa tabela em uma URL e só deixamos o resto pra os mantenedores e clientes... obrigado a todos.. e desculpem a falta de experiência para poder contribuir..
  9. Boa tarde!!!! ao realizar buscas no site em prol de encontrar algo referente ao retorno das categorias (posição) dos NCMs lidos da url http://www4.receita.fazenda.gov.br/simulador/PesquisarNCM.jsp?, ví que a Classe lia e retornava apenas os dados de (id="listaNCM"), então fiz alguns testes e mudanças na unit para que tais informações pudessem ser usadas: ex: 1001 - trigo e mistura de trigo com centeio (méteil).; 1002 - centeio.; >1006 - arroz. e etc... Visto que eu importava tais dados para o banco e permitia que o usuário as usasse como pesquisa, no entanto o usuário não encontrava pois a descrição é apenas de: ex: -- PARA SEMEADURA (SEMENTEIRA*) do NCM (10011100) , daí vi que o correto pra o usuário encontrar seria: trigo e mistura de trigo com centeio (méteil) PARA SEMEADURA (SEMENTEIRA*) ou arroz PARBOILIZADO. então implementei mais duas: property CodigoCategoriaNcm e property DescrCategoriaNcm.. Gostaria de saber se é possível adicionar tais mudanças no repositório: ACBrNCMs.pas
  10. Estava com o mesmo problema, e fiz da seguinte forma: nas margens do componente coloquei.. 0,01 e pronto...
  11. Gostaria de saber como proceder para valores de aliquotas de icms com fator decimal acima de zero ex.: 5,6. pois apresenta erro ao gerar sped fiscal, haja visto que foi modificado de: LFill( ALIQ_ICMS, 6, 2 ) ) para: VLFill( ALIQ_ICMS, 0, 2 ) strLinha := LFill('0200') + LFill( COD_ITEM ) + LFill( DESCR_ITEM ) + LFill( COD_BARRA ) + LFill( COD_ANT_ITEM ) + LFill( UNID_INV ) + LFill( strTIPO_ITEM ) + LFill( COD_NCM ) + LFill( EX_IPI ) + LFill( COD_GEN ) + LFill( COD_LST ) + VLFill( ALIQ_ICMS, 0, 2 ); <------------------------------------ fiz o teste no Sped piscofins e tudo ok. verifiquei e ainda está LFill( ALIQ_ICMS, 6, 2 ) ). estou passando o valor como --> float
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.