Ir para conteúdo
  • Cadastre-se

VinheSoft

Membros Pro
  • Total de ítens

    26
  • Registro em

  • Última visita

Tudo que VinheSoft postou

  1. VinheSoft

    Links dos Manuais quebrado

    Boa tarde nao estou conseguindo acessar osl inks do manual online https://acbr.sourceforge.io/ACBrMonitor/ComousaroACBrMonitor.html https://acbr.sourceforge.io/ACBrLib/ACBrLib.html foi mudado de lugar ? Joao Carlos VinheSOFT
  2. Ok ! ficaremos no aguardo... Obrigado!!
  3. VinheSoft

    ACBrPixCD32.dll

    ACBrPixCd32.dll ja está disponível para download ? Att João Carlos VinheSOFT
  4. // ACBrLibBoleto - Versao: 0.2.0.80 03/12/21 09:36:50:858 - Boleto_TamNossoNumero 03/12/21 09:36:50:858 - Travar 03/12/21 09:36:50:858 - SetRetorno(0, 10) 03/12/21 09:36:50:858 - Destravar // ACBrLibBoleto - Versao: 0.2.0.128 03/12/21 09:38:58:817 - Boleto_TamNossoNumero 03/12/21 09:38:58:817 - Travar 03/12/21 09:38:58:817 - SetRetorno(10, ) 03/12/21 09:38:58:817 - Destravar veja o SetRetorno da nova DLL veio SetRetorno(10,) e antes vinha SetRetorno(0,10) Att Joao Carlos VinheSOFT
  5. VinheSoft

    ACBrBoleto

    metodo: TamNossoNumero esta retornando branco verifiquei os fontes e o retorno voltou 1 parametros em SetRetorno try Result := SetRetorno(BoletoDM.ACBrBoleto1.Banco.CalcularTamMaximoNossoNumero(Carteira, NossoNumero, Convenio)); finally BoletoDM.Destravar; end; deveria vir assim, com ErrOK try Result := SetRetorno(ErrOk,BoletoDM.ACBrBoleto1.Banco.CalcularTamMaximoNossoNumero(Carteira, NossoNumero, Convenio)); finally BoletoDM.Destravar; end; segue anexo, correcao... Att Joao Carlos VinheSOFT ACBrLibBoletoBase.pas
  6. VinheSoft

    Boleto

    Boa Tarde Antonio Carlos/BigWings Obrigado pelas respostas!! att Joao Carlos Vinhesoft
  7. VinheSoft

    Boleto

    Boa Tarde Antonio Carlos estou usando, ACBrBoleto32.dll entao tenho que ir adicionando na lista a quantidade de boletos que quero imprimir. se quero 3 copias por exemplo, entao adiciono 3 vezes na lista ! correto ? Att Joao Carlos Vinhesoft
  8. VinheSoft

    Boleto

    Boa Tarde, Metodos: Boleto_Imprimir([eNomeImpressora]) Boleto_ImprimirBoleto(eIndice, [eNomeImpressora]) não tem parâmetro quantidade de impressões ! eh isso mesmo ? att Joao Carlos Vinhesoft
  9. Boa Tarde faltou tag "descANP", segue arquivo: linha: 2359 INIRec.WriteString( sSecao,'descANP',descANP ) ; Att Joao Carlos VinheSoft DoACBrNFeUnit.pas
  10. José obrigado pela resposta !! vou rever minha rotina aqui... Att Joao Carlos Vinhesoft
  11. boa tarde José em uma situacao, assim: data de vencimento: 19/12/2017 data de mora: 19/12/2017 hoje o componente, calcula a data de mora: 20/12/2017 como eu faço para calcular a data de mora ser a mesma do vencimento ??? pois com a data de mora com 1 dia a mais, o cliente sempre pagara um dia depois, pois os juros, correcao partir da data de mora!! att Joao Carlos Vinhesoft
  12. Bom Dia componente não respeita o conteúdo do campo "DataMoraJuros", somando +1 dia na data deste campo, segue correção: antes: AStringList.Add(ACBrStr('Cobrar juros de ' + ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%', FormatCurr('R$ #,##0.00',ValorMoraJuros)) + ' por dia de atraso para pagamento a partir de ' + FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros, IncDay(DataMoraJuros,1),DataMoraJuros)))) correção: AStringList.Add(ACBrStr('Cobrar juros de ' + ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%', FormatCurr('R$ #,##0.00',ValorMoraJuros)) + ' por dia de atraso para pagamento a partir de ' + FormatDateTime('dd/mm/yyyy',DataMoraJuros))) segue arquivo alterado Att Joao Carlos VinheSoft ACBrBoleto.pas
  13. Bom Dia Faltou o campo "DataMulta" no modulo: DoBoletoUnit.pas segue arquivo com correção: linha 357 ... DataMulta := StrToDateDef(Trim(aIni.ReadString(Sessao,'DataMulta','')),0); ... Att Joao Carlos VinheSoft DoBoletoUnit.pas
  14. Boa Noite segue alteração de metodos do objeto Email, na unit DoEmailUnit.pas Linha: 169 else if Cmd.Metodo = 'textomensagem' then {informa o texto do e-mail} Body.Text := Cmd.Params(0) alteração: else if Cmd.Metodo = 'textomensagem' then {informa o texto do e-mail} Body.Add( Cmd.Params(0) ) Linha: 172 else if Cmd.Metodo = 'textoalternativo' then {informa o texto alternativo (texto puro) do e-mail} AltBody.Text := Cmd.Params(0) alteração: else if Cmd.Metodo = 'textoalternativo' then {informa o texto alternativo (texto puro) do e-mail} AltBody.Add( Cmd.Params(0) ) Com esta alteração podemos enviar vários comandos, e o monitor vai montando o corpo do email. Do jeito que esta, ele so considera o ultimo envio com corpo do email, também tentei enviar o corpo de uma vez incluindo o comando de Final de linha, porem o monitor sempre separa o comando e não executando corretamente. Att VinheSoft Joao Carlos DoEmailUnit.pas
  15. era isso mesmo... obrigado. Joao Carlos VinheSoft
  16. Boa Tarde ao executar: NFE.CertificadoDataVencimento() NFE.CnpjCertificado() da o erro:Certificado Digital não encontrado! segue sequencia dos comandos enviados ao ACbrMonitorPlus: NFE.Ativo("") OK: Ativo NFE.SetVersaoDF(3.10) OK: NFE.SetModeloDF(55) OK: NFE.SetCertificado(19965524BFD37E1D111376A7DA2DB222 ) OK: NFE.SetAmbiente(2) OK: NFE.SetFormaEmissao(1) OK: NFE.CertificadoDataVencimento("") ERRO: Certificado Digital não encontrado! NFE.CnpjCertificado() ERRO: Certificado Digital não encontrado! Att Joao Carlos VinheSoft
  17. Bom Dia Deu certo.. Obrigado p/s: EU havia criado uma pasta em: c:\AcbrMonitorPlus\SAT\Bematech coloquei a dll dentro e acertei o caminho no monitor... imaginei que seria o mesma coisa com as demais DLLs Att Joao Carlos VinheSoft
  18. Bom Dia Ao Tentar consultar Status via Monitor acontece o erro: List index (2) out of bounds Ao Tenta consultar Status via SATTeste acontece o erro: ACBrSAT.Inicializado -- 10:32:26:115 - numeroSessao: 905603 - Comando: ConsultarSAT NumeroSessao: 905603 - Resposta:Erro|Erro na abertura da porta de comunicacao com o S@T O componente ACBrSAT/Monitor sao compativeis com a DLL da Bematech: BemaSAT32.DLL ? Att Joao Carlos VinheSoft
  19. No site a sefaz/SP consta isso: Prezado contribuinte, Informamos que no momento o sistema da NFE está indisponível devido à problemas técnicos, informamos que a previsão de normalização do ambiente é às 13 horas e 00 minutos.O contribuinte pode utilizar qualquer alternativa de contingência prevista na legislação, inclusive o SCAN que já está ativo junto ao Ambiente Nacional da Receita Federal.
  20. uma sugestao: Seria interessante ao comando NFE.ImprimirEvento, internamente ja acatar o Rave CB visto que so funciona hoje em Rave CB e quando for implementado em Rave imprimir de acordo com a selecao do monitor Joao Carlos
  21. Boa noite, Pois, do jeito que esta o ACBrNFeMonitor, tbm nao consegui. Ai eu alterei. Mandei estas alteracoes tbm para o MANTIS. Agora é so esperar o responsavel em liberar novas versoes do Monitor. Att, João Carlos dos Santos Paula VinheSoft
  22. Bom Dia, ACBrNFeMonitor versao 0.6.2a Fiz 2 alteracoes: (DoAcbrNfeUnit.PAS) metodo: NFe.ImprimirDANFE(cArqXML,[NomeImpressora],[nCopias]) alterei para: NFe.ImprimirDANFE(cArqXML,[NomeImpressora],[nCopias],[cProtocoloNFe]) segue abaixo: ... else if Cmd.Metodo = 'imprimirdanfe' then begin if ACBrNFeDANFERave1.MostrarPreview then begin Restaurar1.Click; Application.BringToFront; end; ACBrNFe1.NotasFiscais.Clear; if FileExists(Cmd.Params(0)) or FileExists(PathWithDelim(ACBrNFe1.Configuracoes.Geral.PathSalvar)+Cmd.Params(0)) then begin if FileExists(Cmd.Params(0)) then ACBrNFe1.NotasFiscais.LoadFromFile(Cmd.Params(0)) else ACBrNFe1.NotasFiscais.LoadFromFile(PathWithDelim(ACBrNFe1.Configuracoes.Geral.PathSalvar)+Cmd.Params(0)); end else raise Exception.Create('Arquivo '+Cmd.Params(0)+' não encontrado.'); if NotaUtil.NaoEstaVazio(Cmd.Params(1)) then ACBrNFe1.DANFE.Impressora := Cmd.Params(1) else ACBrNFe1.DANFE.Impressora := cbxImpressora.Text; if NotaUtil.NaoEstaVazio(Cmd.Params(2)) then ACBrNFe1.DANFE.NumCopias := StrToIntDef(Cmd.Params(2),1) else ACBrNFe1.DANFE.NumCopias := StrToIntDef(edtNumCopia.Text,1); // VinheSoft if NotaUtil.NaoEstaVazio(Cmd.Params(3)) then ACBrNFe1.DANFE.ProtocoloNFe := Cmd.Params(3) else ACBrNFe1.DANFE.ProtocoloNFe := ''; ACBrNFe1.NotasFiscais.Imprimir; Cmd.Resposta := 'Danfe Impresso com sucesso'; if ACBrNFeDANFERave1.MostrarPreview then Ocultar1.Click; end ... Inluido: metodo SetUFf(cUF) -> Altera UF do WebService segue abaixo: ... // VinheSoft else if Cmd.Metodo = 'setuf' then begin if (Cmd.Params(0)<>'') then begin cbUF.Text := Cmd.Params(0); ACBrNFe1.Configuracoes.WebServices.UF := Cmd.Params(0); end else raise Exception.Create('UF: '+Cmd.Params(0)+' Inválida.'); end ... Com estas alteracões consegui reimprimir um DANFE com DPEC e mudar a UF do Webservice. Att, Joao Carlos dos Santos Paula VINHESOFT
  23. VinheSoft

    DPEC com ACBrNFeMonitor

    Bom Dia, Estou usando ACBrNFeMonitor 0.6.1c 1) Crio o XML com NFe.AdicionarNFeSefaz(cArqTXT,nLote) ele cria o XML na pasta ACBRNFE\LOTES\LoteX onde X é o nLote tudo OK 2) Envio o DPEC com NFe.EnviarDPECNFe(nLote,nImprimeDANFE) Ele envia e retorna o DPEC. OK ! se eu mandar o parametro nImprimeDANFE='1', ele imprime a DANFE normal, porem somente 1 copia 3) Perguntas: a) Como eu imprimo mais de uma copia da DANFE, após a 1a. impressao no passo (2) Como eu coloquo na propriedade da DANFE protocolo que recebo do DPEC (via ACBrNFeMonitor) Joao Carlos VinheSoft
  24. ok ! Outra pergunta: Como eu pego o valor de retorno (via ACBrTEFD) da transação ? ou seja, quando eu faço a requisicao eu passo 1 valor, e quando volta a transacao ele vem com este valor mais o valor do saque. Obrigado. Joao Carlos VinheSoft
×
×
  • 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.