Pedro A. Araújo

Prezados

Segue unit ISSLegal.Provider, com ajuste no método TratarXmlRetornado.
Durante homologação com o provedor, ao realizar a leitura do retorno de um RPS autorizado, foi retornada a mensagem "xml declaration allowed only at the start of the document".

Adicionei a instrução "Result := RemoverDeclaracaoXML(Result);" então obtive resultado satisfatório no processo.
ISSLegal.Provider.pas

Prezados

O município de Martinho Campos - MG trocou de provedor, par ao ISS Legal.
Segue a alteração realizada no arquivo ACBrNFSeXServicos.ini.

 
[3140506] Nome=Martinho Campos UF=MG Provedor=ISSLegal Versao=2.03 ProRecepcionar=https://api.redemunicipal.com.br/serversoap/NfseWSService HomRecepcionar=http://200.251.30.48:8080/serversoap/NfseWSService  

Prezados

O município de Igaratinga - MG passou a utilizar a versão 2.02, do provedor Betha.

Seguem os parâmetros atualizados.

[3130200]
Nome=Igaratinga
UF=MG
Provedor=Betha
Versao=2.02
ProRecepcionar=http://e-gov.betha.com.br/e-nota-contribuinte-ws/nfseWS
HomRecepcionar=http://e-gov.betha.com.br/e-nota-contribuinte-test-ws/nfseWS

Quando ultrapassado o valor limite definido pela UF, é necessário informar o CPF, CNPJ ou Id Estrangeiro.
Caso não seja informado, é retornada a rejeição 750.

O código abaixo permite executar comandos no banco de dados caso o campo não exista.
 
EXECUTE BLOCK AS BEGIN IF (NOT EXISTS( SELECT 1 FROM RDB$RELATION_FIELDS RF WHERE RF.RDB$RELATION_NAME = 'TABELA' AND RF.RDB$FIELD_NAME = 'CAMPO')) THEN EXECUTE STATEMENT 'ALTER TABLE TABELA ADD CAMPO...'; END  

Existem componentes que funcionam como robôs, utilizando o WhatsApp Web como base. O recurso não é oficial e pode gerar banimentos.
Para Lazarus > https://github.com/OpenSourceCommunityBrasil/WBotCE
Para Delphi > https://github.com/mikelustosa/Projeto-TInject
Existem soluções que utilizam a API do WhatsApp, como ZEnvia  https://www.zenvia.com/precos/ ou Twilio https://www.twilio.com/pt-br/pricing
Você também pode desenvolver uma solução própria, implementando a API do WhatsApp https://developers.facebook.com/docs/whatsapp/, solução oficial porém também possui custos.

Veja o tópico
 
Se você é um profissional, pode usar o Delphi Community Edition para criar aplicativos para seu próprio uso e aplicativos que podem ser vendidos até sua receita atingir US$ 5.000 por ano.
Se você é uma pequena empresa ou organização sem receita (ou até US$ 5.000 por ano), também é possível usar o Delphi Community Edition. Depois que a receita total da empresa atingir US$ 5.000, ou que sua equipe ultrapassar 5 desenvolvedores, é possível migrar para uma licença comercial irrestrita com a Professional Edition.

https://www.embarcadero.com/br/products/delphi/starter

O complemento de ICMS deverá ser no mesmo modelo da nota fiscal de origem.

ICMS – Obrigações acessórias – Emissão de Nota Fiscal de Consumidor Eletrônica (NFC-e) com a aplicação de alíquota menor que a devida – Documento fiscal para complementação do valor imposto.
I.          Para a finalidade de complementação de valor do imposto devido, destacado a menor em determinado documento fiscal, deverá ser utilizado documento fiscal do mesmo modelo daquele a ser complementado (artigo 182, inciso IV, combinado com artigos 124, XXII, e 212-O, III e § 8º, todos do RICMS/2000).
II.         Para cada NFC-e emitida com valor do imposto a menor, o contribuinte deverá emitir uma NFC-e complementar, indicando os dados do documento original a que corresponde.

Cada UF define um limite de valor para NFCe com consumidor não identificado.
Em MG o decreto 48.398 aumentou o limite de R$ 3.000 para R$ 10.000.

Dentro do subselect, você pode fazer join com a tabela NfEntrada e odenar de forma decrescente pela data de entrada.

 
UPDATE PRODUTOS SET ORIGEM = ( SELECT FIRST 1 ITNFENTRADA.ORIGEM FROM ITNFENTRADA INNER JOIN NFENTRADA ON (NFENTRADA.ID = ITNFENTRADA.IDNFENTRADA) WHERE ITNFENTRADA.CODPRODUTO= PRODUTOS.CODIGO ORDER BY DATAENTRADA DESC)  

Boa tarde!
Deve-se utilizar o com0com para emular as portas COM.
Uma será utilizada pelo emulador e outra no projeto que realizará a leitura.

Carregue o resource em uma stream e utilize o método TACBrGIF.LoadFromStream.

Quando o atributo IsHTML está definido como True, o corpo do e-mail precisa ser formatado com tags HTML.
Para quebra de linha, deve-se utilizar a tag br, por exemplo.

Bom dia 
Estou usando as configurações abaixo no arquivo ini, assim obtive sucesso.
 
[3106200]
Nome=Belo Horizonte
UF=MG
Provedor=BHISS
ProRecepcionar=https://bhissdigital.pbh.gov.br/bhiss-ws/nfse
HomRecepcionar=https://bhisshomologa.pbh.gov.br/bhiss-ws/nfse
ProNameSpace=http://ws.bhiss.pbh.gov.br
HomNameSpace=http://ws.bhiss.pbh.gov.br

Obrigado.

Bom dia!

Tente aumentar o timeout da comunicação com a SEFAZ. Realmente a SEFAZ está passando por instabilidade nos últimos dias.

A versão CE do Delphi tem diversas limitações. Se for para estudar, o Lazarus pode ser uma boa opção, por ser open source e multi plataforma.
Se desejar permanecer no Delphi, utilize o FireDac ao invés do DBX, visto que o primeiro possui mais recursos e facilidades em relação ao segundo.

Prezados

Estou fazendo os testes dos componentes ACBr em um Raspberry Pi, utilizando cross compile do FPC para Linux ARM. 
O arquivo anexo, possibilita o funcionamento de diversos componentes. Para NFe, há de se fazer ajustes quanto à divisão por variáveis do tipo Currency, na preparação do DANFe.
Bloco alterado, iniciado na linha 649.
 
{ Set FreePascal to Delphi mode } {$IFDEF FPC} {$MODE DELPHI} {$IFNDEF CPUARM} {$ASMMODE Intel} {$ENDIF} {$UNDEF BORLAND} {$DEFINE CPUASM} // FPC defines CPU32, CPU64 and Unix automatically {$ENDIF}  
ACBr_jedi.inc