mkvendas2006
Membros-
Total de ítens
39 -
Registro em
-
Última visita
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
mkvendas2006's Achievements
-
NFe 2.0 - Nota de exportação - Local de Embarque
mkvendas2006 replied to Allbyte's tópico in ACBrNFe
Amigo to com o mesmo problema, como vc fez? Poste o codigo... Maicon -
Bom Dia, Estou tentando fazer uma NF exportação, já estou passando os campos: Dest.EnderDest.cMun := 9999999; Dest.EnderDest.xMun := 'EXTERIOR'; Dest.EnderDest.UF := 'EX'; E exporta.xLocEmbarq := quDadoEmit.FieldByName('NOMECID').AsString; exporta.UFEmbarq := 'RS'; Porem ele não cria a tag xLocEmbarq e UFEmbraq. Alguem pode me ajudar? 43140502660465000102550010000001321000001327-NFe.xml
-
Boa Tarde, CFOP é especifico de cada operação, o usuário deverá informar. Sendo que quando iniciar do 1 ao 3 é uma operação de entrada, do 5 ao 7 saída. Mas denovo, essa informação de vai usar 5102, 5403, 5910 é por conta do usuário. Te aconselho a conversar com um contador para entender melhor do assunto, pois é bem amplo. Maicon
-
Boa Tarde, Estou com o mesmo problema, se algum puder ajudar... Maicon
-
Boa Tarde Essa Consulta de CNPJ/CPF foi incorporado no ACBR ou não? Não consegui localizar ele. Maicon
-
Boa Noite! Minha cidade não é atendida pelo ACBR que é Blumenau - SC o layout aqui é SP com algumas mudanças, quero implementar ele no meu sistema mas quero aproveitar algumas funções do ACBR, alguem pode me dar uma Luz por onde começar ou qualquer outra dica? Para que serve os Schemas eu uso eles para gerar o xml? Maicon
-
CavaloMarinho, Lhe recomendo sempre gravar no BD o XML cancelado e o XML autorizado, veja abaixo a minha rotina, eu busco o XML salvo no HD e insiro no BD: Assim, você organiza e tem mais segurança. procedure TfrmNotaFiscal.CancelarNFe1Click(Sender: TObject); var idLote, CNPJ, Justificativa : string; quGeral, quCrTit: TADOQuery; begin quCrTit := TADOQuery.Create(Self); quCrTit.Connection := frmPrincipal.BD; quCrTit.SQL.Add('SELECT 1 FROM NOTAVENPARCEL T0'); quCrTit.SQL.Add('WHERE T0.CODIGO = '+Codigo.Text); quCrTit.SQL.Add('AND T0.CODEMP = '+frmPrincipal.EmpAtiva); quCrTit.SQL.Add('AND T0.VALORPARCELA <> T0.VALORABERTO'); quCrTit.Open; if quCrTit.IsEmpty then begin IniciaComponente; CNPJ := copy(ChaveNFe.Text,7,14); Justificativa := 'Justificativa do Cancelamento'; if not(InputQuery('WebServices Eventos: Cancelamento', 'Justificativa do Cancelamento', Justificativa)) then exit; ACBNF.EventoNFe.Evento.Clear; with ACBNF.EventoNFe.Evento.Add do begin infEvento.chNFe := ChaveNFe.Text; infEvento.CNPJ := copy(ChaveNFe.Text,7,14); infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := Justificativa; infEvento.detEvento.nProt := Protocolo.Text; end; try ACBNF.EnviarEventoNFe(StrToInt(Codigo.Text)); //verificar ainda se foi baixado o titulo CodigoNFe.Text := IntToStr(ACBNF.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat); MsgSefaz.Lines.Add('Justificativa: '+Justificativa); MsgSefaz.Lines.Add( DateTimeToStr(ACBNF.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento) + ': ' + ACBNF.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo); if CodigoNFe.Text = '135' then begin Status.ItemIndex := 6; EstornaEstoque; InserirXMLdaNFe(ChaveNFe.Text + '1101111-ProcEventoNFe.xml', 'Can'); ACBNF.Free; ShowMessage('Nota Fiscal Cancelada com Exito.'); end else begin quGeral := TADOQuery.Create(Self); quGeral.Connection := frmPrincipal.BD; quGeral.SQL.Add('UPDATE NOTAVENCAB'); quGeral.SQL.Add('SET MSGSEFAZ = :MSGSEFAZ'); quGeral.SQL.Add('WHERE CODIGO = '+Codigo.Text); quGeral.SQL.Add('AND CODEMP = '+frmPrincipal.EmpAtiva); quGeral.Parameters.ParamByName('MSGSEFAZ').Value := MsgSefaz.Text; quGeral.ExecSQL; quGeral.Free; ACBNF.Free; MessageDlg('Erro ao cancelar a NF: '+#13+ACBNF.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo, mtError, [mbOK], 0); end; Except on e:exception do begin CodigoNFe.Text := IntToStr(ACBNF.WebServices.EnvEvento.cStat); MsgSefaz.Lines.Add(DateTimeToStr(now) + ': '+ACBNF.WebServices.EnvEvento.xMotivo); MsgSefaz.Lines.Add(DateTimeToStr(now) + ': '+E.Message); ACBNF.Free; MessageDlg('Erro ao cancelar a NF: '+#13+E.Message, mtError, [mbOK], 0); end; end; end else begin MessageDlg('Erro ao cancelar a nota fiscal já possui baixas.'+sLineBreak+'Cancele a baixa e tente baixar novamente.', mtError, [mbOK], 0); end; end;
-
Muito Obrigado Jeter/Juliana, Tudo Certo agora.... Valeu.
-
Se fizer um novo Projeto e colocar o FrxReport do Fast no Form, da erro também? Maicon
-
Logo Do Banco Não Sai Na Impressão Fastreport
mkvendas2006 replied to thiagoporto's tópico in ACBrBoleto
Eu também uso o Fast, funciona 100%, veja se a pasta \Logos esta abaixo da pasta do executável. Maicon -
Ok, Obrigado. Maicon
-
Boa Tarde, Estou iniciando o SPED fiscal do zero no meu sistema, mas antes de começar gerei um arquivo pelo exemplo do ACBR e apresentaram vários erros no PVA, alguem tem um exemplo que não gere erros? Tenho medo de me guiar por lá pra fazer e eu faça errado. Estou usando o PVA 2.0.30. Em anexo os erros. Maicon
-
Bom Dia Jeter, Sim, o de semana passada ele adicionava o '0' na linha digitavel, mas adicionando no Código cedente: Agencia + Código Cedente ele leva isso tudo pra linha digitavel, aonde acaba ficando errado, por exemplo: Agencia: 01660 Codigo Cedente: 1660870000000322 se deixar assim fecha a Remessa, mas ai quebra a linha digitavel do boleto, pois ele manda o código inteiro: 1660870000000322 Agora se informar o código cedente sem a agencia, fecha 100%. SDS Maicon
-
Desenvolvimento Rotina De Email Para Boleto
mkvendas2006 replied to ashbysor's tópico in Classificados
Sim amigo, Funciona sim amigo, os parametros são os necessarios para fazer o envio, SMTP, usuario, senha etc... Maicon -
Bom Dia Juliana, Se informar a agencia junto ao código cedente ele não fecha a linha digitável do boleto, ele acaba jogando o 1660 para a linha. Se eu retirar o 1660 o boleto fecha em 100%, mas ai não fecha na remessa. Neste caso acho que na geração da remessa ele deve pegar a Agencia + Codigo Cedente. OK? Maicon