Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

diego.bonfim

Membros
  • Posts

    18
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

diego.bonfim's Achievements

  1. Boa Noite, descobri onde estava o problema. Estava passando o nome da impressora junto com a porta para o Fortes, exemplo: RAW:IMPRESSORA Alterei para o nome da impressora somente, e pronto. Resolvido. Obrigado Lincoln, pela ajuda.
  2. Você utiliza Lazarus? Em que momento você define a impressora? Na hora de imprimir ou ao criar o formulário?
  3. Eu faço dessa forma: Imp := Ini.ReadString('IMPRESSORA', 'PORTA', ''); ACBrSATExtratoFortes.Impressora := Imp; Aparentemente, acredito estar correto. Sempre na hora de imprimir SAT eu faço esse comando.
  4. É isso mesmo que faço, uso um arquivo INI. No ACBrPosPrinter funciona perfeitamente esse processo, porém no ACBrExtratoFortes que ele desconsidera a impressora definida no INI.
  5. Então Lincoln, eu não deixo padrão pois tenho cliente que possui impressora A4 e usa para imprimir boletos, e muitas vezes ele muda ela para padrão.
  6. Olá, Boa Tarde. Pessoal, eu já li o tópico abaixo antes de criar esse novo, porém não consegui resolver o problema ainda. Seguinte, sempre que mando uma impressão Sat pelo ACBrExtratoFortes, ele desconsidera as informações que defino para a impressora, e manda a impressão na impressora padrão. Desse modo tenho que deixar a impressora como padrão do computador. Recentemente o que está me ocorrendo também, é que quando imprimo um etiqueta pelo ACBrETQ, as próximas impressões do Sat saem na impressora de etiqueta. Segue abaixo o código para imprimir SAT: LarguraBobina := StrToInt(Ini.ReadString('IMPRESSORA', 'LARGURA', '')); MargemSuperior := StrToInt(Ini.ReadString('IMPRESSORA', 'MARGEM_CIMA', '')); MargemInferior := StrToInt(Ini.ReadString('IMPRESSORA', 'MARGEM_BAIXO', '')); MargemEsquerda := StrToInt(Ini.ReadString('IMPRESSORA', 'MARGEM_ESQ', '')); MargemDireita := StrToInt(Ini.ReadString('IMPRESSORA', 'MARGEM_DIR', '')); Imp := Ini.ReadString('IMPRESSORA', 'PORTA', ''); procedure TfrmPrincipal.PrepararImpressao; begin ACBrSATExtratoFortes.Impressora := Imp; ACBrSATExtratoFortes.LarguraBobina := LarguraBobina; ACBrSATExtratoFortes.MargemSuperior := MargemSuperior; ACBrSATExtratoFortes.MargemInferior := MargemInferior; ACBrSATExtratoFortes.MargemEsquerda := MargemEsquerda; ACBrSATExtratoFortes.MargemDireita := MargemDireita; end; PrepararImpressao; ACBrSAT.ImprimirExtrato; Segue abaixo o código para imprimir etiqueta: Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini'); with ACBrETQ do begin Desativar; case Ini.ReadString('IMP_ETQ', 'DPI', '') of 'dpi203' : DPI:= TACBrETQDPI(dpi203); 'dpi300' : DPI:= TACBrETQDPI(dpi300); 'dpi600' : DPI:= TACBrETQDPI(dpi600); end; case Ini.ReadString('IMP_ETQ', 'MODELO', '') of 'etqNenhum' : Modelo:= TACBrETQModelo(etqNenhum); 'etqPpla' : Modelo:= TACBrETQModelo(etqPpla); 'etqPplb' : Modelo:= TACBrETQModelo(etqPplb); 'etqZPLII' : Modelo:= TACBrETQModelo(etqZPLII); 'etqEpl2' : Modelo:= TACBrETQModelo(etqEpl2); end; Porta := Ini.ReadString('IMP_ETQ', 'PORTA', ''); Temperatura := StrToIntDef(Ini.ReadString('IMP_ETQ', 'TEMPERATURA', ''),10); Velocidade := StrToIntDef(Ini.ReadString('IMP_ETQ', 'VELOCIDADE', ''),-1); case Ini.ReadString('IMP_ETQ', 'BACKFEED', '') of 'bfNone' : BackFeed:= TACBrETQBackFeed(bfNone); 'bfOn' : BackFeed:= TACBrETQBackFeed(bfOn); 'bfOff' : BackFeed:= TACBrETQBackFeed(bfOff); end; Unidade := etqMilimetros; //etqDecimoDeMilimetros; MargemEsquerda:= StrToIntDef(Ini.ReadString('IMP_ETQ', 'MARGEM_ESQ', ''), 0); case Ini.ReadString('IMP_ETQ', 'ORIGEM', '') of 'ogNone' : Origem:= TACBrETQOrigem(ogNone); 'ogTop' : Origem:= TACBrETQOrigem(ogTop); 'ogBottom' : Origem:= TACBrETQOrigem(ogBottom); end; case Ini.ReadString('IMP_ETQ', 'PAGCOD', '') of 'pceNone' : PaginaDeCodigo:= TACBrETQPaginaCodigo(pceNone); 'pce437' : PaginaDeCodigo:= TACBrETQPaginaCodigo(pce437); 'pce850' : PaginaDeCodigo:= TACBrETQPaginaCodigo(pce850); 'pce852' : PaginaDeCodigo:= TACBrETQPaginaCodigo(pce852); 'pce860' : PaginaDeCodigo:= TACBrETQPaginaCodigo(pce860); 'pce1250' : PaginaDeCodigo:= TACBrETQPaginaCodigo(pce1250); 'pce1252' : PaginaDeCodigo:= TACBrETQPaginaCodigo(pce1252); end; Ativar; end; with ACBrETQ do begin if (Modelo = etqPpla) then begin ImprimirTexto(orNormal, 2, 2, 2, 21, 2, Copy(LabelProduto.Caption, 0, 30)); ImprimirCaixa(10,32,56,17,1,1); ImprimirBarras(orNormal, barEAN13, 2, 2, 4, 2, ComboBoxProduto.Text, 10, becSIM); ImprimirTexto(orNormal, 3, 4, 4, 2, 24, ' R$'); ImprimirTexto(orNormal, 3, 4, 4, 2, 41, ' '+copy(LabelPreco.Caption, 4, Length(LabelPreco.Caption))); end else if (Modelo = etqEpl2) then begin ImprimirTexto(orNormal, 2, 2, 2, 3, 3, Copy(LabelProduto.Caption, 0, 30), 0, True); ImprimirTexto(orNormal, 2, 2, 1, 8, 3, ''); ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, ComboBoxProduto.Text, 10, becSIM); ImprimirCaixa(10,32,56,13,1,1); ImprimirTexto(orNormal, 3, 3, 2, 16, 34, 'R$'); ImprimirTexto(orNormal, 3, 4, 4, 12, 45, copy(LabelPreco.Caption, 4, Length(LabelPreco.Caption))); end; ACBrETQ.Imprimir(StrToIntDef('1', 1), StrToIntDef(Ini.ReadString('IMP_ETQ', 'AVANCO', ''), 0)); Desativar; end;
  7. Boa Noite, Sistemas ERP e PDV com mais de 1 ano em mercado, já com 7 clientes. PDV com integração a Sat, balança, gaveta. Estou colocando a venda por falta de tempo para gerenciar. Os cliente ficam em Barueri e Cajamar (SP), a maioria possui internet no estabelecimento, facilitando o suporte. Whatsapp: (11) 9 6871-1292 Segue em anexo algumas imagens dos sistemas. Foto de Diego Bonfim Foto de Diego Bonfim Foto de Diego Bonfim Foto de Diego Bonfim Foto de Diego Bonfim
  8. Bom Dia Juliana, Claro, de repente alguém já se deparou com essa dúvida. Abaixo está o parecer da contabilidade: Em relação a tributação do PIS/COFINS estão correta a sua afirmação, pois só poderá haver um modelo de tributação para cada item da NF-e, que é determinado pelo código do CST, como no XML abaixo, foi informado = 1 (Operação Tributável com Alíquota Básica). No caso da Substituição Tributária do PIS/COFINS o imposto é recolhido uma única vez pelo fabricante do produto, sendo que momento da revenda o revendedor de produto sujeito à ST de PIS e Cofins deve classificar a operação de revenda com o CST 05 (grupos de PIS e de Cofins tributado) informando o valor zero (R$ 0,00) no campo de base de cálculo (em decorrência da substituição). Por exemplo: Campos de CST: Informar o código 05; Campos de Base de Cálculo: Informar o valor zero (R$ 0,00); Campos de Alíquota: Informar as alíquotas de 0,65% (PIS) e 3% (Cofins). Minha dúvida é, somente uso PISST/CONFINSST quando a cst for 05?
  9. Boa Tarde Pessoal, Essa semana me deparei com uma dúvida, primeiramente questionei minha contabilidade, porém não consegui entender muito bem a explicação. Pesquisei não somente no fórum, mas também em vários sites e não consegui esclarecer. Em que momento eu devo informar as tags abaixo: <PISST> <qBCProd></qBCProd> <vAliqProd></vAliqProd> <vPIS></vPIS> </PISST> <COFINSST> <qBCProd></qBCProd> <vAliqProd></vAliqProd> <vCOFINS></vCOFINS> </COFINSST> Não identifiquei na nota técnica a CST (pis / cofins) que pede esses campos. Se alguém puder me ajudar, agradeço.
  10. Boa Noite André, desculpe minha ignorância, mas não entendi muito bem. Eu devo adicionar o componente ao projeto e adicionar essas linhas que você informa no comentário? Mesmo assim ele continua me retornando erro da não existência dos parâmetros (PastaInput, PastaOutput e Timeout) na função TACBrSATMFe_integrador_XML(SAT).
  11. Boa Tarde, somente para passar uma experiência minha, para caso alguém ainda tiver com dúvida. Não possuo uma software house, somente presto serviço para um unico cliente (lojista), e foi ativado o sat utilizando o CNPJ do contribuinte como Software House também. No momento de cadastrar a software house, deve-se marcar a opção Uso Próprio (acho que é isso, ou algo parecido).
  12. Boa Tarde Pessoal, Após realizar o update do SVN (tentei mais de uma vez, inclusive desinstalei o trunk removendo os arquivos do disco e instalei novamente), está me apresentando o seguinte erro: Undeclared identifier: 'PastaInput' Na linha abaixo: if Modelo = mfe_Integrador_XML then begin TACBrSATMFe_integrador_XML(SAT).PastaInput := edMFEInput.Text; TACBrSATMFe_integrador_XML(SAT).PastaOutput := edMFEOutput.Text; TACBrSATMFe_integrador_XML(SAT).Timeout := seMFETimeout.Value; end; No arquivo do componente (ACBrSATMFe_integrador.pas) eu não localizei essas três funções (PastaInput, PastaOutput e Timeout). Fico agradecido desde já.
  13. Pontilhado por lembrar desse ponto Sérgio, na verdade estou somente fazendo testes internos fora de produção, utilizando o emulador off-line. Gostaria de alterar o layout somente para sabe a disposição na impressão do cupom. Não estou conseguindo fazer isso.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.