Histórico da Página

GERREMC5

Pontos de entradas do LOCA001.PRW (Orçamentos)

...

Retorno:

• Lógico (.T., .F.)

LC001LOC

Ponto-de-entrada: LC001LOC

Descrição: PONTO DE ENTRADA PARA INCLUIR INFORMAÇÕES NO RODAPÉ DO ORÇAMENTO

Parâmetros de entrada:

• Nil

Retorno:

• Nil

...

Pontos de entradas Pontos de entradas do LOCA003.PRW (CLASSES DO RENTAL)

...

• ACAMPOSSC5

Retorno:

• ACAMPOSSC5

Exemplo

user funtion GERREMC5()

LOCAL aCampos := PARAMIXB[1]

LOCAL cSeq  := Soma1(STR(Len(aCampos)

Aadd(aCampos, {"C5_SEGURO"  , 1000    , cSeq } )

RETURN Aclone(acampos)

GRVC5OBS

Ponto-de-entrada: GRVC5OBS

...

Ponto-de-entrada: CLIBLOQ

Descrição: TRATAMENTO PARA BLOQUAR A EMISSÃO DE NOTA DE REMESSA POR CLIENTE

...

• FP0->FP0_CLI , FP0->FP0_LOJA

Retorno:

• _LGERA

Pontos de entradas do LOCA011.PRW (Geração da Nota de Retorno)

...

LOCA10Z

Ponto-de-entrada:  GRRETPRCLOCA10Z

Descrição: PONTO DEENTRADA ANTES DA GERAÇÃO DO PEDIDO DE VENDA DE REMESSA

Parâmetros de entrada:

• Nil

Retorno:

• Nil

...

Pontos de entradas do LOCA011.PRW (Geração da Nota de Retorno)

GRRETPRC

Ponto-de-entrada: GRRETPRC

Descrição: Ponto de entrada antes da geração Descrição: Ponto de entrada antes da geração das notas, podendo cancelar a rotina

...

Ponto-de-entrada: CLIBLOQ

Descrição: TRATAMENTO PARA BLOQUAR A GERAÇÃO DE CONTRATO POR CLIENTE

...

Parâmetros de entrada:

• nenhum

Retorno:

• Nil

CLIBLOQ

Ponto-de-entrada: CLIBLOQ

Descrição: PTRATAMENTO PTRATAMENTO PARA BLOQUAR A EMISSÃO DE FATURAMENTO POR CLIENTE

Parâmetros de entrada:

• FP0->FP0_CLI , FP0->FP0_LOJA

Retorno:

• Nil

Pontos de entradas do LOCA024.PRW (Gerenciamento de bens)

LC024ROT

LCJATFPG

Ponto-de-entrada:  LC024ROTLCJATFPG

Descrição: ALTERAR DADOS DA FPG CUSTO EXTRADescrição: Inclusão de novas opções no browse da rotina de gerenciamento de bens.

Parâmetros de entrada:

• aRotina

  Nil

Retorno:

• aRotina

  Nil

...

LOCA021A

Ponto-de-entrada:  LOCA024ALOCA021A

Descrição: ALTERAR CÓDIGO E DESCRIÇÃO DE PROUTO NA FPG CUSTO EXTRADescrição: Ponto de entrada para adicionar campos customizados no grid do Gerenciamento de Bens.

Parâmetros de entrada:

• FPG→(Recno()),1 // 1 = Código do produto

  
  

• FPG→(Recno()),2 // 2 = Descrição do produto
• aHeader
• aCols

Retorno:

• aHeader

  Nil

  aCols

LOCA061Z

Exemplo Ponto-de ponto de -entrada criado: #INCLUDE "TOTVS.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "TOPCONN.CH"                                                                                                   
#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"
#INCLUDE "MSMGADD.CH"                                                                                                              

//-------------------------------------------------------------------
/*/{Protheus.doc} LOCA024A
@description    Ponto de Entrada para adicionar campos à Grid do Gerenciamento de Bens
@author            exemplo
@since             10/03/2023
/*/
//------------------------------------------------------------------
User Function LOCA024A()
Local nX            := 0
Local nY            := 0
Local nPosNewCpo    := 0
Local nTamACols        := 0
Local aHeader        := PARAMIXB[1]
Local aCols            := PARAMIXB[2]
Local aHeadAux        := {}
Local aColsAux        := {}
Local aTamFam        := TamSx3("T6_NOME   ")

LOCA061Z

Descrição: ALTERAR DADOS DO PEDIDOS DE VENDA NO FATURAMENTO AUTOMÁTICO

Parâmetros de entrada:

• _ACABPV,_AITENSPV,_AZC1FAT,lGeraPV

Retorno:

• ACABPV,_AITENSPV,_AZC1FAT,lGeraPV

...

Pontos de entradas do LOCA024.PRW (Gerenciamento de bens)

LC024ROT

Ponto-de-entrada: LC024ROT

Descrição: Inclusão de novas opções no browse da rotina de gerenciamento de bens.

Parâmetros de entrada:

• aRotina

Retorno:

• aRotina

LOCA024A

Ponto-de-entrada: LOCA024A

Descrição: Ponto de entrada para adicionar campos customizados no grid do Gerenciamento de Bens.

Parâmetros de entrada:

• aHeader
• aCols

Retorno:

• aHeader
• aCols

Exemplo de ponto de entrada criado:

#INCLUDE "TOTVS.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "TOPCONN.CH"                                         //Adiciona campo Virtual na grid
For nX := 1 To Len(aHeader)
    //adiciona um por um
    Aadd(aHeadAux,aHeader[nX])
    //caso encontre o campo FQ4_COFAM, adiciona campo virtual com a descrição
    If AllTrim(aHeader[nX][2]) == "FQ4_CODFAM"
        //guarda campo de referencia
        nPosNewCpo := nX 
        //adiciona campo 
        Aadd( aHeadAux , { "Fam.CUSTOM"     , ; // Titulo
                            "FQ4_V_FAM"       , ; // campo
                            "@!"               , ; // picture
                            aTamFam[1]         , ; // tamanho 
                            aTamFam[2]         , ; // decimal
                            "AllwaysTrue()" , ; // valid
  
#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"
#INCLUDE "MSMGADD.CH"                             aHeader[nX][7]   , ; // usado
                            "C"             , ; // tipo
                            ""               , ; // x3_arquivo
 

//-------------------------------------------------------------------
/*/{Protheus.doc} LOCA024A
@description    Ponto de Entrada para adicionar campos à Grid do Gerenciamento de Bens
@author            exemplo
@since                 "V" } )             // contexto
    EndIf
Next nX

//adiciona coluna com informação no aCols
For nX := 1 To Len(aCols)
    //adiciona nova linha a cada aCols
    Aadd(aColsAux,{})
    //pega o tamanho atual do aColsAux
    nTamACols := Len(aColsAux)
    //Roda todas as Linhas
    For nY := 1 To Len(aCols[nX])
        //adiciona campo a campo
        Aadd(aColsAux[nTamACols],aCols[nX][nY])
        //quando está na posição do campo de referencia, adiciona o valor do campo virtual novo
        If nY == nPosNewCpo
            Aadd(aColsAux[nTamACols],Posicione("ST6",1,xFilial("ST6") + aCols[nX][nY], "T6_NOME"))
        EndIf
    Next nY
Next nX

//atualiza aHeader e aCols
aHeader := AClone(aHeadAux)
aCols    := AClone(aColsAux)

Return {aHeader,aCols}

Pontos de entradas do LOCA029.PRW (Romaneio)

GERREMTES

Ponto-de-entrada: GERREMTES

...

Versões

...

Microsiga Protheus 12

...

Compatível Países

...

Brasil

...

Sistemas Operacionais

...

Todos

...

Compatível às bases de dados

...

MsSQL

...

Nível de acesso

...

Nível 1 (Acesso Clientes)

...

Idiomas

...

Português

...

Fonte utilizado

...

LOCA029 - Romaneio

10/03/2023
/*/
//------------------------------------------------------------------
User Function LOCA024A()
Local nX            := 0
Local nY            := 0
Local nPosNewCpo    := 0
Local nTamACols        := 0
Local aHeader        := PARAMIXB[1]
Local aCols            := PARAMIXB[2]
Local aHeadAux        := {}
Local aColsAux        := {}
Local aTamFam        := TamSx3("T6_NOME   ")

//Adiciona campo Virtual na grid
For nX := 1 To Len(aHeader)
    //adiciona um por um
    Aadd(aHeadAux,aHeader[nX])
    //caso encontre o campo FQ4_COFAM, adiciona campo virtual com a descrição
    If AllTrim(aHeader[nX][2]) == "FQ4_CODFAM"
        //guarda campo de referencia
        nPosNewCpo := nX 
        //adiciona campo 
        Aadd( aHeadAux , { "Fam.CUSTOM"     , ; // Titulo
                            "FQ4_V_FAM"      , ; // campo
                            "@!"               , ; // picture
                            aTamFam[1]         , ; // tamanho 
                            aTamFam[2]         , ; // decimal
                            "AllwaysTrue()" , ; // valid
                            aHeader[nX][7]  , ; // usado
                            "C"             , ; // tipo
                            ""               , ; // x3_arquivo
                            "V" } )             // contexto
    EndIf
Next nX

//adiciona coluna com informação no aCols
For nX := 1 To Len(aCols)
    //adiciona nova linha a cada aCols
    Aadd(aColsAux,{})
    //pega o tamanho atual do aColsAux
    nTamACols := Len(aColsAux)
    //Roda todas as Linhas
    For nY := 1 To Len(aCols[nX])
        //adiciona campo a campo
        Aadd(aColsAux[nTamACols],aCols[nX][nY])
        //quando está na posição do campo de referencia, adiciona o valor do campo virtual novo
        If nY == nPosNewCpo
            Aadd(aColsAux[nTamACols],Posicione("ST6",1,xFilial("ST6") + aCols[nX][nY], "T6_NOME"))
        EndIf
    Next nY
Next nX

//atualiza aHeader e aCols
aHeader := AClone(aHeadAux)
aCols    := AClone(aColsAux)

Return {aHeader,aCols}

...

Pontos de entradas do LOCA029.PRW (Romaneio)

GERREMTES

Ponto-de-entrada: GERREMTES

Descrição: Alteração da TES da nota de remessa

Parâmetros de entrada:

• CTESLF

Retorno:

• CTESLF

LOCA029B

Ponto-de-entrada: LOCA029B

Descrição: Após a exclusão de um equipamento Alteração da TES da nota de remessa

Parâmetros de entrada:

• CTESLF

Retorno:

• CTESLF

LOCA029B

Ponto-de-entrada: LOCA029B

Descrição: Após a exclusão de um equipamento

Parâmetros de entrada:

• lRet - Se a Exclusão foi realizada com sucesso ou não
• cItem - FQ3-
• lRet - Se a Exclusão foi realizada com sucesso ou não
• cItem - FQ3->FQ3_ITEM
• cProd - FQ3->FQ3_PROD
• cEquip - FQ3->FQ3_CODBEM
• cAS - FQ3->FQ3_AS
• cProjFq3 - FQ3->FQ3_PROJET

...

O parâmetro cTipo indica se o registro é de retorno "1", ou remessa "0".

Retorno:

• cTitulo

Pontos de entradas do LOCA080.PRW (Duplica linhas)

LOCA080A

LOCA59A

Ponto-de-entrada:  LOCA080ALOCA59A

Descrição: TRATAMENTO PRODUTO E EQUIPAMENTO NO ACEITE DE ASDescrição: Ponto de Entrada para validar se permite a cópia de linhas

Parâmetros de entrada:

• aHead080 - Cabeçalho da tabela de Itens do Orçamento (FPA)
• aCols080 - conteúdo da linha atualNil

Retorno:

• lRet

  _LRET

LOCA59H

Ponto-de-entrada: LOCA59H

Descrição: TRATAMENTO PARA ALTERAR CLIENTE DA SOLIICTAÇÃO DE COMPRAS

Parâmetros de entrada:

• Nil

Retorno:

• Nil

LOCA59XG

Ponto-de-entrada: LOCA59XG

Descrição: FORÇAR A TROCA DO EQUIPAMENTO NA SUBSTITUIÇÃO

Parâmetros de entrada:

• EquipNv

Retorno:

• EquipNv

...

Pontos de entradas do LOCA079.PRW

LOCA7901

Ponto-de-entrada: LOCA7901

Descrição: TRATAMENTO ANTES DA ABERTURA DO ARQUIVO DE IMPORTAÇÃO DO PICKLIST

Parâmetros de entrada:

• nHandle

Retorno:

• nHandle

Pontos de entradas do LOCA080.PRW (Duplica linhas)

LOCA080A

Ponto-de-entrada: LOCA080A

Descrição: Ponto de Entrada para validar se permite a cópia de linhas

Parâmetros de entrada:

• aHead080 - Cabeçalho da tabela de Itens do Orçamento (FPA)
• aCols080 - conteúdo da linha atual

Retorno:

• lRet

//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"

//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"

//---------------------------------------------------------------------
/*/{Protheus.doc} LOCA080A
Ponto de Entrada para validar se pode realizar cópias
@author Jose Eulalio
@since 20/06/2023
/*/
//---------------------------------------------------------------------
User Function LOCA080A()
Local aHead080  := ParamIxb[1] ///*/{Protheus.doc} LOCA080A
Ponto de Entrada para validar se pode realizar cópias
@author Jose Eulalio
@since 20/06/2023
/*/
//---------------------------------------------------------------------
User Function LOCA080A()
Local aHead080  := ParamIxb[1] //cabeçalho da FPA atual 
Local aCols080  := ParamIxb[2] //linha atual 
Local nPosSeqGru:= ASCAN(aHead080,{|X|ALLTRIM(X[2])=="FPA_SEQGRU"})
Local lRet      := .T.

//Sua regra
// ...
If aCols080[nPosSeqGru] == "002"
    lRet := .F.
    Alert("Não pode copiar a linha 002")
EndIf

Return lRet

...

Parâmetros de entrada:

• Nil

Retorno:

• Nil

Pontos de entradas do LOCR003.PRW (Demonstrativo de Faturamento)

LOCR003A

LOCXIT02

Ponto-de-entrada:  LOCR003A LOCXIT02

Descrição: PONTO DE ENTADA APÓS A GRAVAÇÃO DO REAJUSTE DE CONTRATODescrição: Ponto de Entrada para substituir as informações dos Equipamentos de Locação.

Parâmetros de entrada:

• nLinAtu - Linha atual do relatório
• cPedido - Pedido de Venda
• cContrato - Contrato
• oReport - Objeto do Relatório

Retorno:

• nNewLinAtu - nova linha atual do Relatório

•  {1} INCLUSÃO

Retorno:

• Nil

...

Pontos de entradas do LOCR016.PRW

LOCR016P

Ponto-de-entrada: LOCR016P

Descrição: VALIDAÇÃO EXTRA PARA VERIFICAR O SISTEMA OPERACIONAL EM USO

Parâmetros de entrada:

• Nil

Retorno:

• lPassa

Pontos de entradas do LOCR003.PRW (Demonstrativo de Faturamento)

LOCR003A

Ponto-de-entrada: LOCR003A

Descrição: Ponto de Entrada para substituir as informações dos Equipamentos de Locação.

Parâmetros de entrada:

• nLinAtu - Linha atual do relatório
• cPedido - Pedido de Venda
• cContrato - Contrato
• oReport - Objeto do Relatório

Retorno:

• nNewLinAtu - nova linha atual do Relatório

//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"

//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"
#Include "FWPrintSetup.ch"

//Alinhamentos
#Define PAD_LEFT    0
#Define PAD_RIGHT   1
#Define PAD_CENTER  2
#Define PAD_JUSTIF  3

//Cores
#Define COR_CINZA   RGB(180, 180, 180)
#Define COR_PRETO   RGB(000, 000, 000)

//Colunas 
#Define NMINLEFT   	:= 10
#Define NMAXWIDTH 	:= 584
#Define NMAXHEIGHT	:= 2900
#Define NMEIO		:= ((NMAXWIDTH+NMINLEFT)/2)

//---------------------------------------------------------------------
/*/{Protheus.doc} LOCR003A
Ponto de Entrada para substituir informações ao relatório na Locação de Equipamentos
@author Jose Eulalio
@since 16/06/2023
/*/
//---------------------------------------------------------------------
User Function LOCR003A()
Local nLinAtu   := ParamIxb[1] //linha atual do relatório
Local cPedido   := ParamIxb[2] // Pedido de Venda
Local cContrato := ParamIxb[3] // Contrato
Local oReport   := ParamIxb[4] // objeto com o relatório
Local oFont2    := TFONTEX():NEW(OREPORT,"COURIER",08,08,.F.,.F.,.F.)// 1
Local cTit003A  := "LOCAÇÃO DE EQUIPAMENTOS"
Local cPeriodo  := ""
Local nTamLin   := 10
Local nTamObs   := 0
Local nQtLinObs := 0
Local n038Obs   := 550
Local nLinObs   := 0
Local aAreaSC5  := SC5->(GetArea())
Local aAreaSC6  := SC6->(GetArea())
Local aAreaFPA  := FPA->(GetArea())

//imprime primeira linha
oReport:SAY( nLinAtu-1, 20, "PONTO DE ENTRADA LOCR003A - "+ cTit003A, oFont2:oFont ) //"LOCAÇÃO DE EQUIPAMENTOS - "
nLinAtu += nTamLin

//imprime equipamento, numero de serie e periodo
SC6->(DbSetOrder(1)) //C6_FILIAL+C6_NUM+C6_ITEM+C6_PRODUTO  
If SC6->(DbSeek(xFilial("SC6") + cPedido)) 
    FPA->(DbSetOrder(3)) //FPA_FILIAL+FPA_AS+FPA_VIAGEM
    cChave := SC6->(C6_FILIAL + C6_NUM)
    While !SC6->(Eof()) .And. SC6->(C6_FILIAL + C6_NUM) == cChave
        cPeriodo  := SC6->C6_XPERLOC
        If FPA->(DbSeek(xFilial("FPA") + SC6->C6_XAS))
            oReport:SAY( nLinAtu-1, 020, "Equipamento: " + AllTrim(FPA->FPA_GRUA)    , oFont2:oFont ) 
            oReport:SAY( nLinAtu-1, 120, "Num.Serie: "   + AllTrim(SC6->C6_NUMSERI)  , oFont2:oFont ) 
            oReport:SAY( nLinAtu-1, 220, "Periodo: "     + AllTrim(cPeriodo)         , oFont2:oFont ) 
            nLinAtu += nTamLin
        EndIf
        SC6->(DbSkip())
    EndDo
EndIf

//imprime observação do Pedido
SC5->(DbSetOrder(1)) //C5_FILIAL+C5_NUM
If SC5->(DbSeek(xFilial("SC5") + cPedido))
    //calcula tamanho para a célula
    nTamObs   := oReport:GetTextWidth(SC5->C5_XOBS,oFont2:oFont)
    nQtLinObs := Max( Int(nTamObs / (n038Obs  * 10)) , 1 )
    nLinObs   := (nQtLinObs * 20) - nTamLin
    //imprime a célula
    oReport:SayAlign(nLinAtu, 20, SC5->C5_XOBS   , oFont2:oFont, n038Obs, nLinObs, COR_PRETO, PAD_JUSTIF  , 0) //campo observação CUSTOMIZADO, se existir
    //calcula tamanho para adicionar proxima linha
    nLinObs   := Max(Int(nLinObs / 3),nTamLin)
EndIf

nLinAtu += nLinObs

RestArea(aAreaSC5)
RestArea(aAreaSC6)
RestArea(aAreaFPA)

Return nLinAtu

...

//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"
#Include "FWPrintSetup.ch"

//Alinhamentos
#Define PAD_LEFT    0
#Define PAD_RIGHT   1
#Define PAD_CENTER  2
#Define PAD_JUSTIF  3

//Cores
#Define COR_CINZA   RGB(180, 180, 180)
#Define COR_PRETO   RGB(000, 000, 000)

//Colunas Pedido de Venda
#Define COL_01      0015
#Define COL_02      0040
#Define COL_03      0120
#Define COL_04      0250
#Define COL_05      0350
#Define COL_06      0390
#Define COL_07      0400
#Define COL_08      0470
#Define COL_TOT      370

//---------------------------------------------------------------------
/*/{Protheus.doc} LOCR038A
Ponto de Entrada para substituir informações ao relatório na seção de Pedidos de Venda
@author Jose Eulalio
@since 07/06/2023
@version 1.0
@type function
/*/
//---------------------------------------------------------------------
User Function LOCR038A()
Local nLinAtu   := ParamIxb[1] //linha atual do relatório
Local oPrintPvt := ParamIxb[2] // objeto com o relatório
Local cPerLoc   := ParamIxb[3] // Periodo da linha
Local nValPed   := ParamIxb[4] // somatorio do pedido (total será apenas quando lUltLInha = .T.)
Local nPedDesc  := ParamIxb[5] // somatorio do desconto (total será apenas quando lUltLInha = .T.)
Local cAlias038 := ParamIxb[6] // Alias da query do relatório
Local cPedAtu   := ParamIxb[7] // Pedido atual
Local nTamLin   := 010
Local nDiasPer  := 0
Local oFontDet  := TFont():New(cNomeFont, 9, -10, .T., .F., 5, .T., 5, .T., .F.)
Local oFontDetN := TFont():New(cNomeFont, 9, -10, .T., .T., 5, .T., 5, .T., .F.)

//calcula dias do periodo
nDiasPer := CtoD(Substr(cPerLoc,14,10)) - CtoD(Substr(cPerLoc,1,10)) + 1 

//imprime os campos
oPrintPvt:SayAlign(nLinAtu, COL_01, Transform(SC6->C6_QTDVEN,PesqPict( "SC6","C6_QTDVEN" )) , oFontDet, 0080, nTamLin, COR_PRETO, PAD_LEFT  , 0)
oPrintPvt:SayAlign(nLinAtu, COL_02, SC6->C6_DESCRI                                          , oFontDet, 0080, nTamLin, COR_PRETO, PAD_LEFT  , 0)
oPrintPvt:SayAlign(nLinAtu, COL_03, FPA->FPA_GRUA                                           , oFontDet, 0200, nTamLin, COR_PRETO, PAD_LEFT  , 0)
oPrintPvt:SayAlign(nLinAtu, COL_04, cPerLoc                                                 , oFontDet, 0200, nTamLin, COR_PRETO, PAD_LEFT  , 0)
oPrintPvt:SayAlign(nLinAtu, COL_05, cValToChar(nDiasPer)                                    , oFontDet, 0080, nTamLin, COR_PRETO, PAD_LEFT  , 0)
oPrintPvt:SayAlign(nLinAtu, COL_06, IIF(FPA->FPA_TIPOSE == "S","Sim","Não" )                , oFontDet, 0080, nTamLin, COR_PRETO, PAD_LEFT  , 0) //"Sim"//"Não" 
oPrintPvt:SayAlign(nLinAtu, COL_07, Transform(FPA->FPA_VRHOR,PesqPict( "FPA","FPA_VRHOR" )) , oFontDet, 0080, nTamLin, COR_PRETO, PAD_RIGHT , 0)
oPrintPvt:SayAlign(nLinAtu, COL_08, Transform(SC6->C6_VALOR,PesqPict( "SC6", "C6_VALOR" ))  , oFontDet, 0080, nTamLin, COR_PRETO, PAD_RIGHT , 0)

nLinAtu := nLinAtu + nTamLin   

(cAlias038)->(DbSkip())

//apresenta o total
If cPedAtu <> (cAlias038)->C5_NUM
    oPrintPvt:SayAlign(nLinAtu, COL_04 , "Desconto: "       + Transform(nPedDesc,PesqPict( "SC6", "C6_VALOR" )) , oFontDetN, 0180, nTamLin, COR_PRETO, PAD_RIGHT , 0) //"Desconto: "
    oPrintPvt:SayAlign(nLinAtu, COL_TOT, "Total Pedido: "   + Transform(nValPed ,PesqPict( "SC6", "C6_VALOR" )) , oFontDetN, 0180, nTamLin, COR_PRETO, PAD_RIGHT , 0) //"Total Pedido: "
    nLinAtu     := nLinAtu + nTamLin   
EndIf

Return nLinAtu

Pontos de entradas de uso geral das rotinas padrão

Os pontos de entrada listados abaixo são usados pelo Rental em conjunto com nossos clientes:

...

Pontos de entradas do LOCA0007.PRW (Orçamentos)

LCZC1TOK

Ponto-de-entrada: LCZC1TOK

...

, 0080, nTamLin, COR_PRETO, PAD_LEFT  , 0)
oPrintPvt:SayAlign(nLinAtu, COL_06, IIF(FPA->FPA_TIPOSE == "S","Sim","Não" )                , oFontDet, 0080, nTamLin, COR_PRETO, PAD_LEFT  , 0) //"Sim"//"Não" 
oPrintPvt:SayAlign(nLinAtu, COL_07, Transform(FPA->FPA_VRHOR,PesqPict( "FPA","FPA_VRHOR" )) , oFontDet, 0080, nTamLin, COR_PRETO, PAD_RIGHT , 0)
oPrintPvt:SayAlign(nLinAtu, COL_08, Transform(SC6->C6_VALOR,PesqPict( "SC6", "C6_VALOR" ))  , oFontDet, 0080, nTamLin, COR_PRETO, PAD_RIGHT , 0)

nLinAtu := nLinAtu + nTamLin   

(cAlias038)->(DbSkip())

//apresenta o total
If cPedAtu <> (cAlias038)->C5_NUM
    oPrintPvt:SayAlign(nLinAtu, COL_04 , "Desconto: "       + Transform(nPedDesc,PesqPict( "SC6", "C6_VALOR" )) , oFontDetN, 0180, nTamLin, COR_PRETO, PAD_RIGHT , 0) //"Desconto: "
    oPrintPvt:SayAlign(nLinAtu, COL_TOT, "Total Pedido: "   + Transform(nValPed ,PesqPict( "SC6", "C6_VALOR" )) , oFontDetN, 0180, nTamLin, COR_PRETO, PAD_RIGHT , 0) //"Total Pedido: "
    nLinAtu     := nLinAtu + nTamLin   
EndIf

Return nLinAtu

...

Pontos de entradas de uso geral das rotinas padrão

Os pontos de entrada listados abaixo são usados pelo Rental em conjunto com nossos clientes:

Pontos de entradas do LOCA0007.PRW (Orçamentos)

LCZC1TOK

Ponto-de-entrada: LCZC1TOK

Descrição: 

Permite incluir validação e serem realizadas ao se clicar no botão OK do formulário do custo extra. 

Parâmetros de Entrada: 

Quando o formulário estiver no modo de inclusão recebe um valor numérico 3 quando em modo de alteração o valor recebido será 4. 

Parâmetros de entrada:

• alegenda - array com as legendas
• acores - array com as cores

Exemplo:

Exemplo: 

USER FUNCTION LCZC1TOK(nOpc) 

Local lRet := .T. 

If nOpc = 4  

                Msgalert(“Alteração cancelada”,”Atenção”) 

                Lret := .F. 

Endif 

Return lRet

• Nil

Pontos de entradas do LOCA059.PRW (Apontador de AS)

LC111ACE

Ponto-de-entrada: LC111ACE

Descrição: Executado após o aceite de AS

Parâmetros de entrada:

• {FQ5->FQ5_AS , CTITULO , CMSG})

Retorno:

• Nil

GRCTAAS

Ponto-de-entrada: GRCTAAS

Descrição: Aceite automatico de AS

Parâmetros de entrada:

• CGRPAND  GRUPOS DE PRODUTOS que não precisam de Bem

Retorno:

• .T.  Para gerar a AS aberta e .F. para gerar a AS aceita. 

Exemplo:

#INCLUDE "PROTHEUS"

user function GRCTAAS()
Local cCGRPAND := ParamIxb[1] // GRUPOS DE PRODUTOS que não precisam de Bem
Local lRet := .T. // Vai gerar com status 1 (não aceita)

if "1234" $ cCGRPAND 
  lRet := .F. // Vai gerar com status 6 (aceita)
endif

RETURN lRet

LOCA011VLA

Ponto-de-entrada: LOCA011VLA

Descrição: 

Altera a linha de itens de forma a trazer as linhas previamente MARCADAS (mediante regra) para facilitar a operação

Parâmetros de entrada:

• {ABRREF}

Retorno:

• {ABRREF}

Exemplo:

User Function LOCA011VLA()
Local ABRAUX := PARAMIXB[]

// Tratativas no ABRAUX - Pré selecionando a primeira linha do grid

    ABRAUX [1][1] := .t.

Return ABRAUX

Pontos de entrada de uso interno.

Pontos de entradas do LOCA021.PRW (Faturamento Automatico)

LOCA021E

Ponto-de-entrada: LOCA021E

Parâmetros que são enviados no caso de locação:

1) array com os recnos da FPA que foram selecionados

2) Tipo "1" = itens de locação

3) Array completo dos itens de locação

Parâmetros que são enviados no caso de custo extra:

1) o array com os recnos da FPA que foram selecionados e o array da FPG dos itens que foram selecionados

2) Tipo "2" = itens de custo extra

3) Array completo dos itens do custo extra

Parâmetro de retorno:

.T. = indicando que pode ser gerado o faturamento

.F. = bloqueia o faturamento automático

Exemplo de fonte para o ponto de entrada:

#Include "protheus.ch"

// Ponto de entrada para validar os itens selecionados no faturamento automatico
user function LOCA021E
Local _aSelecao := paramixb[1]
Local _cTipo    := paramixb[2]
Local _aItens   := paramixb[3]
Local _lRet     := .T.
Local _nX
Local _aAreaFPA := FPA->(GetArea())
Local _aAreaFPG := FPG->(GetArea())

    If _cTipo == "1" // Selecao da locacao
        // em _aSeleção estão os recnos da FPA
        For _nX := 1 to len(_aSelecao)
            FPA->(dbGoto(_aSelecao[_nX][1]))
            // Fazer o tratamento necessário das validações com base na FPA
        Next
        For _nX := 1 to len(_aItens)
            // Fazer o tratamento necessário com base nos itens selecionados
        Next
    Else // Selecao do custo extra
        For _nX := 1 to len(_aSelecao)
            FPG->(dbGoto(_aSelecao[_nX][1]))
            FPA->(dbGoto(_aSelecao[_nX][2]))
            // Fazer o tratamento necessário das validações com base na FPA, ou FPG
        Next
        For _nX := 1 to len(_aItens)
            // Fazer o tratamento necessário com base nos itens selecionados
        Next
    EndIF

    FPA->(RestArea(_aAreaFPA))
    FPG->(RestArea(_aAreaFPG))
    
Return _lRet

Pontos de entradas do LOCA080.PRW (Faturamento Automatico)

LOCA080D

Ponto-de-entrada: LOCA080D

Descrição: 

Permite alterar conteúdo nas linhas que serão incluidas.

Parâmetros de Entrada: 

Parâmetros de entrada:

    aACols- array com a linha a ser gerada
    aAHeader - array com os campos da linha

Exemplo: Alterar conteudo do campo FPA_CARAC

USER FUNCTION Loca080D() 

Local aACols   := PARAMIXB[1]
Local aAHeader := PARAMIXB[2]

Local nPosCar := 0

nPosCar := ASCAN(aAHeader,{|X|ALLTRIM(X[2])=="FPA_CARAC"})

    aACols[nPosCar] := "Conteudo Alterado"

Return aACols

Descrição: 

Permite incluir validação e serem realizadas ao se clicar no botão OK do formulário do custo extra. 

Parâmetros de Entrada: 

Quando o formulário estiver no modo de inclusão recebe um valor numérico 3 quando em modo de alteração o valor recebido será 4. 

Parâmetros de entrada:

• alegenda - array com as legendas
• acores - array com as cores

Exemplo:

Exemplo: 

USER FUNCTION LCZC1TOK(nOpc) 

Local lRet := .T. 

If nOpc = 4  

                Msgalert(“Alteração cancelada”,”Atenção”) 

                Lret := .F. 

Endif 

Return lRet

• Nil

Pontos de entradas do LOCA059.PRW (Apontador de AS)

LC111ACE

Ponto-de-entrada: LC111ACE

...

Versões

...

Microsiga Protheus 12

...

Compatível Países

...

Brasil

...

Sistemas Operacionais

...

Todos

...

Compatível às bases de dados

...

MsSQL

...

Nível de acesso

...

Nível 1 (Acesso Clientes)

...

Idiomas

...

Português

...

Fonte utilizado

...

LOCA059 - Apontador de AS

Descrição: Executado após o aceite de AS

Parâmetros de entrada:

• {FQ5->FQ5_AS , CTITULO , CMSG})

Retorno:

• Nil

Pontos de entrada de uso interno.

...