paulosilva0306

Bom dia Pessoal... Sobre esse tópico ainda, alguém já conseguiu usar o ACBrPICD no Android? Se tiver alguém que tenha feito, por gentileza pode dar uma ajuda...

Fiz sim, porém, não consegui identificar...

Alguém que possa dar uma ajuda ?

Sobre as permissões, eu coloquei as seguintes permissões no Android e fiz a chamada das mesmas: procedure TFormPrincipal.PedirPermissoes; Var Ok: Boolean; begin Ok := True; {$IfDef ANDROID} PermissionsService.RequestPermissions( [JStringToString(TJManifest_permission.JavaClass.BLUETOOTH), JStringToString(TJManifest_permission.JavaClass.BLUETOOTH_ADMIN), JStringToString(TJManifest_permission.JavaClass.BLUETOOTH_PRIVILEGED), JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE), JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE), JStringToString(TJManifest_permission.JavaClass.INTERNET) ], procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray) var GR: TPermissionStatus; begin for GR in AGrantResults do if (GR <> TPermissionStatus.Granted) then begin Ok := False; Break; end; end ); if not OK then raise EPermissionException.Create( 'Sem permissões para acesso a Internet'); {$EndIf} end; Fiz a chamada ao abrir o Aplicativo e o mesmo pediu permissão.

Juliomar, nesse momento você está disponível? Pois estou agora mesmo vendo isso. Segue meu Zap 88 992067713

Opa, você pode listar algumas que possa me ajudar no caso ?

Bom dia! Como a gente pode ver esse caso Juliomar ? Se for o caso posso enviar o código do meu exemplo, é bem pequeno...

Opa, segue o Log gerado... Atribuindo PSP: TACBrPSPMercadoPago, Nome: ACBrPSPMercadoPago1 CriarCobrancaImediata( ) PrepararHTTP Autenticar LimparHTTP AcessarEndPoint( POST, /cob ) ConfigurarAutenticacao( POST, /cob ) CalcularURLEndPoint( POST, /cob ) https://api.mercadopago.com/v1/payments ChamarEventoQuandoAcessarEndPoint( /cob, https://api.mercadopago.com/v1/payments, POST ) TransmitirHttp( POST, https://api.mercadopago.com/v1/payments ) ConfigurarHTTP ConfigurarProxy ConfigurarTimeOut ConfigurarHeaders( POST, https://api.mercadopago.com/v1/payments ) Req.Headers: Authorization:Bearer APP_USR-3958155841215417-101523-c9cd31d357dcdc7a6a54ba6d69b013ca-39365532 Accept-Encoding: gzip, compress, deflate X-Idempotency-Key: BD2DFE1E-D9A6-4A9A-9DD7-361E1FA4DD5A Req.Body: {"transaction_amount":1,"payment_method_id":"pix","date_of_expiration":"2025-09-17T21:49:20.377-04:00","payer":{"email":"[email protected]","first_name":"PAULO SILVA","identification":{"type":"CPF","number":"00000000000"}}} ResultCode: 500 - Sock.LastError: -2 Resp.Headers: POST /v1/payments HTTP/1.0 Host: api.mercadopago.com Keep-Alive: 300 Connection: keep-alive User-Agent: Mozilla/4.0 (compatible; Synapse) Content-Type: application/json Content-Length: 227 Authorization:Bearer APP_USR-3958155841215417-101523-c9cd31d357dcdc7a6a54ba6d69b013ca-39365532 Accept-Encoding: gzip, compress, deflate X-Idempotency-Key: BD2DFE1E-D9A6-4A9A-9DD7-361E1FA4DD5A Resp.Body: ChamarEventoQuandoReceberRespostaEndPoint( /cob, POST ) ResultCode:500 RespostaHttp: TratarRetornoComErro( 500 )

Olá Pessoal, o problema acima citado foi resolvido, porém, ao fazer um Pagamento, na linha: Result := TransmitirHttp(AMethod, AURL, ResultCode, RespostaHttp); a variável RespostaHttp está vindo vazia e é claro não confirmando assim a Transação. Ao debugar, também observei que o valor de vBody := StreamToAnsiString(fHttpSend.Document); está vindo com valor estranho: '{tascinaon"1"amn_ehdi""i""aeo_xiain:22-91T35:3620:0,pyr:"mi""[email protected]""is_ae:FACSACEAA,ietfcto"{tp""P""ubr:764338}}'#0#0#0#0#0#0#0#0#0#0#0#0#0#0' '#16#0'W'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 Obs: esse comportamento só ocorre quando compilo no Android, no Windows gera tudo sem problemas.

Quando compilo para Windows no FMX, ocorre o erro abaixo:

Bom dia Pessoal... Alguém já tem algum exemplo usando ACBrPIXCD no Android que possa dispoinibilizar? Até consegui criar e fazer Deploy para o Android, porém, na hora de Gerar o Pagamento, ocorre um erro na linha: PintarQRCode(edFluxoCopiaECola.Text, imFluxoQRCode.Bitmap, qrUTF8BOM);

