Venda a vista e Venda no Cartão de Crédito

Aqui é o lugar para bater papo e trocar idéias sobre os mais variados assuntos

Moderador: Moderadores

Avatar do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

Venda a vista e Venda no Cartão de Crédito

Mensagem por rubens »

Boa tarde...
Meu sistema efetua venda com condição de pagamentos tipo:
01 - Venda a vista - dinheiro - vai pro caixa
02 - Venda cheque a vista - cheque - vai pro caixa
03 - Venda cheque a prazo - cheque - vai pro controle de cheques a receber
04 - Venda Nota Duplicata - Duplicata - vai pro contas a receber
05 - Venda Cartão de crédito - Cartão - vai para o controle de cartão e se o cliente selecionar vai para o caixa
...

Até aí tudo bem ...
Mas quando é uma venda de 150,00 e o cliente quer pagar 50,00 em dinheiro e 100,00 no carão...
Como fazer esse controle ?? porque o usuário quer saber no final do dia o que vendeu no cartão e o que vendeu em dinheiro.. num vai bater...
Quando é entrada e + 2x na duplicata por exemplo..
O sistema gerar 03 duplicatas... daí o caixa já dá baixa na primeira que vence hoje...
Como vocês fazem? alguém pode ajudar ?

Obrigado...

Att.
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Venda a vista e Venda no Cartão de Crédito

Mensagem por Itamar M. Lins Jr. »

Ola!
Para dar uma ideia.
Vai precisar criar um tabela/dbf para armazenar o numero do Pedido e NFCe + valor das modalidades, não confundir com parcelas de cartão/carnê.
Estrutura será Número Pedido, Número do NFCe, IdVenda, Valor. Essa estrutura não vai desconto, não precisa.
Jogar nela isso quando encerrar a venda.

Código: Selecionar todos

FUNCTION PegarFinalizadoras(aFormVend)

AbreDb('formvend.dbf','fv',.t.)
fv->(DbGoTop())
Do While fv->(!eof())
   If !empty(fv->cod_venda)
      aadd(aFormVend,{upper(fv->venda),fv->naoreceber,fv->cr,fv->cod_venda,fv->dias,fv->ecf,fv->saldosomar,fv->conta} )
   EndIf
   fv->(DbSkip())
EndDo
fv->(dbGoTop())
FechaDb('fv')
RETURN .T.

Final do NFCe

Código: Selecionar todos

FOR n:=1 TO nTotFin
   vFin := "vFin"+StrZero(n,2)
   If Empty(&vFin)
   Else
   
      cTPAG := StrZero(Val(aFormVend[n][6]),2)
      
      ? '[pag' + StrZero(++nTPag,3) + ']'
      ? 'tPag=' + cTPAG
      ? 'vPag=' + Alltrim( Str( &vFin, 12, 2 ) )
      IF cTPAG == '03' .OR. cTPAG == '04'
         ? 'tpIntegra=2'
      ENDIF 
   ENDIF
NEXT

IF nPago > 0
   ? 'vTroco='+Alltrim( Str( nTroco, 12, 2 ) )
ENDIF
Monto a tela com "for next" para a pessoa escolher quando chega na forma de pagamento.

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

Venda a vista e Venda no Cartão de Crédito

Mensagem por rubens »

Boa noite ...
veja só Itamar...
Acho que você visualizou o problema para a parte de finalização de nfce.
deixa ver se assim fica mais claro:
Condicao de venda.PNG
A partir desta parcela serão criadas 08 duplicatas com inicio em 0 dias e intervalos de 30 dias uma da outra... daí o usuário recebe a primeira e tudo bem..
Mas talvez o correto seria criar um lancamento no caixa e gerar 7 duplicatas de 30 em 30 dias.
Talvez com essas regras de negócio aí seria necessário criar uma opção de TEM ENTRADA? sim... o valor da entrada seria informado tb manualmente e o sistema dividiria o restante em 7x.
Quando fecha a venda hoje está assim..
lctoduplicatas.PNG
daí com a condição de tem entrada, o sistema vai solicitar a entrada independente de ser duplicata, cartão ou cheque...
obrigado..

Att..
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Venda a vista e Venda no Cartão de Crédito

Mensagem por Itamar M. Lins Jr. »

Ola!
O caixa é o que acontece de fato.
Não existe lançamento a receber no livro caixa ou que possivelmente vai receber ou pagar.
Tem que ter 3 tabelas.
Contas a receber com as parcelas, Valores PAGOS na venda(formas de recebimento/finalizadoras) e CAIXA.
Caixa é apenas CONTA, HISTORICO, DEBITO, CREDITO, SALDO.
No contas a receber eu já lanço as parcelas todas, pq no dia do pagamento ainda tem o tal "A VER" a pessoa deve 50(parcela), vem e paga 30(amortização)
No seu caso eu entendi a pessoa dividindo o pagamento no ato da compra, 50 pago a vista e 100 no cartão(debito/credito e ou parcelas)
O total da venda vai para o caixa em contas distintas. Neste caso 2 lançamentos foram feitos no caixa cta(10001) Dinheiro-50,00 e cta(10003) cartão débito 100,00. A soma dá 150, mas se desejar o "analítico do caixa" ou por conta, vai ter a explicação.

