LJ7092 - Ajuste dos Dados na Conferência de Caixa
Descrição: | P.E. para permitir a verificação do item da venda para continuar o processo de simples faturamento |
Eventos: | O ponto de entrada é executado no momento de gerar os pedidos de venda de simples faturamento e simples remessa. |
Programa Fonte: | LOJA701H |
Descrição: | Este Ponto de Entrada , quando criado, apresenta um botão adicional na tela de Conferência de Caixa, permitindo alterar os dados de fechamento. | | Observações
Eventos: | Este Ponto de Entrada será executado após pressionar a opção Ajustar, presente na tela de Conferência de Caixa.
Não há retorno na função, e a manipulação será no aCols de dados de conferência que é passado para o Ponto de entrada em PARAMIXB. | Exemplos | #INCLUDE "PROTHEUS.CH" |
|---|
Preview |
|---|
Veja também |
|---|
Idioma | Português(Brasil) |
|---|
Versões | Microsiga_Protheus11 |
|---|
Sistemas Operacionais Suportados | Todos |
|---|
Compatível com as Bases de Dados | Todas |
|---|
Updates |
|---|
Parâmetros |
|---|
Retorno |
|---|
Eventos de chamada do Ponto de Entrada |
|---|
Variáveis | PARAMIXB - aCols de dados de conferência |
|---|
Programa Fonte | LOJA057.PRW |
|---|
LjSimpFat - Permite verificar se o item da venda será considerado no pedido de simples faturamento
Parâmetros: | | Nome | Tipo | Descrição |
|---|
| ParamIxb[1] | Array |
|
Array com as informações da SL2. Exemplo: aSL2[1] aSl2[1][1] aSl2[1][1][1] == "L2_NUM" aSl2[1][1][2] == "111111" | Retorno: | | Nome | Tipo | Descrição |
|---|
lRet | Lógico | .T. Permite incluir o item da venda no pedido de simples faturamento.
aCols de dados de conferência |
|
Retorno: | Não há |
.F. Não inclui o item da venda no pedido do simples faturamento. |
| Exemplo: | #INCLUDE "TOTVS.CH"
//---------------------------------------------------------------------------
/*/{Protheus.doc} LJ7092
Validação da conferência
@type function
@author Varejo
|
@since 26/02/2020@version P12
@param
@return Logical, Retorna .T.
/*/
//---------------------------------------------------------------------------
User Function LJ7092()
Local aArea := GetArea()
Local oFrmPag := ParamIxb[1]
Local aRet := {}
Local aParamBox := {}
Local aCombo := {""}
Local nI := 0
Private cCadastro := "Conferência de Caixa"
// --------------------------------------------------------------
// Abaixo está a montagem do vetor que será passado para a função
// --------------------------------------------------------------
For nI := 1 To Len(oFrmPag:aCols)
If oFrmPag:aCols[nI,5] > 0 .And. oFrmPag:aCols[nI,8] > 0
aAdd(aCombo,oFrmPag:aCols[nI,1])
EndIf
Next nI
aAdd(aParamBox,{2,"Forma de pagamento para ajuste",1,aCombo,50,"",.F.})
aAdd(aParamBox,{1,"Valor",0,"@E 999,999,999.99","mv_par02>0","","",70,.T.}) |
// Tipo numérico
If ParamBox(aParamBox,"Ajustar Valores",@aRet)
Processa( {|| AltVlr(oFrmPag, aRet) }, "Alterando..." )
oFrmPag:Refresh()
Endif
RestArea(aArea)
Return .T.
//---------------------------------------------------------------------------
/*/{Protheus.doc} AltVlr
Altera valor
@type function
@author Varejo
|
@since 26/02/2020
@version P12
@param
@return
/*/
//---------------------------------------------------------------------------
Static Function AltVlr(oFrmPag, aRet)
Local nPos := aScan(oFrmPag:aCols,{|x| AllTrim(x[1]) == aRet[1]})
SLT->(DbSetOrder(1))//LT_FILIAL+LT_OPERADO+DTOS(LT_DTFECHA)+LT_FORMPG
If SLT->(DbSeek(xFilial("SLT")+SLW->LW_OPERADO+DtoS(SLW->LW_DTFECHA)+oFrmPag:aCols[oFrmPag:nAt,1]))
Reclock("SLT", .F.)
SLT->LT_VLRDIG := 0
MsUnlock()
EndIf
If SLT->(DbSeek(xFilial("SLT")+SLW->LW_OPERADO+DtoS(SLW->LW_DTFECHA)+oFrmPag:aCols[nPos,1]))
Reclock("SLT", .F.)
SLT->LT_VLRDIG := aRet[2]
MsUnlock()
EndIf
oFrmPag:aCols[oFrmPag:nAt,7] := 0
oFrmPag:aCols[nPos,7] := aRet[2]
Return |
