[Contrato programador: Conhecimento ACBr p/ NF-e]

entre em contato pelo skype: dennisrondolfo

[Procuro Programador Delphi]

me add no skype: dennisrondolfo

[Compro Pdv Em Delphi E Firebird]

me add - skype: dennisrondolfo

[Problemas Com Acbrctedactefrdm]

segue código fonte corrigido, um abraço

 

ACBrCTeDACTEFRDM.pas

[Problemas Com Acbrctedactefrdm]

favor atualizar código e disponibilizar no svn

[Problemas Com Acbrctedactefrdm]

{ trexo com bug }
procedure TdmACBrCTeFR.CarregaSeguro;
var
  i: Integer;
begin
  with cdsSeguro do
  begin
    Close;
    FieldDefs.Clear;
    FieldDefs.Add('RESPONSAVEL', ftString, 60);
    FieldDefs.Add('NOMESEGURADORA', ftString, 60);
    FieldDefs.Add('NUMEROAPOLICE', ftString, 60);
    FieldDefs.Add('NUMEROAVERBACAO', ftString, 60);
    CreateDataSet;
    Append;
    //
    if CTe.InfSeg.Count > 0 then
    begin
      for I := 0 to CTe.InfSeg.Count - 1 do
// falta um edit neste ponto;
      begin
        case CTe.InfSeg.Items.respSeg of
          rsRemetente: FieldByName('RESPONSAVEL').AsString := 'Remetente';
          rsExpedidor: FieldByName('RESPONSAVEL').AsString := 'Expedidor';
          rsRecebedor: FieldByName('RESPONSAVEL').AsString := 'Recebedor';
          rsDestinatario: FieldByName('RESPONSAVEL').AsString := 'Destinatário';
          rsEmitenteCTe: FieldByName('RESPONSAVEL').AsString := 'Emitente';
          rsTomadorServico: FieldByName('RESPONSAVEL').AsString := 'Tomador';
        end;
        FieldByName('NOMESEGURADORA').AsString := CTe.InfSeg.Items.xSeg;
        FieldByName('NUMEROAPOLICE').AsString := CTe.InfSeg.Items.nApol;
        FieldByName('NUMEROAVERBACAO').AsString := CTe.InfSeg.Items.nAver;
        Post;
      end;
    end
    else
    begin
      FieldByName('RESPONSAVEL').AsString := '';
      FieldByName('NOMESEGURADORA').AsString := '';
      FieldByName('NUMEROAPOLICE').AsString := '';
      FieldByName('NUMEROAVERBACAO').AsString := '';
      Post;
    end;

  end;

end;

{ trecho corrigido }
procedure TdmACBrCTeFR.CarregaSeguro;
var
  i: Integer;
begin
  with cdsSeguro do
  begin
    Close;
    FieldDefs.Clear;
    FieldDefs.Add('RESPONSAVEL', ftString, 60);
    FieldDefs.Add('NOMESEGURADORA', ftString, 60);
    FieldDefs.Add('NUMEROAPOLICE', ftString, 60);
    FieldDefs.Add('NUMEROAVERBACAO', ftString, 60);
    CreateDataSet;
    Append;
    //
    if CTe.InfSeg.Count > 0 then
    begin
      for I := 0 to CTe.InfSeg.Count - 1 do
      begin
        if not (State in [dsInsert,dsEdit]) then
  Edit;
        case CTe.InfSeg.Items.respSeg of
          rsRemetente: FieldByName('RESPONSAVEL').AsString := 'Remetente';
          rsExpedidor: FieldByName('RESPONSAVEL').AsString := 'Expedidor';
          rsRecebedor: FieldByName('RESPONSAVEL').AsString := 'Recebedor';
          rsDestinatario: FieldByName('RESPONSAVEL').AsString := 'Destinatário';
          rsEmitenteCTe: FieldByName('RESPONSAVEL').AsString := 'Emitente';
          rsTomadorServico: FieldByName('RESPONSAVEL').AsString := 'Tomador';
        end;
        FieldByName('NOMESEGURADORA').AsString := CTe.InfSeg.Items.xSeg;
        FieldByName('NUMEROAPOLICE').AsString := CTe.InfSeg.Items.nApol;
        FieldByName('NUMEROAVERBACAO').AsString := CTe.InfSeg.Items.nAver;
        Post;
      end;
    end
    else
    begin
      FieldByName('RESPONSAVEL').AsString := '';
      FieldByName('NOMESEGURADORA').AsString := '';
      FieldByName('NUMEROAPOLICE').AsString := '';
      FieldByName('NUMEROAVERBACAO').AsString := '';
      Post;
    end;

  end;

end;

 

[Parceria Nacional]

nossa

[Parceria Nacional]

duas coisas q eu não tenho, tempo e dinheiro, hehehe, mais tenho muita força de vontade.

[Parceria Nacional]

o meu sonho era estar construindo este projeto em netbeans, mais ai já sai fora dos meus conhecimentos, eu trabalhava com o c++ anteriormente, mais tb fica complicado, dai abracei o delphi mesmo, que é mais fácil. e como eu não tenho tempo, vai sair mais rápido o projeto.

[Parceria Nacional]

vou tentar colocar o que eu quero "pro futuro", quero concorrer com a sap e a Microsiga, quero um sistema gigante, funcional, em que uma farmácia ou padaria de esquina possa usar, e que uma coca cola ou uma Votorantim possa usar tb. o meu maior problema, não é a parte técnica, porque isto eu resolvo, eu sempre resolvi, o meu maior problema é a precificação do produto. por exemplo, como colocar o preço do sistema pra uma padaria de esquina e quanto cotar para uma indústria. eu já estou dentro do projeto, e nem sei ainda o valor do projeto. enfim, são muito problemas ainda pra resolver.

[Parceria Nacional]

desculpe, eu estou muito ancioso. já quero colocar ele pra rodar no mercado. por exemplo, soltar umas 100 copias gratuitas, para que os usuários me mandem sugestões de melhorias. vou pensar melhor no assunto. obrigado pela sugestão. abraço

[Parceria Nacional]

a idéia é construir um sistema que englobe toda a empresa, chão de fábrica, vendas, logística, emissão de nfe, frente de caixa (paf tef ecf), estoques, contabilidade, folha de pagamento, escrita fiscal, parte financeira (c receber e c pagar), enfim. um sistema completo. esta em fase de acabamento, com previsão para o final do ano, o financeiro, frente de caixa e emissão de nfe, área de produção (fábrica). contabilidade, escrita fiscal e folha previsão para 2014. diretores, gerentes, secretarias, técnico e pessoal de suporte serão assalariados, vendedores comissionados.

[Parceria Nacional]

estou construindo um sistema completo para gestão empresarial, procuro parceiros de negócios para o seguinte método: um diretor estadual responsável pelo controle dos municípios e pela formação da equipe de suporte técnico, e gerentes municipais, que serão responsáveis pela formação da equipe de vendas e treinamento. interessados entrar em contato pelo email [email protected].

pretendemos atuar em todas as unidades federativas do brasil.

 

atenciosamente.

 

adm. dennis willian rondolfo

cra-sp 197.526

jundiai-sp

[Assessoria ACBRTef]

entre em contato pelo email [email protected]

[!!!!! SPED PARCERIA !!!!!!]

posso ajudar. entrem em contato pelo email [email protected]