Saudações,
Itamar m. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Venda a vista e Venda no Cartão de Crédito

Mensagem por Itamar M. Lins Jr. »

Ola!
E essa quarta tabela que vc chama de "Condições de vendas" que outros chamam de "FINALIZADORAS" ou "Formas de Recebimento" termo usado no antigo ECF.
Essa 4 tabela sua já tem a Conta, no caso "004" que é lançada no caixa.

FOR NEXT n:=1 to lastrec()->(Condições de Vendas)
@ 10,nX say "Dinheiro" get 50,00
@ 10,nX say "Cheque" get 0,00
@ 10,nX say "Cartão debito" get 100,00
@ 10,nX say "Cartão credito " get 0,00 // Aqui sendo parcelado vai abrir outra tela pedido confirmação das parcelas. Com Data(vcto) e Valor(só confirmação).
...
NEXT

O operador coloca o valor ou valores onde for preciso, senão o caixa não vai bater.

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Venda a vista e Venda no Cartão de Crédito

Mensagem por Itamar M. Lins Jr. »

Ola!
Outro detalhe.
No caixa vc pode lançar aglutinado por DIA ou fazer um lançamento para cada ocorrência de venda.
Exemplo.
11/09/2020 Cta 001 Dinheiro 50
11/09/2020 Cta 001 Dinheiro 10
11/09/2020 Cta 001 Dinheiro 5
ou apenas
Seek(dtos(dVenda)+cConta
11/09/2020 Cta 001 Dinheiro 65

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
Nascimento
Usuário Nível 4
Usuário Nível 4
Mensagens: 763
Registrado em: 19 Jul 2008 12:11
Localização: OLINDA-PE

Venda a vista e Venda no Cartão de Crédito

Mensagem por Nascimento »

no meu caso eu uso um campo para numerar o tipo de pagamento
exemplo

DInheiro 01
Cartão de Credito 02
Cheque 03
e assim sucessivamente
A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina :) clipper 5.3 /harbour/minigui
Avatar do usuário
Poka
Usuário Nível 4
Usuário Nível 4
Mensagens: 563
Registrado em: 25 Out 2004 21:26
Localização: Leme/SP

Venda a vista e Venda no Cartão de Crédito

Mensagem por Poka »

Boa noite

Isso só contabil, e as notinhas?

aquelas vendas da semana com notinha e no final da semana faz uma nota fiscal das notinhas (orçamentos).
Pode dobrar os numero de contas de controle aí. E depois quando faz a nota fiscal baixa do receber (orcamento)
como transferência da continha para a conta contábil. Só pra complicar um pouco.


Poka
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Venda a vista e Venda no Cartão de Crédito

Mensagem por Itamar M. Lins Jr. »

Ola!
Depende do seu ERP.
Pedido(pré venda) baixa estoque e grava no caixa e lança a receber.
NFCe e NFe não atualiza estoque nem dá entrada no caixa ou contas a receber, já foi feito antes.
Orçamentos só gasta papel e tempo do vendedor.
Fez pedido, o cliente vai levar NFCe ou NFe basta tirar. Não importa a hora nem dia que vá tirar o montante de NFe.
Trabalho com construtoras(clientes), faz vários pedidos e tira NFe desse ou daquele item e ou pedido. Basta importar o pedido no módulo de NFe deixar como estar ou apagar algum item da NFe, não do pedido. O pedido não pode mais ser alterado. Nem a NFe depois de concluída.
Isso não tem nada a ver com financeiro.
Quando fez o pedido já disse como irá receber.
Precisa separar o estoque do financeiro, logo no inicio quando comecei cometi esse erro, atrelar mercadoria vendida com financeiro. E parte contábil com controles internos e forma de trabalhar que cada empresa possue.
No caso eu criei uma tela que o pessoal da retaguarda(escritório) com o(s) número(s) do(s) pedido(s) basta importar no módulo fiscal. O financeiro já está todo OK, só cobranças e emissão de boleto, posteriormente é efetivado.

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Venda a vista e Venda no Cartão de Crédito

Mensagem por JoséQuintas »

Poka escreveu:Isso só contabil, e as notinhas?
aquelas vendas da semana com notinha e no final da semana faz uma nota fiscal das notinhas (orçamentos).
Pode dobrar os numero de contas de controle aí. E depois quando faz a nota fiscal baixa do receber (orcamento)
como transferência da continha para a conta contábil. Só pra complicar um pouco
Isso tá me parecendo um controle a parte.
Faz notinhas que não são nota, deixa lá nesse controle pendente, e quando fizer a nota pra valer, sai a nota fiscal de tudo.
O financeiro disso.... se o pagamento fica pendente, sem problema, começa na emissão de nota.
Caso contrário, também um controle a parte dos pagamentos, até a emissão da nota fiscal.

Sobre o problema inicial:

A saída seria fazer igual mostra o XML de nota fiscal.
A forma de pagamento seria pra cada "pedaço" pago.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder