Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Este Ponto de Entrada tem a finalidade de permitir a Inclusão de opções no botão Ações Relacionadas na rotina Pedido Máquinas (VEIVM190)

Localização:

Atualizações \ Máquinas JD \ Pedido Máquinas (VEIVM190)

Eventos:

Function VEIVM190()

Local aObjects := {} , aPos := {} , aInfo := {}

Local aSizeHalf := MsAdvSize(.t.) // Tamanho Maximo da Janela (.t.=TOOLBAR,.f.=SEM TOOLBAR)

Local cBotPED := "00000000000"

Local aSimNao := {"","1="+STR0084,"0="+STR0085} // Sim / Nao

//

Private lBotAtu := .t.

Private nMaxDias:= GetNewPar("MV_MIL0035",0) // Qtde de meses para retroagir que será possível modificar os bônus em atendimentos já faturados.

//

Private cNumPed := space(TamSX3("VQ0_NUMPED")[1])

Private dDatIni := (dDataBase-day(dDataBase))+1

Private dDatFin := dDataBase

Private cFilAte := space(TamSX3("VQ0_FILATE")[1])

Private cNumAte := space(TamSX3("VQ0_NUMATE")[1])

Private cNumNFI := space(TamSX3("VQ1_NUMNFI")[1])

Private cSerNFI := space(FGX_MILSNF("VQ1", 6, "VQ1_SERNFI"))

 

Private cCodCli := space(TamSX3("VV9_CODCLI")[1])

Private cLojCli := space(TamSX3("VV9_LOJA")[1])

Private cChassi := space(TamSX3("VV1_CHASSI")[1])

Private cCodMar := space(TamSX3("VV1_CODMAR")[1])

Private cModVei := space(TamSX3("VV1_MODVEI")[1])

Private dDtIFDD := cTod("")

Private dDtFFDD := dDataBase

Private dDtIEnt := cTod("")

Private dDtFEnt := dDataBase

Private dDtIVen := cTod("")

Private dDtFVen := dDataBase

Private cFatDir := ""

Private cNFGera := ""

 

Private nPDcCon := 0

Private nPDcTri := 0

Private nPDcCdc := 0

Private nPDcTat := 0

Private nPBonus := 0

Private nPImpos := 0

Private nVlrIni := 0

Private cCadastro := ""

//

Private aPedid := {} // Vetor com os Pedidos

Private aBonus := {} // Vetor com os Bonus referente ao Chassi selecionado no "aPedid"

//

Private oNada := LoadBitmap( GetResources() , "NADA" ) // Nenhuma figura

Private oLBNO := LoadBitmap( GetResources() , "LBNO" ) // Sem TIK

Private oLBTIK := LoadBitmap( GetResources() , "LBTIK" ) // Com TIK

Private oLBAten := LoadBitmap( GetResources() , "PMSEDT4" ) // Bonus selecionado no Atendimento

//

Private oS1 := LoadBitmap( GetResources() , "BR_AMARELO" ) // 1=Gravado

Private oS2 := LoadBitmap( GetResources() , "BR_VERDE" ) // 2=A faturar

Private oS3 := LoadBitmap( GetResources() , "BR_AZUL" ) // 3=NF gerada

Private oS4 := LoadBitmap( GetResources() , "BR_VERMELHO" ) // 4=Cancelado

//

Private aNewBot := {}

//

If !Empty(FMX_LEVXNU(11,"VEIVM200"))

aNewBot := {{"S4WB014B",{|| VEIVM200() },STR0066}} // Transmissao/Recepcao de NFs

EndIf

 

// Ponto de entrada para inclusao de botoes no acoes relacionadas

If ExistBlock("VM190BOT")

aNewBot := ExecBlock("VM190BOT",.f.,.f.,{aNewBot})

EndIf

 

//

If GetNewPar("MV_MIL0014","0") == "0" // Utiliza Central de Pedido? (0=Não;1=Sim)

MsgStop(STR0068,STR0050) // Rotina desabilitada! ( parametro MV_MIL0014 ) / Atencao

Return()

EndIf

 

Programa Fonte:

VEIVM190.PRW                                                                                                                                          

Função:

VEIVM190()                    

Retorno:

Vetor com os botões do ação relacionadas

 

Exemplo:

User Function VM190BOT()

aNewBot := ParamIxb[01]

 

AADD(aNewBot, {"PENDENTE",{|| FS_PE() },( "Ponto de entrada" )} )

 

Return(aNewBot)

 

Static Function FS_PE()

 

MsgInfo("Ponto de entrada VM190BOT executado com sucesso.")

 

Return(.t.)