Ir para conteúdo
  • Cadastre-se

Joas Vilas Boas Fernandes

Membros
  • Total de ítens

    204
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que Joas Vilas Boas Fernandes postou

  1. bom dia, esta bem confuso isso dai. Meu sistema estava homologado. Com as ultimas alteração o banco começou a rejeitar. antes estava assim: function TACBrBancoSafra.MontarCodigoBarras(const ACBrTitulo: TACBrTitulo): string; var CodigoBarras, FatorVencimento, DigitoCodBarras , valorDocumento, agencia, agenciaDigito, conta, ContaDigito, NossoNumero: string; begin with ACBrTitulo.ACBrBoleto do begin FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento); valorDocumento := IntToStrZero(Round(ACBrTitulo.ValorDocumento * 100), 10); agencia := PadLeft(RightStr(Cedente.Agencia,4), 4, '0'); agenciaDigito := PadLeft(Cedente.AgenciaDigito, 1, '0'); conta := PadLeft(Cedente.Conta, 9, '0'); ContaDigito := PadLeft(Cedente.ContaDigito, 1, '0'); NossoNumero := PadLeft(RightStr(ACBrTitulo.NossoNumero,9),9,'0'); CodigoBarras := IntToStr(Banco.Numero) + '9' + FatorVencimento + valorDocumento + '7' + agencia + Trim(agenciaDigito) + trim(conta) + ContaDigito + NossoNumero + '2'; DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras); end; Result := IntToStr(Numero) + '9' + DigitoCodBarras + Copy(CodigoBarras, 5, 39); end;
  2. Entendi. Sendo assim em produção, retornou true sigo o fluxo. Obrigado. Anteriormente faltava fazer a configuração de comunicação do Modulo CardSE no SitefDemo. Caso alguém tenha essa duvida. Obrigado.
  3. Bom dia. Consegui avançar. Porem preciso entender o fluxo. No demo ele gera o QR Code e na sequencia limpa o qr code aparece como transação autorizada. Como verifico se o cliente realizou o pagamento? .
  4. vou tentar semana que vem. Ja deu por hoje. Só uma duvida: procedure InformarParametrosCarteiraDigital; begin // Instruindo CRT a apenas transações de Débito if (ACBrTEFD1.GPAtual = gpPayGoWeb) then ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_PAYMNTTYPE]:='8'; // Modalidade de pagamento: 1: cartão 2: dinheiro 4: cheque 8: carteira virtual //else if (ACBrTEFD1.GPAtual = gpCliSiTef) then // ACBrTEFD1.TEFCliSiTef.OperacaoCRT := 2; end; Clisitef esta comentado. aqui uso ele precisou informar os campos PSP e Nome?
  5. peguei o exemplo que ja tem o evento configurado. mas nao vai... depois que seleciono carteira nao vai mais pra frente.
  6. Então, eu preciso configurar meu ambiente de teste. Eu habilitei o código 7 e 8 para vendas via carteiras digitais. Configurei no SITEF conforme a imagem a seguir, porem quando clico em carteira digital não acontece mais nada. acho que esta faltando configurar o evento do qr code
  7. tenho que fazer homologação com carteira digital também. Obrigado
  8. Bom dia, Tenho o TEF Clisitef(software express) pela skytef. Preciso de um help de como configurar o ACBr para utilizar PIX. Eu coloque os código 7 e 8 para habilitar carteira digital. É necessário ter algum módulo especifico?
  9. Boa Tarde, Conforme Manual de Escrituração – Restituição do ICMS ST – Fato Gerador Presumido Não Realizado - MG é preciso gerar alguns campos vazios. Segue sugestão de alteração Manual-de-Escrituracao-Restituicao-do-ICMS-ST-Fato-Gerador-Presumido-Nao-Realizado-Versao-2020.01.pdf ACBrEFDBloco_C_Class.pas
  10. Eu consegui, porem é necessário criar uma conta la no WebISS (https://homologacao.webiss.com.br/) e fazer uma solicitação. Veja o Retorno: <Correcao xmlns="http://www.abrasf.org.br/nfse.xsd">O usuario correspondente ao documento utilizado para autenticacao nao possui autorizacao para realizar o servico para a empresa parametrizada via CNPJ e inscricao municipal do arquivo.</Correcao>. ou seja a requisição chegou ao provedor. Assim que o cliente fazer o cadastro e conseguirmos validar posto o retorno aqui
  11. Bom dia, No arquivo Cidades.ini ajustei para: [3104205] Nome=Arcos UF=MG Provedor=WebISSv2 NomeURL_H=arcosmg NomeURL_P=arcosmg
  12. Boa tarde, Estou com duvida qual configuração usar para o municipio de Arcos MG. Segue a resposta do Pessoal da WebIss WebService Homologação: https://homologacao.webiss.com.br/ws/nfse.asmx [1] WebService Produção: https://arcosmg.webiss.com.br/ws/nfse.asmx[2] Analisando o arquivo encaminhado constatamos que o mesmo encontra-se no padrão ABRASF da versão 1.0. No entanto, atualmente o Município de Arcos está utilizando a versão 2.02. Além disso, os endereços encaminhados estão incorretos. Estamos encaminhando abaixo todas as orientações de utilização da versão 2.02. Sugerimos que encaminhe a sua equipe de tecnologia. Destacamos que é imprescindível a leitura de toda documentação por parte dos analistas e desenvolvedores. Anexo segue toda a documentação referente a versão da ABRASF (2.02) utilizada no Sistema WebISS®. Esta documentação é composta por: * Manual de Integração ABRASF Versão 2.02 * Modelo Conceitual ABRASF Versão 2.02 * Relação de erros e alertas do sistema WebISS® * Arquivo XSD ABRASF Versão 2.02 * Exemplos de todos os métodos, em XML, previstos no Manual de Integração ABRASF Versão 2.02 Com base na obrigatoriedade do processo de assinatura nos arquivos, estamos disponibilizando em anexo um arquivo contendo blocos de códigos que exemplificam a geração do processo de assinatura nos lotes de RPS. Na versão 2.02 da ABRASF é possível utilizar os métodos SÍNCRONOS e ASSÍNCRONOS para transmissão dos lotes de RPS/NFS-e para o Sistema WebISS®. Serviços Síncronos As solicitações de serviços de implementação síncrona são processadas imediatamente e o resultado do processamento é obtido em uma única conexão.
  13. Boa Tarde Italo, É que eu vi no nota Técnica: e como já tivemos situação em que determinada regra só entrava em homologação mas não em produção ou em ambos / por estado como exemplo [Forcar Gerar Tag Rejeição 938 - Rejeição: Não informada vBCSTRet, pST, vICMSSubstituto e vICMSSTRet]. sendo assim fico tranquilo.
  14. Boa tarde, Com Relação a validação da regra B25c-10 (tag indIntermed), pela ultima nota técnica entrará em produção somente em 01/09/2021. Caso informe entes desta data poderá ocorrer rejeição?
  15. Troquei a fonte resolveu. assim altero em rum time, não preciso alterar o componente. resolvido
  16. LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 24, mLinhaTotalItem.Font); vou usar assim ja que o problema parece ser so aqui.
  17. estou usando Fortes. procedure TACBrNFeDANFCeFortesFr.FormataTextoItemParaNormal(out LinhaItem: string; out LinhaTotal: string); var infoAdProd: string; begin with ACBrNFeDANFCeFortes.FpNFe.Det.Items[fNumItem] do begin LinhaItem := IntToStrZero(Prod.nItem, 3) + ' ' + // DEBUG {IntToStr(mLinhaItem.Width) + ','+} ACBrNFeDANFCeFortes.ManterCodigo(Prod.cEAN, Prod.cProd) + ' ' + Trim(Prod.xProd); infoAdProd := ACBrNFeDANFCeFortes.ManterinfAdProd(ACBrNFeDANFCeFortes.FpNFe, fNumItem); if Trim(infoAdProd) <> '' then LinhaItem := LinhaItem + infoAdProd; LinhaTotal := '|' + ACBrNFeDANFCeFortes.FormatarQuantidade(Prod.qCom, False) + '|' + Trim(Prod.uCom) + ' X ' + ACBrNFeDANFCeFortes.FormatarValorUnitario(Prod.vUnCom) + '|' + FormatFloatBr(Prod.vProd); LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 24, mLinhaTotalItem.Font); end; end; mLinhaTotalItem.Width - 24 ficou legal. mas nao sei o porque esta cortando a linha total. setei as margens. tanto que imprimir esta normal.
  18. Bom dia, Estou gerando o PDF da NFCe( ACBrNFe1.NotasFiscais.ImprimirPDF) e esta cort ando a descrição. Há alguma configuração pra que isso não ocorra?
  19. Entao, na verdade não sei bem como fazer. Sei que somente quando o RegistroC400.Count > 0 e o registroC425.count for = 0 e UF = BA dever aparecer a mensagem. Só que o RegistroC400 tem uma lista de RegistroC405 que tem uma lista de RegistroC420 que tem uma lista de RegistroC425. será que essa validação não deveria estar na procedure TBloco_C.WriteRegistroC425(RegC420: TRegistroC420) ? Por hora como eu não emito cupom, portanto não preencho o C400, eu fiz assim: if Assigned( RegC001.RegistroC495 ) and (RegC001.RegistroC400.Count > 0) then begin if (DT_INI >= EncodeDate(2014,01,01)) and ( FBloco_0.Registro0000.UF = 'BA') then Check(False, 'A partir de 01/01/2014, os contribuintes situados na Bahia obrigados a este registro devem apresentar o registro C425.');
  20. Bom tarde, Na procedure TBloco_C.WriteRegistroC495(RegC001: TRegistroC001) tem uma validação ao meu ver equivocada. if Assigned( RegC001.RegistroC495 ) then begin if (DT_INI >= EncodeDate(2014,01,01)) and ( FBloco_0.Registro0000.UF = 'BA') then Check(False, 'A partir de 01/01/2014, os contribuintes situados na Bahia obrigados a este registro devem apresentar o registro C425.'); .... Porem ao criar o registro RegistroC001, cria a lista TRegistroC495List: FRegistroC495 := TRegistroC495List.Create. Assim o código acima sempre apresentara a imagem independente de informar informações de cupom ou não.
  21. Bom dia, Na procedure TBloco_C.WriteRegistroC495(RegC001: TRegistroC001) tem uma validação ao meu ver equivocada. if Assigned( RegC001.RegistroC495 ) then begin if (DT_INI >= EncodeDate(2014,01,01)) and ( FBloco_0.Registro0000.UF = 'BA') then Check(False, 'A partir de 01/01/2014, os contribuintes situados na Bahia obrigados a este registro devem apresentar o registro C425.'); .... Porem ao criar o registro RegistroC001, cria a lista TRegistroC495List: FRegistroC495 := TRegistroC495List.Create. Assim o código acima sempre apresentara a imagem independente de informar informações de cupom ou não. uma sugestão seria: if Assigned( RegC001.RegistroC495 ) and (RegC001.RegistroC400.Count > 0) and (RegC001.RegistroC425.Count = 0) then begin if (DT_INI >= EncodeDate(2014,01,01)) and ( FBloco_0.Registro0000.UF = 'BA') then Check(False, 'A partir de 01/01/2014, os contribuintes situados na Bahia obrigados a este registro devem apresentar o registro C425.'); Assim só quando informar registros dos cupons e não informar os registros C425 será criticado.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.