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

Seja-Profissional-Saiba-mais.png Beneficios_banner.png

 

johnbh3

Membros
  • Posts

    571
  • Joined

  • Last visited

Everything posted by johnbh3

  1. Perdão resolvido o lote coloquei com mmyyddhhnn
  2. Bom dia, Estou com um erro na carta de correeção que ao depurarar da um erro que o número do lote não e um numero inteiro valido. with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := FrmPrincipal.CNPJ_EMP; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := StrToInt(nSeqEvento); infEvento.detEvento.xCorrecao := Correcao; end; Try ACBrNFe1.EnviarEvento(StrToInt(idLote)); Erro na linha enviar !
  3. Desculpe pessoal encontrei, nossa to cansado. Faltou as virgulas em qtde= :pqtde em diante
  4. Sabem me dizer onde esta meu erro? [FireDAC][Phys][MySQL] You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'vunitario= ? vrtotalitem= ? where id= ?' at line 5 Depurando os valores estão todos sendo passado para os parametrôs. O erro esta dando na função function TItemPedido.incluir_Alter_ItemPedido no QryInserir.ExecSQL; QryInserir.ParamByName('pidproduto').AsInteger :=fidproduto; QryInserir.ParamByName('pidpedido').AsInteger :=fidpedido; QryInserir.ParamByName('pqtde').AsFloat:=fqtde; QryInserir.ParamByName('pvunitario').AsFloat:=fvunitario; QryInserir.ParamByName('pvrtotalitem').AsFloat:=fvrtotalitem; QryInserir.ExecSQL; unit classe.itemPedido; interface uses FireDAC.Comp.Client, Vcl.Dialogs, System.SysUtils; type TItemPedido = class private fConexao : TFDConnection; fid :integer; fidpedido :integer; fidproduto :integer; fqtde :Real; fvunitario :Real; fvrtotalitem :Real; public property Conexao : TFDConnection read fConexao write fConexao; property id : integer read fid write fid; property idpedido : integer read fidpedido write fidpedido; property qtde : Real read fqtde write fqtde; property vunitario : Real read fvunitario write fvunitario; property vrtotalitem : Real read fvrtotalitem write fvrtotalitem; property idproduto : Integer read fidproduto write fidproduto; constructor Create (conexao : TFDconnection); destructor Destroy ; override; function incluir_Alter_ItemPedido (TipoOperacao: string; out erro: string) : boolean; procedure excluirPedido(numeroPedido: integer); function consultarItensPedido (idPedido : integer) : TFDQuery; function somaItensPedido (idPedido: integer): Real; end; implementation var Qry : TFDQuery; { TItemPedido } function TItemPedido.consultarItensPedido(idPedido: integer): TFDQuery; begin try //fConexao.Connected :=false; //fConexao.Connected :=true; Qry.Close; Qry.SQL.Clear; Qry.sql.Add('SELECT'); Qry.sql.Add(' itempedido.id,'); Qry.sql.Add(' itempedido.idpedido,'); Qry.sql.Add(' itempedido.idproduto,'); Qry.sql.Add(' itempedido.qtde,'); Qry.sql.Add(' itempedido.vrtotalitem,'); Qry.sql.Add(' itempedido.vunitario,'); Qry.sql.Add(' produto.nome as nome_produto,'); Qry.sql.Add(' produto.vrproduto'); Qry.sql.Add('FROM '); Qry.sql.Add(' itempedido'); Qry.sql.Add(' INNER JOIN produto ON itempedido.idproduto = produto.id'); Qry.SQL.Add('Where itempedido.idpedido='+QuotedStr(IntToStr(idPedido))); Qry.sql.Add(' ORDER BY itempedido.id'); Qry.Open(); finally Result :=Qry; end; end; constructor TItemPedido.Create(conexao: TFDconnection); begin fConexao := conexao; Qry :=TFDQuery.Create(nil); Qry.Connection :=fConexao; end; destructor TItemPedido.Destroy; begin Qry.Destroy; inherited; end; procedure TItemPedido.excluirPedido(numeroPedido: integer); begin fConexao.Connected :=false; fConexao.Connected :=true; fConexao.ExecSQL('delete from pedido where id=:numeroPedido',[numeroPedido]); consultarItensPedido(0); end; function TItemPedido.incluir_Alter_ItemPedido(TipoOperacao: string; out erro: string): boolean; var QryInserir :TFDQuery; begin try try fConexao.Connected :=false; fConexao.Connected :=true; QryInserir :=TFDQuery.Create(nil); QryInserir.Connection :=fConexao; QryInserir.SQL.Clear; if TipoOperacao='INSERIR' then begin QryInserir.SQL.Add('INSERT INTO pedido (dtaemissao, vrtotpedido, codcliente)'); QryInserir.sql.Add('VALUES (:pdtaemissao, :pvrtotpedido, :pcodcliente)'); end else begin QryInserir.SQL.Add('update itempedido set'); QryInserir.SQL.Add('idproduto= :pidproduto,'); QryInserir.SQL.Add('idpedido= :pidpedido,'); QryInserir.SQL.Add('qtde= :pqtde'); QryInserir.SQL.Add('vunitario= :pvunitario'); QryInserir.SQL.Add('vrtotalitem= :pvrtotalitem'); QryInserir.SQL.Add('where id= :pid'); QryInserir.ParamByName('pid').AsInteger :=fid; end; QryInserir.ParamByName('pidproduto').AsInteger :=fidproduto; QryInserir.ParamByName('pidpedido').AsInteger :=fidpedido; QryInserir.ParamByName('pqtde').AsFloat:=fqtde; QryInserir.ParamByName('pvunitario').AsFloat:=fvunitario; QryInserir.ParamByName('pvrtotalitem').AsFloat:=fvrtotalitem; QryInserir.ExecSQL; Result :=true; except on E : Exception do begin erro := E.Message; Result :=false; end; end; finally QryInserir.Destroy; end; end; function TItemPedido.somaItensPedido(idPedido: integer): Real; begin try //fConexao.Connected :=false; //fConexao.Connected :=true; Qry.Close; Qry.SQL.Clear; Qry.sql.Add('SELECT'); Qry.sql.Add(' sum(qtde*vunitario) AS TOTAL_PEDIDO'); Qry.sql.Add('FROM'); Qry.sql.Add(' itempedido'); Qry.sql.Add('Where idpedido='+QuotedStr(IntToStr(idPedido))); Qry.Open(); finally Result :=Qry.FieldByName('TOTAL_PEDIDO').AsFloat; end; end; end.
  5. Mas já estou com TFDPhysMySQLDriverLink incluido no datamodule, os componentes e mesma coisa de trabalhar que Firebird ou Postgress Esses dois links que vc citou nada funciona!, eu já tinha lido eles
  6. Pessoal, estou tendo este erro na conexão com MySQL Quando vou no FDConnection e clico pra testar recebo o erro: cannot load vendor library libmysql.dll se eu executo o .exe faz conexão, mas preciso funcionando na IDE pra desenvolvimento . Eu já fiz de tudo, já deixei como 32bits na IDE e 64. Já peguei tanto as DLL 32/64 em https://dev.mysql.com/downloads/mysql/ e coloquei tanto no diretorio do executavel quanto na pasta bin do delphi, ou no windows. Nada funciona, impressionante tentei de um tudo que se fala no google, algo simples mas que já demorei horas e não sai do lugar. Já peguei a DLL a dll da pasta C:\Program Files\MySQL\MySQL Server 8.0\lib e coloquei junto do executavel - Dai o executavel para de funciona reclamando da arquitetura x64 required x86, ok, compilei em x64 resolveu o problema do .exe mas continua na IDE com mesma jaca, o .exe funciona tanto em 32/64 mas na IDE de forma alguma consigo fazer o teste consequentemente vou conseguir rodar nenhum comando pra dev
  7. Então eu coloquei o papel em modo paisagem e deu certo
  8. O valor unitário liquido também come tudo também
  9. Pessoal preciso incluir 1 milhão na quantidade 1000000 tudo certo, porém no danfe corta e fica assim 000.000,00 o que posso fazer pra resolver? Nem mesmo colocando a fonte minúscula em 6 resolveu! Alguém ja passou por uma necessidade desta? Até mesmo 100 mil na quantidade ultrapassa com a fonte 8 ficando o numeral 1 comendo invadindo a linha da UNIDADE comercial
  10. Também estou com mesmo problema, e coloquei as configurações igual do posto do Daniel, usei até o demo. Agora quando tento ir em confirmações avançada da impressora no Elgin utilitário da erro.
  11. Por algum motivo a solução aqui. Tinha feito tudo isto. Foi apagar a pasta minha antiga e copiar novamente. Eu mandava subistuir os arquivos e por algum motivo dava o erro. Então deletando e copiando funcionou. Obrigado! Era os Schemas
  12. Já viram esses componentes? alguém sabe se realmente funciona? https://www.inovefast.com.br/ todos meios de pagamentos digitais
  13. Olá Pessoal boa tarde Estou tendo o erro: Element '{http://www.portalfiscal.inf.br/nfe}xPag': This element is not expected. Expected is ( {http://www.portalfiscal.inf.br/nfe}vPag ). No XML esta informado a tag nova xpag porém da o erro acima. <pag><detPag><tPag>99</tPag><xPag>Outros</xPag><vPag>0.10</vPag> o erro na verdade para na validação nem e SEFAZ, observação atualizei a pasta: Schemas
  14. Bom dia Pessoal baixei a versão Delphi Community e o DevExpress Trial e tenho o erro: a execução de código não pode continuar porque dxGDIPlusRS27.bpl não foi encontrado. Reinstalando o programa para corrigir o problema A ideia e ver a experiência com DevExpress. Eu peguei os demos da DevExpress e executei, quando dou F9 ou Shift+F9, o projeto abre redondo (Mas mesmo o demo) se for na pasta que gera o .exe da o erro acima. O que eu fiz peguei no copia e cola os componentes de um demo como se fosse iniciar um novo projeto (Mas preciso ir em Projeto - Options - e marcar a opção link with runtime (Ok funcionou também). Tudo isto e igual no demo da propria DevExpress Mas quando vou executar o proprio projeto com absolutamente nada apenas uma NavBar da o mesmo erro. Se eu pegar as BPL e adicionar no diretorio do .exe (O projeto abre normalmente). Mas em produção significa que eu preciso distribuir pro cliente final com os BPL? pergunto isto porque ficaria muito grande.
  15. Vlw irmão! Eu acabei muito rápido indo pela descrição ! Logo em seguida observei que preciso fazer ajustes nesta condição de pagamento deve informar o campo xPag pelo que entendi!
  16. Oi boa tarde, coisa bizarra, eu pedi o cliente pra trocar a forma de pagamento pra a vista ou prazo pra teste, ele tinha colocado outros e passou.
  17. Boa tarde O que pode ser isto? 441 - Rejeição: Credenciamento não permitido, o emissor ja credenciado ou suspenso Algo novo em Minas Gerais. Apareceu um cliente agora o segundo, incialmente eu achei ser algo na empresa do primeiro, porém um segundo caso.
  18. Bom dia Alguém também tem enfrentado problemas? Desde sexta feira parado em MG o NFCe
  19. Bom dia Pessoal, Sabem me dizer o motivo do erro? Seria arredondamento? O que estou fazendo de errado? Eu até valide pelo https://www.sefaz.rs.gov.br/nfe/nfe-val.aspx de fato ta com erro neste meu calculo <?xml version="1.0" encoding="UTF-8"?><NFe xmlns="http://www.portalfiscal.inf.br/nfe"><infNFe versao="4.00" Id="NFe31210817183609000146650010000000961265413362"><ide><cUF>31</cUF><cNF>26541336</cNF><natOp>VENDA CONSUMIDOR FINAL/NFCE</natOp><mod>65</mod><serie>1</serie><nNF>96</nNF><dhEmi>2021-08-05T09:37:44-03:00</dhEmi><tpNF>1</tpNF><idDest>1</idDest><cMunFG>3106200</cMunFG><tpImp>4</tpImp><tpEmis>1</tpEmis><cDV>2</cDV><tpAmb>1</tpAmb><finNFe>1</finNFe><indFinal>1</indFinal><indPres>1</indPres><procEmi>0</procEmi><verProc>ACBrNFe</verProc></ide><emit><CNPJ>17183609000146</CNPJ><xNome>INDUSTRIA E COMERCIO FOFINHO EIRELI</xNome><xFant>BISCOITO FOFINHO</xFant><enderEmit><xLgr>RUA SERRANIA</xLgr><nro>135</nro><xBairro>PADRE EUSTAQUIO</xBairro><cMun>3106200</cMun><xMun>BELO HORIZONTE</xMun><UF>MG</UF><CEP>30730532</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>3134626903</fone></enderEmit><IE>0620008780047</IE><CRT>1</CRT></emit><det nItem="1"><prod><cProd>20</cProd><cEAN>SEM GTIN</cEAN><xProd>BISCOITO POLVILHO AO LEITE - KG</xProd><NCM>19053100</NCM><CEST>1705401</CEST><CFOP>5405</CFOP><uCom>KG</uCom><qCom>0.3400</qCom><vUnCom>17.0000000000</vUnCom><vProd>5.78</vProd><cEANTrib>SEM GTIN</cEANTrib><uTrib>KG</uTrib><qTrib>0.3400</qTrib><vUnTrib>17.0000000000</vUnTrib><indTot>1</indTot></prod><imposto><vTotTrib>2.29</vTotTrib><ICMS><ICMSSN500><orig>0</orig><CSOSN>500</CSOSN></ICMSSN500></ICMS></imposto></det><det nItem="2"><prod><cProd>7</cProd><cEAN>SEM GTIN</cEAN><xProd>BISCOITO POLVILHO PALITO - KG</xProd><NCM>19053100</NCM><CEST>1705401</CEST><CFOP>5405</CFOP><uCom>KG</uCom><qCom>0.3000</qCom><vUnCom>17.0000000000</vUnCom><vProd>5.19</vProd><cEANTrib>SEM GTIN</cEANTrib><uTrib>KG</uTrib><qTrib>0.3000</qTrib><vUnTrib>17.0000000000</vUnTrib><indTot>1</indTot></prod><imposto><vTotTrib>2.29</vTotTrib><ICMS><ICMSSN500><orig>0</orig><CSOSN>500</CSOSN></ICMSSN500></ICMS></imposto></det><det nItem="3"><prod><cProd>9</cProd><cEAN>SEM GTIN</cEAN><xProd>BISCOITO PAPA OVO - KG</xProd><NCM>19053100</NCM><CEST>1705401</CEST><CFOP>5405</CFOP><uCom>KG</uCom><qCom>0.2900</qCom><vUnCom>20.0000000000</vUnCom><vProd>5.80</vProd><cEANTrib>SEM GTIN</cEANTrib><uTrib>KG</uTrib><qTrib>0.2900</qTrib><vUnTrib>20.0000000000</vUnTrib><indTot>1</indTot></prod><imposto><vTotTrib>2.69</vTotTrib><ICMS><ICMSSN500><orig>0</orig><CSOSN>500</CSOSN></ICMSSN500></ICMS></imposto></det><det nItem="4"><prod><cProd>71</cProd><cEAN>SEM GTIN</cEAN><xProd>SALGADINHO PIMENTINHA - TRADICIONAL</xProd><NCM>19059090</NCM><CEST>1705401</CEST><CFOP>5405</CFOP><uCom>KG</uCom><qCom>0.1800</qCom><vUnCom>17.0000000000</vUnCom><vProd>3.06</vProd><cEANTrib>SEM GTIN</cEANTrib><uTrib>KG</uTrib><qTrib>0.1800</qTrib><vUnTrib>17.0000000000</vUnTrib><indTot>1</indTot></prod><imposto><vTotTrib>2.29</vTotTrib><ICMS><ICMSSN500><orig>0</orig><CSOSN>500</CSOSN></ICMSSN500></ICMS></imposto></det><total><ICMSTot><vBC>0.00</vBC><vICMS>0.00</vICMS><vICMSDeson>0.00</vICMSDeson><vFCP>0.00</vFCP><vBCST>0.00</vBCST><vST>0.00</vST><vFCPST>0.00</vFCPST><vFCPSTRet>0.00</vFCPSTRet><vProd>19.83</vProd><vFrete>0.00</vFrete><vSeg>0.00</vSeg><vDesc>0.00</vDesc><vII>0.00</vII><vIPI>0.00</vIPI><vIPIDevol>0.00</vIPIDevol><vPIS>0.00</vPIS><vCOFINS>0.00</vCOFINS><vOutro>0.00</vOutro><vNF>19.83</vNF><vTotTrib>9.56</vTotTrib></ICMSTot></total><transp><modFrete>9</modFrete></transp><pag><detPag><tPag>01</tPag><vPag>20.00</vPag></detPag><vTroco>0.17</vTroco></pag></infNFe><infNFeSupl><qrCode><![CDATA[https://nfce.fazenda.mg.gov.br/portalnfce/sistema/qrcode.xhtml?p=31210817183609000146650010000000961265413362|2|1|1|23B2446C9D24AC4137D5C72E97E05BA6A2CCDB38]]></qrCode><urlChave>http://nfce.fazenda.mg.gov.br/portalnfce</urlChave></infNFeSupl><Signature xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/><Reference URI="#NFe31210817183609000146650010000000961265413362"><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/><DigestValue>wJ6WNIHuwTRKflhhMvzUwTO3i+w=</DigestValue></Reference></SignedInfo><SignatureValue>Vozj0Gio6+UtnxLQqF6mmniWEMMfBZcnjtMBAK/KrFihTrJWek0+BEk1x5kIqv5pSz4tyrRXSQPHWWflU/9kfMrRM19QfWYv3jLA6Uepao+4DhmqwagSCYCq2AIjmzKVlxJfvgDYnMH+Fml41QjbMlBllevd3J+4uYlPvhCVmlxml4ZINP1N5glH183CwvBNbmPa3j0fFkhV0yL4ydJe0stqeThmO3JTZygTyxVMxCHETiAZPqaNWMTlgAZLVQ9/Q5dn6B/z6PK2CTuEaXtxLjquagbT6j8+5thZ9ZTv45Gd7arfHQ45iQDhtbXgRzcWXkPRHC1Ye0hahnT+bLZ9VA==</SignatureValue><KeyInfo><X509Data><X509Certificate>MIIHOTCCBSGgAwIBAgIIWGsgCQNnjLowDQYJKoZIhvcNAQELBQAwWTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxFTATBgNVBAsTDEFDIFNPTFVUSSB2NTEeMBwGA1UEAxMVQUMgU09MVVRJIE11bHRpcGxhIHY1MB4XDTIwMDkwMzIwMjUwMFoXDTIxMDkwMzIwMjUwMFowgdoxCzAJBgNVBAYTAkJSMRMwEQYDVQQKEwpJQ1AtQnJhc2lsMQswCQYDVQQIEwJNRzEXMBUGA1UEBxMOQmVsbyBIb3Jpem9udGUxHjAcBgNVBAsTFUFDIFNPTFVUSSBNdWx0aXBsYSB2NTEXMBUGA1UECxMOMjQ3ODMzMjkwMDAxMzQxGjAYBgNVBAsTEUNlcnRpZmljYWRvIFBKIEExMTswOQYDVQQDEzJJTkRVU1RSSUEgRSBDT01FUkNJTyBGT0ZJTkhPIEVJUkVMSToxNzE4MzYwOTAwMDE0NjCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAJTlw4nPEYFg/V6VETyterR1f3pJ1+g95oAKS8NBSof1RgQuA+hvt/pmywPn5fyo2xFPcVxb+rtrCuLFYrWm5Qhk5APKoG1C6jLmatB0o+ME2AVw6kFiSfQIX+FfPf58EXNg2tMJRx5/LlhecKyEExvNkz4fvkTKD+pg2HRqDSTjjeyeGFrVBhJGdpPyI1DjxLL5mp+O2rPq9pdozJnCy7M/VcCWegtUB8OvgpbUzEFS31F1WBNVRWJL+4/Q2zRZo+6AvsZ4OEpc+ZLTJzLCudln0n4jKtemlzYO8JPYZhx4/Cl1tUYHkT2K+079DLMguWTXbTYyi8MmAs2wdLUM190CAwEAAaOCAoEwggJ9MAkGA1UdEwQCMAAwHwYDVR0jBBgwFoAUxVLtJYAJ35yCyJ9Hxt20XzHdubEwVAYIKwYBBQUHAQEESDBGMEQGCCsGAQUFBzAChjhodHRwOi8vY2NkLmFjc29sdXRpLmNvbS5ici9sY3IvYWMtc29sdXRpLW11bHRpcGxhLXY1LnA3YjCBvAYDVR0RBIG0MIGxgR5mb2ZpbmhvQGJpc2NvaXRvZm9maW5oby5jb20uYnKgIQYFYEwBAwKgGBMWQU5UT05JTyBQSU5UTyBEQSBTSUxWQaAZBgVgTAEDA6AQEw4xNzE4MzYwOTAwMDE0NqA4BgVgTAEDBKAvEy0xMzEyMTkzMzA1NjI3NzQ1NjQ5MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDCgFwYFYEwBAwegDhMMMDAwMDAwMDAwMDAwMF0GA1UdIARWMFQwUgYGYEwBAgEmMEgwRgYIKwYBBQUHAgEWOmh0dHA6Ly9jY2QuYWNzb2x1dGkuY29tLmJyL2RvY3MvZHBjLWFjLXNvbHV0aS1tdWx0aXBsYS5wZGYwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMIGMBgNVHR8EgYQwgYEwPqA8oDqGOGh0dHA6Ly9jY2QuYWNzb2x1dGkuY29tLmJyL2xjci9hYy1zb2x1dGktbXVsdGlwbGEtdjUuY3JsMD+gPaA7hjlodHRwOi8vY2NkMi5hY3NvbHV0aS5jb20uYnIvbGNyL2FjLXNvbHV0aS1tdWx0aXBsYS12NS5jcmwwHQYDVR0OBBYEFEQpX0L7RI2iQEO7BYazWIMWfiuDMA4GA1UdDwEB/wQEAwIF4DANBgkqhkiG9w0BAQsFAAOCAgEAt3BHXB/K11p+ORI2Slpwx+OiJLUwfX8lLoopTJcPDWWRr/FkWnHU3L7pyXYlL3tc5kcuLewzt+zHvyUh1rV/20EvZ2V6JLzn1dFS21kx/Nx+sd5ohyiXQ7tOHmrpX0v+8xiGvyCk6fS+ltq2/yY5L6CcIeVaik6u7VDh5rRbRtrtgltpQOnuMqm9DBoxbTgyIJlRKKYgX4j1dnesn4uDK6k9uel8sIsxd/B9l5rOL1uEEGF7psSWDXVxBXA4ExYL6jTPbbNcrV88NZdJ+37/lG5ETCZd354Uq4kAZIhz1S2IJxQ+RTtnqeFxW2qDjnhI6ynpfoDOG/n2bh9y/Goi/JpFENwo4ShzyMsbdKFmaOJIBzvBoQgDWrUg8a9ZUZfJjZ7y40cdHx3SUVKwunodWqRRHCjFEkkMKQoPW4YgwGOoQLh3gpAfSBstMUwQZy37WiikxkM3kQY2AbtNJerjJ61bOITwSXDh+bZSOZjNdrQq9wvIiCbaW53z4BhEeQ2PiSRboEi5uuIZsfidssr3umy2mXxK9rGPd79JAe2MI1TEJSBnCZl2JkycutmGzRMcddLQj2nYbZtf0c3SO2dWtCUgBNRBW+t7uD0XZz7F77TD/OOHZGSUe0d+7qm0IPg0qzVcHfc9xTBAIdilgAxNOmSmhcweOLwuI5HUZe+DRCc=</X509Certificate></X509Data></KeyInfo></Signature></NFe> Fiz os caculos no excel, me parece ser um erro no sistema com quantidade com 3 casas decimais.
  20. Bom dia {"nomeBeneficiario":"PERFILSIS DESENVOLVIMENTO DE SOFTWA","cnpjCpfBeneficiario":"08030107000194","tipoPessoaBeneficiario":"JURIDICA","dataHoraSituacao":"15\/07\/2021 00:00","codigoBarras":"07796869600000010000001112050675100701552434","linhaDigitavel":"07790001161205067510207015524346686960000001000","dataVencimento":"29\/07\/2021","dataEmissao":"14\/07\/2021","seuNumero":"6","valorNominal":10.00,"nomePagador":"BIO MOVEIS E DECORACOES LTDA","emailPagador":"[email protected]","dddPagador":"11","telefonePagador":"44363936","tipoPessoaPagador":"JURIDICA","cnpjCpfPagador":"01281218000124","codigoEspecie":"OUTROS","dataLimitePagamento":"27\/09\/2021","valorAbatimento":0.00,"situacaoPagamento":"BAIXADO","situacao":"PAGO","mensagem":{"linha1":"MULTA DE 3,50 E JUROS DE 0,25 AO DIA APÓS O VENCIMENTO","linha2":"Nosso whatsapp (31) 98856-1070 - nosso site www.perfilsistemas.com.br","linha3":"Boleto emitido através do software GestãoClick - www.gestaoclick.com.br","linha4":"","linha5":""},"desconto1":{"codigo":"NAOTEMDESCONTO","taxa":0.00,"valor":0.00},"desconto2":{"codigo":"NAOTEMDESCONTO","taxa":0.00,"valor":0.00},"desconto3":{"codigo":"NAOTEMDESCONTO","taxa":0.00,"valor":0.00},"multa":{"codigo":"VALORFIXO","data":"2021-07-30","taxa":0.00,"valor":3.50},"mora":{"codigo":"VALORDIA","data":"2021-07-30","taxa":0.00,"valor":0.25},"valorTotalRecebimento":10.00} Estou tentando ler este JSON. Quando eu tenho mais de um NO eu consigo ler os dados do JSON. Eu agora estou precisando pegar a situação do boleto que neste JSON esta como pago. Tudo tento fazer como se fosse um JSON simples sem no da acess violation Alguém pode me ajudar com pego a situação do boleto? Pessoal, Deu certo aqui fiz isto var js:TJSONObject; begin js:=TJSONObject(TJSONObject.ParseJSONValue(Memo1.Text)); if js<>nil then begin ShowMessage(TJSONArray(js.Values['situacao']).ToString);
  21. Resolvido! Era versão do FB de fato diferente do compilado pelo app
  22. Agora a conexão funcionou porem no programa compilado da o erro: hint: check it in the path or applicaition exe direcictory, and has x64 bitness Como se fosse versão de firebird incompativel mas isto não fazer menor sentido, peguei as dll da pasta bin do firebird C:\Program Files (x86)\Firebird\Firebird_2_5\bin e joguei no diretório do aplicativo e erro permanece Mas pra tentar resolver fui no site do firebird instalei a versão 64 bits, dai na IDE deu erro e no aplicativo não deu erro. Com Delphi 2009 não tenho essa zica kkk
×
×
  • 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.