Ir para conteúdo
  • Cadastre-se

MGSSISTEMAS

Membros
  • Total de ítens

    45
  • Registro em

  • Última visita

Posts postados por MGSSISTEMAS

  1. Pessoal Bom dia !!

    Caros Colegas cliente me informou que tinha comprado leitor de codigo de barras fixo serial da Metrologic.. até ai blz implementei na minha aplicação e lendo tudo certo, porem quando o codigo de barras é menor que 13 ele da erro, fala que o produto não existe, se eu digito o codigo ele pega o produto normal..poderia me da uma ideia..

     

    aguardo

  2. Opa

    Juliomar boa tarde!!

    isso mesmo eu atualizei e reintalei o ACBR novamente, antes coloquei para apagar os pacotes antigos.

    neste caso qual seria o procedimento.?

    obrigado..

    13 minutos atrás, MGSSISTEMAS disse:

    Opa

    Juliomar boa tarde!!

    isso mesmo eu atualizei e reintalei o ACBR novamente, antes coloquei para apagar os pacotes antigos.

    neste caso qual seria o procedimento.?

    obrigado..

    Pessoal ja foi resolvido

     

  3. Em 15/02/2016 at 09:30, Simone D. Russo disse:

    Bom dia Pessoal, tudo bem?

    Um membro do fórum me mandou uma mensgem privada esses dias perguntando se eu desenvolvi a fila, já que eu comecei a discussão rsrsr, vou copiar para vocês o que respondi pra ele:

    Eu implementei o compartilhamento sim, tem funcionado muito bem nos clientes.

    Fizemos um controle bem simples:

    1) O SAT fica instalado num servidor.

    2) Na estação, onde está o ERP instalado, quando o usuário na tela de vendas clica em "Emitir SAT", o sistema grava numa tabela do banco de dados chamada "FILA DO SAT" uma requisição de autorização (que contém um id único), e fica esperando a resposta (controlo isso num campo na tabela FILA, 0 = aguardando 1 = processado).

    3) No servidor, onde está instalado o SAT, eu criei um programa que monitora essa tabela "FILA DO SAT", buscando registros do tipo "0 = aguardando". O programa pega esse registro (que contém o número da venda), gera o xml, envia ao aparelho, se aprovado, grava o xml de retorno. O próximo passo é gravar na tabela FILA, o resultado da operação "0 = reprovado e a mensagem de retorno/1 = aprovado" e seta "1 = processado".

    4) A aplicação (que ficou num repeat until por até 20 segundos esperando o registro ser alterado para "1 = processado", ao receber a resposta, se aprovado, imprime o recibo, se reprovado envia a mensagem de retorno. Se em 20 segundos não recebeu retorno algum, retorna ao usuário a mensagem "SAT remoto não respondeu."

    Basicamente é isso. O controle desenvolvido é bem simples, mas tem funcionado bem em nossos clientes, já temos mais de 300 CNPJS vinculados à nossa empresa.

     

     

    Simone Bom dia !! poderia me exclarecer um pouco mais sobre oque vc fez neste caso,, esta trabalhando com datasnap ?

    agradeço!!

  4. Em 19/09/2016 at 15:16, rick disse:

    Eu anexei a maneira que fiz para comunicar e enviar o rps para conversão. Tem de fazer uma comunicação para enviar e dependendo da resposta que o servidor lhe dar, daí você faz outra comunicação para "pegar" o xml gerado. Também tem o exemplo de fazer o cancelamento, que é da mesma forma, envia e depois consulta o xml cancelado.

    Anexei um exemplo de xml do rps que envio também... quanto a impressão, eu uso layout próprio, pois o xml que é gerado, é totalmente diferente do que utilizamos pelo ACBr.

    71-Rps.xml

    issweb.zip

    rick poderia me dar uma ajuda na criação deste xml segue o codigo da forma que estou criando, mais esta diferente com que vc nos enviou..

     

     

    procedure TFrmNFSE.spdbGerarClick(Sender: TObject);
    Var
    wDocXML : TXMLDocument;
    wRoot : IXmlNode;
    begin
         wDocXML := TXMLDocument.Create(Application);
         wDocXML.Active := False;
         wDocXML.XML.Clear;
         wDocXML.Options := [doNodeAutoIndent];
         //ativa o xml
         wDocXML.Active := True;
         // cabeçalho
         wDocXML.Encoding := 'UTF-8';
         wDocXML.Version := '1.0';

          wDocXML.AddChild('tbnfd');//.AddChild('Chave').NodeValue := 'TERR69AB6587d$we';

          wDocXML.DocumentElement.AddChild('nfd');
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('numeronfd').NodeValue := 0;
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('codseriedocumento').NodeValue := 7;
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('codnaturezaoperacao').NodeValue := 511;
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('codigocidade').NodeValue := 3;
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('inscricaomunicipalemissor').NodeValue := 0;
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('dataemissao').NodeValue := 17/11/2016;
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('razaotomador').NodeValue := 'CLIENTE FULANO';
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('nomefantasiatomador').NodeValue := 'MEU CLIENTE DE TESTE';
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('cpfcnpjtomador').NodeValue := 08758659000113;
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('enderecotomador').NodeValue := 'minha rua';
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('cidadetomador').NodeValue := 'sertaozinho';
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('estadotomador').NodeValue := 'SP';
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('paistomador').NodeValue := '';
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('fonetomador').NodeValue := 1630424766;
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('ceptomador').NodeValue := '14160000';
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('bairrotomador').NodeValue := 'MEU BAIRRRO';
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('emailtomador').NodeValue := '[email protected]';
          wDocXML.DocumentElement.ChildNodes['nfd'].AddChild('inscricaoestadualtomador').NodeValue := 119455;
          //laço dos serviços prestados
    //        wDocXML.DocumentElement.ChildNodes['tbservico'];
          //wDocXML.DocumentElement.ChildNodes['tbservico'].AddChild('servico').NodeValue :='';
          wDocXML.DocumentElement.AddChild('servico');
          wDocXML.DocumentElement.ChildNodes['servico'].AddChild('quantidade').NodeValue := 1.00;
          wDocXML.DocumentElement.ChildNodes['servico'].AddChild('descricao').NodeValue := 1.00;

         wDocXML.SaveToFile('c:\NFse\xmlexemplo'+FormatDateTime('ddmmyyyyhhmmss',Now)+'.xml');;
         wDocXML.Active := False;

    em Anexo é o xml que estou gerando

    xmlexemplo18112016075652.xml

  5. Pessoal socorro.. preciso de ajuda de todos que for possivel, estou implemetendo nfse sertãozinho, como todos sabe não é padrão ABRASF. não tenho experiencia com webService e preciso termnar isso esta semana, para entrar para o cliente na segunda proxima. poderia me da uma força serei muito grato.

    ja baixei os wsdl mais não tive sucesso.

    segue o Wsdl anexo para quem pode me ajudar

    WSEntrada.pas

  6. Pessoal bom dia !!!

    estou em uma luta aqui, é o seguinte, tenho uma tabela, a onde eu armazeno os produtos da vendas no PDV e quando eu cancelo o Item, fica registrado como -1,00

    preciso fazer um select para pegar somente os valores positivos, e não estou conseguindo..

    desculpe a e pessoal mais a cabeça ja esta fumegando.

    aguardo

  7. Sim daniel corretamente, e detalhe que estou co o preblema so no bematech

    ACBrSAT.Inicializado
    NumeroSessao: 470512 - Comando: ConsultarStatusOperacional
    NumeroSessao: 470512 - Resposta:Erro|Erro na abertura da porta de comunicacao com o S@T
    NSERIE.........:
    LAN_MAC........:
    STATUS_LAN.....: CONECTADO
    NIVEL_BATERIA..: ALTO
    MT_TOTAL.......:
    MT_USADA.......:
    DH_ATUAL.......: 30/12/1899
    VER_SB.........:
    VER_LAYOUT.....:
    ULTIMO_CFe.....:
    LISTA_INICIAL..:
    LISTA_FINAL....:
    DH_CFe.........: 30/12/1899
    DH_ULTIMA......: 30/12/1899
    CERT_EMISSAO...: 30/12/1899
    CERT_VENCIMENTO: 30/12/1899
    ESTADO_OPERACAO: DESBLOQUEADO

     

  8. Julimar boa tarde

    ja fiz isso. agora na hora que vai abrir o delphi e carrega os componetes do acbr da isso

    ---------------------------
    bds.exe - Ponto de entrada não encontrado
    ---------------------------
    Não foi possível localizar o ponto de entrada do procedimento xmlXPathCompiledEvalToBoolean na biblioteca de vínculo dinâmico C:\Windows\SYSTEM32\libxslt.dll.
    ---------------------------
    OK   
    ---------------------------


    verifique que é na hora que elta carregando o pacote da ACBr_NFe.bpl

    pessoal me ajudem ja não sei mais o que faço

    atenciosamente

     

  9. Pessoal bom dia!! me socore estou ja a 2 dias lutando este erro d dll que não sei mais o que fazer, até ontem na parte da manha estava normal a tarde começo a dar erro desta dll, ja coloquei no sytem32 removi o ACBr e reintalei e persiste o erro, o ACbr instala normal na hora de abrir o Delphi e carregar o ACBr la vem esta maldita dll

    fico grato

    Uso Delphi Xe7 e Win 8.1

    ---------------------------
    bds.exe - Ponto de entrada não encontrado
    ---------------------------
    Não foi possível localizar o ponto de entrada do procedimento xmlXPathCompiledEvalToBoolean na biblioteca de vínculo dinâmico C:\Windows\SYSTEM32\libxslt.dll.
    ---------------------------
    OK   
    ---------------------------

     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.