Ir para conteúdo
  • Cadastre-se

dennis willian rondolfo

Membros
  • Total de ítens

    15
  • Registro em

  • Última visita

Contact Methods

  • Website URL
    http://www.dennisrondolfo.adm.br

Últimos Visitantes

928 visualizações

dennis willian rondolfo's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

0

Reputação

  1. segue código fonte corrigido, um abraço ACBrCTeDACTEFRDM.pas
  2. { 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;
  3. duas coisas q eu não tenho, tempo e dinheiro, hehehe, mais tenho muita força de vontade.
  4. 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.
  5. 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.
  6. 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
  7. 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.
  8. 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
×
×
  • 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.

The popup will be closed in 10 segundos...