Obrigado !

Boa tarde, alguém pode ajudar com esse erro. Quando envio somente um Servidor, tudo ocorre sem problemas, porém, ao tentar enviar mais de um, acontece o erro como mostra a print.

Top de mais! Obrigado!

Boa tarde a todos! Estava tendo um erro no envio do S-2206 referente a TAG infoRegimeTrab, conforme link e fiz o ajuste no pcesS2206.pas e no pcesConversaoeSocial.pas para que o erro fosse sanado. Links de correções: eSocial versão S-1.2 - Leiautes (www.gov.br) eSocial versão S-1.2 - Leiautes (www.gov.br) Segue arquivos com devidas alterações: pcesConversaoeSocial.pas pcesS2206.pas

Muito boa a contribuição pessoal !

Estou seguindo o Manual do eSocial, conforme link: eSocial versão S-1.2 - Tabelas (www.gov.br) Validação: Deve ser um código válido e existente na Tabela 18

Segue já com alterações. pcesS2206.pas Observando aqui depois de baixar, verifiquei que não foi alterada a linha a seguir: GerarInfoContrato(objAltContratual.InfoContrato, 3, objAltContratual.infoRegimeTrab.InfoCeletista); //#Antes GerarInfoContrato(objAltContratual.InfoContrato, 3, objAltContratual.Vinculo.infoRegimeTrab.InfoCeletista); //#Nova

Verifiquei aqui que, quando envio o evento S-2206 com a linha if objAltContratual.infoRegimeTrab.InfoCeletista.cnpjSindCategProf <> '' then o valor de cnpjSindCategProf não estava vindo corretamente, porém, após alterar esta linha para , if objAltContratual.infoRegimeTrab.Vinculo.InfoCeletista.cnpjSindCategProf <> '' then o valor de cnpjSindCategProf passou a vir preenchido.

Para preenchimento da Tag codMotAfast. Validação: Deve ser um código válido e existente na Tabela 18. Segue unit pcesConversaoeSocial já com a Tabela atualizada: Alteração feita no *tpMotivosAfastamento* e no *TMotivoAfastamento* pcesConversaoeSocial.pas

Showwwww!

Bom dia pessoal. Estava com um erro no envio do evento S-2206 do eSocial, aonde esse erro impedia de levar o seguinte valor: *pInfoEstatutario.indAbonoPerm* na *unit pcesS2206*. Após realizar uma alteração, o envio se deu correto. Irei compartilhar aqui a unit com as correções: procedure TEvtAltContratual.GerarAltContratual(objAltContratual: TAltContratual); begin Gerador.wGrupo('altContratual'); Gerador.wCampo(tcDat, '', 'dtAlteracao', 10, 10, 1, objAltContratual.dtALteracao); Gerador.wCampo(tcDat, '', 'dtEf', 10, 10, 0, objAltContratual.dtEf); Gerador.wCampo(tcStr, '', 'dscAlt', 1, 150, 0, objAltContratual.dscAlt); if VersaoDF <= ve02_05_00 then GerarVinculo(objAltContratual.Vinculo, 3) else begin Gerador.wGrupo('vinculo'); Gerador.wCampo(tcStr, '', 'tpRegPrev', 1, 1, 1, eSTpRegPrevToStr(objAltContratual.vinculo.tpRegPrev)); end; Gerador.wGrupo('infoRegimeTrab'); if objAltContratual.infoRegimeTrab.InfoCeletista.cnpjSindCategProf <> '' then //GerarInfoCeletista(objAltContratual.infoRegimeTrab.InfoCeletista) //#Paulo Silva - alteração GerarInfoCeletista(objAltContratual.Vinculo.infoRegimeTrab.InfoCeletista) //#Paulo Silva - alteração else if(objAltContratual.FVinculo.tpRegPrev = rpRPPS)then //GerarInfoEstatutario(objAltContratual.infoRegimeTrab.InfoEstatutario); //#Paulo Silva - alteração GerarInfoEstatutario(objAltContratual.Vinculo.infoRegimeTrab.InfoEstatutario); //#Paulo Silva - alteração Gerador.wGrupo('/infoRegimeTrab'); GerarInfoContrato(objAltContratual.InfoContrato, 3, objAltContratual.infoRegimeTrab.InfoCeletista); if VersaoDF > ve02_05_00 then Gerador.wGrupo('/vinculo'); Gerador.wGrupo('/altContratual'); end; pcesS2206.pas

Já procurei mas sem sucesso!

Bom dia pessoal. Gostaria de saber se alguém ja criou ou pode me ajudar a verificar o Status do eSocial como a página a seguir: https://www.gov.br/esocial/pt-br/acesso-ao-sistema/semaforo Queria mostrar esse semáforo no meu sistema. Desde já agradeço a todos!

Boa noite, falo sobre as APIs do Banco do Brasil, relacionadas a Consulta de Saldo, Pagamentos e cancelamentos de Pagamentos.