johnbh3
Membros-
Total de ítens
703 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que johnbh3 postou
-
Ola Povo boa tarde No demo esta como Tomador.AtualizaTomador := snNao; Tomador.TomadorExterior := snNao; <DPS xmlns="http://www.sped.fazenda.gov.br/nfse" versao="1.00"> <infDPS Id="DPS310620020803010700019400900000000000000001"> <tpAmb>2</tpAmb> <dhEmi>2023-06-11T13:27:50-03:00</dhEmi> <verAplic>ACBrNFSeX-1.00</verAplic> <serie>900</serie> <nDPS>1</nDPS> <dCompet>2023-06-11</dCompet> <tpEmit>1</tpEmit> <cLocEmi>3106200</cLocEmi> <prest> <CNPJ>08030107000194</CNPJ> <IM>12506890019</IM> <xNome>EMPRESA TESTE</xNome> <end> <endNac> <cMun>3106200</cMun> <CEP>31950280</CEP> </endNac> <xLgr>RUA GENERAL ZERBINE</xLgr> <nro>26</nro> <xBairro>GOIANIA</xBairro> </end> <fone>1633224455</fone> <email>[email protected]</email> <regTrib> <opSimpNac>1</opSimpNac> <regEspTrib>1</regEspTrib> </regTrib> </prest> <toma> <CPF>12345678901</CPF> <IM>123</IM> <xNome>INSCRICAO DE TESTE E TESTE</xNome> <end> <endNac> <cMun>3106200</cMun> <CEP>31950280</CEP> </endNac> <xLgr>RUA PRINCIPAL</xLgr> <nro>100</nro> <xCpl>APTO 11</xCpl> <xBairro>CENTRO</xBairro> </end> <fone>1622223333</fone> <email>[email protected]</email> </toma> <serv> <locPrest> <cLocPrestacao>3106200</cLocPrestacao> </locPrest> <cServ> <cTribNac>010201</cTribNac> <xDescServ>discriminacao I; discriminacao II</xDescServ> <cNBS>123456789</cNBS> </cServ> </serv> <valores> <vServPrest> <vServ>100.35</vServ> </vServPrest> <trib> <tribMun> <tribISSQN>1</tribISSQN> <tpRetISSQN>1</tpRetISSQN> </tribMun> <tribFed> <piscofins> <CST>01</CST> <vBCPisCofins>100.35</vBCPisCofins> <pAliqPis>1.65</pAliqPis> <pAliqCofins>7.60</pAliqCofins> <vPis>1.66</vPis> <vCofins>7.63</vCofins> <tpRetPisCofins>2</tpRetPisCofins> </piscofins> </tribFed> <totTrib> <vTotTrib> <vTotTribFed>1.66</vTotTribFed> <vTotTribEst>0.00</vTotTribEst> <vTotTribMun>7.63</vTotTribMun> </vTotTrib> </totTrib> </trib> </valores> </infDPS> </DPS> XML Parâmetros de Retorno Data de Envio : 11/06/2023 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : E0206 Mensagem: O grupo de informações de endereço no exterior deve ser informado obrigatoriamente quando o tomador for identificado pelo NIF. Correção: ---------
-
Deu certo povo ! Não sabia que precisaria reinstalar Se puderem fechar o topico
-
Vou fazer isto! reinstalar aqui. E reporto aqui.
-
Eh queria evitar ter reinstalar todo acbr hahaha mas pelo visto n vai rolar. Deveria estar atualizado. Afinal o update não tem mais nada pra descer e nada pra reverter. Sendo assim a unica saida e remover toda pasta e baixar novamente. Estranho demais, eu trabalho com git e isso seria banal, pull, revert,
-
Estranho ! não tem nada em vermelho pra da o revert.
-
<DPS xmlns="http://www.sped.fazenda.gov.br/nfse" versao="1.00"> <infDPS Id="DPS310620020803010700019400900000000000000001"> <tpAmb>2</tpAmb> <dhEmi>2023-06-11T13:27:50-03:00</dhEmi> <verAplic>ACBrNFSeX-1.00</verAplic> <serie>900</serie> <nDPS>1</nDPS> <dCompet>2023-06-11</dCompet> <tpEmit>1</tpEmit> <cLocEmi>3106200</cLocEmi> <prest> <CNPJ>08030107000194</CNPJ> <IM>12506890019</IM> <xNome>EMPRESA TESTE</xNome> <end> <endNac> <cMun>3106200</cMun> <CEP>31950280</CEP> </endNac> <xLgr>RUA GENERAL ZERBINE</xLgr> <nro>26</nro> <xBairro>GOIANIA</xBairro> </end> <fone>1633224455</fone> <email>[email protected]</email> <regTrib> <opSimpNac>1</opSimpNac> <regEspTrib>1</regEspTrib> </regTrib> </prest> <toma> <CPF>12345678901</CPF> <IM>123</IM> <xNome>INSCRICAO DE TESTE E TESTE</xNome> <end> <endNac> <cMun>3106200</cMun> <CEP>31950280</CEP> </endNac> <xLgr>RUA PRINCIPAL</xLgr> <nro>100</nro> <xCpl>APTO 11</xCpl> <xBairro>CENTRO</xBairro> </end> <fone>1622223333</fone> <email>[email protected]</email> </toma> <serv> <locPrest> <cLocPrestacao>3106200</cLocPrestacao> </locPrest> <cServ> <cTribNac>010201</cTribNac> <xDescServ>discriminacao I; discriminacao II</xDescServ> <cNBS>123456789</cNBS> </cServ> </serv> <valores> <vServPrest> <vServ>100.35</vServ> </vServPrest> <trib> <tribMun> <tribISSQN>1</tribISSQN> <tpRetISSQN>1</tpRetISSQN> </tribMun> <tribFed> <piscofins> <CST>01</CST> <vBCPisCofins>100.35</vBCPisCofins> <pAliqPis>1.65</pAliqPis> <pAliqCofins>7.60</pAliqCofins> <vPis>1.66</vPis> <vCofins>7.63</vCofins> <tpRetPisCofins>2</tpRetPisCofins> </piscofins> </tribFed> <totTrib> <vTotTrib> <vTotTribFed>1.66</vTotTribFed> <vTotTribEst>0.00</vTotTribEst> <vTotTribMun>7.63</vTotTribMun> </vTotTrib> </totTrib> </trib> </valores> </infDPS> </DPS> Debugando o XML gerado não consegui tb entender o motivo do erro.
-
sobre o erro Parâmetros de Envio Numero do Lote: 1 Parâmetros de Retorno Data de Envio : 11/06/2023 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : E0206 Mensagem: O grupo de informações de endereço no exterior deve ser informado obrigatoriamente quando o tomador for identificado pelo NIF. Correção: --------- Código : X203 Mensagem: Não foi retornado nenhuma NFSe. Correção: --------- No demo esta como Tomador.AtualizaTomador := snNao; Tomador.TomadorExterior := snNao; Confesso que estou completamente confuso sem entender este erro. O demo do Acbr no alimentarNFSe da todo sinal que a nota de exemplo e toda em territorio nacional.
-
Ola Atualizei o componente e ta dando erro ACBR Demo NFSe x dando erro Undeclared identifier: 'proPrescon' no demo
-
Deu certo aqui, agora deu um erro O grupo de informações de endereço no exterior deve ser informado obrigatoriamente quando o tomador for identificado pelo NIF. usando o demo. Sabem oque e?
-
Ola Usando o demo ele da o erro nenhum provedor selecionado AcbrNFSe padrão proPadraoNacional erro nenhuma provedor selecionado, mas esta setado proPadraoNacional . O que to fazendo de errado? Pessoal este proPadraoNacional seria esta nova NFSe do governo mesmo? nacional?
-
para o padrão nacional qual propriedade devo setar em layoutNFse tem : lnfsPadraoNacionalv1 porém em provedor não tem nacional. Pessoal desconsiderar atualizar o componente e apareceu proPadraoNacional
-
Ola ACBrNFSeX e nacional? parece que ja esta funcionando a NFSe nacional?
-
Requisicao TIdHttp reclamando diretorio
um tópico no fórum postou johnbh3 Object Pascal - Delphi & Lazarus
Ajuda não estou entendendo uma coisa, quando dou o post da um erro Cannot open file "C:\demos\idHttp\Win32\Debug\[ { "id": 0, "NOME": "NENHUMA", var reqBody: string; idHttp: TIdHTTP; idSSL: TIdSSLIOHandlerSocketOpenSSL; response: string; begin idSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); idHttp := TIdHTTP.Create(nil); try idHttp.IOHandler := idSSL; reqBody := '[' + ' {' + ' "ID": 0,' + ' "NOME": "NENHUMA"' + ' }' + ']'; idHttp.Request.ContentType := 'application/json'; response:=idHttp.Post('https://brasil-api-interna-producao.azurewebsites.net/api/licenciamento/', reqBody); ShowMessage(response); -
Impressora padrão por compartilhamento
um tópico no fórum postou johnbh3 Object Pascal - Delphi & Lazarus
procedure SetDefaultPrinter(PrinterName: String); var I: Integer; Device : PChar; Driver : Pchar; Port : Pchar; HdeviceMode: Thandle; aPrinter : TPrinter; begin Printer.PrinterIndex := -1; getmem(Device, 255); getmem(Driver, 255); getmem(Port, 255); aPrinter := TPrinter.create; for I := 0 to Printer.printers.Count-1 do begin if Printer.printers[i] = PrinterName then begin aprinter.printerindex := i; aPrinter.getprinter (device, driver, port, HdeviceMode); StrCat(Device, ´,´); StrCat(Device, Driver ); StrCat(Device, Port ); WriteProfileString(´windows´, ´device´, Device); StrCopy( Device, ´windows´ ); SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Longint(@Device)); end; end; Freemem(Device, 255); Freemem(Driver, 255); Freemem(Port, 255); aPrinter.Free; end; Pessoal boa noite, peguei este código no google, ele funciona. Só que eu tenho um pequeno problema; Eu tenho windows impressoras com nome PDF24, Fax, Daruma Esta PDF24 se eu faço SetDefaultPrinter('PDF24) - OK funciona Porém em nosso sistema temos um cadastro de impressora onde colocamos as portas Então nome do compartilhamento da impressora PDF24 e DANFE_PDF, então eu queria saber se existe algum funcao que retorne o nome das impressoras com seus compartilhamentos, dai eu conseguiria aplicar a SetDefaultPrinter. -
! ----------------------------------------! ! SEM VALOR FISCAL ! ! ----------------------------------------! ! ! E CONFERENCIA TESTEE ! ! ---------------------------------------- ESTE e E TIPO EXPANDIDO
-
Ola Pessoal tenho um TXT que falamos direto com a porta da impressora. Tem opção de enviar direito ou regrar um TXT Quando gerado o TXT ele fica assim ! ----------------------------------------! ! SEM VALOR FISCAL ! ! ----------------------------------------! ! ! E CONFERENCIAE ! ! ---------------------------------------- Eu consigo pegar o conteúdo deste TXT e jogar de volta pro Fortes ou outro de forma que ele fica negrito automático baseado no que esta no TXT?
-
Pessoal, eu já vi uma configuração antes que consegue por edits abaixo da coluna do cxGrid para pesquisa, embaixo de cada coluna. Alguém sabe qual propriedade?
-
Emulador Impressora não fiscal existe?
johnbh3 replied to johnbh3's tópico in NFC-e - Nota Fiscal do Consumidor Eletrônica
Bom dia Eu até tenho, pensei que existisse um emulador pra cenário com suporte, essas coisas. Mas obrigado pessoal! Se quiserem fechar o post. -
Emulador Impressora não fiscal existe?
um tópico no fórum postou johnbh3 NFC-e - Nota Fiscal do Consumidor Eletrônica
Olá Bom dia, Pessoal existe emulador de impressora não fiscal? -
Delphi, Microsoft MSXML is not installed error XMLDocument
um tópico no fórum postou johnbh3 Object Pascal - Delphi & Lazarus
Pessoal Boa tarde Estou mechendo com Horse e estou tendo um retorno do seguinte: ESTE ERRP >>>> Microsoft MSXML is not installed Passo este JSON { "teste1": 1, "teste2": "01244553107", "teste3": 1, "teste3": "M", "xmlPagamentos":"<?xml version='1.0' standalone='yes' ?> <FINALIZADORES> <ITEM> <FIN_CODIGO>1</FIN_CODIGO> <VFI_VALOR>43,89</VFI_VALOR> </ITEM> </FINALIZADORES>", "quantidade": "1" } e dentro do JSON estou como pode ver na xmlPagamentos eu pago um XML. No delphi basicamente pego assim XMLDoc := TXMLDocument.Create(Application); XMLDoc.XML.Text := (XML); // no XML eu pego o conteudo da TAG xmlPagamentos senhores -
top isso mesmo, eu fiz com case ficou maior kkkk
-
Ola Bom dia duvida em SQL/Firebird Pessoal, seguinte eu tenho uma tabela EXEMPLO: PEDIDO E o seguinte campos: ID, DATA, NUM_PEDIDO, NUM_PREP Ocorre que dependendo do cenário NUM_PREP pode estar NULL Então quero seguinte quando NUM_PREP não estiver vazio exiba ele num ALIAS NUM_PEDIDO, quando ele (NUM_PREP )estiver VAZIO (Null) eu exiba ele buscando do campo NUM_PEDIDO como alias NUM_PEDIDO No final quero que retorno em : NUM_PEDIDO sempre isto pq tem um APP que ja espera este NUM_PEDIDO e n quebra ele CASE WHEN VD.NUM_PREP IS NULL THEN VD.NUM_PEDIDO ELSE VD.NUM_PREP Fiz isso ta errado?
-
Olá, E possivel gerar relatorio do fortes em imagem? Se sim podem me da uma dica?
-
Pessoal fortes Exporta para imagem?
um tópico no fórum postou johnbh3 Object Pascal - Delphi & Lazarus
Pessoal fortes Exporta para imagem? Sabem me dizer como faz? -
Ola, pessoal duas dúvidas básicas o ACBrTEFAPI e comunicado rest? Outra dúvida posso usar o Tef com uma venda não fiscal(sem o nfce) ?