É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.