leandroaoa

Essa impressora é osso ela tem esse problema vira e mexe tem que resetar e calibrar novamente por isso eu prefiro Argox

Eu uso Lazarus + Horse + MySQL AWS Voce vai construir seu servidor de dados e consumir ele simples e funcional

boa tarde olha a regra Simples (CSOSN) - Na NF-eletrônica 2.0 se a empresa for optante pelo Simples Nacional o CST é chamado de CSOSN (Código de Situação da Operação no Simples Nacional), que é composto pela origem mais 3 números:  101 - Tributada pelo Simples Nacional com permissão de crédito  102 - Tributada pelo Simples Nacional sem permissão de crédito  103 - Isenção do ICMS no Simples Nacional para faixa de receita bruta  201 - Tributada pelo Simples Nacional com permissão de crédito e com cobrança do ICMS por substituição tributária  202 - Tributada pelo Simples Nacional sem permissão de crédito e com cobrança do ICMS por substituição tributária  203 - Isenção do ICMS no Simples Nacional para faixa de receita bruta e com cobrança do ICMS por substituição tributária  300 - Imune  400 - Não tributada pelo Simples Nacional  500 - ICMS cobrado anteriormente por substituição tributária (substituído) ou por antecipação  900 - Outros CST 41 é para empresas lucro real

Boa noite eu gosto da Argox OS214

Boa tarde da uma olhada ai nesse topico acho que pode te ajudar

Boa tarde pessoal. tenho a seguinte situacao. eu recebo um retorno ja com a etiqueta montada e preciso imprimir em uma argox ppla alguem consegue me ajudar recebo o seguinte N R30,10 D10 A210,0,0,1,1,1,N,"Leandro da Silva Alves" B285,65,0,2,2,4,70,N,"206323216001" A210,20,0,1,1,1,N,"206-3232160-01 19/01/24 11:42" A210,35,0,1,1,1,N,"CONV: 15665" A330,35,0,1,1,1,N,"PED.CONV: 536" A210,50,0,1,1,1,N,"NTOSP" A430,50,0,1,1,1,N,"DN 07/03/77" A195,220,3,1,1,1,R," NTOSP" A210,143,0,1,1,1,N,"SORO" A210,158,0,1,1,1,N,"" A210,173,0,1,1,1,N,"VOL: 800ul" A450,173,0,1,1,1,N,"(REFRIG.)" A210,188,0,1,1,1,N,"TSH-B" A210,206,0,1,1,1,N,"" P1 N

Bom dia o fluxo é o mesmo voce vai imprimir a NFCe que deu rejeitada nela sera impresso o dizeres NFCe emitida em contigencia algo assim. Entrega pra pessoa e apos a normalizacao reenvia a NFCe pra Sefaz

bom dia Eu uso o seguinte fluxo : Salvo os dados da NFCe no banco de dados Salvo os dados de pagamento envio a nota rejeitado ou nao é impresso o cupom e libero o cliente a tarde no fechamento do caixa ai sim vai aparecer as notas rejeitadas so permitindo o fechamento apos a validacao das mesma basicamente seria isso. A forma que voce quer fazer ai nao vai dar muito certo imagina um supermercado lotado voce vai para um caixa ate que arrume o problema na emissao da nfce e se for problema no cadastro do produto, vai ficar travado ate a pessoa que faz cadastro alterar pra poder liberar a nota imagina quantas outras pessoas vao ter comprado o mesmo produto, e ai vai parar todos os caixas. no meu ponto de vista a unica coisa que pode travar é a confirmacao da forma de pagamento apos confirmado o pagamento libera o cliente e vamos pro proximo.

Boa tarde segue esse topico ai que voce vai encontrar tudo o que precisa

@Daniel Simoes Bom dia. deu certo aqui eu que passei os dados errado obrigado ai pela ajuda pode fechar o topico ACBrPSPSicredi1.Certificado := DecodeBase64(aDataSet.FieldByName('certificado_cer').AsAnsiString);

