VinheSoft

Boa Tarde, Daniel Acabei de testar ACBr.SetWebService('SP',1) ACBr.SetWebService('MG',1) ACBr.SetWebService('31',1) ACBr.SetWebService('35',1) em todos os casos, o monitor ficou sem UF no combobox, da UF Emitente e ele grava no ACBrMonitor.ini fica em branco "UF" antes do comando [WebService] UF=SP depois [WebService] UF= Esse comando, zerou os webservice, dos componentes: nfe/nfce/mdfe/cte sera que faltou alguma coisa, pra funcionar ? att Joao Carlos VinheSOFT

Boa noite, Italo, Na emissão da NFe/NFCe funciona perfeitamente. O problema esta no evento de Inutilizacao NFE.InutilizarNFe( cCNPJ, cJustificativa, nAno, nModelo, nSerie, nNumInicial, nNumFinal) pois não geramos nenhum INI, apenas ENT.TXT, conforme sintaxe acima quando monitor esta setado em SP e tento inutilizar usando a empresa de MG recebo e rejeição Rejeição 203: Emitente não habilitado para emissão de NF-e o mesmo acontece ao contrario. A única solução para inutilizar, é alterar manualmente no monitor a UF emissor Att Joao Carlos VinheSOFT

Boa tarde, existe algum comando para mudar a UF emitente do webservice no monitor exemplo hoje esta SP e quero mudar para MG e vice versa att Joao Carlos VinheSOFT

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

Ok ! ficaremos no aguardo... Obrigado!!

ACBrPixCd32.dll ja está disponível para download ? Att João Carlos VinheSOFT

// 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

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

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

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

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

Boa Tarde faltou tag "descANP", segue arquivo: linha: 2359 INIRec.WriteString( sSecao,'descANP',descANP ) ; Att Joao Carlos VinheSoft DoACBrNFeUnit.pas

José obrigado pela resposta !! vou rever minha rotina aqui... Att Joao Carlos Vinhesoft

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

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

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

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

era isso mesmo... obrigado. Joao Carlos VinheSoft

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

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

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

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.

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

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

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