igoluciano
-
Total de ítens
19 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por igoluciano
-
-
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.
-
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)
Retorno de Protocolo de Autorização
em ACBrNFe
Postado
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 ?