EdmarFrazao

Eu uso no active a combinação, em geral funciona. Application.Restore Aplicativos.restoretomost Application.BringToFront; self.BringToFront; Ou adicionar um timer com atraso de 2seg para forçar com os comandos acima outra opção RestauraFoco @Rafael L. Costa

outras sugestões. Application.Restore; Aplicativos.restoretomost Application.BringToFront; self.BringToFront;

C:\ACBR\Fontes\ACBrDFe\ACBreSocial\PCNeSocialfiz os testes e da erro. O correto e: s := Copy(FXML, Pos('/evt/evtIrrf/', FXML)+13, 12); pcesS5012.pas xml de retorno empresa exemplo homologação 20230612142406-sit.xml ID1033416450000002023061212403307878-S5011.xml ID1033416450000002023061212403307878-S5012.xml ID1033416450000002023061212403307878-S5013.xml

o Acbr ja esta preparado para NT 2023.001 e so atualizar, so não tem no demo mas e so presquisar as tags Produto Prod.comb.pBio with Prod.comb.origComb.add do begin indImport := iiNacional indImport := iiImportado; cUFOrig := pOrig := end; ICMS.qBCMono icms.AdRemIcms icms.vICMSMono .. cst 61 ICMS.qBCMonoRet ICMS.adRemICMSRet ICMS.vICMSMonoRet Depois Totais //NT 2023/001 Total.ICMSTot.vICMSMono Total.ICMSTot.vICMSMonoReten Total.ICMSTot.vICMSMonoRet Total.ICMSTot.qBCMono Total.ICMSTot.qBCMonoReten Total.ICMSTot.qBCMonoRet e dai para frente com o mesmo nome da publicação Em MG em Homologação Nfe Aceita as novas tags NFC-e Ainda não esta aceitando

Não tem uma receita mágica se não souber cobol. Vc ira converter para um TXT não formado e tera que procurar as correspondências do txt convertido com a base vc precisa do executável do cobol: rebuild.exe rode ele assim: Tabela: Produto. ou Produto.dat os .idx ( são índices do cobol) Sera gerado um txt do arquivo cobol O txt os campos textos estarão legíveis, mas os numéricos estão em hexa ( para ler tem que converter de hexa para asc) rebuild /s:mf /t:LII PRODUTO.,PROD.TXT

a cota e 10Mega excluir alguns segue unit pcesS1210.zip

Segue correção A TAG infoPgtoExt deve ser gerada somente para residentes no Exterior https://www.gov.br/esocial/pt-br/documentacao-tecnica/manuais/leiautes-esocial-v-1-1-beta/index.html#evtPgtos informar o código do país de residência para fins fiscais, quando no exterior, conforme Tabela 06. Somente informar este campo caso o país de residência para fins fiscais seja diferente de Brasil. Se não informado, implica que o país de residência fiscal é Brasil. unit pcesS1210 linha 1150 if VersaoDF >= veS01_01_00 then begin if objInfoPgto.Items[i].paisResidExt <>'' then Begin if (StrToInt(objInfoPgto.Items[i].paisResidExt) > 0) and (StrToInt(objInfoPgto.Items[i].paisResidExt) > 105) and ((StrToInt(Copy(Self.ideEvento.perApur,1,4))*100)+StrToInt(Copy(Self.ideEvento.perApur,6,2)) >= 202303) then begin Gerador.wCampo(tcStr, '', 'paisResidExt', 1, 3, 1, objInfoPgto.Items[i].paisResidExt); if (objInfoPgto.Items[i].InfoPgtoExtInst()) then GerarInfoPgtoExt(objInfoPgto.Items[i].InfoPgtoExt); end; End; end; ps. o forum não esta deixando eu envia arquivos > 8k , não conseguir enviar nem a unit zipada 8k

Tive problemas parecido com o Sicoob ontem, era instabilidade do PSP. Hoje o Sicoob voltou normal

foi implementado o PIX cobrança com SICOOB 1)gerei e funcionou, mas no extrato fica igual ao PIX normal, qual diferença do PIX cob para PIX normal? 2)Outra duvida qual diferença do Boleto Híbrido com PIX?

