/*-------------------------------------------------
Eksport/import do Niemiec
-------------------------------------------------*/
makro string Niemcy
int I, iBra;
float F, P, Q;
string S;
{
	P = 0;
	Q = 0;

	iBra = ZnajdzGal("U004");
	S = cprintf("iBra=%d", iBra);
	if(iBra>0)
		P = P + Bra[iBra].Pbeg;
		Q = Q + Bra[iBra].Qbeg;
	endif
		
  iBra = ZnajdzGal("U005");
	if(iBra>0)
		P = P + Bra[iBra].Pbeg;
		Q = Q + Bra[iBra].Qbeg;
	endif

  iBra = ZnajdzGal("567");
	if(iBra>0)
		P = P + Bra[iBra].Pbeg;
		Q = Q + Bra[iBra].Qbeg;
	endif

  iBra = ZnajdzGal("568");
	if(iBra>0)
		P = P + Bra[iBra].Pbeg;
		Q = Q + Bra[iBra].Qbeg;
	endif

	S = sprintf("%4.0f MW", P);

	I = return S;
}