Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagejava
themeMidnight
titleExemplo de rotina automática Inclusão
collapsetrue
#Include 'Protheus.ch'
//---------------------------------
// CHEQUE SOBRE TITULOS            |
//---------------------------------
User Function MyFA390()
	Local aArray := {}
	Local cCheque:= "2906001"
	Local nOpc   := 2       // 2 - Chq s/ titulo, 3 - Avulso

	Private lMsErroAuto := .F.

	aArray := { { "AUTBANCO"    , "237"             , NIL },;
            	{ "AUTAGENCIA"      , "33901"            , NIL },;
           		{ "AUTCONTA"     , "125008    "              , NIL },;
            	{ "AUTCHEQUE"   , cCheque             , NIL },;
            	{ "AUTVENCINI"  , CtoD("21/06/2016")          , NIL },;    // Remover caso utilizar opc 3
            	{ "AUTVENCFIM"  , CtoD("29/06/2016"), NIL },;                   // Remover caso utilizar opc 3
            	{ "AUTVALOR"    , 5000, NIL },;
            	{ , NIL },;
            	{ "AUTFORN"     , "001"             , NIL },;
            	{ "AUTBENEF"    , "F PADRAO            "              , NIL },;
            	{ "AUTNATUREZA"  , "10101     "      , NIL }}

	MsExecAuto( { |x,y,z| FINA390(x,y,z)} ,0, aArray, nOpc) 

	If lMsErroAuto
    	MostraErro()
	Else
    	Alert("O cheque "+cCheque+" foi gerado com sucesso!")
	Endif
	 
Return
Bloco de código
languagejava
themeMidnight
titleExemplo de rotina automática Cancelamento
collapsetrue
#Include 'Protheus.ch'
//---------------------------------
// CHEQUE SOBRE TITULOS            |
//---------------------------------
User Function MyCanFA390()
	Local aArray := {}
	Local cCheque:= "2906001"

	Private lMsErroAuto := .F.

	aArray := { { "AUTBANCO"    , "237"             , NIL },;
            	{ "AUTAGENCIA"  , "33901"           , NIL },;
           		{ "AUTCONTA"    , "125008    "      , NIL },;
            	{ "AUTCHEQUE"   , cCheque           , NIL },;
            	{ "AUTCHQIMPR"  , .T.               , NIL }}// Identifica se deve ou não reutilizar ",o NILcheque }caso }impresso.

	MsExecAuto( { |x,y,z| FINA390(x,y,z)} ,0, aArray, nOpc5) 

	If lMsErroAuto
    	MostraErro()
	Else
    	Alert("O cheque "+cCheque+" foi geradocancelado com sucesso!")
	Endif
	 
Return

...

Nota
titleAtenção

Não será Possível gerar Cheques sobre Pagamentos AntecipadosAntecipados, AbatimentosNotas de Débitos a Fornecedores e Títulos Provisórios.  

Informações
titleNota

Caso queira, emitir cheques para Pagamentos Antecipados, favor utilizar Rotina Baixas Pagar Automática (FINA090), selecionando nos parâmetros(F12) a opção "Gera Cheque Autom."=Sim.

06. CALCULO DE IMPOSTOS

Deck of Cards
idImpostos
effectTypeslide
Card
id1
labelImpostos considerados
effectTypeslide

Os impostos que serão considerados para calculo:

  • PIS - Programa de Integração Social
  • COFINS - Contribuição para o Financiamento da Seguridade Social
  • CSLL - Contribuição social sobre lucro liquido 
  • IR - Imposto de renda
  • ISS - Imposto sobre serviço


Nota
titleAtenção

Só haverá o calculo dos impostos para pessoa jurídica e quando os tributos estiverem configurados com competência de caixa.    

Card
id2
labelValor minimo de calculo
effectTypeslide

Os impostos que serão considerados o valor minimo de retenção, apenas para recomposição da base e calculo dos impostos, permitindo que o cheque fique com o valor liquido:

  • PIS - Programa de Integração Social
  • COFINS - Contribuição para o Financiamento da Seguridade Social
  • CSLL - Contribuição social sobre lucro liquido 
  • IR - Imposto de renda

Exemplo:

  1. Inclusão de um titulo a pagar com PIS,COFINS e CSLL no valor de 100, não atinge o minimo de calculo informado no parâmetro (MV_VL10925 = 10)
  2. Efetuar a geração de cheque sobre títulos.
  3. O valor do cheque sera de 100, pois não atingiu o minimo para retenção.
  4. Sendo assim quando for feita a baixa pela rotina FINA080 - baixas a pagar manual, o valor de baixa ficara igual ao valor do cheque. 
Card
id3
labelCumulatividade
effectTypeslide

Apenas haverá a cumulatividade quando houver um titulo pendente de retenção já baixado, no mesmo dia que for efetuada a geração do cheque para um segundo titulo.

Exemplo:

  1. Inclusão de um titulo a pagar com PIS, COFINS e CSLL no valor de 100.
  2. Efetuar a geração de cheque sobre títulos.
  3. O valor do cheque sera de 100, pois não atingiu o minimo para retenção.
  4. Efetuar a baixa do titulo pela rotina FINA080 - baixas a pagar manual.
  5. Inclusão de um segundo titulo a pagar com PIS, COFINS e CSLL no valor de 200, nesse momento o calculo do imposto e feito sobre 300, pois como o titulo anterior não atingiu o minimo, e efetuada a cumulatividade do imposto.
  6. Efetuar a geração do cheque sobre títulos.
  7. O valor do cheque sera de 186,05, o calculo é feito da seguinte forma.
Valor pendente de retençãoInclusão do segundo titulo, efetuando a cumulatividadeGeração do cheque sobre o titulo de 200,00
Titulo - 100,00Titulo - 200,00Base do imposto = 300
Pis - 0,65Pis - 1,3Pis = 1,95
Cofins - 3Cofins - 6Cofins = 9
Csll - 1Csll - 2Csll = 6
Total dos impostos = 4,65Total dos impostos = 9,3Total dos impostos a serem calculados = 13,95

Valor liquido do cheque ( 200 - 13,95 = 186,05)
Aviso
titleAviso!

A cumulatividade só ira ocorrer, se no mesmo dia da geração do cheque já existir uma baixa que não atingiu o minimo para retenção. 

...