Com AcbrPIXCD você pode gerar o QrCode do PIX e enviar por email e ou whatsapp como imagem e ou texto. Gerar o link ainda não tem

via demo PIXCDTESTE Estou testando com sicoob ( esta ok) Agora com Santander ao criar o PIX da erro, mostra uma janela com o conteúdo. peguei os dados do log e fiz a consulta da cobrança ele esta sendo criada corretamente. A cobrança esta sendo criada mas o demo não trata corretamente o retorno

Faz a consulta e checa o Status e E2E (este campo sera preenchido com a autorização do pagamento) if ACBrPixCD1.PSP.epCob.CobCompleta.status=stcCONCLUIDA then Total := ACBrPixCD1.PSP.epCob.CobCompleta.valor.original; StatusCobranca := ACBrPixCD1.PSP.epCob.CobCompleta.status; TxID := ACBrPixCD1.PSP.epCob.CobCompleta.txId; // Id da transação PIX E2E := ACBrPixCD1.PSP.epCob.CobCompleta.pix[0].endToEndId; // Codigo de autorização veja as propriedades TFluxoPagtoDados = record TxID: String; E2E: String; QRCode: String; Total: Double; StatusCobranca: TACBrPIXStatusCobranca; StatusDevolucao: TACBrPIXStatusDevolucao; EmErro: Boolean; QtdConsultas: Integer; end;

deve ter perdido a conexão com o banco. Neste caso deve fazer um cob do tx para saber se foi pago veja no demo aba endpoins /cob/ Consultacobrancaimediata

se ajudar, Estou testando em homologação , e não precisa do temporário. Em produção ainda não testei.

Confirmado que esta funcionado , hoje, mas MG sabe como é

1)Agradeço a implementação a Todos os envolvidos do componente AcbrPIXCD 2)Com Relação ao PIX funciona sem Problemas PIX, Gerei no Sicoob um ClientID para PIX e ja implementei no meu sistema, e esta funcionando em Produção sem problemas. 3)Ja com a cobrança não consegui fazer funcionar. Gerei no Sicoob o Cliente ID correto mas quando fui consulta uma cobrança não funciona . A implementação ja esta disponível para cobrança do sicoob v2? https://developers.sicoob.com.br/#!/documentacao obrigado desde ja

foi acertado com a alteração, esta no svn

se for JVCS e JCL basta instalar pelo delphi no menu tools GetIt Package Manager

outra opção e usar acbrpixcd shipay com integraçao sicoob (veja carteiras digitais) so que tem o custo da shipay

Uma linha não tem problema

outra solução adicionando no inicio '|' LinhaTotal := '|'+ACBrNFeDANFCeFortes.FormatarQuantidade(aProd.qCom, False) + '|' + Trim(aProd.uCom) + ' X ' + ACBrNFeDANFCeFortes.FormatarValorUnitario(aProd.vUnCom) + '|';

se imprimir um caracter '#'+4 espaços a esquerda funciona em todas mas em algumas sera impresso o '#' LinhaTotal := ' # '+ACBrNFeDANFCeFortes.FormatarQuantidade(aProd.qCom, False) + '|' + Trim(aProd.uCom) + ' X ' + ACBrNFeDANFCeFortes.FormatarValorUnitario(aProd.vUnCom) + '|'; ou fazer igual era a quantidade alinhada a Direita junto da Unidade

acho que o problema pode esta na linha 710 da unit ACBrDANFCeFortesFr se adicionar 4 espaços a esquerda NAO Funciona, mas se imprimir letras funciona , algo tira os espaços LinhaTotal := ' '+ACBrNFeDANFCeFortes.FormatarQuantidade(aProd.qCom, False) + '|' + Trim(aProd.uCom) + ' X ' + ACBrNFeDANFCeFortes.FormatarValorUnitario(aProd.vUnCom) + '|'; LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 10, mLinhaTotalItem.Font); Antes o alinhamento da quantidade ficava a direita junto da UN 1 KG (a quantidade ficava alinhada a direita) Hoje sai assim 1 KG ( a quantidade fica alinhada a esquerda) O problema afeta Elgin i9 e Também Bematech MP4200th

todas as outras imprimem corretas, o problema deve ser nos últimos 30/60 dias