Pembuatan ERP System

Dear All,
Perkenalkan saya eSoft Software house, menawarkan jasa pembuatan program ERP,
untuk Trading & Distribution, Manufacturing System.

Untuk skala kecil yaitu : Dental Clinic Software, Klinik Kecantikan, Koperasi, POS ( Point Of Sale ).

Sekilas flow secara global untuk ERP :
- Purcahse Dept. : Pembuatan PO – Penerimaan Barang – Penerimaan Invoice – AP (Hutang Dagang)
- Outstanding Faktur - Faktur Jatuh Tempo – Kartu Hutang
- Adjustment AP : Penambah AP – Pengurang AP

- Sales Dept. : Sales Order (SO) – Surat Jalan – Faktur – Faktur Pajak – AR (Piutang Dagang)
- Outstanding Faktur Piutang – Faktur Jatuh Tempo – Kartu Piutang
- Adjustment AR : Penambah AR – Pengurang AR

- Monitoring : Printed Surat Jalan - Pengiriman SJ – Penerimaan SJ Kembali

- Inventory : Pengeluaran Bad Stok – Stock Opname – Bonus / Sample – Retur Penjualan – Retur Pembelian
- Finance : Penerimaan & Pengeluaran Kas / Bank – Kas Bon Sementara – Penerimaan PGM (Piutang Giro Mundur).
- Accounting : Generate Journal dari Front End - Laporan General Ledger – Trial Balance – Rugi/Laba – Neraca

Selilas Flow Untuk Dental Clinic :
- Registrasi Pasien – Antrian Pasien – Tindakan Pasien – Pembayaran (Bill)
Medical record pasien – Odontogram Gigi pasien – SMS Reminder – Mail Reminder

Hub : Gunawan

( masalah harga bisa Negosiable langsung dengan Programmer )

Phone/SMS/WA : 081311016692

Pin BB : 553D9FA5

Client Kami :
- PT Radiance Food, PT Gluksindo, PT Talacipta, PT Germany Briliant, PT Gama Cipta, PT Pantonpile, PT Pola Baja, PT Citra Tama, PT Everyoung Utama dll
- Rumah Gigi Ayu, Smile Dental, Falencia, Dental Plus, Ismile Dental, Dentist&dentist, Ultimo, MW Dental, With Smile Dental Margocity, Pejaten dll.

New eSoft Dental Clinic Software

From New eSoft

From New eSoft

From New eSoft

From New eSoft

From New eSoft

From New eSoft

From New eSoft

From New eSoft

From New eSoft

From New eSoft

From New eSoft

From New eSoft

From New eSoft

From New eSoft

From New eSoft

From New eSoft

Menu Transaction Software Akuntansi

Menu Basic Software Akuntansi

List History Tindakan, Unsur, Diagnosa, Terapi, Keterangan

Download Manual Book

---

Copyright by eSoft Software
Hp : 0813-11016692, 021-82419226

Input Tindakan Dokter

---

Copyright by eSoft Software
Hp : 0813-11016692, 021-82419226

eSoft Software: eSoft Software: Contoh Report Share Dokter

Share

eSoft Software: Contoh Report Share Dokter

eSoft Software: Contoh Report Share Dokter

Share

Layout Faktur

---

Copyright by eSoft Software
Hp : 0813-11016692, 021-82419226

Contoh Report Share Dokter

---

Copyright by eSoft Software
Hp : 0813-11016692, 021-82419226

Monitoring Ruangan & Jam

---

Copyright by eSoft Software
Hp : 0813-11016692, 021-82419226

Odontogram Gigi Pasien

---

Copyright by eSoft Software
Hp : 0813-11016692, 021-82419226

Medical Record Pasien

---

Copyright by eSoft Software
Hp : 0813-11016692, 021-82419226

Input Tindakan Dokter

---

Copyright by eSoft Software
Hp : 0813-11016692, 021-82419226

Menu Cantik from Java J2ee

package components;

import javax.swing.JInternalFrame;
import javax.swing.JDesktopPane;
import javax.swing.JMenu;
import javax.swing.JMenuItem;
import javax.swing.JMenuBar;
import javax.swing.JFrame;
import javax.swing.KeyStroke;
import javax.swing.ImageIcon;
import javax.swing.JCheckBoxMenuItem;
import javax.swing.JRadioButtonMenuItem;
import java.awt.event.*;
import java.awt.*;

