igoluciano

Amigos, estou tendo problemas no retorno do Protocolo de Autorização em um cliente onde a internet é complicada, muito lenta. Tem momentos que o sistema emite legal a nota (envia e recebe o protocolo de autorização), em outro momento não retorna o protocolo de autorização com isso o sistema não prossegue com a sequencia de notas, então ao tentar reenviar o sistema da sefaz informa que há duplicidade de nota ... enfim, existe uma forma de consultar essa nota por número de emissão com cnpj via sistema e retornar o xml da mesma ?

Régys, qual o modelo do modem Daruma que vc usa ai? Onde posso comprar um?

Régys, vc conseguiu algo sobre UDH em PDU ou mesmo como montar as mensagens em PDU?

Olá Régys, vc conseguiu o script para criar e ler os PDU?

Régys, no Daruma mesmo ... como envia em PDU e concatenado?

Régys, vc tem ideia de como enviar SMS no modo PDU e concatenada?

Régys, vc tem idéia de como posso identificar o tipo de rede? (EDGE, UMTS ...)

Régys, nesse ZTE MF622 que vc testou quando enviou vc sabe em que modo o comando AT+CSCS estava? (IRA, GSM ou UCS2)? Nesse ZTE MF100 que eu tenho aqui eu me refiro aos caracteres de acentuação: é, É, á, Ç e etc... e não @ & # ... esses últimos chegam normalmente ... Para enviar no modo PDU (AT+CMGF=0) vc não tem nada de informação?

Régys, dei o comando AT+CSCS=? e o sistema me retornou +CSCS= ("IRA", "GSM", "UCS2") ... acho que esse meu modem só envia caracteres especiais se for no modo PDU ... é isso mesmo?

Régys, funcionou legal ... agora vc tem idéia de como enviar caracteres especiais e como separar os itens das mensagens recebidas? Tipo: separa o número do telefone, a mensagem, a data, o status da leitura e etc?

Régys, o modelo do meu modem é um ZTE MF100, segue arquivo em anexo. ACBrSMSClass.pas

Régys, qual o modelo de modem que vc usa ai?

Régys, para conseguir ler eu tive de fazer as seguintes alterações em "procedure TACBrSMSClass.ListarMensagens(const AFiltro: TACBrSMSFiltro; const APath: String);" ... e antes de ... ############################### case AFiltro of fltTudo: cmd := 'AT+CMGL="ALL"'; fltLidas: cmd := 'AT+CMGL="REC READ"'; fltNaoLidas: cmd := 'AT+CMGL="REC UNREAD"'; end; ############################### Coloquei: ############################### // definir o modo de envio *************************************************** Cmd := 'AT+CMGF=1'; Self.EnviarComando(Cmd); if not Self.ATResult then raise EACBrSMSException.Create(FALHA_INICIALIZACAO + sLineBreak + fpUltimaResposta); // definir ver todas as mensagens *************************************************** Cmd := 'AT+CPMS="MT"'; Self.EnviarComando(Cmd); if not Self.ATResult then raise EACBrSMSException.Create(FALHA_LEITURA_MENSAGEM + sLineBreak + fpUltimaResposta); case AFiltro of fltTudo: cmd := 'AT+CMGL="ALL"'; fltLidas: cmd := 'AT+CMGL="REC READ"'; fltNaoLidas: cmd := 'AT+CMGL="REC UNREAD"'; end; ##################################### Sem essas linhas que lhe informei ai, o comando AT+CMGL="ALL" dava ERROR

Régys, eu achei o arquivo e como lhe disse ... "dentro dele só aparece um OK e mais nada de mensagem"... será que num falta algum loop para obter o restante das mensagens?

Régys, no Demo aqui só aparece OK no arquivo mensagens.txt .... não chega nenhuma mensagem.