Ricardo - UltraSeven
Membros Pro-
Total de ítens
64 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Ricardo - UltraSeven postou
-
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
-
consulta de status
Ricardo - UltraSeven replied to ultraseven's tópico in NFC-e - Nota Fiscal do Consumidor Eletrônica
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 -
consulta de status
Ricardo - UltraSeven replied to ultraseven's tópico in NFC-e - Nota Fiscal do Consumidor Eletrônica
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 -
Validar e transmissão
um tópico no fórum postou Ricardo - UltraSeven NFC-e - Nota Fiscal do Consumidor Eletrônica
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 -
Problema Entre Etiquetas Usando O Acbretq
Ricardo - UltraSeven replied to elixandre's tópico in ACBrSerial
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 -
ACBREtq - Como faço para a etiqueta voltar ao lugar correto
Ricardo - UltraSeven replied to edulamy's tópico in ACBrSerial
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 -
Problema Entre Etiquetas Usando O Acbretq
Ricardo - UltraSeven replied to elixandre's tópico in ACBrSerial
Com o demo funciona mas com a minha rotina nao onde será meu erro -
Problema Entre Etiquetas Usando O Acbretq
Ricardo - UltraSeven replied to elixandre's tópico in ACBrSerial
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