/*
* InternalFrameDemo.java requires:
* MyInternalFrame.java
*/
class InternalFrameDemo extends JFrame
implements ActionListener {
JDesktopPane desktop;

public InternalFrameDemo() {
super("Dental System");

//Make the big window be indented 50 pixels from each edge
//of the screen.
int inset = 50;
Dimension screenSize = Toolkit.getDefaultToolkit().getScreenSize();
setBounds(inset,inset,screenSize.width - inset*2,
screenSize.height - inset*2);

//Set up the GUI.
desktop = new JDesktopPane(); //a specialized layered pane
//createFrame(); //create first "window"
setContentPane(desktop);
setJMenuBar(createMenuBar());

//Make dragging a little faster but perhaps uglier.
desktop.setDragMode(JDesktopPane.OUTLINE_DRAG_MODE);
}

protected JMenuBar createMenuBar() {
JMenuBar menuBar = new JMenuBar();

//Set up the lone menu.
JMenu menu1 = new JMenu("File");
JMenu menu2 = new JMenu("Basic");

menu1.setMnemonic(KeyEvent.VK_F);
menu2.setMnemonic(KeyEvent.VK_B);

menuBar.add(menu1);
menuBar.add(menu2);

//Set up the first menu item.
ImageIcon icon1 = createImageIcon("images/contac.png");
JMenuItem menuItem1 = new JMenuItem("Supplier",icon1);
menuItem1.setMnemonic(KeyEvent.VK_S);
menuItem1.setAccelerator(KeyStroke.getKeyStroke(
KeyEvent.VK_S, ActionEvent.ALT_MASK));
menuItem1.setActionCommand("sup");
menuItem1.addActionListener(this);

ImageIcon icon2 = createImageIcon("images/month.png");
JMenuItem menuItem2 = new JMenuItem("Customer",icon2);
menuItem2.setMnemonic(KeyEvent.VK_C);
menuItem2.setAccelerator(KeyStroke.getKeyStroke(
KeyEvent.VK_C, ActionEvent.ALT_MASK));
menuItem2.setActionCommand("cus");
menuItem2.addActionListener(this);

ImageIcon icon3 = createImageIcon("images/soft32.png");
JMenuItem menuItem3 = new JMenuItem("Quit",icon3);
menuItem3.setMnemonic(KeyEvent.VK_Q);
menuItem3.setAccelerator(KeyStroke.getKeyStroke(
KeyEvent.VK_Q, ActionEvent.ALT_MASK));
menuItem3.setActionCommand("quit");
menuItem3.addActionListener(this);

menu1.add(menuItem1);
menu1.add(menuItem2);
menu1.addSeparator();
menu1.add(menuItem3);

//Set up the second menu item.
ImageIcon icon21 = createImageIcon("images/email16.png");
JMenuItem menuItem21 = new JMenuItem("Data Pasien",icon21);
menuItem21.setMnemonic(KeyEvent.VK_P);
menuItem21.setAccelerator(KeyStroke.getKeyStroke(
KeyEvent.VK_P, ActionEvent.ALT_MASK));
menuItem21.setActionCommand("pas");
menuItem21.addActionListener(this);

menu2.add(menuItem21);

return menuBar;
}

//React to menu selections.
public void actionPerformed(ActionEvent e) {
if ("sup".equals(e.getActionCommand()))
{ // new
// createFrame();
//new MyFrame().setVisible(true);
MyFrame2 f=new MyFrame2();
f.setVisible(true);
desktop.add(f);
}

if ("cus".equals(e.getActionCommand()))
{ // new
MyFrame3 f=new MyFrame3();
f.setVisible(true);
desktop.add(f);
}
if ("pas".equals(e.getActionCommand()))
{ // new
MyFrame4 f=new MyFrame4();
f.setVisible(true);
desktop.add(f);
}

if ("quit".equals(e.getActionCommand()))
{ // new
quit();
}
}


//Create a new internal frame.
protected void createFrame() {
MyInternal frame = new MyInternal();
frame.setVisible(true); //necessary as of 1.3
desktop.add(frame);
try {
frame.setSelected(true);
}
catch (java.beans.PropertyVetoException e) {}
}

//Quit the application.
protected void quit() {
System.exit(0);
}

/** Returns an ImageIcon, or null if the path was invalid. */
protected static ImageIcon createImageIcon(String path) {
java.net.URL imgURL = MenuDemo.class.getResource(path);
if (imgURL != null) {
return new ImageIcon(imgURL);
} else {
System.err.println("Couldn't find file: " + path);
return null;
}
}

/**
* Create the GUI and show it. For thread safety,
* this method should be invoked from the
* event-dispatching thread.
*/
private static void createAndShowGUI() {
//Make sure we have nice window decorations.
JFrame.setDefaultLookAndFeelDecorated(true);

//Create and set up the window.
InternalFrameDemo frame = new InternalFrameDemo();
frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

//Display the window.
frame.setVisible(true);
}

public static void main(String[] args) {
//Schedule a job for the event-dispatching thread:
//creating and showing this application's GUI.
javax.swing.SwingUtilities.invokeLater(new Runnable() {
public void run() {
createAndShowGUI();
}
});
}
}

