ARAGUARI-MG, 11 de setembro de 2004.
Prezado Marcos,
Sugestão para o Aplicativo Fiscal:
- Cadastro de Mercadorias (que utilizará de vários outros Cadastros/Tabelas, como Unidades, Local, Marcas, Grupo, CT, CF, CST...)
- Cadastro de Cód. de Operações (Código, Descrição,
Entrada/Saída):
1.01, Compras a Vista, "E"
1.02, Compras a Prazo, "E"
...
1.99, Outras Entradas, "E" (NÃO GERA CAIXA e nem C.PAGAR)
...
2.01, Venda a Vista, "S"
2.02, Venda a Prazo (30 Dias), "S"
...
2.10, Venda a Prazo (30/60/90/120 Dias), "S"
...
2.99, Outras Saídas, "S" (NÃO GERA CAIXA e nem C.RECEBER)
...
2.61, Venda a Vista c/Entrega Futura,
SPACE(01) *
2.62, Venda a Prazo c/Entrega Futura,
SPACE(01) *
- Cadastro de CFOP (Utilize "Ajuda" no Validador SINTEGRA)
... (Inclua APENAS o necessário, para evitar erros...)
1.102
2.102
...
5.102
6.202
...
5.117
6.117
...
5.922 ... Simples Faturamento p/Entrega Futura
6.922 ... Simples Faturamento p/Entrega Futura
Efetuando um Pedido de Venda c/Entrega Futura:
- Dados do Cliente
- Código de Operação: 2.61
- Faturamento (Nota Fiscal) com CFOP: 5.922
-
Não há cálculo de Impostos
- Ao Liberar o Pedido, o Aplicativo
NÃO EFETUARÁ A BAIXA NO ESTOQUE *
Na data EFETIVA da entrega:
- Dados do Cliente
- Código de Operação: 2.99 (Não gera Caixa e nem C.Receber)
- Faturamento (Nota Fiscal) com CFOP: 5.102
-
Haverá cálculo de Impostos NORMALMENTE
- Ao Liberar o Pedido, o Aplicativo
EFETUARÁ A BAIXA NO ESTOQUE *
Qualquer outro tipo de controle, deverá ser realizado com critérios EXTRA-Aplicativo Fiscal. Por exemplo:
- Se for RESERVAR a mercadoria, poderá ser emitido um Pedido que ficará PENDENTE com o total dos ítens, que fará uma "pré-baixa" no saldo do estoque, aguardando o FATURAMENTO. No computador, o saldo das mercadorias estará atualizado (pré-baixa), mas no estoque físico, as quantidades SERÃO maiores. É aí que o "bicho pega" ...
Reserva, devolução de Mercadorias e Entrega Futura são as maiores "encrencas" para controle de saldos físicos de estoques, e seus procedimentos deverão ser criteriosos, onde todos os funcionários envolvidos devem ser DEDICADOS.
Algumas Empresas procedem a um RATEIO entre os Funcionários, do valor das mercadorias que faltam após o Inventário. Ilegal ou não, NEM O DONO DA EMPRESA DEVE RETIRAR MERCADORIAS SEM UM PEDIDO. Assim mesmo, RADICAL. Caso contrário, melhor procurar outro emprego.
A propósito:
O SINTEGRA EXIGE o Registro de Inventário, Registro Tipo 74, no mês de Março, juntamente com a movimentação de Fevereiro. VERIFIQUE os SALDOS !!!
*Sobre o controle de "E", "S", " " e PENDENTES:
Código: Selecionar todos
*
SELECT ESTOQUE
SET ORDER TO 1
GOTO TOP
SEEK CD(cCodMer)
*
WHILE .T.
*
HoraData()
SETCOLOR(cCor4)
Centro(24,"A G U A R D E . . .")
SETCOLOR(cCor0)
*
IF Trava_Reg(10)
IF cEntSai == "E" && Entrada ...
*
REPLACE ENTRADA_P WITH ENTRADA_P + nQtd
REPLACE DATAENT_P WITH CTOD(cDataLan)
*
ELSEIF cEntSai == "S" && Saida ...
*
REPLACE SAIDA_P WITH SAIDA_P + nQtd
REPLACE DATASAI_P WITH CTOD(cDataLan)
*
ELSEIF cEntSai == " " && Saida 2.61, 2.62 ...
*
END
*
nEstAtual := 0.00
nEstAtual := ((ESTANT + (ENTRADA + ENTRADA_P)) - (SAIDA + SAIDA_P))
REPLACE ESTATUAL WITH nEstAtual
REPLACE DATAATUAL WITH CTOD(cDataLan)
*
* COMMIT
* UNLOCK && CANCELA BLOQUEIO
*
ELSE
Beep(1)
HoraData()
SETCOLOR(cCor5)
Mensagem("*** NAO FOI POSSIVEL A ALTERACAO DESTE REGISTRO ***")
cTentar := SPACE(01)
SETCOLOR(cCor3)
Centro(24,"DESEJA TENTAR ALTERAR ESTE REGISTRO NOVAMENTE (S/N)? ")
SETCOLOR(cCor2)
SET CURSOR ON
Confirma(24,COL(),@cTentar)
SET CURSOR OFF
IF cTentar == "S"
LOOP
END
END && Trava_Reg(10)
EXIT
END && WHILE .T.
*
COMMIT
UNLOCK && CANCELA BLOQUEIO
*
Atenciosamente,
Janis Peters Grants.
http://www.gransoft.com.br
gransoft@zipmail.com.br