Élviro Cavalcanti

Bom dia pessoal, eu estou com um servidor linux e com alguns bancos em Firebird 2.5 hospedado nele, caso alguém tenha interesse em usar o serviço, podemos hospedar e negociar um valor viável para todos. Contato [email protected] ou pelo fórum, obrigado a todos!

Boa tarde, tenho alguns bancos no linux, vou anexar minha unit assim pode ser de boa ajuda pra você! UBackOnLine.pas

Boa tarde, deixa eu achar o arquivo, espero que posso lhe ajudar! USNGPC.rar

Bom dia Jeronimo, nesse caso seria o código 20

Atualizando, PE está aceitando agora!

Aqui em PE ainda continua sem passar os novos códigos

Boa tarde, segue abaixo a rotina que utilizo com o ZipMaster Boa tarde, segue abaixo a rotina que utilizo com o zipmaster, talvez possa lhe ajudar //ZipMaster1.ZipFilename := destino.text+'\BACKUP'+copy(datetostr(now),1,2)+copy(datetostr(now),4,2)+'.zip'; ZipMaster1.ZipFilename := ExtractFilePath(Application.ExeName) + 'ContabilidadeNFe\' + 'NFe_' + ComboBox1.Text + '_' + copy(FrmEnvioNFe.EdDataDia.Text,7,4) + '.zip'; //uzendo o mesmo dir do exe como diretorio temporario ZipMaster1.TempDir := extractfilepath(paramstr(0)); //uzando o mesmo dir como diretorio base ZipMaster1.ExtrBaseDir := extractfilepath(paramstr(0)); //pegando todos os arquivos do diretorio passado ZipMaster1.FSpecArgs.Add(FrmEnvioNFe.edtPathNFe.Text + inttostr(Ano) + '12\*.*'); //criando o ZipMaster1.Add; MESSAGEDLG('Arquivo da contabilidade criado com sucesso, envie o arquivo ' + 'Dezembro_' + inttostr(Ano) + ' para a contabilidade!',MTINFORMATION,[MBOK],0); ShellExecute(Application.HANDLE, 'open', PChar(ExtractFilePath(ExtractFilePath(Application.ExeName) + 'ContabilidadeNFe\')),nil,nil,SW_SHOWNORMAL);

Boa noite, quando estou compilando qualquer sistema no delphi 2010 com F9 ele apresenta o erro "Debugger Kernel BORRDBK140.DLL or BORDBK140N.DLL is missing or cloud not be loeaded" mas quando utilizo ele usando o Debugging ele passa normalmente, alguém já teve esse problema ?

Não está faltando alguma dll do banco em sua pasta não? Pergunto isso, pois tenho um sistema que vai buscar uma chave de atualização num banco na internet e preciso ter uma dll do MySql na pasta para que meu sistema consiga essa conexão, mas pra isso eu uso o zeus como componente de acesso. Caso precise, posso te enviar ela e o processo que faço para essa conexão.

Bom dia, qual componente está usando para a conexão ?

Porque você não usa no caso o retorno CStat ?

Bom dia, você pode usar consultando o arquivo xml que foi montado pra o envio, eu uso dessa forma e ele baixa o xml completo, acredito que esse código abaixo poderá ajudar você. Var VPasta:string; begin ACBrMDFe1.Manifestos.Clear; //Configura onde vai ser salvo o PDF VPasta := Copy(EdDataDia.Text, 7,4) + Copy(EdDataDia.Text, 4,2); ACBrMDFeDAMDFeRL1.PathPDF := FrmLogin.EdPathPDFMDFe.Text + '\' + VPasta; //Configura onde vai ser salvo o PDF ACBrMDFe1.DAMDFE.MargemDireita := 7; ACBrMDFe1.DAMDFE.MargemEsquerda := 7; ACBrMDFe1.DAMDFE.MargemSuperior := 5; ACBrMDFe1.DAMDFE.MargemInferior := 5; ACBrMDFe1.Manifestos.Clear; ACBrMDFe1.Manifestos.LoadFromFile(ExtractFilePath(Application.ExeName) + '\Log\' + DM.IBManifestoNUMERO.AsString + '-env-lot.xml'); ACBrMDFe1.Consultar; MemoResp.Lines.Text := ACBrMDFe1.WebServices.Consulta.RetWS; memoRespWS.Lines.Text := ACBrMDFe1.WebServices.Consulta.RetornoWS; ACBrMDFe1.Configuracoes.Geral.Salvar := True; ACBrMDFe1.Configuracoes.Arquivos.Salvar := True; DM.IBManifesto.Edit; DM.IBManifestoPROTOCOLOMDFE.AsString := ACBrMDFe1.WebServices.Consulta.Protocolo; DM.IBManifestoRECIBONDFE.AsString := ACBrMDFe1.WebServices.Consulta.Protocolo; DM.IBManifestoCHAVEMDFE.AsString := ACBrMDFe1.WebServices.Consulta.MDFeChave; DM.IBManifestoSITUACAO.AsString := 'ENVIADO'; DM.IBManifesto.Post; DM.IBTransaction1.CommitRetaining; ACBrMDFe1.DAMDFE.PathPDF := FrmLogin.EdPathPDFMDFe.Text + '\' + VPasta; ACBrMDFe1.DAMDFE.ImprimirDAMDFePDF(); ACBrMDFe1.Manifestos.Imprimir;