Demo Program Akuntansi ( GL)

Download GL Demo

Membuat Form Jadi Transparan (Visual Foxpro)

* Penulisanya
* 1. Ketik Di Form procedure - init
* : transparent(thisform.HWnd, thisform.BackColor)
* 2. buat background formnya : RGB(255,0,255)
* 3. ShowWindow=2
* 4. Ketik di Form procedure - unload
* CLEAR DLLS GetWindowLong,SetWindowLong,SetLayeredWindowAttributes
*------------------------------------------------------------------------
PROCEDURE transparenci
LPARAMETERS nHWND, nColor
DECLARE INTEGER GetWindowLong IN user32.DLL INTEGER hWnd, ;
INTEGER nIndex
DECLARE INTEGER SetWindowLong IN user32.DLL INTEGER hWnd, ;
INTEGER nIndex, ;
INTEGER dwNewLong
DECLARE INTEGER SetLayeredWindowAttributes IN WIN32API INTEGER HWND, ;
INTEGER crKey, ;
INTEGER bAlpha,;
INTEGER dwFlags
*********************************************************************************************
#DEFINE LWA_TRANSPARENT 1
#DEFINE GWL_EXSTYLE -20
#DEFINE WS_EX_LAYERED 0x00080000

LOCAL lnFlags
*********************************************************************************************
lnFlags = GetWindowLong(nHWND, GWL_EXSTYLE) && Gets the existing flags from the window
lnFlags = BITOR(lnFlags, WS_EX_LAYERED) && Appends the Layered flag to the existing ones
SetWindowLong(nHWND, GWL_EXSTYLE, lnFlags) && Sets the new flags to the window
SetLayeredWindowAttributes(nHWND, nColor, 0, LWA_TRANSPARENT)
ENDPROC
* HexToStr
*******************************************
Function HexToStr(cBytes)
Local cReturn,n
cReturn=""
For n=Len(cBytes)/2 to 1 step -1
nChr=eval("0x"+SubStr(cBytes,(n-1)*2+1,2))
cReturn=cReturn+chr(nChr)
endfor
Return cReturn
EndFunc

Get Default Printer (Visual Foxpro)

* Penulisannya
* =GetdefaPrn()
*----------------------------------------------------------------------------
PROCEDURE getdefaprn
DECLARE INTEGER GetDefaultPrinter IN winspool.drv;
STRING @ pszBuffer,;
INTEGER @ pcchBuffer

* returns default printer name (WinNT)
nBufsize = 250
cPrinter = REPLICATE(Chr(0), nBufsize)

= GetDefaultPrinter(@cPrinter, @nBufsize)
cPrinter = SUBSTR(cPrinter, 1, AT(Chr(0),cPrinter)-1)
RETURN cPrinter
ENDPROC

Sinkronisasi Jam Local dengan Jam Server (Visual Foxpro)

* sinkronisasi jam dengan server
* =timeserver(cNamesvr)
*-------------------------------------
FUNCTION timeserver
PARAMETERS cNmsvr
myServerName=cNmsvr
lcCmd = GETENV("ComSpec") + " /C NET TIME \\"+ ;
myServerName+" /SET /YES"
loShell = CREATEOBJECT("wscript.shell")
loShell.Run(lcCmd,0,.t.)
ENDFUNC

Dapatkan nomor transaksi terakhir (Visual Foxpro)

FUNCTION getnum
PARAMETERS lcalias,lddate,lckey,fld,cPP
PRIVATE lcoldalias,bd,BL
lcoldalias = Alias()
bl=bulan(lddate)
bd=SUBSTR(lckey,1,3)+SUBSTR(DTOC(lddate),9,2)+bl
BLN=MONTH(lddate)
THN=YEAR(lddate)
*------------------------------------------------------
lup="Select * from &lcalias where !DELETED() and MONTH(tgltrn)="+TRANSFORM(MONTH(lddate),'99')+"AND YEAR(tgltrn)="+TRANSFORM(YEAR(lddate),'9999')

ll=SQLEXEC(lnHandle,lup,'temnum')
SELECT temnum
CALCULATE MAX(&fld) FOR SUBSTR(&fld,1,6)=BD TO MCT
MCT=VAL(RIGHT(MCT,5))+1
lcreturn=bd+ALLTRIM(NtoC(mct,5))
SELECT(lcoldalias)
Return lcreturn
ENDFUNC

FUNCTION ntoc
PARAMETER NVAR, NLEN
IF PARAMETERS()=1
NLEN = 10
ENDIF
RETURN STRTRAN(STR(NVAR, NLEN), ' ', '0')
ENDFUNC