none
Onde estou errando na Procedure para Sintegra na Daruma FS700 H? RRS feed

  • Discussão Geral

  • Bom dia colegas do forum e suporte Daruma. è meu primeiro post neste forum e preciso da ajuda de vcs.

    Recentemente entrei para o mundo árduo e dificil do desenvolvimento em Delphi. Estou com um sistema próprio de PDV com ECF-PAF e preciso cooncluí-lo para a homologação do mesmo, mas me barrei em uma procedure que está me tirando o resto dos cabelos e não sei onde estou errando. Curiosamente a impressora me retorna a mensagem de erro: ERRO DE CONUNICAÇÃO. Na referida procedure coloquei uma msgbox para tratar e ver se as variáveis estão em acordo com o Sintegra e também analisar se esta correto em relação ao fonte de demonstração da Daruma, sem nenhum erro ou mesmo variável com conteúdo incompatível. Preciso da ajuda de vcs e solução ou até mesmo consertar o código. Por isso segue abeixo o trecho do código da procedure:

    procedure TFVendasPeriodo.BtConvenioSintegraClick(Sender: TObject);
    var
     Str_Data_Inicio_Movimento: string;
     Str_Data_Fim_Movimento: string;
     Str_Municipio: string;
     Str_UF: string;
     Str_Fax: string;
     Str_Cod_Convenio: string;
     Str_Cod_Natureza: string;
     Str_Cod_Finalidade: string;
     Str_Logradouro: string;
     Str_Numero: string;
     Str_Complemento: string;
     Str_Bairro: string;
     Str_CEP: string;
     Str_Nome_Contato: string;
     Str_Telefone: string;
     Str_Mes: String;
     Str_Ano: String;
     Str_Razao: string;
     sNomeArq : string;
    begin
        AC1;

        if FileExists('C:\SINTEGRA.txt')
        then DeleteFile('C:\SINTEGRA.txt');

        DM.TEmpresa.Open;
        DM.TEmpresa.Refresh;

        Str_Mes:=StrZero(Mes(FMenuFiscal.EDataI.Date),2);
        Str_Ano:=StrZero(Ano(FMenuFiscal.EDataI.Date),4);
        Str_Data_Inicio_Movimento:=FormatDateTime('mm/yyyy',FMenuFiscal.EDataI.Date);
        Str_Data_Fim_Movimento   :=FormatDateTime('mm/yyyy',FMenuFiscal.EDataF.Date);
        Str_Data_Inicio_Movimento:=Trim(RetiraArgumento('/',Str_Data_Inicio_Movimento));
        Str_Data_Fim_Movimento   :=Trim(RetiraArgumento('/',Str_Data_Fim_Movimento));
        Str_Municipio            :=Trim(DM.TEmpresaCIDADE.Value);
        Str_Fax                  :=Trim(SoNumeros(DM.TEmpresaFAX.Value));
        Str_Cod_Convenio         :='3';
        Str_Cod_Natureza         :='3';
        Str_Cod_Finalidade       :='1';
        Str_Logradouro           :=Trim(DM.TEmpresaENDERECO.Value);
        Str_Numero               :=Trim(RemoveChar(DM.TEmpresaENDERECO.Value));
        Str_Complemento          :=Trim(DM.TEmpresaNOME_FANTASIA.Value);
        Str_Bairro               :=Trim(DM.TEmpresaBAIRRO.Value);
        Str_CEP                  :=Trim(SoNumeros(DM.TEmpresaCEP.Value));
        Str_Nome_Contato         :=Trim(DM.TEmpresaCONTATO.Value);
        Str_Telefone             :=Trim(SoNumeros(DM.TEmpresaTELEFONE.Value));
        Str_Razao                :=Trim(DM.TEmpresaRAZAO_SOCIAL.Value);

        Informa('Verifique se as informações abaixo estão devidamente preenchidas e clique em OK para continuar a gerar o Arquivo Sintegra...'+#13+#13+
                      'Dt.Inicio Movimento: '+Str_Data_Inicio_Movimento+#13+
                      'Dt.Final Movimento.: '+Str_Data_Fim_Movimento+#13+
                      'Municipio..........: '+Str_Municipio+#13+
                      'Fax................: '+Str_Fax+#13+
                      'Código Convênio....: '+Str_Cod_Convenio+#13+
                      'Código da Natureza.: '+Str_Cod_Natureza+#13+
                      'Código Finalidade..: '+Str_Cod_Finalidade+#13+
                      'Logradouro.........: '+Str_Logradouro+#13+
                      'Número.............: '+Str_Numero+#13+
                      'Complemento........: '+Str_Complemento+#13+
                      'Bairro.............: '+Str_Bairro+#13+
                      'Cep................: '+Str_CEP+#13+
                      'Nome Contato.......: '+Str_Nome_Contato+#13+
                      'Telefone...........: '+Str_Telefone+#13+
                      'Razão Social.......: '+Str_Razao);

        BtConvenioSintegra.Enabled:=False;
        BtAtoCotep.Enabled:=False;
        LStatus.Caption:='Gerando o arquivo Sintegra. Aguarde...';
        Repaint;

       Try
        if s_ImpFiscal = 'ECF Daruma'
        then begin
             Str_UF:= trim(DM.TEmpresaUF.Value);
             if (Str_UF <> '')
             then Retorno_imp_Fiscal := Daruma_Registry_SintegraUF(pchar(Str_UF));

             Retorno_imp_Fiscal:=Daruma_Sintegra_GerarRegistrosArq(Str_Data_Inicio_Movimento,
                                                                   Str_Data_Fim_Movimento,
                                                                   Str_Municipio, Str_Fax,
                                                                   Str_Cod_Convenio,
                                                                   Str_Cod_Natureza,
                                                                   Str_Cod_Finalidade,
                                                                   Str_Logradouro,
                                                                   Str_Numero,
                                                                   Str_Complemento,
                                                                   Str_Bairro,Str_CEP,
                                                                   Str_Nome_Contato,
                                                                   Str_Telefone);
             end

     

    Aguardo retorno dos colegas ou suporte da Daruma...

    sábado, 2 de outubro de 2010 14:30

Todas as Respostas

  • Olá boa tarde,

    Em que momento você obtém o retorno de Erro de Comunicação? Este retorno é no retorno do metodo que esta = 0 ? Ou é no Erro Extendido?

    Tem um telefone de contato que possamos ver o que esta acontecendo? Ver se o periodo tem movimento? qual o retorno da impressora? Se ela envia o comando e para a geração?

    Me passa em pvt? (desenvolvedores.suporte@daruma.com.br)


    Ágatha de Oliveira Santos Analista de Desenvolvimento Daruma http://www.desenvolv...esdaruma.com.br desenvolvedores.suporte@daruma.com.br Skype:desenvolvedores_suporte_daruma Ligação Gratuita: 0800 770 3320
    terça-feira, 5 de outubro de 2010 17:25