Ricardo - UltraSeven

Bom dia Obrigado pelo retorno, acho interessante está implementação devido a praticidade e evitar erros de deixar de enviar remessa ao Banco que acarreta erros e retrabalhos

Boa tarde juliomar Você saberia dizer se o acbr tem intenção de criar este tipo de rotina? E quais os bancos disponíveis

Boa tarde a todos Gostaria de saber se já existe opção do acbrboleto de transmissão de remessa e retorno automaticamente Obrigado

boa tarde a todos estou em implementando as alteracoes para nfe 4.0 porem no meu xml nao esta constando as tags de fcp e nao estou conseguindo enteder onde esta meu erro. segue abaixo o meu xml e o trecho da alimentacao do componente, gostaria que alguem que ja passou por isso ou conheça o meu erro me ajude. obrigado if (Dm_BD2.DS_Item_NfeCSOSN.AsString = '101') or (Dm_BD2.DS_Item_NfeCSOSN.AsString = '102') then begin // verifica qual a UF de destino if ed_estDESTINO.Text = 'SP' then v_pFCP_UF := 2; // percentual FCP CSOSN := StrToCSOSNIcms( ok , Dm_BD2.DS_Item_NfeCSOSN.AsString); pCredSN := AliqSN; vCredICMSSN := SimpleRoundTo(Dm_BD2.DS_Item_NfeVL_TOTAL.Value * AliqSN/100,2); pICMS := Dm_BD2.DS_Item_NfeICMS.Value; // alicota do produto vICMS := Dm_BD2.DS_Item_NfeVLICMS.Value; // valor alicota * total do item vFCP := SimpleRoundTo(Dm_BD2.DS_Item_NfeVLICMS.Value * v_pFCP_UF / 100,2); pST := 2; // tenho duvida com relacao a esta tag end; if (Dm_BD2.DS_Item_NfeCSOSN.AsString = '201') or (Dm_BD2.DS_Item_NfeCSOSN.AsString = '202') then begin // verifica qual a UF de destino if ed_estDESTINO.Text = 'SP' then v_pFCP_UF := 2; // percentual FCP CSOSN := StrToCSOSNIcms( ok , Dm_BD2.DS_Item_NfeCSOSN.AsString); modBCST := StrTomodBCST(Ok,'4'); pMVAST := Dm_BD2.DS_Item_NfeMVAST.Value; pRedBCST := Dm_BD2.DS_Item_NfePREDICMSST.Value; vBCST := Dm_BD2.DS_Item_NfeBASEICMSST.Value; pICMS := Dm_BD2.DS_Item_NfeICMSST.Value; vICMS := Dm_BD2.DS_Item_NfeVLICMSST.Value; pFCP := v_pFCP_UF; vFCP := (Dm_BD2.DS_Item_NfeVLICMSST.Value * v_pFCP_UF /100); end; 35180612832944000104550010000000691000000699-nfe.xml

Mas André desculpa minha burrice isto está acontecendo desde que comecei atualizar o meu projeto para versão 4.0, mas todos clientes ainda usam a versão 3.10

André Boa noite tudo bem Então o problema contínua e o cliente não está conseguindo emitir notas alguém pode me ajudar

Boa noite bigwings Obrigado pelo retorno, mas aproveitando então seria possível validar e transmitir várias notas de uma só vez através de uma só rotina?

Boa tarde a todos Como poderia fazer a validação e transmissão ao mesmo tempo de várias nfe ao invés de ter que fazer individualmente para 5 a 10 notas gravadas

