;** Bib_PARM *******************************************************************
;*  Biblioteca de Rotinas Parametros                                           *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)               
;Desenvolvido    : 04/01/2016 por Anivel Augusto Rodrigues
;Ultima Alteracao: 07/01/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes getp_titulo(), getp_cheq()
;Ultima Alteracao: 25/10/2016 por Rafael Matos
;Motivo Alteracao: Ajustes getp_cheq()
;Ultima Alteracao: 22/11/2016 por Bruno Carvalho
;Motivo Alteracao: InclusÆo GetP_Entra e GetP_Balcao
;Ultima Alteracao: 09/12/2016 por Bruno Carvalho
;Motivo Alteracao: InclusÆo PARAM_ALTERA_FP no GetP_Balcao()
;Ultima Alteracao: 09/12/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao getp_fatura() e ajustes
;Ultima Alteracao: 03/01/2017 por Kamila Gomes
;Motivo Alteracao: adicionados os Sys_codigos 0388,0390,0345 ao parametro PARAM_BLOQPED_NEG
;Ultima Alteracao: 10/03/2017 por Rafael Matos
;Motivo Alteracao: Adicionado o SYS_CODIGO_CLIENTE="0255" ao PARAM_PEDIDO_ORCAMENTO_ITEM
;Ultima Alteracao: 15/03/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes exclusÆo rotinas controle de pecas
;Ultima Alteracao: 31/03/2017 por Bruno Carvalho
;Motivo Alteracao: Adicionado PARAM_BLOQ_ITEM_EXPED #0377#
;Ultima Alteracao: 03/05/2017 por Bruno Carvalho
;Motivo Alteracao: Adicionado PARAM_BLOQ_ITEM_EXPED no "P_FATURA"
;Ultima Alteracao: 27/07/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes nÆo usar condi‡Æo pagamento por item
;Ultima Alteracao: 14/09/2017 por Kamila Gomes
;Motivo Alteracao: Implementa‡Æo de envio de romaneio por e-mail para cliente #0359#
;                  usa-se o parƒmetro PARAM_ENVIA_EMAIL = "S"
;Ultima Alteracao: 20/09/2017 por Kamila Gomes
;Motivo Alteracao: Implementa‡Æo de envio de romaneio por e-mail para cliente #0370#
;Ultima Alteracao: 27/09/2017 por Kamila Gomes
;Motivo Alteracao: Implementa‡Æo de envio de romaneio por e-mail para cliente #0343#
;Ultima Alteracao: 10/11/2017 por Kamila Gomes
;Motivo Alteracao: Implementa‡Æo de envio de romaneio por e-mail para cliente #0278#
;Ultima Alteracao: 19/12/2017 por Kamila Gomes
;Motivo Alteracao: Implementa‡Æo de envio de romaneio por e-mail para cliente #0392#
;Ultima Alteracao: 14/03/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes getp_fatura() VersaoDaNFe
;Ultima Alteracao: 20/03/2018 por Kamila Gomes
;Motivo Alteracao: Implementa‡Æo de envio de romaneio por e-mail para cliente #0373#
;Ultima Alteracao: 23/05/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes parametros NFSe p_fatura 
;Ultima Alteracao: 04/06/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado o SYS_CODIGO_CLIENTE="0328" ao PARAM_PEDIDO_ORCAMENTO_ITEM
;Ultima Alteracao: 16/06/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Implementa‡Æo de envio de romaneio por e-mail para cliente #0390#
;Ultima Alteracao: 11/07/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes GetP_Fatura()
;Ultima Alteracao: 18/07/2018 por Kamila Gomes
;Motivo Alteracao: Implementa‡Æo de envio de romaneio por e-mail para cliente #0404#
;Ultima Alteracao: 31/07/2018 por Kamila Gomes
;Motivo Alteracao: Implementa‡Æo de envio de romaneio por e-mail para cliente #0274#
;Ultima Alteracao: 15/08/2018 por Kamila Gomes
;Motivo Alteracao: Implementa‡Æo de envio de romaneio por e-mail para cliente #0388#
;Ultima Alteracao: 03/09/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes exclusao PARAM_VERSAODANFE
;Ultima Alteracao: 13/09/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao getsys_modo_ordemdup() modo ordem da duplicata numero/letra
;Ultima Alteracao: 26/09/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado o SYS_CODIGO_CLIENTE="0326" ao PARAM_PEDIDO_ORCAMENTO_ITEM
;Ultima Alteracao: 04/10/2018 por Kamila Gomes
;Motivo Alteracao: Implementa‡Æo de envio de romaneio por e-mail para cliente #0380#
;Ultima Alteracao: 28/12/2018 por Anivel Augusto Rodrigues                           
;Motivo Alteracao: Adicionado processos de #0427#
;Ultima Alteracao: 21/01/2019 por Kamila Gomes                           
;Motivo Alteracao: Ajustes usar transferencia - #0412#
;Ultima Alteracao: 04/02/2019 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes pedido de compra     
;Ultima Alteracao: 04/04/2019 por Kamila Gomes
;Motivo Alteracao: Implementa‡Æo de envio de romaneio por e-mail para cliente #0232#         
;Ultima Alteracao: 04/07/2019 por Bruno Carvalho
;Motivo Alteracao: Adicionado PARAM_RELAT_ROME -> [Script_Impressao_Rom_Exp]
;Ultima Alteracao: 03/09/2019 por Bruno Carvalho
;Motivo Alteracao: Adicionado PARAM_UTILIZA_PONTOS na proc GetP_Balcao() apenas p/ #0227#
;Ultima Alteracao: 19/10/2019 por Bruno Carvalho
;Motivo Alteracao: Adicionado PARAM_UTILIZA_QTD_SOLICITADA  na proc GetP_Balcao()  
;Ultima Alteracao: 21/10/2019 por Bruno Carvalho
;Motivo Alteracao: Adicionado PARAM_UTILIZA_QTD_SOLICITADA  na proc GetP_Fatura()
;Ultima Alteracao: 29/10/2019 por Bruno Carvalho
;Motivo Alteracao: Adicionado PARAM_UTILIZA_PONTOS na proc GetP_Fatura() 
;Ultima Alteracao: 06/02/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado 2NFE proc GetP_Fatura() 

