Ir para conteúdo
  • Cadastre-se

Daniel Simoes

Fundadores
  • Total de ítens

    27.553
  • Registro em

  • Última visita

  • Days Won

    766

Tudo que Daniel Simoes postou

  1. Por favor estude o Demo SATTeste, suas perguntas são muito básicas... Lá existe um exemplo de uma venda completa
  2. Leia os fontes... a Impressão do TROCO está implementada nos Extratos procedure TACBrSATExtratoESCPOS.GerarPagamentos(Resumido : Boolean = False ); var i : integer; begin {if not Resumido then FBuffer.Add(''); } for i:=0 to CFe.Pagto.Count - 1 do begin FBuffer.Add('<c>'+ACBrStr(PadSpace(CodigoMPToDescricao(CFe.Pagto.Items[i].cMP)+'|'+ FormatFloatBr(CFe.Pagto.Items[i].vMP, '#,###,##0.00'), FPosPrinter.ColunasFonteCondensada, '|'))); end; if CFe.Pagto.vTroco > 0 then FBuffer.Add('<c>'+PadSpace('Troco R$|'+ FormatFloatBr(CFe.Pagto.vTroco, '#,###,##0.00'), FPosPrinter.ColunasFonteCondensada, '|')); end;
  3. Notei algumas coisas... No calculo da altura do Formulário, foi corretamente adicionado um código para considerar a banda de Descontos e Detalhamentos... porém esse ajuste somente ocorrerá, se no primeiro Item, houver descontos e detalhamento (IFTHEN)... ifthen((ACBrNFeDANFCeFortes.ImprimirDescPorc)and(ACBrNFeDANFCeFortes.FpNFe.Det.Items[0].Prod.vDesc>0),Trunc(rlbDescItem.Height * ACBrNFeDANFCeFortes.FpNFe.Det.Count),0)+ ifthen((ACBrNFeDANFCeFortes.ImprimirDetalhamentoEspecifico)and(ACBrNFeDANFCeFortes.FpNFe.Det.Items[0].Prod.vOutro>0),Trunc(rlbOutroItem.Height * ACBrNFeDANFCeFortes.FpNFe.Det.Count),0); Talvez o mais seguro seja sempre somar o tamanho das bandas... Em "rlbDetItemBeforePrint", você modificou completamente a montagem da banda... mas o código está confuso e desalinhado... e portanto não dá pra compreender porque você precisou modifica-la... Como ficará a banda após a modificações ? consegue prover uma imagem com o "antes e depois" ?
  4. Habilite a opção "Controle Porta"... Lembre-se que com o Objeto "ESCPOS", você pode imprimir qualquer relatório na impressora de Bobina, e contar com todas as Tags suportadas pelo ACBrPosPrinter <e> - Liga Expandido </e> - Desliga Expandido <n> - Liga Negrito </n> - Desliga Negrito <s> - Liga Sublinhado </s> - Desliga Sublinhado <c> - Liga Condensado </c> - Desliga Condensado <i> - Liga Italico </i> - Desliga Italico </fn> - Fonte Normal </fa> - Liga Fonte Tipo A (normal) </fb> - Liga Fonte Tipo B (condensada) <in> - Liga Fonte Invertida (Fundo Preto) </in> - Desliga Fonte Invertida </ae> - Liga Alinhamento a Esquerda </ce> - Liga Alinhamento ao Centro </ad> - Liga Alinhamento a Direita </linha_simples> - Imprime Linha Simples </linha_dupla> - Imprime Linha Dupla </pular_linhas> - Pula N Linhas de acordo com propriedade do componente </logo> - Imprime Logotipo já gravado na Impressora (use utilitário do fabricante) </corte_parcial> - Efetua Corte Parcial no Papel (não disponivel em alguns modelos) </corte_total> - Efetua Corte Total no papel </abre_gaveta> - Aciona a abertura da Gaveta de Dinheiro </beep> - Emite um Beep na Impressora (não disponivel em alguns modelos) </zera> - Reseta as configurações de Fonte Alinhamento.<LF>Ajusta Página de Código e Espaço entre Linhas </lf> - Pula para a própxima linha </cr> - Retorna para o Inicio da Linha <ad> - Bloco - Texto Alinhado a Direita <ae> - Bloco - Texto Alinhado a Esquerda <ce> - Bloco - Texto Centralizado <ean8> - Bloco - Cod.Barras EAN8 - 7 numeros e 1 dig.verificador <ean13> - Bloco - Cod.Barras EAN13 - 12 numeros e 1 dig.verificador <std> - Bloco - Cod.Barras "Standard 2 of 5" - apenas números, tamanho livre <inter> - Bloco - Cod.Barras "Interleaved 2 of 5" - apenas números, tamanho PAR <code11> - Bloco - Cod.Barras Code11 - apenas números, tamanho livre <code39> - Bloco - Cod.Barras Code39 - Aceita: 0..9,A..Z, ,$,%,*,+,-,.,/, tamanho livre <code93> - Bloco - Cod.Barras Code93 - Aceita: 0..9,A..Z,-,., ,$,/,+,%, tamanho livre <code128> - Bloco - Cod.Barras Code128 - Todos os caracteres ASCII, tamanho livre <upca> - Bloco - Cod.Barras UPCA - 11 numeros e 1 dig.verificador <upce> - Bloco - Cod.Barras CodaBar - Aceita: 0..9,A..D,a..d,$,+,-,.,/,:, tamanho livre <codabar> - Bloco - Cod.Barra MSI - Apenas números, 1 dígito verificador <msi> - Bloco - Cod.Barras Code128 - Subtipo A <code128a> - Bloco - Cod.Barras Code128 - Subtipo B (padrão) = <code128> <code128b> - Bloco - Cod.Barras Code128 - Subtipo C (informar valores em BCD) <code128c> - Bloco - <abre_gaveta> - Bloco - Abertura de Gaveta Específica (1 ou 2) <barra_mostrar> - Bloco - Configura se deve exibir conteudo abaixo do Cod.Barras: 0-NAO; 1-SIM <barra_largura> - Bloco - Configura a Largura das Barras do Cod.Barras: 0 a 5. (0=default) <barra_altura> - Bloco - Configura a Altura do Cod.Barras: 0 a 255. (0=default) <qrcode> - Bloco - Imprime QRCode de acordo com "ConfigQRCode" <qrcode_tipo> - Bloco - Configura o Tipo de QRCode: 1,2 <qrcode_largura> - Bloco - Configura a Largura do QRCode: 1 a 16 <qrcode_error> - Bloco - Configura o Error Level do QRCode: 0 a 3 <logo_imprimir> - Bloco - Configura a Impressão ou não do Logo Tipo: 0-NÃO, 1-SIM (default = 1) <logo_kc1> - Bloco - Configura a posição KC1 do Logo a ser impresso. Ex: 0=48 <logo_kc2> - Bloco - Configura a posição KC2 do Logo a ser impresso. Ex: 1=49 <logo_fatorx> - Bloco - Configura o aumento Horizonal do Logo, de 1 a 4 <logo_fatory> - Bloco - Configura o aumento Vertical do Logo, de 1 a 4 <ignorar_tags> - Bloco - Ignora todas as Tags contidas no Bloco
  5. O Binário é 32 bits, e dependerá de várias bibliotecas como OpenSSL e XMLSec... Elas estão instaladas ? A versão da lib instalada é 32 bits ? Eu uso o Monitor com sucesso no Mageia e no CentOS
  6. Você não respondeu a minha pergunta: Pode ser um problema no Driver da Impressora... versus o Fortes Report Porque você não usa a versão EscPos ?
  7. Se não me engano, a Bematech usa STDCALL As unicas DLLs que usam CDECL, são a da Gertec e do Emulador de SAT do Fisco
  8. Apenas o ECFTeste em Lazarus, possui tal exemplo
  9. Veja o método RoundABNT na ACBrUtil.pas
  10. O Fato do CNPJ não estar sendo lido, pode ser um problema na maneira como você está informando o certificado para o componente... provavelmente isso cause outros problemas, na hora de assinar ou transmitir... Em todo caso, há uma modificação recente nos fontes, para que o CNPJ não seja comparado, se o mesmo não pode ser lido do Certificado. Sempre abra um novo tópico, para um problema diferente...
  11. Por favor anexe (zip) um Log completo
  12. De um "reset" na impressora... Basta desligar, e ligar, pressionando a tecla "Feed" por alguns segundos... Após o Reset, veja se deu certo...
  13. Vá com o Debug antes do problema... verifique o CNPJ que é retornado qual é lido o CNPJ do Certificado... e compare a raiz com a do CNPJ do emissor...
  14. Vc fala que a impressora está em Loop infinito ? Se for o caso, e sua impressora for uma MP4200TH-FI, já foram aplicadas correções nos fontes para isso... Verifique se você tem a última versão...
  15. Lembre que o MonitorPLUS é compilado em 32 bits... Então todas as Libs que ele usam, também devem ser
  16. Pode ser que sua aplicação seja parecida com o ACBrMonitorPLUS... Pela sua descrição o problema pode estar no seu Servidor... Estude o Log gerado pelo ACBrECF, e veja como o componente recebendo os Comandos e respondendo
  17. Não é resposta que você espera... Mas este cenário é proibido pelo Fisco. O ECF deve estar fisicamente ligado ao PC, e ser apenas um por PDV....consulte a legislação
  18. As Luzes "Rede" e "Sefaz" devem ficar acessas Lembre-se que para usar a rede dessa maneira, você deve compartilhar o Wi-Fi no Windows
  19. Elgin I9 usa ppEscPosEpson
  20. Infelizmente não tenho novas dicas... a muito tempo que não trabalho com o Delphi...
  21. OK... lendo os fontes e abrindo o arquivo dos municípios, peguei a sua ideia... Já enviei para o SVN o ajuste, com pequenas modificações... Muito obrigado pela ajuda
  22. http://www.projetoacbr.com.br/forum/announcement/7-fim-de-corre%C3%A7%C3%B5es-e-commits-em-trunk/
  23. Qual é o problema original ? Qual foi a sua estratégia na correção ? Não compreendi, porque você está comparando o resultado com "9".. if pos(UpperCase(TiraAcentos(xMun)), UpperCase(TiraAcentos(UTF8Encode(List[i])))) = 9 then
  24. Você instalou o Fortes Report CE ? http://www.projetoacbr.com.br/forum/announcement/12-novo-fortes-report-ce-e-projeto-acbr/
  25. Consegui aplicar os testes na FPCUnit procedure RoundABNTTest.TestesEstouro; begin CheckEquals( 12334234.46, RoundABNT(12334234.4567567567567567567,-2) ); CheckEquals( 12334234.4568, RoundABNT(12334234.4567567567567567567,-4) ); CheckEquals( 5233.456757, RoundABNT(5233.4567567567567567567,-6) ); end; Apliquei uma possível correção no SVN... O Truque, foi desprezar a parte inteira do Valor, que não tem influência no calculo... No final, essa parte desprezada é novamente incorporada ao resultado...
×
×
  • 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.