Boa tarde pessoal, um cliente foi emitiu uma NFSe para a prefeitura de Maceó e pediu pra cancelar a mesma, pelo componente do acbr o canelamento foi feito com sucesso, tanto que no site da prefeitura consta como cancelada. Foi emitida uma outra nota com a correção e também foi tudo ok! No site fui pesquisar e vi o texto abaixo sobre cancelamento e substituição, achei um pouco estranho o fato de ser cancelada sem problemas ou aviso do servidor. Alguém já passou por essa situação? O cancelamento (ou substituição) da nota fiscal é a forma de corrigir uma nota emitida que esteja com dados incorretos ou sobre a qual não tenha havido prestação de serviço. O cancelamento da nota fiscal somente pode ser feito por meio de processo administrativo, mas a substituição da nota, com a correção de novos dados (mesmo com a substituição do tomador do serviço) pode ser feita de modo eletrônico até o dia 10 do mês seguinte da emissão da nota original (neste caso com rejeição da nota pelo tomador)*. Caso seja ultrapassada esta data a substituição precisará ser feita por processo administrativo.

Boa tarde, psy o house

Desculpe pessoal, um item estava com o CFOP de substituição e não tinha prestado atenção nessa questão, peço desculpas e podemos fechar o tópico.

Esqueci de colocar o xml, está em anexo para melhor análise 1-env-lot-soap.xml

Bom dia, estou com uma NFCe retornando como "Rejeicao: Total da BC ICMS difere do somatorio dos itens" onde os itens tem os valores 725,00 * 20,50% = 148,62 38,00 * 20,50% = 7,79 28,00 * 20,50% = 5,74 13,00 * 20,50% = 2,66 7,00 * 20,50% = 1,44 8,00 * 20,50% = 1,64 Totalizando o ICMS em 167,89 Na totalzação da NFCe estou informando o campo com o valor de 167,89 e a base de cálculo está com o valor de 819,00 e mesmo assim está voltando com esse erro de diferença, alguém já passou por esse problema ?

Boa tarde, eu uso da seguinte forma UBackOnLine.dfm UBackOnLine.pas

Também estou passando pelo mesmo problema, baixei o xml pelo fsist e coloquei dentro do sistema e consegui manifestar o recebimento mas não consigo baixar ainda.

Por favor, alguém já passou por essa situação? Uma cliente trabalha com moveis planejados, uma cliente dela encomenda um móvel que custa 2000,00 no dia 20/11 dando um sinal de 1000,00 no cartão e o restante na entrega. Como fica a emissão da nota fiscal desse móvel, visto que o cartão da entrada foi passado em um mês e o restante será no outro mês ?

Boa tarde a todos, recentemente um colega me perguntou se existira uma forma de transformar um projeto já existente em Delphi VCL para Intraweb, até vi uma ferramenta que supostamente faria isso, mas não sei ao certo. Alguém do grupo poderia responder ou já fez esse processo ?

Bom dia Italo, atualizei o acbr e gerei novamente e ficou certíssimo agora a impressão! Vou agora implementar a parte de cancelamento e substituição da NFSe, agradeço demais toda a ajuda e acompanhamento !

Opa, entendi sim. Quando faço essa consulta ele retorna um XML diferente do que é baixado no site, segue em anexo ambos. Nota que o valor líquido existe no que é baixado pelo site da prefeitura e o que baixamos na consulta não contém esse valor, como também o campo de valor do iss retido. Baixado_ACBRNFSeX141-nfse.xml Baixado_Site_Giss_141.xml

Boa tarde Italo, entrei em contato com a prefeitura de Maceió, eles retornaram seguinte : "Verificamos que o prestador na hora de colocar a inscrição municipal do TOMADOR, adicionou a inscrição com o "0" na frente, fazendo com que o sistema não reconheça a substituição tributária, tentem novamente sem por o "0". Isso eu gerando sem ser pelo provedor Nacional e sim pelo provedor da cidade, quando envio o xml ele vi todo correto, entro no site e verifico que os valores estão corretos no site, mas no XML quando vou visualizar o valor líquido e o valor retido não é carregado pelo xml que o acbr retorna, quando eu baixo o xml no site da prefeitura, ele vem com os valores mas quando vou visualizar a impressão pelo acbr ele não mostra. Seria alguma correção na parte de configuração do componente ? Seguem os dois arquivos de envio e o de retorno 2723100431979300016756000000000000143-nfse.xml Envio_143-rps.xml

Bom dia, não ele é da cidade de Maceió e do Simples Nacional, quando coloco usando o provedor informa que X001 Mensagem: Serviço não implementado pelo Provedor, sendo que o código 14.01 é o código válido na tabela de serviços do município.