manoel santos

Obrigado, verificando o status , Neste momento voltou esta Disponivel

Alguém sabe o motivo ou se foi avisado ?

Acho que é S -2220 não S -2240 Tipo do exame médico ocupacional. Valores válidos: 0 - Exame médico admissional 1 - Exame médico periódico, conforme Norma Regulamentadora 07 - NR-07 e/ouplanejamento do Programa de Controle Médico de Saúde Ocupacional - PCMSO 2 - Exame médico de retorno ao trabalho 3 - Exame médico de mudança de função ou de mudança de risco ocupacional 4 - Exame médico de monitoração pontual, não enquadrado nos demais casos; 9 - Exame médico demissional. Validação: se informado [0], não pode existir outro evento S-2220 para o mesmo vínculo com {dtAso} anterior.

Pode ser que esse topico ti ajude

Pois também estou começando a usar e quero ti ajudar

Seja mais claro , vc esta usando o exemplo ou criou algo sem ver o exemplo ?

Obrigado, Acabei de atualizar e rodou.

Bom dia, hj dia 25/11/21 Exclui todas as Pastas , Fiz o Checkout , e continua veja as imagens anexas Exemplo eSocial em Lazarus

obrigado Muito obrigado pela pronto atendimento , como sempre .

Bom dia, fiz a atualização do ACBr pelo svn , E ao tentar rodar o ACBreSocial_Exemplo recebi esse erro : Frm_ACBreSocial.pas(405,28) Error: Identifier not found "tpuf" Verifiquei que no arquivo unit pcesConversaoeSocial; essas linhas estão comentadas : // tpuf = (ufNenhum, ufAC, ufAL, ufAP, ufAM, ufBA, ufCE, ufDF, ufES, ufGO, ufMA, // ufMT, ufMS, ufMG, ufPA, ufPB, ufPR, ufPE, ufPI, ufRJ, ufRN, // ufRS, ufRO, ufRR, ufSC, ufSP, ufSE, ufTO, ufEX); obs. Excluir todos os arquivos e fiz o update pelo SVN hoje dia 19/11/2021.

Bom dia, estou afirmando que que fontes estão atualizados, e estou gerando em Lazarus Tenho um sistema em Delphi sem ACBr que gera o Boleto Branco Brasil já validado e em uso a 5 anos, Estou atualizando para Lazarus com ACBr. E para gerar os Boletos precisei alterar essa parte : No fonte : function TACBrBancoBrasil.CalcularTamMaximoNossoNumero else if (wTamConvenio = 7) then Result := 10; Minha Alteração else if (wTamConvenio = 7) then Result := 11; Ciente da profissionalismo de todos no ACBr, apenas estou informando a alteração que fiz , Não acho correto alterar algo para meu uso pois isso pode ajudar outros . Se não ajudar e só criar confusão , pode excluir ou finalizar o Topico . Muito obrigado pelos serviços prestados a todos nos que utilizamos o ACBr. Manoel.

Estou usando o Exemplo em Lazarus, para mudar um sistema que ja tenho em uso , fiquei com duvida pois estou usando os Fontes Atualizados nessa parte , Pelo que sei o result do convenio 7 Digitos deveria ser 11. O Fonte precisa ser corrigido ou eu que não entendi ? else if (wTamConvenio = 6) then Result := 11 else if (wTamConvenio = 7) then Result := 10;

Boa tarde , ocorreu essa MSG no micro de um Cliente Win 10 certificado Cartão, O ambiente que desenvolvo é WIN7 com Delphi Berlin. Vou ver se consigo pegar o Certificado e gerar no meu ambiente de produção. Se der Algum erro ou conseguir gerar ti aviso. Obrigado

bom dia. Ontem recebi essa MSG ao Gerar a CTe Algum pode me ajudar Obrigado Manoel

Bom dia, Juliomar , Neste micro havia removido tudo do Delphi e Instalado novamente, Pelo instalador via pelo log que não havida instalado, Apos insistir, fiz uma 4 instalação , colocando para remover os arquivos deu certo Esta Instalado . Obrigado pela Atenção

Apos fazer a atualização dia 09/04/19 , Instalação Manual pois não Consegui fazer pelo Instalador. [dcc32 Fatal Error] ACBrNFeDANFeRL.pas(47): F2613 Unit 'Graphics' not found.

No Cte uso a rotina do exemplo: MemoDados.Lines.Add('Recibo: '+ ACBrCTe1.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: '+ ACBrCTe1.WebServices.Retorno.Protocolo); Como fazer no Cte OS ? Obrigado

Bom dia essa linha <indIEToma>1</indIEToma> não existe , Remove ela

Boa tarde O erro ocorria porque não tinha o metodo Assinar inclui antes de Validar. ACBrCte1.Conhecimentos.Assinar; ACBrCte1.Conhecimentos.Validar; Obs. Isso ocorreu apos atualização do ACBr. Obrigado para quem respondeu. Manoel (Resolvido)

fabiofranzini, Obrigado por responder e desculpe a demora é que esse teste foi feito em um micro longe daqui, E realmente esta com erro no certificado pelo que vi, assim que corrigir confirmo pra vc obrigado pela atenção.

Estou gerando pela primeira vez o CTe Os Recebi essa Mensagem : falha na validação dos dados Conhecimento:1 Content for element '{http://portalfiscal.inf.br/cte}CTeOS'is incomplet according to the DTD/Schema. Expecting:{http://www.w3.org/2000/09/xmldsig#}Signature. Na espera de sua ajuda, obrigado Manoel.

Bom dia , obrigado por responder desculpe a demora , no seu arquivo remessa tem os campos que representa , multa , juros data para protesto ?

bom dia NA unit ACBrBancoBradesco esta assim : function TACBrBancoBradesco.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ ACBrTitulo.ACBrBoleto.Cedente.Conta+'-'+ ACBrTitulo.ACBrBoleto.Cedente.ContaDigito; o correto não seria isso ? function TACBrBancoBradesco.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente ;

Boa tarde obrigado por sua atenção . O erro estava no nossonumero Consegui resolver fiz o seguinte : Estava assim : CodigoBarras := '033'+'9'+ FatorVencimento + IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) + '9'+ padR(Cedente.CodigoCedente,7,'0') + padR(ACBrTitulo.NossoNumero + DigitoNossoNumero, 13) + '0'+ padR(trim(Cedente.Modalidade),3,'0'); Alterei para : CodigoBarras := '033'+'9'+ FatorVencimento + IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) + '9'+ padR(Cedente.CodigoCedente,7,'0') + padR(ACBrTitulo.NossoNumero + DigitoNossoNumero, 13,'0') + '0'+ padR(trim(Cedente.Modalidade),3,'0'); Resolvido.

Bom dia Estou gerando o Carne Para o Banco Santander e estou com o seguinte erro. Na primeira vez que gero o carne a linha digitavel ficam assim : No 1 º Boleto = '03399.59462 271 .000010 22846.301020 1 56330000002430' No 2 º Boleto = '03399.59462 27100.000010 22847.101023 5 56640000002430' Isso na primeira vez que gero , Se fechar a visualização e gerar novamente fica assim que é a Forma Correta: No 1 º Boleto = '03399.59462 27100.000010 22846.301020 1 56330000002430' No 2 º Boleto = '03399.59462 27100.000010 22847.101023 5 56640000002430' Alguem pode me ajudar . Grato Manoel