EdmarFrazao

Podemos bloquear a venda de saldo negativo?

No caso da Nfse é uma legislação municipal. É complicado dizer se vale ou não so ter so o xml. Na legislação da minha cidade esta dizendo que so vale a Nfse impressa com o selo. E o problema maior não é os clientes da cidade e sim as grandes empresas. Por exemplo a Vale do Rio Doce não aceita a Nfse que não seja a gerada pela prefeitura com o selo, nem o rps eles aceitam. No meu caso fiz usando o link acima preencho os campos e executo a impressão do pdf direto do site usando webbrowser. Demora uns 4 segundos para cada Nfse. So que tenho cliente que imprime 200 nfse em sequencia por dia(Recauchutadora), ja tentamos conversar com o pessoal da webiss para nos passar a maneira como eles geram o link que é enviado por email para os clientes. Mas eles foram categoricos que não vão mostrar como montar o link. Mesmo mostrando para eles que o sistema deles (eRPS) faz a impressão automatica eles não aceitaram divulgar como.

uma maneira mais simplificada https://www1.webiss.com.br/formigamg/Fo ... nfse&tipo= agora é so preencher o cnpj, no nota e chave e clicar em verificar e imprimir. usando o webbrowse funciona mas quando clicka no imprimir abre o IE

Testei o componente de impressão. Ele imprime uma copia mas não tem valor fiscal. So tem valor fiscal se tiver o selo. Alias so o pdf gerado pelo site é que vale com nfse Usar os links acima funciona mas sempre chama uma nova janela do IE quando imprime a Nfse e não funciona em outro navegador.

Não estou usando o acbr para impressão. Mas o componente imprime o DanfeNFSe sem o Selo? e so tem valor fiscal o pdf com o selo.

Gostaria de compartilhar com voces. para imprimir uma nfse com o webiss basta fazer o seguinte existe este mas não consegui fazer funcionar. https://www3.webiss.com.br/AracajuSE/Fo ... cCode=xxxx agora fazendo assim https://www1.webiss.com.br/formigamg/Fo ... cCode=xxxx https://www1.webiss.com.br/formigamg/Fo ... nfse&tipo= ai e so ejetar codigo do cnpj, no nf e chave e executar o botao visualizar e imprimir e a nfse sera impressa para funcionar com outras cidades basta mudar o nome da cidade funcionar com formigamg e arcosmg poderiam testar que funciona com outras cidades a vantagem é que como isto podemo imprimir a nfse.

agora a receita so libera o xml para o emitente e destinatario. por isto da exigência do certificado. E o xml vem 100%

não é uma alteração e sim uma maneira de pegar o xml. alias este codigo precisa ser melhorado estou enferrujado no delphi

consegui com o codigo abaixo tem que ter o certificado da empresa vai abrir a janela do IE digite o captch confirme o certificado mande salvar o xml o IE salva na pasta do usuario. procedure TForm1.Button7Click(Sender: TObject); Var mUsuario,sArquivo:string; Size1 : DWord; pCompName : array [0..MAX_COMPUTERNAME_LENGTH] of char; var FormItem: Variant; FieldA,Field: Variant; F,FieldName: String; X,A,T,I,J: Integer; bEsperandoDown:Boolean; sChaveNfe,sUsuario:String; begin Try Size1 := SizeOf(pCompName); GetComputerName(pCompName, Size1); ///cOMPUTADOR := pCompName; GetUserName(pCompName,Size1); sUsuario := pCompName; sChaveNfe := '35111202078313000198550010000087361405008687'; sArquivo := 'C:\Users\'+sUsuario+'\Downloads\'+sChaveNfe+'.xml'; IEApp := CreateOLEObject('InternetExplorer.Application'); IEApp.visible := true; IEApp.Top := 0; IEApp.Left := 0; // IEApp.Width := Screen.Width; IEApp.Height := Screen.Height; IEApp.Navigate('http://www.nfe.fazenda.gov.br/PORTAL/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8='); repeat Application.ProcessMessages; until (IEApp.ReadyState >= READYSTATE_COMPLETE); repeat Application.ProcessMessages; until (IEApp.ReadyState >= READYSTATE_COMPLETE); if FileExists(sArquivo) then DeleteFile(sarquivo); T:=0; while True do BEGIN Memo1.Lines.Clear; T:= T+1; if T>300 then BREAK; if FileExists(sArquivo) then BREAK; Try FormItem := IEApp.Document.forms.Item(I); for j := 0 to FormItem.Length - 1 do begin if FileExists(sArquivo) then BREAK; //Identifica o campo e seu nome no formulário Field := FormItem.Item(j); FieldName := Field.Name; Memo1.Lines.Add(FieldName); if FieldName = 'ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta' then // nome do input para o campo CNPJ bEGIN Field.Value := sChaveNfe; end else Begin if FieldName = 'ctl00$ContentPlaceHolder1$btnDownload' then // nome do input para o campo CNPJ begin repeat Application.ProcessMessages; until (IEApp.ReadyState >= READYSTATE_COMPLETE); IEApp.Document.all.Item('ctl00$ContentPlaceHolder1$btnDownload', 0).click; repeat Application.ProcessMessages; until (IEApp.ReadyState >= READYSTATE_COMPLETE); while (X<30) do begin Sleep(100); bEsperandoDown:=false; for a := 0 to FormItem.Length - 1 do begin Fielda := FormItem.Item(j); F := Fielda.Name; if F = 'ctl00$ContentPlaceHolder1$btnDownload' then // nome do input para o campo CNPJ Begin bEsperandoDown:=true; End; end; if not bEsperandoDown then break ; X := X+1; Application.ProcessMessages; if FileExists(sArquivo) then begin BREAK; end; end; end else Begin if FieldName = 'ctl00$ContentPlaceHolder1$btnNovaConsulta' then // nome do input para o campo CNPJ begin IEApp.Document.all.Item('ctl00$ContentPlaceHolder1$btnNovaConsulta', 0).click; end; End; end; end; except try IEApp.Document.all.Item('ctl00$ContentPlaceHolder1$btnNovaConsulta', 0).click; except ShowMessage('erro'); IEApp.Navigate('http://www.nfe.fazenda.gov.br/PORTAL/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8='); end; End; repeat Application.ProcessMessages; if FileExists(sarquivo) then break; until (IEApp.ReadyState >= READYSTATE_COMPLETE); Sleep(100); END; Finally End; IEApp.Quit; Memo1.Lines.LoadFromFile(sarquivo); end;