@ 22,28 ?? "Gerando Biblioteca Bib_parm.Lib"
Style Blink                   
?? "... "

If IsFile("\\Sistemas\\cadastro\\Bib_parm.Lib")
   Then Run NoRefresh "Del \\Sistemas\\cadastro\\Bib_parm.Lib>Nul"
EndIf
CreateLib "\\Sistemas\\cadastro\\Bib_parm"


;------- Parametro Titulos a Pagar ---------------------------------------------

;*******************************************************************************
;* Carrega Parametros p_titulo                                                 *
;*******************************************************************************
Proc getp_titulo(empresa)
private empresa, msg

getrecord "\\sistemas\\ctapag\\p_titulo" empresa to regp_titulo
if not retval                                                   
   Then
        msg=    "// Empresa ["+empresa+"] sem configura‡Æo de parƒmetros !// //"
        msg=msg+" - Utilit rios / Parƒmetros / Contas a Pagar//"
        msg=msg+" - Lan‡amentos e Baixas de T¡tulos          // //"
        msg=msg+"Verificar com Suporte da Vise !"
        Mensagem(msg)

        release vars empresa, regp_titulo, msg
        Return False
   else     
        PARAM_IMPRIME_CHEQUE           =regp_titulo["Emite_Cheque"        ]
        PARAM_COD_NOMINAL              =regp_titulo["Codigo_Nominal"      ]
        PARAM_PORTA_CHEQ               =regp_titulo["Porta_Impressora"    ]
        PARAM_CONTROLA_TALAO           =regp_titulo["Controla_Talao"      ]
        PARAM_RELAT                    =regp_titulo["Impressao_Recibo"    ]
        PARAM_PLANO_CONTA_AVISTA       =regp_titulo["Plano_Conta_AVista"  ]
        PARAM_PLANO_CONTA_APRAZO       =regp_titulo["Plano_Conta_APrazo"  ]
        PARAM_PLANO_CONTA_GC           =regp_titulo["Plano_Conta_GCredito"]

        If PARAM_IMPRIME_CHEQUE="S"        
           Then If PARAM_PORTA_CHEQ<>"COM1" And
                   PARAM_PORTA_CHEQ<>"COM2" And
                   PARAM_PORTA_CHEQ<>"COM3" And
                   PARAM_PORTA_CHEQ<>"COM4" And
                   PARAM_PORTA_CHEQ<>"LPT1" And
                   PARAM_PORTA_CHEQ<>"LPT2" And
                   PARAM_PORTA_CHEQ<>"LPT3" And
                   PARAM_PORTA_CHEQ=""
                   Then
                        msg=    "// Empresa ["+empresa+"] configura‡Æo de parƒmetros !// //"
                        msg=msg+" - Utilit rios / Parƒmetros / Contas a Pagar     //"
                        msg=msg+" - Lan‡amentos e Baixas de T¡tulos               // //"
                        msg=msg+"Porta para impressÆo de cheque, n„o configurada! // //"
                        msg=msg+"Verificar com Suporte da Vise !"
                        Mensagem(msg)
                        
                        PARAM_IMPRIME_CHEQUE="N"
                Endif
        EndIf
        
endif

release vars empresa, msg
Return True
EndProc ; (getp_titulo)

;*******************************************************************************
;* Carrega Parametros p_cheq                                                   *
;*******************************************************************************
Proc getp_cheq(empresa)
private empresa, msg

getrecord "\\sistemas\\cheqrec\\p_cheq" empresa to regp_cheq
if not retval                                                   
   Then
        msg=    "// Empresa ["+empresa+"] sem configura‡Æo de parƒmetros !// //"
        msg=msg+" - Utilit rios / Parƒmetros //"
        msg=msg+" - Cheques/Terceiros        // //"
        msg=msg+"Verificar com Suporte da Vise !"
        Mensagem(msg)

        release vars empresa, regp_cheq, msg
        Return False
   else 
        PARAM_UTILIZA_CHLIVRE     =regp_cheq["Utiliza_Inserir_CHLivre"]
        PARAM_UTILIZA_GERACXBC    =regp_cheq["Utiliza_Gera_CaixaBanco"]
        PARAM_UTILIZA_GERAREC     =regp_cheq["Utiliza_Gera_CtaReceber"]
        PARAM_PLANO_CONTA_ARECEBER=regp_cheq["Plano_Conta_CtaReceber" ]
        PARAM_UTILIZA_GERAPAG     =regp_cheq["Utiliza_Gera_CtaPagar"]
        PARAM_PLANO_CONTA_APAGAR  =regp_cheq["Plano_Conta_CtaPagar" ]
        PARAM_TXJUROS             =regp_cheq["Cheque_TxJuros"         ]
        PARAM_FORMA_TXJUROS       =regp_cheq["Cheque_Forma_TxJuros"   ]
