Anderson Rodrigo da silva
-
Total de ítens
12 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Anderson Rodrigo da silva
-
-
11 minutos atrás, Anderson Rodrigo da silva disse:
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:
----------------------------------------------------------------------------------------------------
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; -
30 minutos atrás, Anderson Rodrigo da silva disse:
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:
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:
-
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:
-
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
-
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;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!!!!!
-
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...
- 1
-
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 beginfor I := 0 to ACBrIBPTax.Itens.Count - 1 do begin
if (varCond) then beginseu 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;
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..
- 1
-
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:
- 3
-
Estava com o mesmo problema, e fiz da seguinte forma: nas margens do componente coloquei.. 0,01 e pronto...
-
sobe
-
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
AcbrETQ Calibrar, Iniciar Bloco, PrintDirection
em ACBrSerial
Postado
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