Jump to content
Fivewin Brasil

hcunha

Membros
  • Posts

    98
  • Joined

  • Last visited

  • Days Won

    3

Posts posted by hcunha

  1. 1 hora atrás, vilian disse:

    Bom dia Hélio,

    A chave da NFe tem que ter 44 posições e a sua tem apenas 41. Acho que vc esqueceu de adicionar ZEROS a esquerda no CPF do produtor rural.

    Ola Vilian,

    Era isso mesmo amigo, obrigado, deu certo.

    Seguimos na luta

  2. Ola Senhores,

    Estou tentando alterar meu emissor de pra emitir nota de produtor rural, porem quando eu tento validar aparece a seguinte mensagem :

    5505 - Erro: XML não atende a especificação do Schema XML: [nfe_v4.00.xsd] , analise a lista de erros: [1 - Linha:0001 Coluna:0109 Campo:[NFe] Conteúdo: Erro:O atributo 'Id' é inválido - O valor 'NFe21230904533630405559200000000011000101024' é inválido dependendo do tipo de dados 'Id' - Falha na restrição Pattern.

    Alguem ja passou por algo parecido ?

     

    Helio Cunha

     

  3. Ola a todos,

    Sei que essa conversa é de setembro e já faz alguns meses, mas só pra informar que eu também fiquei na mão com o Hendel e ele me deixou sem nenhum suporte, porem soube pela esposa dele que ele está hospitalizado e que um cara chamado Fabio vai atender. Eu não vou mais precisar pois já fiz com outra plataforma.

  4. Bom dia a todos,

    "452-Rejeicao: Solicitada resposta assincrona para lote com somente '(uma) nfc-e"

    Alguem já está recebendo a mensagem acima da sefaz ? Se receberam, como resolveram? Nos ajude por favor pois meus clientes estão pra me bater aqui, Rssssssss

     

  5. Oi Tales,

              Desculpe a demora pra responder amigo. Vai logo abaixo a rotina pra enviar SMS caso ainda precise ou se alguém do fórum precisar. Pra enviar pra vários modens basta selecionar as portas seriais de cada modem que acredito que vai enviar normalmente, ou coloque um loop pra correr entre as portas dos modens e enviar de cada serial.

    * A rotina abaixo é bem simples e funciona perfeitamente. Já tenho 4 clientes usando as mensagens sem problema

              cMsg := alltrim(cMsg) // Aqui é a mensagem
              cTel := alltrim(cTel) // Aqui é o telefone  que vai receber a mensagem. Lembrando que tem que ser '55'+codigo de area+numero do celular
              nBits := 9600 // Aqui é parametro da porta serial, normalmente é 9600
              cPort := '04' //Aqui a porta serial, no caso é a porta 04
              smsenviado := .f. // Aqui é só uma variável pra retornar .t. ou .f. caso envie ou não o sms


    ** Aqui abre a porta serial do modem

              cBuffer := space(2048)
              nComm := OpenComm("COM"+alltrim(str(cPort)), 9600, 128)
              if BuildCommDcb("COM"+alltrim(str(cPort))+":9600,n,8,1", @cBuffer )
                 if !SetCommState(cBuffer)
                    msgmens('Erro ao abrir porta serial '+alltrim(str(cPort)),'Atenção',1)
                    CloseComm(nComm)
                    return .f.
                 endif

    ** Aqui inicia a comunicação com o primeiro parametro AT             
                 if(nBytes := WriteComm(nComm,"AT"+Chr(13))) < 0
                    msgmens('Erro ao gravar comando AT na serial '+alltrim(str(cPort)),'Atenção',1)
                    CloseComm(nComm)
                    return .f.
                 endif
                 sysWait(1)
                 
    ** Aqui configura pra mensagem de texto                                    
                 if(nBytes := WriteComm(nComm,"AT+CMGF=1"+Chr(13))) < 0
                    msgmens('Erro ao gravar comando CMGF=1 na serial '+alltrim(str(cPort)),'Atenção',1)
                    CloseComm(nComm)
                    return .f.
                 endif
                 sysWait(1)


    ** Aqui envia a mensagem  

                 if(nBytes := WriteComm(nComm,"AT+CMGS="+Chr(34)+cTel+Chr(34)+Chr(13)+cMsg+Chr(26))) < 0
                    msgmens('Erro ao gravar comando AT+CMGS na serial '+alltrim(str(cPort)),'Atenção',1)
                    CloseComm(nComm)
                    return .f.
                 endif
                 sysWait(1)
                 

    ** Aqui finaliza o envio fixando os valores na saida serial do modem
                              
                 if FlushComm(nComm,1 ) != 0
                    msgmens('Erro ao fixar mensagem na serial '+alltrim(str(cPort)),'Atenção',1)
                    CloseComm(nComm)
                    return .f.
                 endif
                 sysWait(1)
                 smsenviado := .t.
              else
                 msgmens('Porta serial não conectada','Atenção',1)
                 CloseComm(nComm)
                 return .t.
              endif        

    ** Aqui finaliza o procedimento
              if FlushComm(nComm,1) != 0
                 msgmens('Erro ao fixar gravação de dados na serial'+alltrim(str(cPort)),'Atenção',1)
                 return .f.
              endif
              
              CloseComm(nComm)

            endif
     

  6.           Já havia feito isso no inicio ao fim, enviando incrementando por cada letra, no momento que para não tem nenhum caracter estranho. Mas já foi resolvido alterando o  conteúdo da mensagem.  

              Obrigado a todos

  7. Senhores,

              O problema foi resolvido quando eu alterei a mensagem. Todas as mensagens que coloco enviam sem problema, só aquele determinado texto que não ia, estranho, muito estranho. o detalhe é que o cliente queria aquele texto, tive que convence-lo que tinha que ser outro texto. Mudei o texto da mensagem e esta funcionando.

              De qualquer forma, muito obrigado pela ajuda.

     

  8. Eric.Developer, ja tentei com outras operadoras sim e com outro modem tambem.

    Kapiaba, esse link é para modem-roteador de rede wifi, o que estou usando é aquele modem pequeno que coloco o chip da operadora e  ligo na saida USB. O modelo que uso é o Huawei E303.

    Hoje piorou, kkk, não esta enviando nem mensagem pequena agora. Lascou foi tudo e já estou com vontade de tocar fogo nesse modem, :D:D:D

     

  9. Ola,

     

    cMsg := alltrim(cMsg)
              cTel := alltrim(cTel)
              nBits := 9600
              cPort := val(substr(commensagem,5,2))
              smsenviado := .f.

              cBuffer := space(2048)
              nComm := OpenComm("COM"+alltrim(str(cPort)), 9600, 128)
              if BuildCommDcb("COM"+alltrim(str(cPort))+":9600,n,8,1", @cBuffer )
                 if !SetCommState(cBuffer)
                    msgmens('Erro ao abrir porta serial '+alltrim(str(cPort)),'Atenção',1)
                    CloseComm(nComm)
                    return .f.
                 endif
                 
                      
                 if(nBytes := WriteComm(nComm,"AT"+Chr(13))) < 0
                    msgmens('Erro ao gravar comando AT na serial '+alltrim(str(cPort)),'Atenção',1)
                    CloseComm(nComm)
                    return .f.
                 endif
                 sysWait(1)
                 
                                        
                 if(nBytes := WriteComm(nComm,"AT+CMGF=1"+Chr(13))) < 0
                    msgmens('Erro ao gravar comando CMGF=1 na serial '+alltrim(str(cPort)),'Atenção',1)
                    CloseComm(nComm)
                    return .f.
                 endif
                 sysWait(1)

    * Todas as mensagens abaixo envia sem problema, menos essa  'Ideal Magazine Ltda informa que existem valores em aberto na loja. Ligue 99-3521-4301 para regularizar. Desconsidere se ja realizou o pagamento.'
                 

    *cMsg := 'Pequena amostra de mensagem de novo pra demonstracao 01'
    *https://www.developershome.com/sms/sendSmsByAtCommands.asp
    *acMsg := cMsg
    *cMsg := substr(alltrim(acMsg),1,27)
    *cMsg := 'IDEAL_MAGAZINE_LTDA_informa_que_existem_valores_xxxxxxxxxxxxxxxxxxxxxxxxxx_xxxxxxxxxxxxxxxxxxxxxx_xxxxxxxxxxxxxxxxxxxx_xxxxxxxxxxxxx_xxxxxxx'
    *cMsg := 'IDEAL_MAGAZINE_LTDA_informa_que_existem_valores_em_aberto_na_loja._Ligue_99-3521-4301_para_regularizar._Desconsidere_se_ja_realizou_o_pagamento.'
    cMsg := 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'

                 consms(2,15)
    msginfo(cmsg,len(cmsg))

                 if(nBytes := WriteComm(nComm,"AT+CMGS="+Chr(34)+cTel+Chr(34)+Chr(13)+cMsg+Chr(26))) < 0
                    msgmens('Erro ao gravar comando AT+CMGS na serial '+alltrim(str(cPort)),'Atenção',1)
                    CloseComm(nComm)
                    return .f.
                 endif
                 sysWait(1)
                 
                 if FlushComm(nComm,1 ) != 0
                    msgmens('Erro ao fixar mensagem na serial '+alltrim(str(cPort)),'Atenção',1)
                    CloseComm(nComm)
                    return .f.
                 endif
                 sysWait(1)
                 smsenviado := .t.
              else
                 msgmens('Porta serial não conectada','Atenção',1)
                 CloseComm(nComm)
                 return .t.
              endif        
              if FlushComm(nComm,1) != 0
                 msgmens('Erro ao fixar gravação de dados na serial'+alltrim(str(cPort)),'Atenção',1)
                 return .f.
              endif
              
              CloseComm(nComm)

  10. Olá de novo,

              Só pra ficar mais claro, se eu colocar o texto 1 abaixo a sms vai sem problema, mas se eu colocar o texto 2 abaixo o sms não envia. O que pode estar errado no texto 2 ?

    Texto 1 : 'Ideal Magazine Teste Teste de mensagem 02 Teste de mensagem 03 Teste de mensagem 04 Teste de mensagem 05 Teste de mensagem 06 Teste de mensagem 07'

    Texto 2 : 'Ideal Magazine informa que existem valores em aberto na loja. Ligue 99-3521-4301 para regularizar. Desconsidere se ja realizou o pagamento.'

     

              Se alguém puder me ajudar, eu agradeço.

     

     

  11. Senhores,

              Faz tempo que não acesso o site. Desde a época da ideia do TEF. Acho voces não devem nem lembrar, Rssss.

              Olha só, estou usando o envio de SMS usando chip com modem via  porta serial usando HBComm, WRITECOMM, etc. Está funcionando bem, porem só envia pequenas mensagens, nas mensagens mais longas e abaixo do limite de 140 caracteres as mensagens não enviam. Parece que quando tem muitos espaços ente as palavras não vai, alguém já passou por isso? Se alguém tiver uma solução, por favor, me ajude.

  12. Bom dia a todos,

    Por favor, alguem ja usou o EnviarNFCe da flexdocs. Funão pra gerar o xml com as informaçoes do qr-code. Isso é preciso de acordo com o novo layout da NFCe. Se alguem usou, por favor, poste como fez.

    agradeço antecipadamente

×
×
  • Create New...