leandroaoa
-
Total de ítens
372 -
Registro em
-
Última visita
-
Days Won
3
Community Answers
-
leandroaoa's post in Consultar cstat antes de enviar was marked as the answer
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.
-
leandroaoa's post in AcBRETQ Pulando etiqueta was marked as the answer
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
-
leandroaoa's post in DistribuicaoDFe não baixa was marked as the answer
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.
-
leandroaoa's post in Mover string contendo html para um RichEdit e exibir formatado was marked as the answer
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>
-
leandroaoa's post in NFe com devolução de IPI was marked as the answer
bom dia
o Campo vOutros esta tambem com valor nesse caso ele deve ser zerado
-
leandroaoa's post in csosn 3500 was marked as the answer
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
-
leandroaoa's post in Problema com ACBrETQ apos atualização was marked as the answer
adicione na uses ACBrETQClass
-
leandroaoa's post in Erro Interno: 12030 Erro HTTP: 0 URL: https://homolog.sefaz.go.gov.br/nfe/services/NFeAutorizacao4?wsdl Erro: 12030 - A conexão com o servidor foi redefinida ou encerrada, ou um protocolo SSL incompatível foi encontra was marked as the answer
esse post é antigo o seu erro deve estar relacionado a link abaixo
-
leandroaoa's post in erro de autorizacao was marked as the answer
da uma olhada ai vai encotrar seu problema
-
leandroaoa's post in Rejeição 660: CFOP de Combustível e não informado grupo de combustível da NF-e was marked as the answer
Boa tarde voce deve preencher os campos
Produto.Prod.comb.cProdANP := clientdataset1.fieldbyname('cprodanp').asinteger;
Produto.Prod.comb.descANP := clientdataset1.fieldbyname('descanp').asstring;
Produto.Prod.comb.UFcons := ifthen(NotaF.NFe.Dest.EnderDest.UF = '',NotaF.NFe.Emit.EnderEmit.UF,NotaF.NFe.Dest.EnderDest.UF);
-
leandroaoa's post in Emitir boletos was marked as the answer
boa tarde
o ACBrBoleto segue os layouts exigido pelos banco se voce programa em delphi ou lazarus basta estudar o exemplo que la tem tudo.
-
leandroaoa's post in Boletos via webserver was marked as the answer
Boa tarde
vai na pasta exemplo do ACBr e estuda o exemplo do acbrboleto ali tem tudo o que voce precisa
-
leandroaoa's post in Boas práticas com interfaces was marked as the answer
boa tarde
acesso a dados e persistencia na DAO
na classe cliente somente verificaria se os dados estão ok exemplo verificaria se o campo nome esta em branco se sim dispararia um raise;
pra verificar limite eu criaria uma outra classe. uma coisa estude sobre SOLID. eu vou separando minhas classe cada classe responsavel por fazer uma coisa é assim que eu faço. Mas como nosso amigo @Thulio Bittencourt diz existe mil maneira de prepara o neston
e trabalhar com interface no começo vai apanhar muito mas depois é mamão com açúcar
-
leandroaoa's post in Modo Sincrono was marked as the answer
Boa noite
basta olhar a assinatura do metodo
mas vamos la
Enviar(aLote: 1, imprimir: false, sincrono: true, zipado: false); ACBrNFe1.Enviar(nLote, True, True) 1º - Numero do lote
2º - Se vai Impirmir
3º - Sincrono = True
-
leandroaoa's post in Relatório FortesReport composto (mais de uma tabela) was marked as the answer
boa tarde
basta colocar rlgroup dentro do outro ai o primeiro o datafields = categorias aqui coloca uma band sumary que vai somar o tota da categoria
no segundo datafields = grupo aqui voce colocaria a band rldetail para apresentar o itens a banda sumary que seria soma dos itens
no index da sua tabela deve esta categoria, grupo
-
leandroaoa's post in FortesReport Medidas em mm was marked as the answer
Boa tarde
Tem a propriedade RealBounds a ultima vez que tentei usar ainda não estava implementada mas faz muito tempo quem sabe ja não a implementaram
-
leandroaoa's post in CFOP 5405 com CST 060 was marked as the answer
bom dia sugiro a você estudar o manual de orientacao da nfe depois consultar um bom contador pois emissao de DFe não é uma coisa tão simples assim quanto a regras fiscais mas o seu erro esta facil olha o seu xml nessa parte aqui
<total> <ICMSTot> <vBC>6.90</vBC> <vICMS>0.83</vICMS> <vICMSDeson>0.00</vICMSDeson> <vFCP>0.00</vFCP> <vBCST>6.90</vBCST> <vST>1.24</vST> os campos vBC, vICMS, vBSST e vST tem que estar zerado pois no item não tem esse valor conforme abaixo
<imposto> <ICMS> <ICMS60> <orig>0</orig> <CST>60</CST> </ICMS60> </ICMS> </imposto>
-
leandroaoa's post in Imprimir Etiquetas 3 coluna was marked as the answer
tarde ta ai :
with ACBrETQ do
begin
Desativar;
Modelo := TACBrETQModelo(strtoint(covalor(FormConfig.edit79.text))) ;
Porta := trim(FormConfig.edit38.text);
Unidade := etqMilimetros;
Ativar ;
ImprimirTexto(orNormal, 2, 1, 1, 2, 1, clientdataset2.fieldbyname('desc1').asstring);
ImprimirTexto(orNormal, 2, 1, 1, 5, 1, clientdataset2.fieldbyname('tam').asstring);
ImprimirTexto(orNormal, 2, 1, 2, 8, 1, 'REF '+xValor);
ImprimirBarras(orNormal, barCODE128, 2, 2, 12, 1, trim(clientdataset2.fieldbyname('barra').asstring), 5, BecNAO);
ImprimirTexto(orNormal, 2, 1, 2, 18, 1, trim(clientdataset2.fieldbyname('barra').asstring));
ImprimirTexto(or90, 1, 1, 1, 2, 26, trim(FormConfig.Edit2.Text));
ImprimirTexto(or90, 2, 1, 1, 1, 29, trim(FormConfig.Edit8.Text));
ImprimirTexto(orNormal, 2, 1, 1, 2, 37, clientdataset2.fieldbyname('desc1').asstring);
ImprimirTexto(orNormal, 2, 1, 1, 5, 37, clientdataset2.fieldbyname('tam').asstring);
ImprimirTexto(orNormal, 2, 1, 2, 8, 37, 'REF '+xValor);
ImprimirBarras(orNormal, barCODE128, 2, 2, 12, 37, trim(clientdataset2.fieldbyname('barra').asstring), 5, BecNAO);
ImprimirTexto(orNormal, 2, 1, 2, 18, 37, trim(clientdataset2.fieldbyname('barra').asstring));
ImprimirTexto(or90, 1, 1, 1, 2, 62, trim(FormConfig.Edit2.Text));
ImprimirTexto(or90, 2, 1, 1, 1, 65, trim(FormConfig.Edit8.Text));
ImprimirTexto(orNormal, 2, 1, 1, 2, 73, clientdataset2.fieldbyname('desc1').asstring);
ImprimirTexto(orNormal, 2, 1, 1, 5, 73, clientdataset2.fieldbyname('tam').asstring);
ImprimirTexto(orNormal, 2, 1, 2, 8, 73, 'REF '+xValor);
ImprimirBarras(orNormal, barCODE128, 2, 2, 12, 73, trim(clientdataset2.fieldbyname('barra').asstring), 5, BecNAO);
ImprimirTexto(orNormal, 2, 1, 2, 18, 73, trim(clientdataset2.fieldbyname('barra').asstring));
ImprimirTexto(or90, 1, 1, 1, 2, 98, trim(FormConfig.Edit2.Text));
ImprimirTexto(or90, 2, 1, 1, 1, 101, trim(FormConfig.Edit8.Text));
Imprimir(1, StrToInt(covalor(FormConfig.edit80.text)));
end;
-
-
-
leandroaoa's post in Problema na Impressão do Danfe NFCe para A4 was marked as the answer
olhe este poste ve se ajuda
-
leandroaoa's post in Problemas com Gertec PPC 910/920 was marked as the answer
bom dia
eu passei por esse erro 31 com impressora bematech. solucao encontrada troquei de computador pois o driver da impressora não é compativel com a placa mae antiga essas placas maes que ainda tem suporte a USB 1.1 e tambem troquei de impressora passei a usar a epson que não apresentou esse conflito o seu caso deve ser o mesmo. deve ser algum conflito entre o driver da GERTEC e as Placas mais antigas.
-
leandroaoa's post in Nfc-E Para Destinatario Contribuinte De Icms was marked as the answer
Sim para NFC-e você sempre vai usar 9 e não informa o campo IE
não esquece de por como resolvido...