FiveTech Support Forums

PROCEDURE EditDeu(lAppend)

   Local vCod:=0, lSave:=.F., oCDeu, oLoca, oProvi, oCodPos, oTele
   Public cNomDeu :=Space(30), nNumDoc :=0

   If lAppend
      oQryDeu:GetBlankRow(.F.)
    Else
      oQryDeu:GetRow()
   EndIf

   DEFINE DIALOG UDlgE RESOURCE "DATOSDEUDOR" ;
      TITLE If( lAppend, "AGREGAR DEUDOR", "MODIFICAR DEUDOR" )

   REDEFINE SAY oCDeu VAR oQryDeu:Codigo  ID 21 OF UDlgE

   REDEFINE DBCOMBO oTipoDoc VAR oQryDeu:TipoDoc ID 22 OF UDlgE ;
                ALIAS oQryDocu ITEMFIELD "coddocu" LISTFIELD "nomdocu" ;
                UPDATE

   REDEFINE GET oQryDeu:NroDoc   ID 23 OF UDlgE picture '999,999,999'

   REDEFINE DBCOMBO oTipoIva  VAR oQryDeu:t_cuit ID 4003 OF UDlgE ;
                ALIAS oQryIva ITEMFIELD "codiva" LISTFIELD "nomiva" ;
                UPDATE

   REDEFINE GET oQryDeu:n_cuit   ID 4005 OF UDlgE picture '99-99999999-9'

   REDEFINE DBCOMBO oTipoCiv VAR oQryDeu:esta_civil ID 4006 OF UDlgE ;
                ALIAS oQryCivil ITEMFIELD "codcivil" LISTFIELD "nomcivil" ;
                UPDATE

   REDEFINE GET oQryDeu:Nombres  ID 32 OF UDlgE picture '@!' //;
//                                   VALID BusNom(lAppend,oQryDeu:Nombres,oQryDeu:NroDoc)
   REDEFINE GET oQryDeu:Direc    ID 25 OF UDlgE picture '@!'

   REDEFINE DBCOMBO oBarru VAR oQryDeu:CodBarr ID 26 OF UDlgE ;
            ALIAS oQryBarr ITEMFIELD "ccodigo" LISTFIELD "nombre" ;
            ON CHANGE (ActuBarrio(3,oQryDeu:CodBarr), oLoca:Refresh(), oProvi:Refresh(), oCodPos:Refresh()) ;
            UPDATE

   REDEFINE GET oLoca   VAR  oQryDeu:Locali   ID 27 OF UDlgE picture '@!'
   REDEFINE GET oProvi  VAR  oQryDeu:Provi    ID 28 OF UDlgE picture '@!'
   REDEFINE GET oCodPos VAR  oQryDeu:CodPos   ID 30 OF UDlgE
   REDEFINE GET oTele   VAR  oQryDeu:Telefono ID 31 OF UDlgE

   REDEFINE GET oQryDeu:Trabaja  ID 36 OF UDlgE
   REDEFINE GET oQryDeu:Ocupa    ID 34 OF UDlgE
   REDEFINE GET oQryDeu:Ult_Act  ID 33 OF UDlgE
   REDEFINE GET oQryDeu:Obser    ID 35 OF UDlgE
   REDEFINE GET oQryDeu:email    ID 4002 OF UDlgE

   REDEFINE BTNBMP oBtnA ID 250 OF UDlgE MESSAGE "Graba el Deudor..." ;
        FILE "./BmpN/Grabar_24.PNG" PROMPT "Grabar" LEFT ;
            ACTION (MsgAlert(oQryDeu:Nombres),lSave:=.T., UDlgE:End());

   REDEFINE BTNBMP oBtnC ID 240 OF UDlgE MESSAGE "Cancela el Movimiento..." ;
        FILE "./BmpN/Cancelar.bmp" PROMPT "Cancelar" LEFT ;
               ACTION UDlgE:End()

   ACTIVATE DIALOG UDlgE CENTERED

   MsgAlert(oQryDeu:Nombres)

   If lAppend
      If !lCargaDeu
         MsgAlert("Usuario no Autorizado para cargar Deudores...!")
         lSave:=.F.
      EndIf
     Else
      If !lModiDeu
         MsgAlert("Usuario no Autorizado para Modificar Deudores...!")
         lSave:=.F.
      EndIf
   EndIf
   If lSave
     If lAppend
         oQryDeu:lAppend := .T.
      EndIf
      oQryDeu:Save()
      oQryDeu:Refresh()
   EndIf
Return Nil

PROCEDURE EditEsta(lAppend)

   Local oEstaDi, oEstaPa, oEstaVi, lSave:=.F.

   oQryE2 := oServer:Query( "SELECT codigo, descrip FROM estados ORDER BY codigo ASC" )

   DEFINE FONT oFont30  NAME "Times New Roman" SIZE 0,-30 BOLD
   DEFINE FONT oFont20  NAME "Times New Roman" SIZE 0,-20 BOLD
   DEFINE FONT oFont14  NAME "Times New Roman" SIZE 0,-14 BOLD

   If lAppend
      oQryEsta:GetBlankRow(.F.)
    Else
      oQryEsta:GetRow()
   EndIf

   DEFINE DIALOG UDlgE RESOURCE "DATOSESTA" ;
      TITLE If( lAppend, "AGREGAR ESTADO", "MODIFICAR ESTADO" )

   REDEFINE GET oQryEsta:Codigo    ID 100 OF UDlgE picture '999' COLOR "N/W" FONT oFont20
   REDEFINE GET oQryEsta:Descrip   ID 101 OF UDlgE picture '@!'  COLOR "N/W" FONT oFont20
   REDEFINE RADIO oTipoEsta VAR oQryEsta:TEstado  ID 102, 103 OF UDlgE

   REDEFINE GET oQryEsta:Dia_Movi  ID 104 OF UDlgE picture '999'

   REDEFINE DBCOMBO oEstaDi  VAR oQryEsta:Codigo_D  ID 105 OF UDlgE ;
          ALIAS oQryE2 ITEMFIELD "codigo" LISTFIELD "descrip"

   REDEFINE DBCOMBO oEstaPa  VAR oQryEsta:Codigo_P ID 106 OF UDlgE ;
          ALIAS oQryE2 ITEMFIELD "codigo" LISTFIELD "descrip"

   REDEFINE DBCOMBO oEstaVi  VAR oQryEsta:Codigo_V ID 107 OF UDlgE ;
          ALIAS oQryE2 ITEMFIELD "codigo" LISTFIELD "descrip"

   REDEFINE BTNBMP oBtnA ID 250 OF UDlgE MESSAGE "Graba el Deudor..." ;
        FILE "./BmpN/Grabar_24.PNG" PROMPT "Grabar" LEFT ;
            ACTION (lSave:=.T., UDlgE:End());

   REDEFINE BTNBMP oBtnC ID 240 OF UDlgE MESSAGE "Cancela el Movimiento..." ;
        FILE "./BmpN/Cancelar.bmp" PROMPT "Cancelar" LEFT ;
               ACTION UDlgE:End()

   ACTIVATE DIALOG UDlgE CENTERED

   If lSave
     If lAppend
         oQryEsta:lAppend := .T.
      EndIf
      oQryEsta:Save()
      oQryEsta:Refresh()
   EndIf

   oQryE2:End()
   oFont30:End()
   oFont20:End()
   oFont14:End()

Return Nil