endif

release vars empresa, msg
Return True
EndProc ; (getp_cheq)

;*******************************************************************************
;* Carrega Parametros P_Entra                                                  *
;*******************************************************************************
Proc GetP_Entra(EMPRESA)
private EMPRESA, MSG

If IsEmpty("\\Sistemas\\Estoque\\P_Entra")
   Then Mensagem("N„o est„o configurados os parametros para esta empresa [Entrada/NE] !")
        Return False
EndIf

GetRecord "\\Sistemas\\Estoque\\P_Entra" EMPRESA to REGP_ENTRA
If Not RetVal                                                   
   Then MSG =       "// Empresa ["+EMPRESA+"] sem configura‡Æo de parƒmetros !// //"
        MSG = MSG + " - Utilit rios / Parƒmetros //"
        MSG = MSG + " - P_Entra // //"
        MSG = MSG + "Verificar com Suporte da Vise !"
        Mensagem(MSG)

        Release Vars EMPRESA, REGP_BALCAO, MSG
        Return False
   Else ParamE=True 
        ;;;PARAM_PECAS_ITEM      = REGP_ENTRA["Controla_Pecas_Item"] nÆo usa mais !
        PARAM_PECAS_ITEM      = "N"
EndIf

Release Vars EMPRESA, MSG
Return True

EndProc ; (GetP_Entra)

;*******************************************************************************
;* Carrega Parametros P_Balcao                                                 *
;*******************************************************************************
Proc GetP_Balcao(EMPRESA)       
private EMPRESA, MSG

If IsEmpty("\\Sistemas\\Vendas\\P_Balcao")
   Then Mensagem("N„o esta Configurado os Parametros para Digita‡„o [Saida/Balc„o]!")
        Return False
EndIf

