Larry

Boa tarde, alguém tem alguma novidade sobre a emissão de boleto sem registro, alguma data nova? Ouvi falar sobre o fim do boleto sem registro já faz algum tempo e o motivo que ouvi falar sobre o fim do boleto sem registro é por causa de cruzamento de dados para a receitar saber quem pagou, quem recebeu e quanto a fim de reduzir sonegação.

É para a mensagem "list index out of bounds (-1)". Mas esse erro só ocorre no XE6 antes de rodar o update pack por um bug no vcl.printers. Após rodar o update o problema é corrido e não é mais necessária essa mudança.

Boa tarde, No RLPrinters.pas basta comentar as duas linhas conforme abaixo. Mas eu desfiz essa mudança porque após rodar o update pack esse problema é corrigido. procedure TRLPrinterWrapper.Refresh; {$IfNDef FPC} var savedprinterindex: Integer; {$EndIf} begin FreeAndNil(FPrinters); {$IfDef FPC} Printer.Refresh; {$Else} savedprinterindex := Printer.PrinterIndex; Printer.Refresh; // Printer.PrinterIndex := -1; // Printer.PrinterIndex := Min(savedprinterindex, Printer.Printers.Count - 1); {$EndIf} end;

Bom dia Renato, funcionou com algumas modificações: Tive que mudar o parâmetro "Endereco" para TStringList, os string para ansistring e as linhas: PRecip^.lpszName := PAnsichar(PChar(... para PRecip^.lpszName := StrNew(PAnsichar(ansistring(... PRecip^.lpszAddress := StrNew( PAnsichar(PChar( para PRecip^.lpszAddress := StrNew(PAnsichar(ansistring( Attachments[x].lpszPathName := StrNew( PAnsichar(PChar(stlAnexo.Strings[x]) )); Attachments[x].lpszFileName := para Attachments[x].lpszPathName := StrNew( PAnsichar(ansistring(stlAnexo.Strings[x]) )); Attachments[x].lpszFileName := StrNew( PAnsichar(ansistring( ExtractFileName(stlAnexo.Strings[x]) ) )); Segue o código completo: function EnviarEmail(Endereco: TStringList; Assunto: ansiString = ''; Texto: ansiString = ''; stlAnexo: TStringList = nil; AEnviarDireto: boolean = False): Boolean; type TAttachAccessArray = array [0..0] of TMapiFileDesc; PAttachAccessArray = ^TAttachAccessArray; var MapiMessage: TMapiMessage; MError: Cardinal; Sender: TMapiRecipDesc; PRecip, Recipients: PMapiRecipDesc; Attachments: PAttachAccessArray; x: integer; begin Result := False; MapiMessage.nRecipCount := Endereco.count; GetMem( Recipients, MapiMessage.nRecipCount * Sizeof(TMapiRecipDesc) ); Attachments := nil; try with MapiMessage do begin { Assunto e Texto } ulReserved := 0; lpszSubject := PAnsichar(PChar( Assunto )); lpszNoteText := PAnsichar(PChar( Texto )); lpszMessageType := nil; lpszDateReceived := nil; lpszConversationID := nil; flFlags := 0; Sender.ulReserved := 0; Sender.ulRecipClass := MAPI_ORIG; Sender.lpszName := PAnsichar(PChar( '' )); Sender.lpszAddress := PAnsichar(PChar( '' )); Sender.ulEIDSize := 0; Sender.lpEntryID := nil; lpOriginator := @Sender; { Endereço } PRecip := Recipients; for x:=0 to Endereco.count-1 do begin PRecip^.ulReserved := 0; PRecip^.ulRecipClass := MAPI_TO; PRecip^.lpszName := StrNew(PAnsichar(ansistring( Endereco[x] ))); PRecip^.lpszAddress := StrNew(PAnsichar(ansistring('SMTP:' + Endereco[x] ) )); PRecip^.ulEIDSize := 0; PRecip^.lpEntryID := nil; Inc( PRecip ); end; lpRecips := Recipients; { Anexa os arquivos } if stlAnexo = nil then begin stlAnexo := TStringList.Create; stlAnexo.Clear; end; { Deleta do stlAnexo os arquivos que não existem } x:=0; while x <=stlAnexo.Count - 1 do begin if not FileExists( stlAnexo.Strings[x] ) then stlAnexo.Delete(x) else inc(x); end; { Anexa os arquivos } if stlAnexo.Count > 0 then begin GetMem(Attachments, SizeOf(TMapiFileDesc) * stlAnexo.Count); for x := 0 to stlAnexo.Count - 1 do begin Attachments[x].ulReserved := 0; Attachments[x].flFlags := 0; Attachments[x].nPosition := ULONG($FFFFFFFF); Attachments[x].lpszPathName := StrNew( PAnsichar(ansistring(stlAnexo.Strings[x]) )); Attachments[x].lpszFileName := StrNew( PAnsichar(ansistring( ExtractFileName(stlAnexo.Strings[x]) ) )); Attachments[x].lpFileType := nil; end; end {endif}; nFileCount := stlAnexo.Count; lpFiles := @Attachments^; end; { Enviando o e-mail } if not AEnviarDireto then MError := MapiSendMail(0, Application.Handle, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) else MError := MapiSendMail(0, Application.Handle, MapiMessage, MAPI_LOGON_UI or MAPI_NEW_SESSION or MAPI_SENT, 0); case MError of MAPI_E_USER_ABORT: ; { Mostra mensagem que o envio do e-mail foi abortado pelo usuário. Portanto, não será mostrado nada } SUCCESS_SUCCESS: Result := True; else MessageDlg( 'Ocorreu um erro inesperado!'#13'Código: ' + IntToStr(MError), mtError, [mbOk], 0); end; finally PRecip := Recipients; StrDispose( PRecip^.lpszAddress ); //Inc( PRecip ); FreeMem( Recipients, MapiMessage.nRecipCount * Sizeof(TMapiRecipDesc) ); for x := 0 to stlAnexo.Count - 1 do begin StrDispose( Attachments[x].lpszPathName ); StrDispose( Attachments[x].lpszFileName ); end; end; end;

Boa tarde, O código acima funciona apenas para enviar e-mail para um destinatário. Ao informar dois e-mails (separados por ponto e virgula) no parâmetro "endereço" o outlook não envia a mensagem e retorna "Destinatário inválido"

Esses dias já baixei tanta coisa que nem lembro mais de onde... Seria no github.com?

Já resolvi o problema, estava no Fortes CE. Tive que modificar o fonte.

Boa noite, Compilei e rodei o SatTeste, preenchi todos os parâmetros, gerei e enviei a venda com sucesso. Para impressão usei o Fortes e selecionei a minha impressora (laser). Ao clicar em "imprimir extrato venda" o extrato o preview aparece preenchido e corretamente na tela mas ao clicar em imprimir aparece "list index out of bounds (-1)". Já tentei mudar vários parâmetros mas a mensagem continua.

Boa tarde, Ao tentar gerar o pdf nota complementar aparece o erro "EInvalidOp - Invalid floating point operation" no monitor e não gera o pdf. Esse erro ocorre apenas nas notas complementares que gero. O xml da nota esta em anexo. 35151109495605000175550010000138591630778440.xml

Já aconteceu o mesmo em mais de um cliente meu. Joga a bomba na mão do fabricante do sat. Se o sat validou (e tem internet) o problema é deles! Esqueci de mencionar. Já aconteceu o mesmo em mais de um cliente meu e depois de uns dias apareceu no sefaz.

Bom dia, Já instalei vários equipamentos SAT da bematech em meus clientes mas agora estou com um cliente que durante 5 dias o SAT dava erro de comunicação com a sefaz e quando finalmente ativou (sem nenhuma explicação) começou a apresentar "erro desconhecido" ao associar a assinatura. O fornecedor do aparelho simplesmente disse que as "luzinhas" do aparelho não indicam NENHUM problema. Usei (e ainda uso) dezenas de ECF da bematech sem problema mas agora com o SAT simplesmente não consigo suporte nenhum da bematech nem por e-mail e nem por Skype. Agora quero mudar de marca, mas gostaria da opinião de vocês sobre qual marca devo utilizar e que principalmente tenha um suporte decente.

Estou com um cliente com o mesmo problema. O SAT bematech após 5 dias de tentativas finalmente ativou com sucesso e agora ao associar a assinatura aparece "erro desconhecido". A bematech simplesmente não responde meus e-mails.

Valeu Ricardo, é tomei um susto achando minhas NF-e estavam com o ppis e pcofins tudo errado.

Então é diferente da NF-e? Segue um trecho da NF-e da minha compra do SAT emitida pela bematech: -<PIS> -<PISAliq> <CST>01</CST> <vBC>489.22</vBC> <pPIS>1.6500</pPIS> <vPIS>8.07</vPIS> </PISAliq> </PIS> -<COFINS> -<COFINSAliq> <CST>01</CST> <vBC>489.22</vBC> <pCOFINS>7.6000</pCOFINS> <vCOFINS>37.18</vCOFINS> </COFINSAliq> </COFINS> As alíquotas de pis e cofins não estão divididas por 100. No manual da NF-e esta igual ao do SAT: 271 Q08 pPIS Alíquota do PIS (em percentual) E Q02 N 1-1 3v2-4 Mas já localizei diversas NF-e de fornecedores em que as alíquotas de pis e cofins não foram dividas por 100. Segue um trecho de uma NF-e da Americanas: -<PIS> -<PISAliq> <CST>01</CST> <vBC>531.58</vBC> <pPIS>1.65</pPIS> <vPIS>8.77</vPIS> </PISAliq> </PIS> -<COFINS> -<COFINSAliq> <CST>01</CST> <vBC>531.58</vBC> <pCOFINS>7.60</pCOFINS> <vCOFINS>40.40</vCOFINS> </COFINSAliq> </COFINS>

Ao gerar o xml para enviar ao SAT (bematech) com cofins de 3,00% coloquei no <COFINS>: CST=01, VBC=10.00 e PCONFIS=0.0300. O SAT me retorno um xml com VCOFINS=0.30 (valor correto). Mas no manual do SAT da Sweda diz para informar o PCOFINS em percentual, então o correto não seria colocar PCOFINS=3.0000?

Achei a NT, obrigado.

Boa tarde, Como eu informo um cupom SAT na parte de documento referenciados na NF-e. No ECF era <refECF>, como fica no caso do CF-e?

Com o SAT a geração e transmissão dos arquivos da nota paulista (cat 52) deixa de existir?

Acredito que você possa enviar manualmente no retaguarda, não sei se isso causara algum problema quando o sat enfim retomar conexão e tentar enviar estes xmls... Depois de 4 dias os dois cupons apareceram na sefaz. Se não melhorarem isso logo vai chover reclamações de consumidores consultando a chave de acesso e ao não acharem vão "xingar" o lojista rapidinho.

Estou com o mesmo problema em um cliente com sat bematech. A luz cfe esta acessa o tempo todo e o sat tem internet. Peguei a chave de acesso de alguns cupons e consultei em: https://satsp.fazenda.sp.gov.br/COMSAT/Public/ConsultaPublica/ConsultaPublicaCfe.aspx Ao fazer a consulta aparece o cupom no site, mas teve duas chaves de acesso que aparece a mensagem "Cupom temporariamente indisponível, consulte mais tarde" e cupom foi feito há mais de 24 horas. Muito preocupante.