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.

É Regys, verdade .... acho que na hora que testei na primeira vez não estava instalado o drive correto ... e sobre o recebimento vc tem alguma idéia?

O problema que estou enfrentando agora é em Ler as mensagens recebidas ... não estou conseguindo! Se alguém tiver uma sugestão ....

Pessoal, encontrei o erro ... no arquivo ACBrSMSClass.pas onde tem: // definir o número de telefone do destinatário ****************************** Cmd := 'AT+CMGS="' + ATelefone + '"'; Self.EnviarComando(Cmd); if not Self.ATResult then raise EACBrSMSException.Create(FALHA_NUMERO_TELEFONE + sLineBreak + fpUltimaResposta); // Enviar a mensagem ********************************************************* Cmd := Trim(AMensagem) + CTRL_Z; Self.EnviarComando(Cmd); if not Self.ATResult then raise EACBrSMSException.Create(FALHA_ENVIAR_MENSAGEM + sLineBreak + fpUltimaResposta); ###################################################################### Substituir por: // definir o número de telefone do destinatário ****************************** Cmd := 'AT+CMGS="' + ATelefone + '"' + #13#10; // Modificado Self.EnviarComando(Cmd); if not Self.ATResult then raise EACBrSMSException.Create(FALHA_NUMERO_TELEFONE + sLineBreak + fpUltimaResposta); // Enviar a mensagem ********************************************************* Cmd := Trim(AMensagem) + #26; // Modificado Self.EnviarComando(Cmd); if not Self.ATResult then raise EACBrSMSException.Create(FALHA_ENVIAR_MENSAGEM + sLineBreak + fpUltimaResposta);

Olá pessoal, estou testando o ACBrSMS com o modem ZTE MF100 e ao tentar enviar uma mensagem tanto individual quanto em lote pelo sistema demo o mesmo dá um erro "Communication error 9997: Timeout during operation" alguém sabe como resolver? (em lote o mesmo só envia a mensagem para o primeiro número do lote)