GetRecord "\\Sistemas\\Vendas\\P_Balcao" EMPRESA to REGP_BALCAO
If Not RetVal                                                   
   Then MSG =       "// Empresa ["+EMPRESA+"] sem configura‡Æo de parƒmetros !// //"
        MSG = MSG + " - Utilit rios / Parƒmetros //"
        MSG = MSG + " - Faturamento //"
        MSG = MSG + " - EmissÆo Romaneio p/ BalcÆo // //"
        MSG = MSG + "Verificar com Suporte da Vise !"
        Mensagem(MSG)

        Release Vars EMPRESA, REGP_BALCAO, MSG
        Return False
   Else 
        PARAM_EMPRESA                  =REGP_BALCAO["Codigo_Empresa"           ]
        PARAM_DESTINACAO               =REGP_BALCAO["Codigo_Destinacao"        ]
        PARAM_CONTA_CAIXA              =REGP_BALCAO["Codigo_Conta_Caixa"       ]
        PARAM_DATAS_VENCTOS            =REGP_BALCAO["Datas_Vencimentos"        ]
        PARAM_COR_TECIDO               =REGP_BALCAO["Cor_Tecido"               ]
        PARAM_TAMANHO                  =REGP_BALCAO["Tamanho"                  ]
        PARAM_DESCUNIT                 =REGP_BALCAO["Desconto Unitario"        ]
        PARAM_VOLUMES                  =REGP_BALCAO["Volumes"                  ]
        PARAM_SUBSTICMS                =REGP_BALCAO["Substituicao ICMS"        ]
        PARAM_PEDIDO                   =REGP_BALCAO["Utiliza_Pedido"           ]
        PARAM_ORCAMENTO                =REGP_BALCAO["Utiliza_Orcamento"        ]
        PARAM_ORDEM_SERVICO            =REGP_BALCAO["Utiliza_OS"               ]
        PARAM_BLOQUEIA_NEG             =REGP_BALCAO["Bloqueia_Estoque_Negativo"]
        PARAM_MULT_BCICMS              =REGP_BALCAO["Multiplas_BC_ICMS"        ]
        PARAM_NLCHQ_IGUAL_NF           =REGP_BALCAO["NLCheque_Igual_NF"        ]
        PARAM_IMPOSTOS                 =REGP_BALCAO["Impostos"                 ]
        PARAM_TABELA_PRECO             =REGP_BALCAO["Tabela_Preco"             ]
        PARAM_TRANSPORTADORA           =REGP_BALCAO["Codigo_Transportadora"    ]
        PARAM_TRANSFERENCIA            ="N"
        PARAM_CONSIGNACAO              ="N"
        
        If SYS_CODIGO_CLIENTE = "0377" Or
           SYS_CODIGO_CLIENTE = "0412"
           Then PARAM_TRANSFERENCIA = "S"
        EndIf   
        
        PARAM_CHEQUES                  =REGP_BALCAO["Utiliza_Controle_Cheques" ]
        PARAM_RELAT_NF                 =REGP_BALCAO["Script_Impressao_NF"      ]
        PARAM_RELAT_ROMA               =REGP_BALCAO["Script_Impressao_Romaneio"]
        PARAM_RELAT_NP                 =REGP_BALCAO["Script_Impressao_NP"      ]
        PARAM_RELAT_CARNE              =REGP_BALCAO["Script_Impressao_Carne"   ]
        PARAM_CONTROLA_NITENS          =REGP_BALCAO["Controla_Numero_Itens"    ]
        PARAM_NITENS                   =REGP_BALCAO["Numero_Itens"             ] 
        PARAM_TAMANHO_DESCR            =REGP_BALCAO["Tamanho_Descricao_Item"   ]
        PARAM_NLINHAS_OBS              =REGP_BALCAO["NLinhas_Obs_Campo_Itens"  ]
        PARAM_NLCHQ_IGUAL_NF           =REGP_BALCAO["NLCheque_Igual_NF"        ]
        PARAM_NVIAS_ROMANEIO           =REGP_BALCAO["NVias_Romaneio"           ]
        PARAM_ENTREGA                  =REGP_BALCAO["Entrega_Mercadoria"       ]
        PARAM_RELAT_ENTREGA            =REGP_BALCAO["Script_Impressao_Entrega" ]
        PARAM_PORTA_ENTREGA            =REGP_BALCAO["Porta_Impressao_Entrega"  ]
        PARAM_LIMITE_CREDITO           =REGP_BALCAO["Utiliza_Limite_Credito"   ]
        PARAM_ALTERA_PRECO             =REGP_BALCAO["Utiliza_Alteracao_Preco"  ]
        PARAM_DIAS_ATRASO              =REGP_BALCAO["Utiliza_Dias_Atraso"      ]
        PARAM_CUPOM_FISCAL             =REGP_BALCAO["Utiliza_Cupom_Fiscal"     ]
        PARAM_CLIENTE                  =REGP_BALCAO["Codigo_Cliente"           ]
        PARAM_VENDEDOR                 =REGP_BALCAO["Codigo_Vendedor"          ]
        PARAM_COND_PAGTO               =REGP_BALCAO["Codigo_Cond_Pagto"        ]
        PARAM_FORMA_PAGTO              =REGP_BALCAO["Codigo_Forma_Pagto"       ]
        PARAM_UTILIZAVENDEDOR          =REGP_BALCAO["Utiliza_Vendedor"         ]
        PARAM_UTILIZACDBARRA           =REGP_BALCAO["Utiliza_Codigo_Barras"    ]
        PARAM_BLOQUEIA_REEMISSAO       =REGP_BALCAO["Bloqueia_Reemissao_NF"    ]
        PARAM_BLOQUEIA_IMPRESSAO2      =REGP_BALCAO["Bloqueia_Impressao_2via"  ]    
        PARAM_AVISTAAUTOMAT            =REGP_BALCAO["Gera_VendasVista_Automat" ]
        PARAM_APRAZOAUTOMAT            =REGP_BALCAO["Gera_VendasPrazo_Automat" ]
        PARAM_AVISTADUPLIC             =REGP_BALCAO["Gera_Duplicatas_AVista"   ]
        PARAM_TXJUROS                  =REGP_BALCAO["Duplicata_TxJuros"        ]
        PARAM_FORMA_TXJUROS            =REGP_BALCAO["Duplicata_Forma_TxJuros"  ]
        PARAM_DUPLIC_NUMERO            =REGP_BALCAO["Gera_Duplicatas_Numero"   ]
        
        PARAM_COMIS_ITEM               =REGP_BALCAO["Comissao_Item"            ]
        PARAM_COMIS_MARCA              =REGP_BALCAO["Utiliza_Comissao_Marca"   ]

        PARAM_TABPR_ITEM               =REGP_BALCAO["Utiliza_Tabela_Preco_Item"]
        PARAM_COMIS_VENCTO             =REGP_BALCAO["Calcula_Comissao_Vencto"  ]
        PARAM_DATA_BASE                =REGP_BALCAO["Informa_Data_CalcVenctos" ]
        PARAM_VISITA                   =REGP_BALCAO["Utiliza_Visita"           ]
        PARAM_BLOQUEIA_AUTORI          =REGP_BALCAO["Bloqueia_Autorizados"     ]
                                          
        PARAM_FATURA_IGUAL_OF          =REGP_BALCAO["Gera_Fatura_Igual_OF"     ]
        PARAM_BLOQVRVENCTO             =REGP_BALCAO["Bloqueio Valor Vencto"    ]
        
        If SYS_CODIGO_CLIENTE="0102" Or
           SYS_CODIGO_CLIENTE="0114" Or
           SYS_CODIGO_CLIENTE="0344"
           Then PARAM_CALC_COMIS_ITEM  = "S"
                PARAM_COMIS_TOTAL_NOTA = "N"
           Else PARAM_CALC_COMIS_ITEM  = "N"          
        EndIf
        
        PARAM_UTILIZA_COMISSAO_VENDEDOR=REGP_BALCAO["Utiliza_Comissao_Vendedor"]
        PARAM_RATEIO_COMISSAO          =REGP_BALCAO["Utiliza_Rateio_Comissao"  ]
        PARAM_TRANSF_ULTCT             =REGP_BALCAO["Utiliza_UltCust_Transfer" ]
        PARAM_UTILIZA_COMISSAO_VENDREAL=REGP_BALCAO["Utiliza_Comissao_VendReal"]
        PARAM_UTILIZA_TABPR_CLIENTE    =REGP_BALCAO["Utiliza_TabPreco_Cliente" ]
        PARAM_UTILIZA_TABPR_REPRES     =REGP_BALCAO["Utiliza_TabPreco_Repres"  ]
        PARAM_PEGAPRECO_CPAGTO         =REGP_BALCAO["Pega_Preco_Tabela_Cpagto" ]
                                        
        PARAM_BLOQ_DESCTO              =REGP_BALCAO["Utiliza_Bloqueio_Descto"  ]
        PARAM_BLOQ_TPDESCTO            =REGP_BALCAO["Tipo_Bloqueio_Descto"     ]
        PARAM_BLOQ_TXDESCTO            =REGP_BALCAO["Taxa_Bloqueio_Descto"     ]
        PARAM_EXIBECUSTO               =REGP_BALCAO["Exibe_Custo_Item_Consulta"]
                                        
        PARAM_BLOQ_DESCTOUNIT          =REGP_BALCAO["Utiliza_Bloqueio_DesctoUn"]
        PARAM_BLOQ_TPDESCTOUNIT        =REGP_BALCAO["Tipo_Bloqueio_DesctoUn"   ]
        PARAM_BLOQ_TXDESCTOUNIT        =REGP_BALCAO["Taxa_Bloqueio_DesctoUn"   ]
                                        
        PARAM_DOC_NF                   = REGP_BALCAO["Not_Codigo do Documento"  ]  
        PARAM_TIP_NF                   = REGP_BALCAO["Not_Tipo do Documento"    ]  
        PARAM_SER_NF                   = REGP_BALCAO["Not_Serie do Documento"   ]  
                       
        PARAM_DOC_ROM                  = REGP_BALCAO["Rom_Codigo do Documento"  ]  
        PARAM_TIP_ROM                  = REGP_BALCAO["Rom_Tipo do Documento"    ]  
        PARAM_SER_ROM                  = REGP_BALCAO["Rom_Serie do Documento"   ]  
               
        PARAM_DOC_DUP                  = REGP_BALCAO["Dup_Codigo do Documento"  ]  
        PARAM_TIP_DUP                  = REGP_BALCAO["Dup_Tipo do Documento"    ]  
        PARAM_SER_DUP                  = REGP_BALCAO["Dup_Serie do Documento"   ]  
        PARAM_TPC_CLIE                 = REGP_BALCAO["Tipo_Consulta_Cliente"    ]
        PARAM_MESES_SEMVENDA           =REGP_BALCAO["Bloqueio_MESES_SEMVENDA"]
        PARAM_BLOQUEIA_CANCEL          =REGP_BALCAO["Bloqueia Cancelamento"  ]
        PARAM_BLOQUEIA_ALTERA          =REGP_BALCAO["Bloqueia_Alteracao_NF"  ]
        
        PARAM_NBLOQUEIO_SPC            =REGP_BALCAO["NDias_Bloqueio_SPC"       ]  
        PARAM_UTILIZA_ENTRADA          =REGP_BALCAO["Utiliza_Entrada"          ]      
        PARAM_CONDPAGTO                =REGP_BALCAO["Utiliza CP e FP Cliente"  ] 
        PARAM_TITCRED                  =REGP_BALCAO["Utiliza_Titulo_Credito"   ]
        PARAM_UTILIZA_PONTOS           =REGP_BALCAO["Utiliza_Resgate_Pontos"   ]
        PARAM_UTILIZA_QTD_SOLICITADA   =REGP_BALCAO["Utiliza_Qtd_Solicitada"   ]
        PARAM_BAIXA_PARCIAL            ="S"
        
        Switch
          Case SYS_CODIGO_CLIENTE="0377" or
               SYS_CODIGO_CLIENTE="0388" or
               SYS_CODIGO_CLIENTE="0427" or
               SYS_CODIGO_CLIENTE="0390" or
               SYS_CODIGO_CLIENTE="0345" : PARAM_BLOQPED_NEG     ="N"
          OtherWise                      : PARAM_BLOQPED_NEG     ="S"
        EndSwitch
        
        Switch
          Case SYS_CODIGO_CLIENTE="0232" or
               SYS_CODIGO_CLIENTE="0278" or
               SYS_CODIGO_CLIENTE="0343" or
               SYS_CODIGO_CLIENTE="0359" or
               SYS_CODIGO_CLIENTE="0370" or
               SYS_CODIGO_CLIENTE="0373" or
               SYS_CODIGO_CLIENTE="0380" or
               SYS_CODIGO_CLIENTE="0388" or
               SYS_CODIGO_CLIENTE="0390" or
               SYS_CODIGO_CLIENTE="0392" or
               SYS_CODIGO_CLIENTE="0404" Or
               SYS_CODIGO_CLIENTE="0427" or
               SYS_CODIGO_CLIENTE="0431": PARAM_ENVIA_EMAIL     = "S"
          OtherWise                      : PARAM_ENVIA_EMAIL     = "N"
        EndSwitch

        ;---- Quando Destina‡Æo ‚ Or‡amento ------------------------------------
        If SYS_CODIGO_CLIENTE="0102" And Search("ORCAMENTO",Upper([FaturaC->Descricao da Destinacao]))>0 
           Then GetRecord "P_Balcao" [FaturaC->Codigo da Empresa] To REG_PARAMETRO
                If RetVal
                   Then PARAM_BLOQUEIA_REEMISSAO = "N"
                        PARAM_BLOQUEIA_ALTERA    = "N"
                EndIf   
        EndIf  
        
        PARAM_ALTERA_FP       ="S"          