boa noite daniel nao deu certo estou te enviando uma imagem da etiqueta e o bloco da rotina para que mesmo com as chamadas de inicializar e fechar a etiqueta no meu caso continua avanco 1 etiqueta por favor preciso resolver isso com a maxima urgencia, o cliente esta querendo o dinheiro de volta e hoje em dia nao dá. segue if Modelo = etqPpla then begin ImprimirTexto(orNormal, 2, 1, 2, 180, 15, 'BISCOITO REC 335G'); ImprimirTexto(orNormal, 2, 1, 1, 140, 15, 'CHOC BRANCO'); ImprimirBarras(orNormal, 'F', '2', '2', 20, 10, '7896003701685', 70); end else begin IniciarEtiqueta; ImprimirTexto(orNormal, 2, 1, 2, 125, 345, 'Joias Dinho'); ImprimirBarras(orNormal, 'E30', '2', '2', 125, 55, '1234567890123', 060, becNAO); FinalizarEtiqueta(1,0); end ; Imprimir; ACBrETQ.EtqFinalizada; Desativar; gostaria de saber se estou imprimindo do lado certo, pois esta etiqueta contem duas partes sendo a 1o. ficara o codigo de barra e a 2o. o valor do produto, e na parte da direita é a haste onde envolve o produto, entao fica a duvida eu tenho que enviar comando da esquerada para direita ou inverso devido a pagina de calibracao esta imprimindo da direita para esquerda desde ja agradeco pelo trabalho de voces, e caso eu puder ligar pra voce ou tiver que pagar alguma coisa para resolver este problema me avise, nao sei se é a politica de voces, mas pra resolver este pepino estou disposto

bom dia daniel por favor estou tentando resolver um problema com o mesmo componente minha etiqueta é para bijouteria ou seja ela e pequena, eu ja consegui fazer a impressao, porem se solicitar uma etiqueta ou duas entre uma e outra acaba saindo uma etiqueta em branco eu ja tentei varias coisa e nao coisas e nao consegui e estou precisando com muita URGENCIA e ja te enviei um post ontem mas nao resolveu, voce tem alguma ideia onde o componente faz esse avanco pois ja tentei de tudo e nao consigo resolver

Com o demo funciona mas com a minha rotina nao onde será meu erro

bom dia amigos novo aqui no projetoacbr e gostaria de parabelinzar pelo trabalho que voces vem fazendo. mas gostaria de aproveitar o topico e pedir ajudar com URGENCIA, estou trabalhando com impressora ZEBRA TL2844 e depois de muito tempo e custo consegui fazer a comunicacao e a impressao da etiqueta atraves do componente acbr, porem ainda estou com um problema que nao envio a impressao de dois produtos ela imprime uma etiqueta e da salto de outra em branco, ja tentei verificar o driver da impressora e a rotina de programacao e ate agora nada, o pior que fiquei de entregar a impressora e as etiquetas na semana passada alguem consegue me dar uma luz segue minha rotina: Ds_etiq.First; while not Ds_etiq.Eof do begin cod:= PAnsiChar(Ds_etiqCODIGO.AsString); descricao:=PAnsiChar(copy(Ds_etiqDESCRICAO.AsString,1,18)); valor:= PAnsiChar('$ '+formatCurr('###0.00',Strtocurr(Ds_etiqVALOR.AsString))); AtivarACBrETQ; with ACBrETQ do begin if Modelo = etqEpl2 then begin ImprimirBarras(orNormal, '1C', '2', '2', 125, 75, COD, 60, becPadrao); // saiu e deu leitura para 10 digitos ImprimirTexto(orNormal, 2, 1, 2, 155, 345, VALOR); ImprimirTexto(orNormal, 2, 1, 1, 190, 155, cod); end; Imprimir; Ds_etiq.Next; end; cod:=''; descricao:=''; valor:=''; qtde:=''; end; ACBrETQ.Desativar; SHOWMESSAGE('FIM DA IMPRESSÃO'); end; e tambem a procedure da etiqacbr procedure TEtiq_Argox.AtivarACBrETQ ; begin with ACBrETQ do begin DPI := dpi203; Modelo := etqEpl2; Porta := Frm_login.sPortaEtiq; LimparMemoria := ckMemoria.Checked ; Temperatura := 10; Ativar ; end ; end ; por favor alguem pode ajudar, OBRIGADO