| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 |
- //-------------------------------------------------------------------------
- // Função ORCA1019. UF e Mun. de Entrega.
- // Solicitante: Comercial.
- // Autor: Fonseca.
- // Data: 21-08-2014.
- //--------------------------------------------------------AA-----------------
- #include 'protheus.ch'
- #include 'rwmake.ch'
- #include 'totvs.ch'
- #include "topconn.ch"
- User Function ORCA1019()
- Local aArea := GetArea()
- Private cUFCli := Posicione("SA1",1,xFilial('SA1')+ CJ_CLIENTE + CJ_LOJA,"A1_EST")
- Private cMunCli := Posicione("SA1",1,xFilial('SA1')+ CJ_CLIENTE + CJ_LOJA,"A1_COD_MUN")
- If Funname() = "RPC" //Portal SMS
- Return
- Endif
- // Informar o Endereço de Entrega.
- If MsgNoYes("O Local de entrega é DIFERENTE do informado no cadastro do cliente ?","Local de Entrega")
- cUFCli := Space(2)
- cMunCli := Space(5)
- TelaEnd()
- If Select("QRY") > 0
- dbSelectArea("QRY")
- QRY->(dbCloseArea())
- Endif
- cQuery := "SELECT Trim(CC2_MSGCOM) MSGCOM FROM CC2010 WHERE D_E_L_E_T_ = ' ' AND CC2_CODMUN = '" + cMunCli + "' AND CC2_EST = '" + cUFCli + "'"
- TcQuery cQuery New Alias "QRY"
- If QRY->(!EOF()) .AND. QRY->MSGCOM <> ' '
- MsgAlert(QRY->MSGCOM,"Atenção")
- EndIf
- EndIf
- RestArea(aArea)
- Return(Trim(cUFCli)+Trim(cMunCli)+" - "+Trim(Posicione("CC2",1," "+Trim(cUFCli)+Trim(cMunCli),"CC2_MUN")))
- Static Function TelaEnd()
- Local oFont1 := TFont():New("Calibri",,016,,.F.,,,,,.F.,.F.)
- Local oFont2 := TFont():New("Calibri",,016,,.T.,,,,,.F.,.F.)
- // Local cGet1 := Space(2)
- // Local cGet2 := Space(6)
- Local oButton1
- Local oSay1
- Local oSay2
- Local oDlg
- DEFINE MSDIALOG oDlg TITLE "UF e Município de Entrega" FROM 000,000 TO 150,330 COLORS 0,16777215 PIXEL
- @ 017,005 SAY oSay1 PROMPT "UF: " SIZE 030,012 OF oDlg COLORS 0,16777215 FONT oFont1 PIXEL
- @ 032,005 SAY oSay2 PROMPT "Município: " SIZE 030,012 OF oDlg COLORS 0,16777215 FONT oFont1 PIXEL
- @ 013,038 MSGET oGet1 VAR cUFCli SIZE 20,012 OF oDlg PICTURE "@!" Valid IIF(!Empty(cUFCli),ExistCpo("SX5","12"+cUFCli)," ") COLORS 0,16777215 FONT oFont2 PIXEL
- @ 030,038 MSGET oGet2 VAR cMunCli SIZE 20,012 OF oDlg PICTURE "@!" F3 "CC2SCJ" Valid IIF(!Empty(cUFCli),ExistCpo("CC2",cUFCli+cMunCli)," ")COLORS 0,16777215 FONT oFont2 PIXEL
- @ 060,120 BUTTON oButton1 PROMPT "Confirma" SIZE 040,012 ACTION oDlg:END() OF oDlg PIXEL
- ACTIVATE MSDIALOG oDlg CENTERED
- Return
|