EndIf

Release Vars EMPRESA, MSG
Return True

EndProc ; (GetP_Balcao)


;*******************************************************************************
;* Carrega Parametros P_Fatura                                                 *
;*******************************************************************************
Proc GetP_Fatura(EMPRESA)       
private EMPRESA, MSG

If IsEmpty("\\Sistemas\\Vendas\\P_Fatura")
   Then Mensagem("N„o esta Configurado os Parametros para Digita‡„o [Saida/Fatura]!")
        Return False
EndIf

GetRecord "\\Sistemas\\Vendas\\P_Fatura" EMPRESA to REGP_FATURA
If Not RetVal                                                   
   Then MSG =       "// Empresa ["+EMPRESA+"] sem configura‡Æo de parƒmetros !// //"
        MSG = MSG + " - Utilit rios / Parƒmetros //"
        MSG = MSG + " - Faturamento //"
        MSG = MSG + " - EmissÆo Nota Fiscal/Romaneio // //"
        MSG = MSG + "Verificar com Suporte da Vise !"
        Mensagem(MSG)

        Release Vars EMPRESA, REGP_BALCAO, MSG
        Return False
   Else
   
        PARAM_EMPRESA                  =REGP_FATURA["Codigo_Empresa"           ]
        PARAM_DESTINACAO               =REGP_FATURA["Codigo_Destinacao"        ]
        PARAM_CONTA_CAIXA              =REGP_FATURA["Codigo_Conta_Caixa"       ]
        PARAM_DATAS_VENCTOS            =REGP_FATURA["Datas_Vencimentos"        ]
        PARAM_COR_TECIDO               =REGP_FATURA["Cor_Tecido"               ]
        PARAM_TAMANHO                  =REGP_FATURA["Tamanho"                  ]
        PARAM_DESCUNIT                 =REGP_FATURA["Desconto Unitario"        ]
        PARAM_VOLUMES                  =REGP_FATURA["Volumes"                  ]
        PARAM_SUBSTICMS                =REGP_FATURA["Substituicao ICMS"        ]
        PARAM_PEDIDO                   =REGP_FATURA["Utiliza_Pedido"           ]
        PARAM_ORCAMENTO                =REGP_FATURA["Utiliza_Orcamento"        ]
        PARAM_ORDEM_SERVICO            =REGP_FATURA["Utiliza_OS"               ]
        PARAM_BLOQUEIA_NEG             =REGP_FATURA["Bloqueia_Estoque_Negativo"]
        PARAM_MULT_BCICMS              =REGP_FATURA["Multiplas_BC_ICMS"        ]
        PARAM_NLCHQ_IGUAL_NF           =REGP_FATURA["NLCheque_Igual_NF"        ]
        PARAM_IMPOSTOS                 =REGP_FATURA["Impostos"                 ]
        PARAM_TABELA_PRECO             =REGP_FATURA["Tabela_Preco"             ]
        PARAM_TRANSPORTADORA           =REGP_FATURA["Codigo_Transportadora"    ]
        PARAM_FORMA_PAGTO              =REGP_FATURA["Codigo_Forma_Pagto"       ]
        PARAM_TRANSFERENCIA            =REGP_FATURA["Utiliza_Transferencia"    ]
        PARAM_CONSIGNACAO              ="N"
        PARAM_CHEQUES                  =REGP_FATURA["Utiliza_Controle_Cheques" ]
        PARAM_RELAT_NF                 =REGP_FATURA["Script_Impressao_NF"      ]
        PARAM_RELAT_ROMA               =REGP_FATURA["Script_Impressao_Romaneio"]
        PARAM_RELAT_ROME               =REGP_FATURA["Script_Impressao_Rom_Exp" ]
        PARAM_RELAT_OF                 =REGP_FATURA["Script_Impressao_OF"      ] 
        PARAM_RELAT_NP                 =REGP_FATURA["Script_Impressao_NP"      ]
        PARAM_RELAT_CARNE              =REGP_FATURA["Script_Carne"             ]
        PARAM_CONTROLA_NITENS          =REGP_FATURA["Controla_Numero_Itens"    ]           
        PARAM_NITENS                   =REGP_FATURA["Numero_Itens"             ] 
        PARAM_TAMANHO_DESCR            =REGP_FATURA["Tamanho_Descricao_Item"   ]
        PARAM_NLINHAS_OBS              =REGP_FATURA["NLinhas_Obs_Campo_Itens"  ]
        PARAM_NLCHQ_IGUAL_NF           =REGP_FATURA["NLCheque_Igual_NF"        ]
        PARAM_NVIAS_ROMANEIO           =REGP_FATURA["NVias_Romaneio"           ]
        PARAM_LIMITE_CREDITO           =REGP_FATURA["Utiliza_Limite_Credito"   ]
        PARAM_ALTERA_PRECO             =REGP_FATURA["Utiliza_Alteracao_Preco"  ]
        PARAM_DIAS_ATRASO              =REGP_FATURA["Utiliza_Dias_Atraso"      ]
        PARAM_CUPOM_FISCAL             =REGP_FATURA["Utiliza_Cupom_Fiscal"     ]
        PARAM_UTILIZACDBARRA           =REGP_FATURA["Utiliza_Codigo_Barras"    ]
        PARAM_AVISTAAUTOMAT            =REGP_FATURA["Gera_VendasVista_Automat" ]
        PARAM_APRAZOAUTOMAT            =REGP_FATURA["Gera_VendasPrazo_Automat" ]
        PARAM_AVISTADUPLIC             =REGP_FATURA["Gera_Duplicatas_AVista"   ]
        PARAM_TXJUROS                  =REGP_FATURA["Duplicata_TxJuros"        ]
        PARAM_FORMA_TXJUROS            =REGP_FATURA["Duplicata_Forma_TxJuros"  ]
        PARAM_DUPLIC_NUMERO            =REGP_FATURA["Gera_Duplicatas_Numero"   ]
        PARAM_COMIS_ITEM               =REGP_FATURA["Comissao_Item"            ]
        PARAM_COMIS_MARCA              =REGP_FATURA["Utiliza_Comissao_Marca"   ]

        PARAM_TABPR_ITEM               =REGP_FATURA["Utiliza_Tabela_Preco_Item"]
        PARAM_COMIS_VENCTO             =REGP_FATURA["Calcula_Comissao_Vencto"  ]
        PARAM_DATA_BASE                =REGP_FATURA["Informa_Data_CalcVenctos" ]
        PARAM_VISITA                   =REGP_FATURA["Utiliza_Visita"           ]
        PARAM_BLOQUEIA_AUTORI          =REGP_FATURA["Bloqueia_Autorizados"     ]
        PARAM_EXIBECUSTO               =REGP_FATURA["Exibe_Custo_Item_Consulta"]
        PARAM_BLOQUEIA_CANCEL          =REGP_FATURA["Bloqueia Cancelamento"    ]
        PARAM_BLOQUEIA_REEMISSAO       =REGP_FATURA["Bloqueia_Reemissao_NF"    ]
        PARAM_BLOQUEIA_ALTERA          =REGP_FATURA["Bloqueia_Alteracao_NF"    ]
        PARAM_BLOQUEIA_IMPRESSAO2      =REGP_FATURA["Bloqueia_Impressao_2via"  ]
        PARAM_BLOQ_ITEM_EXPED          =REGP_FATURA["Bloqueia_Alteracao_EXPED" ]
        PARAM_UTILIZA_QTD_SOLICITADA   =REGP_FATURA["Utiliza_Qtd_Solicitada"   ]
        PARAM_UTILIZA_PONTOS           =REGP_FATURA["Utiliza_Resgate_Pontos"   ]
        
        If SYS_CODIGO_CLIENTE="0052" Or
           SYS_CODIGO_CLIENTE="0240" Or
           SYS_CODIGO_CLIENTE="0345" Or
           SYS_CODIGO_CLIENTE="0388" Or
           SYS_CODIGO_CLIENTE="0427" Or
           SYS_CODIGO_CLIENTE="0390" Or
           SYS_CODIGO_CLIENTE="0377"  
           Then PARAM_BLOQPED_NEG="N"
           Else PARAM_BLOQPED_NEG="S"
        EndIf
        
        If SYS_CODIGO_CLIENTE="0102" Or
           SYS_CODIGO_CLIENTE="0114" Or
           SYS_CODIGO_CLIENTE="0338"
           Then PARAM_CALC_COMIS_ITEM="S"
           Else PARAM_CALC_COMIS_ITEM="N"
        EndIf
        
        PARAM_UTILIZA_COMISSAO_VENDEDOR=REGP_FATURA["Utiliza_Comissao_Vendedor"]
        PARAM_RATEIO_COMISSAO          =REGP_FATURA["Utiliza_Rateio_Comissao"  ]
        PARAM_TRANSF_ULTCT             =REGP_FATURA["Utiliza_UltCust_Transfer" ]
        PARAM_UTILIZA_COMISSAO_VENDREAL=REGP_FATURA["Utiliza_Comissao_VendReal"]
        PARAM_UTILIZA_TABPR_CLIENTE    =REGP_FATURA["Utiliza_TabPreco_Cliente" ]
        PARAM_UTILIZA_TABPR_REPRES     =REGP_FATURA["Utiliza_TabPreco_Repres"  ]
        PARAM_PEGAPRECO_CPAGTO         =REGP_FATURA["Pega_Preco_Tabela_CPagto" ]
        PARAM_BAIXA_PARCIAL            =REGP_FATURA["Utiliza_Baixa_Parcial_Ped"]
        
        PARAM_BLOQ_DESCTO              =REGP_FATURA["Utiliza_Bloqueio_Descto"  ]
        PARAM_BLOQ_TPDESCTO            =REGP_FATURA["Tipo_Bloqueio_Descto"     ]
        PARAM_BLOQ_TXDESCTO            =REGP_FATURA["Taxa_Bloqueio_Descto"     ]
        
        PARAM_BLOQ_DESCTOUNIT          =REGP_FATURA["Utiliza_Bloqueio_DesctoUn"]
        PARAM_BLOQ_TPDESCTOUNIT        =REGP_FATURA["Tipo_Bloqueio_DesctoUn"   ]
        PARAM_BLOQ_TXDESCTOUNIT        =REGP_FATURA["Taxa_Bloqueio_DesctoUn"   ]
        
        PARAM_DOC_ROM                  =REGP_FATURA["Rom_Codigo do Documento"  ]  
        PARAM_TIP_ROM                  =REGP_FATURA["Rom_Tipo do Documento"    ]  
        PARAM_SER_ROM                  =REGP_FATURA["Rom_Serie do Documento"   ]  
               
        PARAM_DOC_NF                   =REGP_FATURA["Not_Codigo do Documento"  ]  
        PARAM_TIP_NF                   =REGP_FATURA["Not_Tipo do Documento"    ]  
        PARAM_SER_NF                   =REGP_FATURA["Not_Serie do Documento"   ]  
               
        PARAM_DOC_DUP                  =REGP_FATURA["Dup_Codigo do Documento"  ]  
        PARAM_TIP_DUP                  =REGP_FATURA["Dup_Tipo do Documento"    ]  
        PARAM_SER_DUP                  =REGP_FATURA["Dup_Serie do Documento"   ]  
        
        PARAM_DOC_NFEN                 =REGP_FATURA["NFEN_Codigo do Docto"     ]  
        PARAM_TIP_NFEN                 =REGP_FATURA["NFEN_Tipo do Docto"       ]  
        PARAM_SER_NFEN                 =REGP_FATURA["NFEN_Serie do Docto"      ]  
               
        PARAM_DOC_DUPNFEN              =REGP_FATURA["NFEN Dup_Codigo do Docto" ]  
        PARAM_TIP_DUPNFEN              =REGP_FATURA["NFEN Dup_Tipo do Docto"   ]  
        PARAM_SER_DUPNFEN              =REGP_FATURA["NFEN Dup_Serie do Docto"  ]  
        
        PARAM_FATURA_IGUAL_OF          =REGP_FATURA["Gera_Fatura_Igual_OF"     ]
        PARAM_GRUPO_EDOC               =REGP_FATURA["Grupo_eDoc"               ]
        PARAM_CAMINHO_MANAGER          =REGP_FATURA["Caminho_NfeManager"       ]
                    
        PARAM_NBLOQUEIO_SPC            =REGP_FATURA["NDias_Bloqueio_SPC"       ]        
        PARAM_UTILIZA_ENTRADA          =REGP_FATURA["Utiliza_Entrada"          ]  
        PARAM_RESTR_CNPJCPF            =REGP_FATURA["Utiliza_Restricao_CNPJCPF"]  
        PARAM_CONDPAGTO                =REGP_FATURA["Utiliza CP e FP Cliente"  ]
        PARAM_TPC_CLIE                 =REGP_FATURA["Tipo_Consulta_Cliente"    ]
        PARAM_EXPEDET                  =REGP_FATURA["Utiliza_Exped_Etiqueta"   ]
        PARAM_TITCRED                  =REGP_FATURA["Utiliza_Titulo_Credito"   ]
        PARAM_BLOQ_ITEM                =REGP_FATURA["Bloqueia_Dig_ItemPedido"  ]
        If IsAssigned(VERIFICA_CONSULTA) And VERIFICA_CONSULTA = "FATURA"
           Then PARAM_DADOS_ITEM_RESUMO=REGP_FATURA["Dig_DadosItem_Resumo"     ] 
           Else PARAM_DADOS_ITEM_RESUMO="N"
        EndIf 
       
        PARAM_ALTERA_FP                ="S"
        
        ;Utiliza envio de email
        Switch
          Case SYS_CODIGO_CLIENTE="0232" or
               SYS_CODIGO_CLIENTE="0274" or
               SYS_CODIGO_CLIENTE="0278" or
               SYS_CODIGO_CLIENTE="0343" or
               SYS_CODIGO_CLIENTE="0359" or
               SYS_CODIGO_CLIENTE="0370" or
               SYS_CODIGO_CLIENTE="0373" or
               SYS_CODIGO_CLIENTE="0380" or
               SYS_CODIGO_CLIENTE="0388" or
               SYS_CODIGO_CLIENTE="0390" or
               SYS_CODIGO_CLIENTE="0392" or
               SYS_CODIGO_CLIENTE="0404" Or
               SYS_CODIGO_CLIENTE="0427" or
               SYS_CODIGO_CLIENTE="0431" : PARAM_ENVIA_EMAIL     = "S"
          OtherWise                      : PARAM_ENVIA_EMAIL     = "N"
        EndSwitch

        PARAM_DOC_NSEN                 =REGP_FATURA["NSEN_Codigo do Docto"     ]  
        PARAM_TIP_NSEN                 =REGP_FATURA["NSEN_Tipo do Docto"       ]  
        PARAM_SER_NSEN                 =REGP_FATURA["NSEN_Serie do Docto"      ]  
               
        PARAM_DOC_DUPNSEN              =REGP_FATURA["NSEN Dup_Codigo do Docto" ]  
        PARAM_TIP_DUPNSEN              =REGP_FATURA["NSEN Dup_Tipo do Docto"   ]  
        PARAM_SER_DUPNSEN              =REGP_FATURA["NSEN Dup_Serie do Docto"  ]
        
        PARAM_DOC_2NFE                 =REGP_FATURA["2NFE_Codigo do Docto"     ]  
        PARAM_TIP_2NFE                 =REGP_FATURA["2NFE_Tipo do Docto"       ]  
        PARAM_SER_2NFE                 =REGP_FATURA["2NFE_Serie do Docto"      ]  
               
        PARAM_DOC_DUP2NFE              =REGP_FATURA["2NFE Dup_Codigo do Docto" ]  
        PARAM_TIP_DUP2NFE              =REGP_FATURA["2NFE Dup_Tipo do Docto"   ]  
        PARAM_SER_DUP2NFE              =REGP_FATURA["2NFE Dup_Serie do Docto"  ]  
        
EndIf

Release Vars EMPRESA, MSG
Return True

EndProc ; (GetP_Fatura)


;*******************************************************************************
;* Carrega caracter para ordem de duplicata a,b,c.. ou 1,2,3..               *
;*******************************************************************************
Proc getsys_modo_ordemdup()       

sys_valor()

switch
  case sys_Codigo_Cliente="xx0000":
    sys_modo_ordemdup="N" 
  
  otherwise  :
    sys_modo_ordemdup="L"
      
endswitch

EndProc ; (getsys_modo_ordemdup)

;*******************************************************************************
;** Monta Procedures                                                         ***
;*******************************************************************************
WriteLib "\\Sistemas\\Cadastro\\Bib_parm"
         getp_titulo, getp_cheq, GetP_Balcao, GetP_Entra, GetP_Fatura,
         getsys_modo_ordemdup


; Muita aten‡Æo ao usar parametros de tabelas diferentes ao mesmo tempo :
; nÆo podem ter mesmo nome de varivaies em parametros de tabela diferentes 