boa noite Daniel no meu teste nao deu certo salvando no banco. se eu passar o caminho da certo agora salvando no banco da erro 500 Olha como estou fazendo estou usando essa funcao pra salvar no banco MYSQL function LerCertificado(pCaminho: string): AnsiString; var vFile: TFileStream; begin vFile := TFileStream.Create(pCaminho, fmOpenRead); try Result := EncodeBase64(ReadStrFromStream(vFile, vFile.Size)); finally vFile.Free; end; end; dm1.sqldataset1.close; dm1.sqldataset1.sql.text:='update config_pix set certificado_cer=:certificado'; dm1.sqldataset1.parambyname('certificado').AsAnsiString := LerCertificado(lCaminho);//trim(destino); dm1.sqldataset1.ExecSQL; ACBrPixCD1.PSP := ACBrPSPSicredi1; ACBrPSPSicredi1.ChavePIX := aDataSet.FieldByName('chavepix').AsString; ACBrPSPSicredi1.ClientID := aDataSet.FieldByName('clientid').AsString; ACBrPSPSicredi1.ClientSecret := aDataSet.FieldByName('clientsecret').AsString; ACBrPSPSicredi1.ArquivoChavePrivada := FDir+aDataSet.FieldByName('chave_privada').AsString; ACBrPSPSicredi1.ArquivoCertificado := DecodeBase64(aDataSet.FieldByName('certificado_cer').AsAnsiString);

Bom dia pessoal. É possivel salvar os certificado PEM, CER, KEY em base de dados ? Estou implementando a APIPIX e estava vendo essa possibilidade ao inves de ter que levar os certificados pra distribuir junto a aplicacao

boa tarde segue o passo que tem ai nesse link ai tem os banco suportados atualmente

Perfeito obrigado pela dica funcionou perfeitamente

Boa tarde pessoal é possivel concatenar varios PDFs em delphi utilizando o ACBrFPD ? se for alguem teria um exemplo !

Bom dia se voce tinha uma versão tão antiga assim sugiro a dar uma olhada nos fontes pois tiveram algumas mudancas pegue o exemplo tambem a analisa. Essa foi uma das prorpiedades alteradas que pode estar dando esse problema ai FETQ.Unidade := etqMilimetros; //etqMilimetros, etqPolegadas, etqDots, etqDecimoDeMilimetros essa propriedade altera o tamanho conforme o que estiver selecionado

Bom dia estude melhor o link que o @Renato Rubinho te passou voce esta fazendo errado a consulta por ultNSU voce tem que informar o ultimo NSU que é devolvido da consulta anterior e deve espera 1 hora entre consulta. Pra poder efetuar o download dos xml voce precisa fazer a manifestacao so apos a manifestacao é que é liberado o XML para ser baixado. A consulta so traz um resumo.

Mas é so voce criar os style estou deduzindo que voce saiba trabalhar com htm var Doc: Variant; begin if not Assigned(WebBrowser1.Document) then WebBrowser1.Navigate('about:blank'); Doc := WebBrowser1.Document; Doc.Clear; Doc.Write('<html>'); Doc.Write('<head>'); Doc.Write('<style>'); Doc.Write('.important {background-color: blue; color: white; border: 2px solid black; margin: 2px; padding: 2px;}'); Doc.Write('</style>'); Doc.Write('</head>'); Doc.Write('<body>'); Doc.Write('<h1 class="important">Isto é um cabeçalho</h1>'); Doc.Write('<p class="important">Isto é um parágrafo.</p>'); Doc.Write('</body>'); Doc.Write('</html>

bom dia porque voce não usa WebBrowser no lugar do RichEdit exemplo: var Doc: Variant; begin if not Assigned(WebBrowser1.Document) then WebBrowser1.Navigate('about:blank'); Doc := WebBrowser1.Document; Doc.Clear; Doc.Write('<b>Erro:</b>Forma de pagamento inválida.'); Doc.Close;

no seu caso deve ficar assim: vtroco := 5,00 pois o valor da nota é menor que o pagamento e fazer um controle interno desse valor, nao tem outra solução a nao ser controle interno seu pra fazer o que voce quer faca o seguinte informa o valor da nota na forma de pagamento e esse valor voce salva em ouro lugar seria mais ou menos isso

Bom dia pra voce usar outros voce tem que alimentar a seguinte tag tambem xPag := 'CREDITO COMPRA FUTURA';

Boa tarde Esta usando fortes ou fast e qual o layout e como esta alimentando o componente. esse mesmo comportamento acontece tambem no programa de exemplo.

bom dia o Campo vOutros esta tambem com valor nesse caso ele deve ser zerado

como eu disse acima nao existe csosn 3500 voce tem que passar o seguinte icms.orig := 3; icms.csosn := 500; nao importa se é nota de venda devolucao etc esse seu if esta totalmente errado verifica ai essa sua funcao. outra coisa verirfica com o contador da empresa para gerar a nota de devolucao correta pois existe produtos com ST e produtos normal existe regras e tem que empresas que ate mandam um espelho de como dever ser feita a nota de devolucao

Boa tarde esses numeros nao existe. abaixo tabela CSOS consulte um contador para enteder a numeracao pelo visto ali o primeiro numero seria a origem da mercadoria o campo Produto.Imposto.ICMS.orig